User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:pfm.009

Deck PFM Part 009

95 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
13038  M01S00065.pfm78   +++|*         ERROR  FIN,,,FS,EC2  *(FILE NAME) INTERLOCKED.*
13039  M01S00066.pfm78   +++|*         ERROR  DAF,,,FS    *EQXXX,DNYY, DIRECT ACCESS FILE ERROR.*
13040  M01S00067.pfm78   +++|*         ERROR  MSE,,,FS    *EQXXX,DNYY, MASS STORAGE ERROR.*
13041  M01S00068.pfm78   +++|          SPACE  4,10
13042  M01S00069.pfm78   +++|*         COMMON DECKS.
13043  M01S00070.pfm78   +++|
13044  M01S00071.pfm78   +++|
13045  M01S00072.pfm78   +++|*CALL     COMPWSS
13046  M01S00073.pfm78   +++|          TITLE  OVERLAYABLE SUBROUTINES.
13047  M01S00074.pfm78   +++|*         THE FOLLOWING ROUTINES MAY BE OVERLAID BY *BUF2*.
13048  M01S00075.pfm78   +++|
13049  M01S00076.pfm78   +++|          ERRNG  BUF2-*      OVERFLOW INTO EOI SECTOR BUFFER
13050  M00S09332.pfm     +++| CFM      SPACE  4,30
13051  M00S09333.pfm     +++|**        CFM - CHECK FILE MODE.
13052  M00S09334.pfm     +++|*
13053  M00S09335.pfm     +++|*         ENTRY  (CASS) = CURRENT ACCESS MODE.
13054  M00S09336.pfm     +++|*                (FISS) = FAST ATTACH FILE INDEX.
13055  M00S09337.pfm     +++|*                (CC) = COMMAND CODE.
13056  M00S09338.pfm     +++|*                (MODE) = DESIRED ACCESS MODE.
13057  M00S09339.pfm     +++|*                (UCSS+1) - (UCSS+4) = USER COUNTS.
13058  M00S09340.pfm     +++|*                (FS) = EST ORDINAL OF FILE.
13059  M00S09341.pfm     +++|*                (T6) = FIRST TRACK OF FILE.
13060  M00S09342.pfm     +++|*
13061  M00S09343.pfm     +++|*         EXIT   SYSTEM SECTOR UPDATED FOR NEW ACCESS MODE.
13062  M00S09344.pfm     +++|*                (T1) = REQUESTED MODE.
13063  M00S09345.pfm     +++|*                TO *PFE* FOR ERROR PROCESSING IF ACCESS NOT ALLOWED.
13064  M00S09346.pfm     +++|*
13065  M00S09347.pfm     +++|*         CALLS  DLT.
13066  M00S09348.pfm     +++|*
13067  M00S09349.pfm     +++|*         USES   P0, P1, T1, T3.
13068  M00S09350.pfm     +++|*
13069  M00S09351.pfm     +++|*         DEFINE (P1) = CURRENT ACCESS MODE FLAGS.
13070  M00S09352.pfm     +++|*                (T3) = ADDRESS OF GLOBAL USER COUNTS.
13071  M00S09353.pfm     +++|*                (T7) = ADDRESS OF LOCAL USER COUNTS.
13072  M00S09354.pfm     +++|*
13073  M00S09355.pfm     +++|*         NOTES  IF A WRITEABLE MODE *ATTACH* IS ATTEMPTED ON A
13074  M00S09356.pfm     +++|*                FILE THAT IS ALREADY UTILITY ATTACHED, A *FILE
13075  M00S09357.pfm     +++|*                INTERLOCKED* STATUS WILL BE RETURNED.
13076  M00S09358.pfm     +++|
13077  M00S09359.pfm     +++|
13078  M00S09360.pfm     +++| CFM      SUBR               ENTRY/EXIT
13079  M00S09361.pfm     +++|          LDC    UCSS+1      ADDRESS OF GLOBAL USER COUNTS
13080  M00S09362.pfm     +++|          STD    T3
13081  M00S09363.pfm     +++|          LDM    CASS        SET CURRENT ACCESS MODE
13082  M00S09364.pfm     +++|          LPC    132
13083  M00S09365.pfm     +++|          STD    P1
13084  M00S09366.pfm     +++|          LDM    MODE
13085  M00S09367.pfm     +++|          LPN    37
13086  M00S09368.pfm     +++|          STD    T1          DESIRED ACCESS MODE
13087  M00S09369.pfm     +++|          LDM    FISS
13088  M00S09370.pfm     +++|          NJN    CFM4        IF FAST ATTACH FILE
13089  M00S09371.pfm     +++|          RJM    DLT         DETERMINE LOCAL USER TABLE ADDRESS
13090  M00S09372.pfm     +++|          LDD    CC          CHECK FOR *UATTACH* REQUEST
13091  M00S09373.pfm     +++|          LMN    CCUA
13092  M00S09374.pfm     +++|          NJN    CFM1        IF NOT *UATTACH* REQUEST
13093  M00S09375.pfm     +++|          LDD    HN          SET UTILITY MODE
13094  M00S09376.pfm     +++|          RAM    CASS
13095  M00S09377.pfm     +++|          LDN    2           SET LOCAL *UATTACH* FLAG
13096  M00S09378.pfm     +++|          RAM    -1,T7
13097  M00S09379.pfm     +++| CFM1     LDM    CFMT,T1     SET PROCESSOR ADDRESS
13098  M00S09380.pfm     +++|          STD    P0
13099  M00S09381.pfm     +++|          ZJN    CFM2        IF INCORRECT MODE
13100  M00S09382.pfm     +++|          LDD    P1
13101  M00S09383.pfm     +++|          LJM    0,P0
13102  M00S09384.pfm     +++|
13103  M00S09385.pfm     +++| CFM2     LDN    /ERRMSG/ILR*4  * PFM INCORRECT REQUEST.*
13104  M00S09386.pfm     +++|          LJM    PFE         PROCESS FILE ACCESS ERROR
13105  M00S09387.pfm     +++|
13106  M00S09388.pfm     +++|*         WRITE ACCESS REQUESTED.
13107  M00S09389.pfm     +++|
13108  M00S09390.pfm     +++| CFM3     ADI    T3          CHECK IF ANY ACTIVE USERS ON FILE
13109  M00S09391.pfm     +++|          ADM    1,T3
13110  M00S09392.pfm     +++|          ADM    2,T3
13111  M00S09393.pfm     +++|          ADM    3,T3
13112  M00S09394.pfm     +++| CFM4     NJN    CFM9        IF ACCESS NOT ALLOWED
13113  M00S09395.pfm     +++|          LDN    32          SET WRITE USER
13114  M00S09396.pfm     +++|
13115  M00S09397.pfm     +++|*         SET NEW FILE MODE.
13116  M00S09398.pfm     +++|
13117  M00S09399.pfm     +++| CFM5     RAM    CASS        SET NEW FILE MODE
13118  M00S09400.pfm     +++|          AOM    -1,T7       SET LOCAL WRITE FLAG
13119  M00S09401.pfm     +++|          LJM    CFMX        RETURN
13120  M00S09402.pfm     +++|
13121  M00S09403.pfm     +++|*         MODIFY ACCESS REQUESTED.
13122  M00S09404.pfm     +++|
13123  M00S09405.pfm     +++| CFM6     ADI    T3          CHECK FOR W, M, A, U, R/A, R/U OR R USERS
13124  M00S09406.pfm     +++|          ADM    1,T3
13125  M00S09407.pfm     +++|          ADM    2,T3
13126  M00S09408.pfm     +++|          NJN    CFM9        IF ACCESS NOT ALLOWED
13127  M00S09409.pfm     +++|          LDN    12          SET MODIFY USER
13128  M00S09410.pfm     +++|          UJN    CFM5        SET NEW FILE MODE
13129  M00S09411.pfm     +++|
13130  M00S09412.pfm     +++|*         APPEND ACCESS REQUESTED.
13131  M00S09413.pfm     +++|
13132  M00S09414.pfm     +++| CFM7     ADI    T3          CHECK FOR W, M, A, U, R/U OR R USERS
13133  M00S09415.pfm     +++|          ADM    1,T3
13134  M00S09416.pfm     +++|          NJN    CFM9        IF ACCESS NOT ALLOWED
13135  M00S09417.pfm     +++|          LDN    2           SET APPEND USER
13136  M00S09418.pfm     +++|          UJN    CFM5        SET NEW FILE MODE
13137  M00S09419.pfm     +++|
13138  M00S09420.pfm     +++|*         UPDATE ACCESS REQUESTED.
13139  M00S09421.pfm     +++|
13140  M00S09422.pfm     +++| CFM8     ADI    T3          CHECK FOR W, M, A, U, R/A OR R USERS
13141  M00S09423.pfm     +++|          ADM    2,T3
13142  M00S09424.pfm     +++|          NJN    CFM9        IF ACCESS NOT ALLOWED
13143  M00S09425.pfm     +++|          LDN    10          SET UPDATE USER
13144  M00S09426.pfm     +++|          UJN    CFM5        SET NEW FILE MODE
13145  M00S09427.pfm     +++|
13146  M00S09428.pfm     +++|*         ACCESS NOT ALLOWED.
13147  M00S09429.pfm     +++|
13148  M00S09430.pfm     +++| CFM9     LDD    P1          CHECK FOR UTILITY ATTACH MODE
13149  M00S09431.pfm     +++|          SHN    21-6
13150  M00S09432.pfm     +++|          PJN    CFM10       IF FILE NOT CURRENTLY UTILITY ATTACHED
13151  M00S09433.pfm     +++|          LDC    EC2*1000+/ERRMSG/FIN*4  *(FILE NAME) INTERLOCKED.*
13152  M00S09434.pfm     +++|          UJN    CFM11       PROCESS FILE INTERLOCKED CONDITION
13153  M00S09435.pfm     +++|
13154  M00S09436.pfm     +++| CFM10    LDN    /ERRMSG/FBS*4  *(FILE NAME) BUSY.*
13155  M00S09437.pfm     +++| CFM11    LJM    PFE         PROCESS FILE BUSY EXIT
13156  M00S09438.pfm     +++|
13157  M00S09439.pfm     +++|*         READ OR EXECUTE ACCESS REQUESTED.
13158  M00S09440.pfm     +++|
13159  M00S09441.pfm     +++| CFM12    LPN    32          DO NOT ALLOW W, M, A OR U USERS
13160  M00S09442.pfm     +++| CFM13    NJN    CFM9        IF ACCESS NOT ALLOWED
13161  M00S09443.pfm     +++|*         LDN    0
13162  M00S09444.pfm     +++|
13163  M00S09445.pfm     +++|*         INCREMENT USER COUNTS.
13164  M00S09446.pfm     +++|
13165  M00S09447.pfm     +++| CFM14    STM    CFMA+1
13166  M00S09448.pfm     +++|          STM    CFMB+1
13167  M00S09449.pfm     +++|          STM    CFMC+1
13168  M00S09450.pfm     +++| CFMA     LDM    *,T3        CHECK GLOBAL USER COUNT
13169  M00S09451.pfm     +++|*         LDM    0,T3        (READ MODE)
13170  M00S09452.pfm     +++|*         LDM    1,T3        (READ/ALLOW UPDATE MODE)
13171  M00S09453.pfm     +++|*         LDM    2,T3        (READ/ALLOW APPEND MODE)
13172  M00S09454.pfm     +++|*         LDM    3,T3        (READ/ALLOW MODIFY MODE)
13173  M00S09455.pfm     +++|          LMC    7777
13174  M00S09456.pfm     +++|          ZJN    CFM10       IF USER COUNT OVERFLOW
13175  M00S09457.pfm     +++| CFMB     AOM    *,T3        INCREMENT GLOBAL USER COUNT
13176  M00S09458.pfm     +++|*         AOM    0,T3        (READ MODE)
13177  M00S09459.pfm     +++|*         AOM    1,T3        (READ/ALLOW UPDATE MODE)
13178  M00S09460.pfm     +++|*         AOM    2,T3        (READ/ALLOW APPEND MODE)
13179  M00S09461.pfm     +++|*         AOM    3,T3        (READ/ALLOW MODIFY MODE)
13180  M00S09462.pfm     +++| CFMC     AOM    *,T7        INCREMENT LOCAL USER COUNT
13181  M00S09463.pfm     +++|*         AOM    0,T7        (READ MODE)
13182  M00S09464.pfm     +++|*         AOM    1,T7        (READ/ALLOW UPDATE MODE)
13183  M00S09465.pfm     +++|*         AOM    2,T7        (READ/ALLOW APPEND MODE)
13184  M00S09466.pfm     +++|*         AOM    3,T7        (READ/ALLOW MODIFY MODE)
13185  M00S09467.pfm     +++|          LJM    CFMX        RETURN
13186  M00S09468.pfm     +++|
13187  M00S09469.pfm     +++|*         READ / ALLOW MODIFY ACCESS REQUESTED.
13188  M00S09470.pfm     +++|
13189  M00S09471.pfm     +++| CFM15    LPN    20          DO NOT ALLOW W USERS
13190  M00S09472.pfm     +++|          NJN    CFM13       IF ACCESS NOT ALLOWED
13191  M00S09473.pfm     +++|          LDN    3
13192  M00S09474.pfm     +++|          UJN    CFM14       INCREMENT USER COUNTS
13193  M00S09475.pfm     +++|
13194  M00S09476.pfm     +++|*         READ / ALLOW APPEND ACCESS REQUESTED.
13195  M00S09477.pfm     +++|
13196  M00S09478.pfm     +++| CFM16    LPN    30          DO NOT ALLOW W, M OR U USERS
13197  M00S09479.pfm     +++|          NJN    CFM13       IF ACCESS NOT ALLOWED
13198  M00S09480.pfm     +++|          LDN    2
13199  M00S09481.pfm     +++|          UJN    CFM14       INCREMENT USER COUNTS
13200  M00S09482.pfm     +++|
13201  M00S09483.pfm     +++|*         READ / ALLOW UPDATE ACCESS REQUESTED.
13202  M00S09484.pfm     +++|
13203  M00S09485.pfm     +++| CFM17    LPN    22          DO NOT ALLOW W, M OR A USERS
13204  M00S09486.pfm     +++|          NJN    CFM13       IF ACCESS NOT ALLOWED
13205  M00S09487.pfm     +++|          LDN    1
13206  M00S09488.pfm     +++|          UJN    CFM14       INCREMENT USER COUNTS
13207  M00S09489.pfm     +++| CFMT     SPACE  4,15
13208  M00S09490.pfm     +++| CFMT     BSS    0           FILE MODE PROCESSORS
13209  M00S09491.pfm     +++|          LOC    0
13210  M00S09492.pfm     +++|          CON    CFM3        WRITE
13211  M00S09493.pfm     +++|          CON    CFM12       READ
13212  M00S09494.pfm     +++|          CON    CFM7        APPEND
13213  M00S09495.pfm     +++|          CON    CFM12       EXECUTE
13214  M00S09496.pfm     +++|          CON    0           NULL
13215  M00S09497.pfm     +++|          CON    CFM6        MODIFY
13216  M00S09498.pfm     +++|          CON    CFM15       READ / ALLOW MODIFY
13217  M00S09499.pfm     +++|          CON    CFM16       READ / ALLOW APPEND
13218  M00S09500.pfm     +++|          CON    CFM8        UPDATE
13219  M00S09501.pfm     +++|          CON    CFM17       READ / ALLOW UPDATE
13220  M00S09502.pfm     +++|          LOC    *O
13221  M00S09503.pfm     +++|          ERRNZ  *-CFMT-PTLM
Line S09504 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
13222  M01S09504.242l642 ---| CSL      SPACE  4,15
Line S01193 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
13223  M01S01193.242l642 +++| CSL      SPACE  4,20
13224  M00S09505.pfm     +++|**        CSL - CHECK SIZE LIMITS.
13225  M00S09506.pfm     +++|*
13226  M00S09507.pfm     +++|*         ENTRY  (T5) = EST ORDINAL OF FILE.
13227  M00S09508.pfm     +++|*                (T6) = FIRST TRACK OF FILE.
13228  M00S09509.pfm     +++|*                (P2) = FIRST TRACK OF FILE.
13229  M00S09510.pfm     +++|*                (MXDS - MXDS+1) = MAXIMUM SIZE FOR DIRECT ACCESS FILE.
13230  M00S09511.pfm     +++|*                (FNMD) = FNT STATUS EQUIVALENCED MODE.
13231  M00S09512.pfm     +++|*
13232  M00S09513.pfm     +++|*         EXIT   TO ERR IF SIZE LIMIT EXCEDED.
13233  M00S09514.pfm     +++|*                (LF - LF+1) = FILE LENGTH FOR *PFC* ENTRY.
Line S09515 Modification History
M01 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13234  M01S09515.pfm78   ---|*                (T6) = LAST TRACK.
13235  M01S09516.pfm78   ---|*                (T7) = EOI SECTOR.
Line S00077 Modification History
M01 (Added by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13236  M01S00077.pfm78   +++|*                (T6) = TRACK FOR EOI.
13237  M01S00078.pfm78   +++|*                (T7) = SECTOR FOR EOI.
13238  M00S09517.pfm     +++|*
13239  M00S09518.pfm     +++|*         USES   T2, T3.
13240  M00S09519.pfm     +++|*
Line S09520 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
13241  M01S09520.242l642 ---|*         CALLS  CTI, IMS.
Line S01194 Modification History
M01 (Added by) 242l642
M02 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13242  M02S01194.pfm78   ---|*         CALLS  IMS.
Line S00079 Modification History
M01 (Added by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13243  M01S00079.pfm78   +++|*         CALLS  SEI.
13244  M00S09521.pfm     +++|*
13245  M00S09522.pfm     +++|*         MACROS ERROR.
13246  M00S09523.pfm     +++|
13247  M00S09524.pfm     +++|
13248  M00S09525.pfm     +++| CSL      SUBR               ENTRY/EXIT
13249  M00S09526.pfm     +++|          LDM    FNMD
13250  M00S09527.pfm     +++|          LPN    2
13251  M00S09528.pfm     +++|          ZJN    CSL1        IF NOT WRITE FUNCTION
13252  M00S09529.pfm     +++|          AOM    CSLA        SET WRITEABLE MODE
13253  M00S09530.pfm     +++|          LDN    0           CLEAR FILE LENGTH FOR WRITE MODE
13254  M00S09531.pfm     +++|          STD    LF
13255  M00S09532.pfm     +++|          STD    LF+1
13256  M00S09533.pfm     +++| CSL1     LDM    FCLF,CI     CHECK FILE LENGTH IN *PFC*
13257  M00S09534.pfm     +++|          STD    T2
13258  M00S09535.pfm     +++|          LDM    FCLF+1,CI
13259  M00S09536.pfm     +++|          STD    T3
13260  M00S09537.pfm     +++|          ADD    T2
13261  M00S09538.pfm     +++|          NJN    CSL2        IF FILE LENGTH DEFINED IN *PFC*
Line S09539 Modification History
M01 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13262  M01S09539.pfm78   ---|          RJM    IMS         INITIALIZE FOR *EOI* ACCESS
Line S00080 Modification History
M01 (Added by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13263  M01S00080.pfm78   +++|          RJM    SEI         SKIP TO END OF INFORMATION
13264  M00S09540.pfm     +++| CSL2     LDN    0           TEST ACCESS MODE
13265  M00S09541.pfm     +++|*         LDN    1           (SET IF WRITEABLE MODE)
13266  M00S09542.pfm     +++| CSLA     EQU    *-1
13267  M00S09543.pfm     +++|          NJN    CSL4        IF WRITEABLE MODE
13268  M00S09544.pfm     +++|          LDD    T2          SET FILE LENGTH
13269  M00S09545.pfm     +++|          STD    LF
13270  M00S09546.pfm     +++|          LDD    T3
13271  M00S09547.pfm     +++|          STD    LF+1
13272  M00S09548.pfm     +++| CSL3     UJN    CSLX        RETURN
13273  M00S09549.pfm     +++|
13274  M00S09550.pfm     +++| CSL4     LDM    MXDS        CHECK FILE LENGTH
13275  M00S09551.pfm     +++|          ADM    MXDS+1
13276  M00S09552.pfm     +++|          ZJN    CSL3        IF UNLIMITED ACCESS
13277  M00S09553.pfm     +++|          LDM    MXDS
13278  M00S09554.pfm     +++|          SBD    T2
13279  M00S09555.pfm     +++|          MJN    CSL5        IF LENGTH LIMIT EXCEEDED
13280  M00S09556.pfm     +++|          NJN    CSL3        IF LIMIT NOT EXCEEDED
13281  M00S09557.pfm     +++|          LDM    MXDS+1
13282  M00S09558.pfm     +++|          SBD    T3
13283  M00S09559.pfm     +++|          PJN    CSL3        IF LIMIT NOT EXCEEDED
Line S09560 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
13284  M01S09560.242l642 ---| CSL5     LDD    P2
13285  M01S09561.242l642 ---|          RJM    CTI
13286  M01S09562.242l642 ---|          ERROR  FTL,CH      * FILE TOO LONG.*
Line S01195 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
13287  M01S01195.242l642 +++| CSL5     ERROR  FTL,CH      * FILE TOO LONG.*
13288  M00S09563.pfm     +++| DLT      SPACE  4,10
13289  M00S09564.pfm     +++|**        DLT - DETERMINE LOCAL USER TABLE TO UPDATE.
13290  M00S09565.pfm     +++|*
13291  M00S09566.pfm     +++|*         ENTRY  (BFMS - BFMS+500) - SYSTEM SECTOR.
13292  M00S09567.pfm     +++|*                (T5) = EST ORDINAL.
13293  M00S09568.pfm     +++|*
13294  M00S09569.pfm     +++|*         EXIT   (T7) - ADDRESS OF LOCAL USER COUNTS.
13295  M00S09570.pfm     +++|*
13296  M00S09571.pfm     +++|*         USES   T7.
13297  M00S09572.pfm     +++|*
13298  M00S09573.pfm     +++|*         CALLS  SMI.
13299  M00S09574.pfm     +++|
13300  M00S09575.pfm     +++|
13301  M00S09576.pfm     +++| DLT      SUBR               ENTRY/EXIT
13302  M00S09577.pfm     +++|          RJM    SMI         COMPUTE LOCAL USER COUNT BASE ADDRESS
13303  M00S09578.pfm     +++|          STD    T0
13304  M00S09579.pfm     +++|          SHN    2
13305  M00S09580.pfm     +++|          ADD    T0
13306  M00S09581.pfm     +++|          ADC    UCSS+1
13307  M00S09582.pfm     +++|          STD    T7
13308  M00S09583.pfm     +++|          UJN    DLTX
Line S09584 Modification History
M01 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13309  M01S09584.pfm78   ---| IMS      SPACE  4,10
13310  M01S09585.pfm78   ---|**        IMS - INITIALIZE MASS STORAGE.
13311  M01S09586.pfm78   ---|*
13312  M01S09587.pfm78   ---|*         ENTRY  (T5) = EST ORDINAL.
13313  M01S09588.pfm78   ---|*
13314  M01S09589.pfm78   ---|*         EXIT   ERROR PROCESSING SELECTED.
13315  M01S09590.pfm78   ---|*                TRT ADDRESS SET IN *COMPSEI*.
13316  M01S09591.pfm78   ---|*
13317  M01S09592.pfm78   ---|*         CALLS  CTA, SEI.
13318  M01S09593.pfm78   ---|*
13319  M01S09594.pfm78   ---|*         MACROS SETMS.
13320  M01S09595.pfm78   ---|
13321  M01S09596.pfm78   ---|
13322  M01S09597.pfm78   ---| IMS      SUBR               ENTRY/EXIT
Line S09598 Modification History
M01 (Removed by) 242l642
M02 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13323  M02S09598.pfm78   ---|          SETMS
Line S01196 Modification History
M01 (Added by) 242l642
M02 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13324  M02S01196.pfm78   ---|          SETMS  STATUS
Line S09599 Modification History
M01 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13325  M01S09599.pfm78   ---| IMSA     LDN    0           CHECK FOR PRIOR CALL
13326  M01S09600.pfm78   ---|*         LDN    1           (SET IF PRIOR CALL MADE)
13327  M01S09601.pfm78   ---|          NJN    IMSX        IF NOT FIRST CALL
13328  M01S09602.pfm78   ---|          AOM    IMSA        SET PRIOR CALL STATUS
13329  M01S09603.pfm78   ---|          LDD    CM+4        SET TRT ADDRESS FOR *SEI*
13330  M01S09604.pfm78   ---|          SHN    3
13331  M01S09605.pfm78   ---|          ADN    TRLL
13332  M01S09606.pfm78   ---|          RJM    CTA         CALCULATE FWA OF TRT
13333  M01S09607.pfm78   ---|          SBD    TH
13334  M01S09608.pfm78   ---|          STM    SEIA+1
13335  M01S09609.pfm78   ---|          SHN    -14
13336  M01S09610.pfm78   ---|          LMC    ADCI
13337  M01S09611.pfm78   ---|          STM    SEIA
13338  M01S09612.pfm78   ---|          RJM    SEI         SET *EOI* TRACK/SECTOR
13339  M01S09613.pfm78   ---|          UJN    IMSX        RETURN
13340  M01S09614.pfm78   ---| PFE      SPACE  4,15
13341  M01S09615.pfm78   ---|**        PFE - PROCESS FILE ERROR CONDITION.
13342  M01S09616.pfm78   ---|*
13343  M01S09617.pfm78   ---|*         ENTRY  (A) = ERROR CODE AND EXIT CASE.
13344  M01S09618.pfm78   ---|*                (PFEQ) = EST ORDINAL FOR FILE.
13345  M01S09619.pfm78   ---|*                (PFFT) = FIRST TRACK FOR FILE.
13346  M01S09620.pfm78   ---|*
Line S09621 Modification History
M01 (Removed by) 271l716
M02 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13347  M02S09621.pfm78   ---|*         EXIT   (ERRC) = FIRST TRACK FOR EVENT.
13348  M02S09622.pfm78   ---|*                (ERRD) = TIME FOR EVENT.
13349  M02S09623.pfm78   ---|*                (ERRE) = EST ORDINAL FOR EVENT.
Line S00002 Modification History
M01 (Added by) 271l716
M02 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13350  M02S00002.pfm78   ---|*         EXIT   *TERW* UPDATED WITH TIMED/EVENT DATA.
13351  M02S00003.pfm78   ---|*
13352  M02S00004.pfm78   ---|*         USES   CM - CM+4.
13353  M02S00005.pfm78   ---|*
Line S09624 Modification History
M01 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13354  M01S09624.pfm78   ---|*
13355  M01S09625.pfm78   ---|*         MACROS ENDMS, ERROR.
13356  M01S09626.pfm78   ---|
13357  M01S09627.pfm78   ---|
13358  M01S09628.pfm78   ---| PFE      BSS    0           ENTRY
13359  M01S09629.pfm78   ---|          STM    PFEA        SET ERROR CODE AND EXIT CASE
13360  M01S09630.pfm78   ---|          ENDMS
Line S09631 Modification History
M01 (Removed by) 242l642
M02 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13361  M02S09631.pfm78   ---|          LDD    P2          RELEASE FILE INTERLOCK
13362  M02S09632.pfm78   ---|          RJM    CTI
Line S09633 Modification History
M01 (Removed by) 271l716
M02 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13363  M02S09633.pfm78   ---|          LDM    PFEQ        SET EVENT EST ORDINAL
13364  M02S09634.pfm78   ---|          STM    ERRE
13365  M02S09635.pfm78   ---|          LDM    PFFT        SET EVENT TRACK
13366  M02S09636.pfm78   ---|          STM    ERRC
13367  M02S09637.pfm78   ---|          LDC    ART         SET EVENT TIME
13368  M02S09638.pfm78   ---|          STM    ERRD
Line S00006 Modification History
M01 (Added by) 271l716
M02 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13369  M02S00006.pfm78   ---|          LDM    PFEQ        SET EVENT EST ORDINAL
13370  M02S00007.pfm78   ---|          STM    ERRE
13371  M02S00008.pfm78   ---|          LDM    PFFT        SET EVENT TRACK
13372  M02S00009.pfm78   ---|          STM    ERRC
13373  M02S00010.pfm78   ---|          LDC    ART         SET EVENT TIME
13374  M02S00011.pfm78   ---|          STM    ERRD
Line S09639 Modification History
M01 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13375  M01S09639.pfm78   ---| PFEA     EQU    *+3
13376  M01S09640.pfm78   ---|          ERROR  FBS,,,FS    *(FILE NAME) BUSY.*
13377  M01S09641.pfm78   ---|*         ERROR  FSE,,,FS    * FILE BOI/EOI/UI MISMATCH.*
13378  M01S09642.pfm78   ---|*         ERROR  ILR,,,FS    * PFM INCORRECT REQUEST.*
13379  M01S09643.pfm78   ---|*         ERROR  FIN,,,FS,EC2  *(FILE NAME) INTERLOCKED.*
13380  M01S09644.pfm78   ---|*         ERROR  DAF,,,FS    *EQXXX,DNYY, DIRECT ACCESS FILE ERROR.*
Line S09645 Modification History
M01 (Removed by) 242l642
M02 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13381  M02S09645.pfm78   ---| WSE      SPACE  4,10
13382  M02S09646.pfm78   ---|**        WSE - WRITE SYSTEM SECTOR ERROR PROCESSING.
13383  M02S09647.pfm78   ---|
13384  M02S09648.pfm78   ---|
13385  M02S09649.pfm78   ---| WSE      LDD    P2          RELEASE FILE INTERLOCK
13386  M02S09650.pfm78   ---|          RJM    CTI
13387  M02S09651.pfm78   ---|          ERROR  MSE,,,FS    *EQXXX,DNYY, MASS STORAGE ERROR.*
Line S01197 Modification History
M01 (Added by) 242l642
M02 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13388  M02S01197.pfm78   ---|*         ERROR  MSE,,,FS    *EQXXX,DNYY, MASS STORAGE ERROR.*
13389  M00S09652.pfm     +++|          SPACE  4,10
Line S09653 Modification History
M01 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13390  M01S09653.pfm78   ---|*         COMMON DECKS.
Line S00081 Modification History
M01 (Added by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13391  M01S00081.pfm78   +++|*         OVERLAYABLE COMMON DECKS.
13392  M00S09654.pfm     +++|
13393  M00S09655.pfm     +++|
13394  M00S09656.pfm     +++| EJT$     SET    0           DEFINE EJT ACCESS
13395  M00S09657.pfm     +++|*CALL     COMPGFP
13396  M00S09658.pfm     +++|*CALL     COMPRSS
13397  M00S09659.pfm     +++|*CALL     COMPSDN
Line S09660 Modification History
M01 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13398  M01S09660.pfm78   ---|*CALL     COMPWSS
13399  M00S09661.pfm     +++|*CALL     COMPSMI
13400  M00S09662.pfm     +++|          SPACE  4,10
13401  M00S09663.pfm     +++|*         CHECK FOR OVERFLOW.
13402  M00S09664.pfm     +++|
13403  M00S09665.pfm     +++|
13404  M00S09666.pfm     +++|          OVERFLOW  OVLC,BUF1-2  OVERFLOW INTO CATALOG BUFFER
13405  M00S09667.pfm     +++|          OVERLAY  (CATLIST PROCESSING.),OVLA
13406  M00S09668.pfm     +++|          SPACE  4,10
13407  M00S09669.pfm     +++|**        THIS OVERLAY READS PERMANENT FILE CATALOG ENTRIES
13408  M00S09670.pfm     +++|*         OR PERMIT ENTRIES FOR A CENTRAL PROCESSOR PROGRAM.
13409  M00S09671.pfm     +++|
13410  M00S09672.pfm     +++|
13411  M00S09673.pfm     +++| OVL      BSS    0           ENTRY
13412  M00S09674.pfm     +++|*         LJM    CAT         PROCESS REQUEST
13413  M00S09675.pfm     +++|          SPACE  4,10
13414  M00S09676.pfm     +++|***       PROCESS *CATLIST* REQUEST.
13415  M00S09677.pfm     +++|*
13416  M00S09678.pfm     +++|*         CALL.
13417  M00S09679.pfm     +++|*
13418  M00S09680.pfm     +++|*T        18/PFM,6/P,12/CCCT,24/FET
Figure

0232429FETCCCT303536414259CCCTPPFM

13419  M00S09681.pfm     +++|*
13420  M00S09682.pfm     +++|*T  FET   42/ *FILENAME*,18/ STATUS
Figure FET

0171829 STATUS *FILENAME*3059 *FILENAME*

13421  M00S09683.pfm     +++|*T,       60/ FIRST
Figure

029 FIRST3059 FIRST

13422  M00S09684.pfm     +++|*T,       60/ IN
Figure

029 IN3059 IN

13423  M00S09685.pfm     +++|*T,       60/ OUT
Figure

029 OUT3059 OUT

13424  M00S09686.pfm     +++|*T,       60/ LIMIT
Figure

029 LIMIT3059 LIMIT

13425  M00S09687.pfm     +++|*T,       60/
Figure

0293059

13426  M00S09688.pfm     +++|*T,       60/ RESERVED
Figure

029 RESERVED3059 RESERVED

13427  M00S09689.pfm     +++|*T,       60/
Figure

0293059

13428  M00S09690.pfm     +++|*T,       42/ *PF NAME*, 6/ SR, 12/ MODE
Figure

01112171829 MODE SR *PF NAME*3059 *PF NAME*

13429  M00S09691.pfm     +++|*T,       42/ OUAN, 6/ DN, 12/
Figure

01112171829 DN OUAN3059 OUAN

13430  M00S09692.pfm     +++|*
13431  M00S09693.pfm     +++|*         STATUS RETURNED,
13432  M00S09694.pfm     +++|*                33          BUFFER FULL.
13433  M00S09695.pfm     +++|*              1033          REQUEST COMPLETED.
13434  M00S09696.pfm     +++|*              BUFFER IS FILLED FROM IN TO LIMIT - 1.
13435  M00S09697.pfm     +++|*
13436  M00S09698.pfm     +++|*         FET+6 RESERVED FOR RECALL INFORMATION TO *PFM*.
13437  M00S09699.pfm     +++|*
13438  M00S09700.pfm     +++|*         PF NAME = PERMANENT FILE NAME.
13439  M00S09701.pfm     +++|*
13440  M00S09702.pfm     +++|*         SR = SPECIAL REQUEST.
13441  M00S09703.pfm     +++|*              IF SR = SRDN, LIST ONLY FILES ON SPECIFIED DEVICE.
13442  M00S09704.pfm     +++|*
13443  M00S09705.pfm     +++|*         MODE = 0           SEARCH FOR CATALOG ENTRIES.
13444  M00S09706.pfm     +++|*         MODE = 1           SEARCH FOR PERMIT ENTRIES.
13445  M00S09707.pfm     +++|*         MODE = 2           SEARCH FOR CATALOG ENTRIES/*PFID* ACCESS.
13446  M00S09708.pfm     +++|*
13447  M00S09709.pfm     +++|*         OUAN = ALTERNATE CATALOG SEARCHED.
13448  M00S09710.pfm     +++|*
13449  M00S09711.pfm     +++|          SPACE  4,10
13450  M00S09712.pfm     +++|***       EXIT.
13451  M00S09713.pfm     +++|*
13452  M00S09714.pfm     +++|*         PF CATALOG ENTRIES WRITTEN TO CM.
13453  M00S09715.pfm     +++|*
13454  M00S09716.pfm     +++|*                FOR NORMAL CATALOG SEARCH FULL CATALOG ENTRY
13455  M00S09717.pfm     +++|*                WRITTEN TO CM (SEE COMSPFM)
13456  M00S09718.pfm     +++|*
13457  M00S09719.pfm     +++|*                FOR ALTERNATE CATALOG SEARCH ENTIRE CATALOG IS
13458  M00S09720.pfm     +++|*                RETURNED WITH THE FOLLOWING FIELDS CLEARED-
13459  M00S09721.pfm     +++|*                     USER INDEX.
13460  M00S09722.pfm     +++|*                     PASSWORD AND PASSWORD EXPIRATION DATE.
13461  M00S09723.pfm     +++|*                     ACCESS LEVEL AND ACCESS CATEGORY SET.
13462  M00S09724.pfm     +++|*
Line S09725 Modification History
M01 (Removed by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
13463  M01S09725.pfm28   ---|*                FOR PERMIT DATA REQUEST THE FULL PERMIT ENTRY IS
13464  M01S09726.pfm28   ---|*                WRITTEN TO CM.
13465  M01S09727.pfm28   ---|*
13466  M00S09728.pfm     +++|*                FOR *PFID* ACCESS CATALOG SEARCH, THE FULL CATALOG
13467  M00S09729.pfm     +++|*                ENTRY IS WRITTEN TO CM, WITH A WORD PRECEDING
13468  M00S09730.pfm     +++|*                EACH ENTRY CONTAINING THE *PFID* (DISK ADDRESS)
13469  M00S09731.pfm     +++|*                FOR THAT ENTRY.
Line S00022 Modification History
M01 (Added by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
13470  M01S00022.pfm28   +++|*
13471  M01S00023.pfm28   +++|*                IN ALL OF THE ABOVE CASES, IF THE FILE ACCESS
13472  M01S00024.pfm28   +++|*                LEVEL IS ABOVE THE JOB ACCESS LEVEL, THE FOLLOWING
13473  M01S00025.pfm28   +++|*                FIELDS ARE ALSO CLEARED -
13474  M01S00026.pfm28   +++|*                     PASSWORD (REPLACED BY ASTERISKS).
13475  M01S00027.pfm28   +++|*                     PASSWORD EXPIRATION DATE.
13476  M01S00028.pfm28   +++|*                     ACCESS CATEGORY SET.
13477  M01S00029.pfm28   +++|*                     USER CONTROL WORD.
13478  M01S00030.pfm28   +++|*
13479  M01S00031.pfm28   +++|*                FOR A PERMIT DATA REQUEST, THE FULL PERMIT ENTRY IS
13480  M01S00032.pfm28   +++|*                WRITTEN TO CM.  THIS TYPE OF REQUEST IS NOT ALLOWED
13481  M01S00033.pfm28   +++|*                ON A FILE WITH AN ACCESS LEVEL HIGHER THAN THAT OF THE
13482  M01S00034.pfm28   +++|*                CALLING JOB, UNLESS THE JOB IS A SUBSYSTEM.
13483  M00S09732.pfm     +++|          SPACE  4,10
13484  M00S09733.pfm     +++|****      DIRECT LOCATION ASSIGNMENTS.
13485  M00S09734.pfm     +++|
13486  M00S09735.pfm     +++|
13487  M00S09736.pfm     +++| CF       EQU    P0          CONTINUATION FLAG
13488  M00S09737.pfm     +++| DN       EQU    35          DEVICE NUMBER FOR CATALOG LIST
13489  M00S09738.pfm     +++| ST       EQU    45          CATALOG SEARCH TRACK
13490  M00S09739.pfm     +++| SS       EQU    46          CATALOG SEARCH SECTOR
13491  M00S09740.pfm     +++| SI       EQU    47          CATALOG SEARCH INDEX
13492  M00S09741.pfm     +++| EQ       EQU    60          MASTER DEVICE EST ORDINAL
13493  M00S09742.pfm     +++| RI       EQU    61 - 62     RANDOM INDEX
13494  M00S09743.pfm     +++| WC       EQU    63          WORD COUNT
13495  M00S09744.pfm     +++| IN       EQU    64 - 65     FET POINTER
13496  M00S09745.pfm     +++| LM       EQU    66 - 67     FET LIMIT POINTER
13497  M00S09746.pfm     +++|****
Line S09747 Modification History
M01 (Removed by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
13498  M01S09747.ns2756  ---|          SPACE  4,10
13499  M01S09748.ns2756  ---|*         PROGRAM CONSTANTS.
13500  M01S09749.ns2756  ---|
13501  M01S09750.ns2756  ---|
13502  M01S09751.ns2756  ---| NCST     EQU    0           MODE FOR NORMAL CATALOG SEARCH
13503  M01S09752.ns2756  ---| PDST     EQU    1           MODE FOR PERMIT DATA SEARCH
13504  M01S09753.ns2756  ---| PAST     EQU    2           MODE FOR *PFID* ACCESS
13505  M01S09754.ns2756  ---| ACST     EQU    3           MODE FOR ALTERNATE CATALOG SEARCH
13506  M01S09755.ns2756  ---| MXST     EQU    2           MAXIMUM VALUE FOR USER SPECIFIED MODE
13507  M01S09756.ns2756  ---| CSPC     EQU    20          CATALOG SEARCH PAUSE COUNT LIMIT
13508  M00S09757.pfm     +++|          TITLE  COMMAND PROCESSING.
13509  M00S09758.pfm     +++| CAT      SPACE  4,10
13510  M00S09759.pfm     +++|**        CAT - CATALOG MAIN PROGRAM.
13511  M00S09760.pfm     +++|*
13512  M00S09761.pfm     +++|*         ENTRY  (PFUI - PFUI+1) = USER INDEX.
13513  M00S09762.pfm     +++|*                (UI - UI+1) = USER INDEX OF CALLING USER
13514  M00S09763.pfm     +++|*                (PI - PI+1) = USER INDEX OF ALTERNATE CATALOG.
13515  M00S09764.pfm     +++|*                (PFFN - PFFN+3) = FILE NAME FOR SELECTED FILE CATALOG.
13516  M00S09765.pfm     +++|*                (PFOU - PFOU+3) = CALL BLOCK USER NAME.
13517  M00S09766.pfm     +++|*                (PFFN+4) = MODE OF CALL.
13518  M00S09767.pfm     +++|*
13519  M00S09768.pfm     +++|*         USES   T1.
13520  M00S09769.pfm     +++|*
13521  M00S09770.pfm     +++|*         CALLS  SBS.
13522  M00S09771.pfm     +++|*
13523  M00S09772.pfm     +++|*         MACROS ENDMS, ERROR.
13524  M00S09773.pfm     +++|
13525  M00S09774.pfm     +++|
13526  M00S09775.pfm     +++| CAT      LDM    PFFN+4      SET FUNCTION TYPE
Line S09776 Modification History
M01 (Removed by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
13527  M01S09776.ns2756  ---|          SBN    MXST+1
Line S00001 Modification History
M01 (Added by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
13528  M01S00001.ns2756  +++|          SBN    CTMX
13529  M00S09777.pfm     +++|          MJN    CAT1        IF VALID MODE
13530  M00S09778.pfm     +++|          ERROR  ILR,CH,IW   * PFM INCORRECT REQUEST.*
13531  M00S09779.pfm     +++|
Line S09780 Modification History
M01 (Removed by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
13532  M01S09780.ns2756  ---| CAT1     ADN    MXST+1
Line S00002 Modification History
M01 (Added by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
13533  M01S00002.ns2756  +++| CAT1     ADN    CTMX
13534  M00S09781.pfm     +++|          NJN    CAT2        IF NOT ALTERNATE USER
13535  M00S09782.pfm     +++|          LDD    PI          CHECK FOR ALTERNATE USER
13536  M00S09783.pfm     +++|          ADD    PI+1
13537  M00S09784.pfm     +++|          ZJN    CAT2        IF NORMAL CATALOG SEARCH
Line S09785 Modification History
M01 (Removed by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
13538  M01S09785.ns2756  ---|          LDN    ACST        ALTERNATE CATALOG SEARCH
Line S00003 Modification History
M01 (Added by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
13539  M01S00003.ns2756  +++|          LDN    CTCA        ALTERNATE CATALOG SEARCH
13540  M00S09786.pfm     +++| CAT2     STD    T1
13541  M00S09787.pfm     +++|          STM    CATA        SET ACCESS MODE
13542  M00S09788.pfm     +++|
13543  M00S09789.pfm     +++|*         PROCESS REQUEST.
13544  M00S09790.pfm     +++|
13545  M00S09791.pfm     +++|          LDM    CATC,T1
13546  M00S09792.pfm     +++|          STM    CATC
13547  M00S09793.pfm     +++|          LJM    NCS         NORMAL CATALOG SEARCH
13548  M00S09794.pfm     +++| CATC     EQU    *-1
13549  M00S09795.pfm     +++|          CON    PDS         PERMIT DATA SEARCH
13550  M00S09796.pfm     +++|          CON    PAS         *PFID* ACCESS SEARCH
13551  M00S09797.pfm     +++|          CON    ACS         ALTERNATE CATALOG SEARCH
13552  M00S09798.pfm     +++|
13553  M00S09799.pfm     +++|**        CATX - TERMINATE PROGRAM.
13554  M00S09800.pfm     +++|
13555  M00S09801.pfm     +++| CATX     ENDMS
13556  M00S09802.pfm     +++|          LDC    1031        SET BUFFER STATUS TO EOI
13557  M00S09803.pfm     +++|          RJM    SBS
Line S09804 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
13558  M01S09804.242l642 ---|          LJM    DPP         DROP PP
Line S01198 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
13559  M01S01198.242l642 +++|          UJN    DPP         DROP PP
13560  M00S09805.pfm     +++|
13561  M00S09806.pfm     +++| CATA     CON    0           FUNCTION
13562  M00S09807.pfm     +++| CATB     CON    0           MASTER DEVICE NUMBER
Line S01199 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
13563  M01S01199.242l642 +++| DPP      SPACE  4,10
13564  M01S01200.242l642 +++|**        DPP - DROP PP.
13565  M01S01201.242l642 +++|
13566  M01S01202.242l642 +++|
Line S01203 Modification History
M01 (Added by) 242l642
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
13567  M02S01203.253l688 ---| DPP      LDK    STDP        SET *DROP PP* STATUS BIT
Line S00389 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
13568  M01S00389.253l688 +++| DPP      BSS    0           ENTRY
13569  M01S00390.253l688 +++|          LDK    STDP        SET *DROP PP* STATUS BIT
Line S01204 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
13570  M01S01204.242l642 +++|          RAM    STAU
Line S01205 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
13571  M02S01205.ns2414  ---|          EXECUTE  3PT       DROP PP
Line S00116 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
13572  M01S00116.ns2414  +++|          EXECUTE  3PU       DROP PP
13573  M00S09808.pfm     +++| PAS      SPACE  4,15
13574  M00S09809.pfm     +++|**        PAS - *PFID* ACCESS SEARCH.
13575  M00S09810.pfm     +++|
13576  M00S09811.pfm     +++|
13577  M00S09812.pfm     +++| PAS      BSS    0           ENTRY
13578  M00S09813.pfm     +++|          LDC    LDNI+NWCE+1 SET FOR SIZE OF OUTPUT
13579  M00S09814.pfm     +++|          STM    SHBC
13580  M00S09815.pfm     +++|*         UJN    NCS         (PERFORM NORMAL CATALOG SEARCH)
13581  M00S09816.pfm     +++| NCS      SPACE  4,10
13582  M00S09817.pfm     +++|**        NCS - NORMAL CATALOG SEARCH.
13583  M00S09818.pfm     +++|
13584  M00S09819.pfm     +++|
13585  M00S09820.pfm     +++| NCS      RJM    ISP         INITIALIZE FOR CATALOG SEARCH
13586  M00S09821.pfm     +++| NCS1     RJM    RBS         READ BUFFER FOR CATALOG SEARCH
13587  M00S09822.pfm     +++|          RJM    SHB         SEARCH CATALOG BUFFER
13588  M00S09823.pfm     +++|          ZJN    NCS1        LOOP FOR NEXT SECTOR OF CATALOGS
13589  M00S09824.pfm     +++|          UJN    CATX        EXIT
13590  M00S09825.pfm     +++| ACS      SPACE  4,10
13591  M00S09826.pfm     +++|**        ACS - ALTERNATE CATALOG SEARCH.
13592  M00S09827.pfm     +++|
13593  M00S09828.pfm     +++|
13594  M00S09829.pfm     +++| ACS      RJM    CSU         CHECK FOR SPECIAL USER ACCESS
13595  M00S09830.pfm     +++|          LDD    UI          SWAP USER INDEXES
13596  M00S09831.pfm     +++|          STD    T1
13597  M00S09832.pfm     +++|          LDD    PI
13598  M00S09833.pfm     +++|          STD    UI
13599  M00S09834.pfm     +++|          LDD    T1
13600  M00S09835.pfm     +++|          STD    PI
13601  M00S09836.pfm     +++|          LDD    UI+1
13602  M00S09837.pfm     +++|          STD    T1
13603  M00S09838.pfm     +++|          LDD    PI+1
13604  M00S09839.pfm     +++|          STD    UI+1
13605  M00S09840.pfm     +++|          LDD    T1
13606  M00S09841.pfm     +++|          STD    PI+1
13607  M00S09842.pfm     +++|          RJM    ISP         INITIALIZE FOR CATALOG SEARCH
13608  M00S09843.pfm     +++| ACS1     RJM    RBS         READ BUFFER FOR SEARCH
13609  M00S09844.pfm     +++|          RJM    SHB         SEARCH CATALOG BUFFER
13610  M00S09845.pfm     +++|          ZJN    ACS1        LOOP FOR NEXT SECTOR
13611  M00S09846.pfm     +++|          LJM    CATX        EXIT
13612  M00S09847.pfm     +++| PDS      SPACE  4,10
13613  M00S09848.pfm     +++|**        PDS - PERMIT DATA SEARCH.
13614  M00S09849.pfm     +++|
13615  M00S09850.pfm     +++|
Line S09851 Modification History
M01 (Removed by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
13616  M01S09851.pfm28   ---| PDS15    LJM    CATX        RETURN
13617  M01S09852.pfm28   ---|
13618  M00S09853.pfm     +++| PDS      LDM    PFFN        ENTRY
13619  M00S09854.pfm     +++|          NJN    PDS1        IF PERMANENT FILE NAME SPECIFIED
13620  M00S09855.pfm     +++|          ERROR  ILR,CH,IW   * PFM INCORRECT REQUEST.*
13621  M00S09856.pfm     +++|
13622  M00S09857.pfm     +++| PDS1     RJM    ISP         INITIALIZE FOR CATALOG SEARCH
Line S09858 Modification History
M01 (Removed by) ns2631
Seq #  *Modification Id* Act 
----------------------------+
13623  M01S09858.ns2631  ---|          LDD    CF          CHECK CONTINUATIN FLAG
Line S00001 Modification History
M01 (Added by) ns2631
Seq #  *Modification Id* Act 
----------------------------+
13624  M01S00001.ns2631  +++|          LDD    CF          CHECK CONTINUATION FLAG
13625  M00S09859.pfm     +++|          ZJN    PDS2        IF INITIAL CALL
13626  M00S09860.pfm     +++|          LJM    PDS5        CONTINUE READ
13627  M00S09861.pfm     +++|
13628  M00S09862.pfm     +++| PDS2     RJM    RBS         READ BUFFER FOR SEARCH
13629  M00S09863.pfm     +++|          RJM    SHB         SEARCH CATALOG BUFFER
13630  M00S09864.pfm     +++|          ZJN    PDS2        IF FILE NOT FOUND
Line S09865 Modification History
M01 (Removed by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
13631  M01S09865.pfm28   ---|          LDM    FCRI,P2     SET PERMIT RANDOM INDEX
Line S00035 Modification History
M01 (Added by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
13632  M01S00035.pfm28   +++|
13633  M01S00036.pfm28   +++|*         A PERMIT DATA CATLIST IS NOT ALLOWED ON A FILE WITH AN
13634  M01S00037.pfm28   +++|*         ACCESS LEVEL ABOVE THAT OF THE JOB UNLESS THE CALLER IS
13635  M01S00038.pfm28   +++|*         A SUBSYSTEM.
13636  M01S00039.pfm28   +++|
13637  M01S00040.pfm28   +++|          LDM    SSOM
13638  M01S00041.pfm28   +++|          ZJN    PDS2.1      IF UNSECURED SYSTEM
13639  M01S00042.pfm28   +++|          LDM    FCAL,P2     GET FILE ACCESS LEVEL
13640  M01S00043.pfm28   +++|          LPN    7
13641  M01S00044.pfm28   +++|          STD    T1
13642  M01S00045.pfm28   +++|          LDM    PFAL        GET JOB ACCESS LEVEL
13643  M01S00046.pfm28   +++|          SBD    T1
13644  M01S00047.pfm28   +++|          PJN    PDS2.1      IF FILE ACCESS LEVEL NOT ABOVE JOB LEVEL
13645  M01S00048.pfm28   +++|          LDM    SSID
13646  M01S00049.pfm28   +++|          SBK    LSSI+1
13647  M01S00050.pfm28   +++|          PJN    PDS2.1      IF SUBSYSTEM
13648  M01S00051.pfm28   +++|          ERROR  IUA,,IW     * USER ACCESS NOT VALID.*
13649  M01S00052.pfm28   +++|
13650  M01S00053.pfm28   +++| PDS2.1   LDM    FCRI,P2     SET PERMIT RANDOM INDEX
13651  M00S09866.pfm     +++|          STD    RI
13652  M00S09867.pfm     +++|          LDM    FCRI+1,P2
13653  M00S09868.pfm     +++|          STD    RI+1
13654  M00S09869.pfm     +++|          ADD    RI
13655  M00S09870.pfm     +++|          NJN    PDS4        IF PERMITS AVAILABLE
13656  M00S09871.pfm     +++|
13657  M00S09872.pfm     +++|*         NO PERMITS AVALABLE - SET MESSAGE.
13658  M00S09873.pfm     +++|
13659  M00S09874.pfm     +++| PDS3     LDM    PFOU
Line S09875 Modification History
M01 (Removed by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
13660  M01S09875.pfm28   ---|          ZJN    PDS15       IF NOT SPECIFIC USER REQUEST
Line S00054 Modification History
M01 (Added by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
13661  M01S00054.pfm28   +++|          ZJP    CATX        IF NOT SPECIFIC USER REQUEST
13662  M00S09876.pfm     +++|          LDD    MA          SET OPTIONAL USER IN FILE NAME
13663  M00S09877.pfm     +++|          CWM    PFOU,ON
13664  M00S09878.pfm     +++|          SBN    1
13665  M00S09879.pfm     +++|          CRD    FN
13666  M00S09880.pfm     +++|          ERROR  FNF,,IW     *(USER NAME) NOT FOUND.*
13667  M00S09881.pfm     +++|
13668  M00S09882.pfm     +++| PDS4     LDN    NWPH        SET SECTOR WORD INDEX
13669  M00S09883.pfm     +++|          STD    SI
13670  M00S09884.pfm     +++|          LDN    0
13671  M00S09885.pfm     +++|          RJM    CSA         COMPUTE SECTOR ADDRESS
13672  M00S09886.pfm     +++|          MJN    PDS3        IF ERROR ON POSITION TO PERMIT SECTOR
13673  M00S09887.pfm     +++|
13674  M00S09888.pfm     +++| PDS5     LDC    BUFB        READ SECTOR
13675  M00S09889.pfm     +++|          RJM    RDS
13676  M00S09890.pfm     +++|          MJN    PDS3        IF ERROR TREAT AS EOI
13677  M00S09891.pfm     +++|          LDM    BUFB
13678  M00S09892.pfm     +++|          ZJN    PDS3        IF EOF/EOI
13679  M00S09893.pfm     +++|          LDM    BUFB+1
Line S09894 Modification History
M01 (Removed by) ns2649
Seq #  *Modification Id* Act 
----------------------------+
13680  M01S09894.ns2649  ---|          ZJN    PDS3        IF WORD COUNT = 0
Line S00019 Modification History
M01 (Added by) ns2649
Seq #  *Modification Id* Act 
----------------------------+
13681  M01S00019.ns2649  +++|          SBN    NWPH+NWPE
13682  M01S00020.ns2649  +++|          MJN    PDS6.1      IF INCORRECT SECTOR LENGTH
Line S00118 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
13683  M01S00118.ns2415  +++|          LPN    NWPE-1
13684  M01S00119.ns2415  +++|          ERRNZ  NWPH-NWPE   HEADER SIZE MUST EQUAL ENTRY SIZE
13685  M01S00120.ns2415  +++|          NJN    PDS6.1      IF NOT INTEGRAL NUMBER OF PERMIT ENTRIES
13686  M00S09895.pfm     +++|          LDC    BUFB        CHECK USER INDEX
13687  M00S09896.pfm     +++|          STD    T1
13688  M00S09897.pfm     +++|          LDD    UI
13689  M00S09898.pfm     +++|          LMM    FPUI,T1
13690  M00S09899.pfm     +++|          NJN    PDS6        IF INCORRECT UI
13691  M00S09900.pfm     +++|          LDD    UI+1
13692  M00S09901.pfm     +++|          LMM    FPUI+1,T1
13693  M00S09902.pfm     +++|          ZJN    PDS7        IF CORRECT UI
Line S09903 Modification History
M01 (Removed by) ns2631
Seq #  *Modification Id* Act 
----------------------------+
13694  M01S09903.ns2631  ---| PDS6     ERROR  RIN,,IW,EQ  *EQXXX,DNYY, RANDOM INDEX ERROR.*
Line S00002 Modification History
M01 (Added by) ns2631
Seq #  *Modification Id* Act 
----------------------------+
13695  M01S00002.ns2631  +++| PDS6     LDD    CF
13696  M01S00003.ns2631  +++|          ZJN    PDS6.0      IF NOT CONTINUATION CALL
13697  M01S00004.ns2631  +++| PDSA     LDC    0
13698  M01S00005.ns2631  +++|*         LDC    (NONZERO)   (NOT FIRST SECTOR)
13699  M01S00006.ns2631  +++|          ZJN    PDS6.2      IF FIRST SECTOR
13700  M01S00007.ns2631  +++| PDS6.0   ERROR  RIN,,IW,T5  *EQXXX,DNYY,RANDOM INDEX ERROR.*
Line S00121 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
13701  M01S00121.ns2415  +++|
13702  M01S00122.ns2415  +++| PDS6.1   ERROR  BCS,,IW,T5,,EI  *EQXXX,DNYY,BAD CATALOG/PERMIT SECTOR*
Line S00008 Modification History
M01 (Added by) ns2631
Seq #  *Modification Id* Act 
----------------------------+
13703  M01S00008.ns2631  +++|
13704  M01S00009.ns2631  +++| PDS6.2   ERROR  ECD,,IW     * ERROR IN CATLIST CONTINUATION DATA.*
13705  M00S09904.pfm     +++|
13706  M00S09905.pfm     +++| PDS7     LDM    PFOU
13707  M00S09906.pfm     +++|          NJN    PDS8        IF SPECIFIC USER REQUEST
13708  M00S09907.pfm     +++|          LJM    PDS12       CONTINUE SEARCH OF PERMITS
13709  M00S09908.pfm     +++|
13710  M00S09909.pfm     +++|*         PROCESS SPECIFIC USER PERMIT REQUEST.
13711  M00S09910.pfm     +++|
Line S09911 Modification History
M01 (Removed by) pfm43
Seq #  *Modification Id* Act 
----------------------------+
13712  M01S09911.pfm43   ---| PDS8     LDD    MA          SET USER NAME/USER INDEX FOR SEARCH
Line S00001 Modification History
M01 (Added by) pfm43
Seq #  *Modification Id* Act 
----------------------------+
13713  M01S00001.pfm43   +++| PDS8     LDD    MA          SET USER NAME FOR SEARCH
13714  M00S09912.pfm     +++|          CWM    PFOU,ON
13715  M00S09913.pfm     +++|          SBN    1
13716  M00S09914.pfm     +++|          CRD    CM
Line S09915 Modification History
M01 (Removed by) pfm43
Seq #  *Modification Id* Act 
----------------------------+
13717  M01S09915.pfm43   ---|          LDD    CM+3
13718  M01S09916.pfm43   ---|          SCN    77
13719  M01S09917.pfm43   ---|          LMD    PI
13720  M01S09918.pfm43   ---|          STD    CM+3
13721  M01S09919.pfm43   ---|          LDD    PI+1
13722  M01S09920.pfm43   ---|          STD    CM+4
13723  M00S09921.pfm     +++|          RJM    SPB         SEARCH PERMIT BUFFER
13724  M00S09922.pfm     +++|          ZJN    PDS10       IF ENTRY NOT FOUND
13725  M00S09923.pfm     +++|          LDN    NWPE        WRITE ENTRY TO CM
13726  M00S09924.pfm     +++|          STD    T1
13727  M00S09925.pfm     +++|          LDM    FPMD,T2
13728  M00S09926.pfm     +++|          SHN    21-5
13729  M00S09927.pfm     +++|          MJN    PDS9        IF EXPIRATION DATE PRESENT
13730  M00S09928.pfm     +++|          LDM    FPXD,T2     CLEAR EXPIRATION DATE FIELD
13731  M00S09929.pfm     +++|          SCN    77
13732  M00S09930.pfm     +++|          STM    FPXD,T2
13733  M00S09931.pfm     +++|          LDN    0
13734  M00S09932.pfm     +++|          STM    FPXD+1,T2
13735  M00S09933.pfm     +++| PDS9     LDD    T2          WRITE ENTRY TO CM
13736  M00S09934.pfm     +++|          RJM    WDB
13737  M00S09935.pfm     +++|          LJM    CATX        EXIT
13738  M00S09936.pfm     +++|
13739  M00S09937.pfm     +++| PDS10    LDM    BUFB+FPRI   SET ADDRESS OF NEXT BUFFER
13740  M00S09938.pfm     +++|          STD    RI
13741  M00S09939.pfm     +++|          LDM    BUFB+FPRI+1
13742  M00S09940.pfm     +++|          STD    RI+1
13743  M00S09941.pfm     +++|          ADD    RI
13744  M00S09942.pfm     +++|          ZJN    PDS11       IF NO MORE PERMITS
Line S00010 Modification History
M01 (Added by) ns2631
Seq #  *Modification Id* Act 
----------------------------+
13745  M01S00010.ns2631  +++|          AOM    PDSA+1      INDICATE NOT FIRST SECTOR
13746  M00S09943.pfm     +++|          LJM    PDS4        LOOP TO READ NEXT SECTOR
13747  M00S09944.pfm     +++|
13748  M00S09945.pfm     +++| PDS11    LJM    PDS3        EXIT
13749  M00S09946.pfm     +++|
13750  M00S09947.pfm     +++| PDS12    LDN    NWPE        SET WORD COUNT
13751  M00S09948.pfm     +++|          STD    T1
13752  M00S09949.pfm     +++| PDS13    LDD    SI
13753  M00S09950.pfm     +++|          SHN    2
13754  M00S09951.pfm     +++|          ADD    SI
13755  M00S09952.pfm     +++|          ADC    BUFB+2
13756  M00S09953.pfm     +++|          STD    T2          SAVE BASE ADDRESS
13757  M00S09954.pfm     +++|          LDM    FPMD,T2
13758  M00S09955.pfm     +++|          SHN    21-5
13759  M00S09956.pfm     +++|          MJN    PDS14       IF EXPIRATION DATE PRESENT
13760  M00S09957.pfm     +++|          LDM    FPXD,T2     CLEAR EXPIRATION DATE FIELD
13761  M00S09958.pfm     +++|          SCN    77
13762  M00S09959.pfm     +++|          STM    FPXD,T2
13763  M00S09960.pfm     +++|          LDN    0
13764  M00S09961.pfm     +++|          STM    FPXD+1,T2
13765  M00S09962.pfm     +++| PDS14    LDD    T2          WRITE ENTRY TO CM
13766  M00S09963.pfm     +++|          RJM    WDB
13767  M00S09964.pfm     +++|          LDN    NWPE        ADVANCE WORD INDEX
13768  M00S09965.pfm     +++|          RAD    SI
13769  M00S09966.pfm     +++|          LMM    BUFB+1
13770  M00S09967.pfm     +++|          NJN    PDS13       IF MORE ENTRIES
13771  M00S09968.pfm     +++|          LJM    PDS10       LOOP FOR NEXT SECTOR
13772  M00S09969.pfm     +++|          TITLE  SUBROUTINES.
13773  M00S09970.pfm     +++| SBS      SPACE  4,15
13774  M00S09971.pfm     +++|**        SBS - SET STATUS OF BUFFER.
13775  M00S09972.pfm     +++|*
13776  M00S09973.pfm     +++|*         ENTRY  (A) = STATUS TO BE SET.
13777  M00S09974.pfm     +++|*                (IN - IN+1) = CURRENT ADDRESS IN FET.
13778  M00S09975.pfm     +++|*
13779  M00S09976.pfm     +++|*         EXIT   FET STATUS SET.
13780  M00S09977.pfm     +++|*                (IN) UPDATED IN FET.
13781  M00S09978.pfm     +++|*
13782  M00S09979.pfm     +++|*         USES   T1, CM - CM+4.
13783  M00S09980.pfm     +++|*
13784  M00S09981.pfm     +++|*         CALLS  SFA.
13785  M00S09982.pfm     +++|
13786  M00S09983.pfm     +++|
13787  M00S09984.pfm     +++| SBS      SUBR               ENTRY/EXIT
13788  M00S09985.pfm     +++|          STD    T1          SAVE STATUS TO BE SET
13789  M00S09986.pfm     +++|          RJM    SFA         SET FET ADDRESS
13790  M00S09987.pfm     +++|          CRD    CM
13791  M00S09988.pfm     +++|          LDD    CM+4        SET STATUS
13792  M00S09989.pfm     +++|          LPN    2
13793  M00S09990.pfm     +++|          LMD    T1
13794  M00S09991.pfm     +++|          STD    CM+4
13795  M00S09992.pfm     +++|          LDD    CM+3        CLEAR UPPER BITS OF STATUS FIELD
13796  M00S09993.pfm     +++|          SCN    77
13797  M00S09994.pfm     +++|          STD    CM+3
13798  M00S09995.pfm     +++|          RJM    SFA
13799  M00S09996.pfm     +++|          CWD    CM          WRITE FET STATUS
13800  M00S09997.pfm     +++|          LDN    ZERL        UPDATE FET IN POINTER
13801  M00S09998.pfm     +++|          CRD    CM
13802  M00S09999.pfm     +++|          LDD    IN
13803  M00S10000.pfm     +++|          STD    CM+3
13804  M00S10001.pfm     +++|          LDD    IN+1
13805  M00S10002.pfm     +++|          STD    CM+4
13806  M00S10003.pfm     +++|          RJM    SFA
13807  M00S10004.pfm     +++|          ADN    2
13808  M00S10005.pfm     +++|          CWD    CM
13809  M00S10006.pfm     +++|          UJN    SBSX        RETURN
13810  M00S10007.pfm     +++| RBS      SPACE  4,15
13811  M00S10008.pfm     +++|**        RBS - READ BUFFER FOR SEARCH.
13812  M00S10009.pfm     +++|*
13813  M00S10010.pfm     +++|*         ENTRY  (T6) = TRACK.
13814  M00S10011.pfm     +++|*                (T7) = SECTOR.
13815  M00S10012.pfm     +++|*                DEVICE POSITIONED AND CHANNEL RESERVED.
13816  M00S10013.pfm     +++|*                AT RBS1 IF SEARCH TERMINATION DESIRED.
13817  M00S10014.pfm     +++|*
13818  M00S10015.pfm     +++|*         EXIT   (A) = WORD COUNT OF SECTOR READ.
13819  M00S10016.pfm     +++|*                (T6) = NEXT TRACK.
13820  M00S10017.pfm     +++|*                (T7) = NEXT SECTOR.
13821  M00S10018.pfm     +++|*                (WBDB - WDBC) SET TO CURRENT POSITION
Line S10019 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
13822  M01S10019.ns2415  ---|*                (SHBD) ADVANCED IF DA FILES FOUND IN LAST PRU.
13823  M00S10020.pfm     +++|*
13824  M00S10021.pfm     +++|*         CALLS  DPP, RNS, SBS.
13825  M00S10022.pfm     +++|*
13826  M00S10023.pfm     +++|*         MACROS ENDMS, ERROR.
13827  M00S10024.pfm     +++|
13828  M00S10025.pfm     +++|
13829  M00S10026.pfm     +++| RBS      SUBR               ENTRY/EXIT
13830  M00S10027.pfm     +++|          LDC    **          COUNT OF DA FILES FOUND IN BUFFER
13831  M00S10028.pfm     +++| RBSA     EQU    *-1
13832  M00S10029.pfm     +++|          ZJN    RBS1        IF NO DA FILES FOUND IN LAST PRU
Line S10030 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
13833  M01S10030.ns2415  ---|          AOM    SHBD        ADVANCE CATALOG SEARCH PAUSE COUNT
13834  M00S10031.pfm     +++|          LDN    0           CLEAR PRU COUNT
13835  M00S10032.pfm     +++|          STM    RBSA
13836  M00S10033.pfm     +++|
13837  M00S10034.pfm     +++| RBS1     LDD    T6          SET CURRENT POSITION FOR RECALL
13838  M00S10035.pfm     +++|          STM    WDBB
13839  M00S10036.pfm     +++|          STM    ERRC
13840  M00S10037.pfm     +++|          LDD    T7
13841  M00S10038.pfm     +++|          STM    WDBC
13842  M00S10039.pfm     +++|          STM    ERRD
13843  M00S10040.pfm     +++|          LDC    BUFA        SET BUFFER FOR READ
13844  M00S10041.pfm     +++|          RJM    RNS         READ SECTOR
13845  M00S10042.pfm     +++|          ZJN    RBS2        EOF/EOI SECTOR
13846  M00S10043.pfm     +++|          LPN    NWCE-1
Line S10044 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
13847  M01S10044.ns2415  ---|          NJN    RBS2        IF NOT INTEGRAL NUMBER OF CATALOG ENTRIES
Line S00123 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
13848  M01S00123.ns2415  +++|          NJN    RBS4        IF NOT INTEGRAL NUMBER OF CATALOG ENTRIES
13849  M00S10045.pfm     +++|          LDD    T1
13850  M00S10046.pfm     +++|          UJN    RBSX        RETURN
13851  M00S10047.pfm     +++|
13852  M00S10048.pfm     +++| RBS2     LDD    FN
13853  M00S10049.pfm     +++|          ZJN    RBS3        IF NOT FILE NAME SEARCH
13854  M00S10050.pfm     +++|          ERROR  FNF,,IW     *(FILE NAME) NOT FOUND.*
13855  M00S10051.pfm     +++|
13856  M00S10052.pfm     +++| RBS3     LDC    1031        SET EOI BUFFER STATUS
13857  M00S10053.pfm     +++|          RJM    SBS
13858  M00S10054.pfm     +++|          ENDMS
13859  M00S10055.pfm     +++|          LJM    DPP         TERMINATE PROGRAM
Line S10056 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
13860  M01S10056.ns2415  ---| RBS4     ERROR  BCS,,IW,T5  *EQXXX,DNYY, BAD CATALOG/PERMIT SECTOR.*
Line S00124 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
13861  M01S00124.ns2415  +++|
13862  M01S00125.ns2415  +++| RBS4     ERROR  BCS,,IW,T5,,EI  *EQXXX,DNYY,BAD CATALOG/PERMIT SECTOR*
13863  M00S10057.pfm     +++| MSR      SPACE  4,10
13864  M00S10058.pfm     +++|**        MSR - MASS STORAGE READ ERROR PROCESSOR.
Line S10059 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
13865  M01S10059.242l642 ---|*
13866  M01S10060.242l642 ---|*         TREAT ERROR AS EOI.
13867  M00S10061.pfm     +++|
13868  M00S10062.pfm     +++|
13869  M00S10063.pfm     +++| MSR      SUBR               ENTRY/EXIT
Line S10064 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
13870  M01S10064.242l642 ---|          UJN    RBS2        TREAT AS EOI
Line S01206 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
13871  M01S01206.242l642 +++|          RJM    PES         PROCESS ERROR STATUS
13872  M01S01207.242l642 +++|          ERROR  MSE,CH,IW,T5  *EQXXX,DNYY, MASS STORAGE ERROR.*
13873  M00S10065.pfm     +++| SHB      SPACE  4,15
13874  M00S10066.pfm     +++|**        SHB - SEARCH CATALOG BUFFER.
13875  M00S10067.pfm     +++|*
13876  M00S10068.pfm     +++|*         ENTRY  (A) = NUMBER OF WORDS IN BUFFER.
13877  M00S10069.pfm     +++|*                (SI) = SEARCH INDEX.
13878  M00S10070.pfm     +++|*                (FN - FN+3) = SELECTED FILE NAME FOR SEARCH
13879  M00S10071.pfm     +++|*                (UI - UI+1) = USER INDEX OF CATALOG TO SEARCH.
13880  M00S10072.pfm     +++|*
13881  M00S10073.pfm     +++|*         EXIT   (A) " 0 IF SPECIFIC ENTRY FOUND
13882  M00S10074.pfm     +++|*                (P2) = FWA OF CATALOG ENTRY
13883  M00S10075.pfm     +++|*
13884  M00S10076.pfm     +++|*         USES   T1, P1, P2, RI - RI+1.
13885  M00S10077.pfm     +++|*
13886  M00S10078.pfm     +++|*         CALLS  WDB, CIP.
13887  M00S10079.pfm     +++|
13888  M00S10080.pfm     +++|
13889  M00S10081.pfm     +++| SHB      SUBR               ENTRY/EXIT
13890  M00S10082.pfm     +++|          STD    P1          SAVE WORD COUNT
13891  M00S10083.pfm     +++|          LDM    CATA        SET CONTROL FOR SEARCH MODE
13892  M00S10084.pfm     +++|          STD    T1
13893  M00S10085.pfm     +++|          LDM    SHBF,T1
13894  M00S10086.pfm     +++|          STM    SHBB
13895  M00S10087.pfm     +++|          LDC    BUFA+2      SET BUFFER DATA BASE
13896  M00S10088.pfm     +++|          STD    P2
13897  M00S10089.pfm     +++|          LDD    SI          SET SEARCH INDEX
13898  M00S10090.pfm     +++|          SHN    2           MULTIPLY BY FIVE
13899  M00S10091.pfm     +++|          ADD    SI
13900  M00S10092.pfm     +++|          RAD    P2          SET DATA ADDRESS TO NEXT CATALOG ENTRY
13901  M00S10093.pfm     +++| SHB1     LDM    FCUI,P2     CHECK USER INDEX
13902  M00S10094.pfm     +++|          LPN    37
13903  M00S10095.pfm     +++|          SHN    14
13904  M00S10096.pfm     +++|          LMM    FCUI+1,P2
13905  M00S10097.pfm     +++|          ZJN    SHB2        IF EMPTY CATALOG ENTRY
13906  M00S10098.pfm     +++| SHBA     PSN
13907  M00S10099.pfm     +++|*         UJN    SHB4        (SET IF PRIVATE DEVICE)
13908  M00S10100.pfm     +++|          LMD    UI+1
13909  M00S10101.pfm     +++|          SHN    6
13910  M00S10102.pfm     +++|          LMD    UI
13911  M00S10103.pfm     +++|          ZJN    SHB4        USER INDEX MATCH
13912  M00S10104.pfm     +++|
13913  M00S10105.pfm     +++|*         INCREMENT FOR NEXT ENTRY.
13914  M00S10106.pfm     +++|
13915  M00S10107.pfm     +++| SHB2     LDC    NWCE*5      ADVANCE ENTRY INDEX
13916  M00S10108.pfm     +++|          RAD    P2
13917  M00S10109.pfm     +++|          LDN    NWCE        INCREMENT WORD COUNT
13918  M00S10110.pfm     +++|          RAD    SI          ADVANCE SEARCH INDEX
13919  M00S10111.pfm     +++|          ADN    NWCE-1      CHECK FOR ANOTHER CATALOG ENTRY
13920  M00S10112.pfm     +++|          SBD    P1
13921  M00S10113.pfm     +++|          MJN    SHB1        IF NOT END OF BUFFER
13922  M00S10114.pfm     +++|          LDN    0
13923  M00S10115.pfm     +++|          STD    SI          CLEAR SEARCH INDEX
13924  M00S10116.pfm     +++| SHB3     LJM    SHBX        RETURN
13925  M00S10117.pfm     +++|
13926  M00S10118.pfm     +++| SHB4     LDD    FN          CHECK AGAINST SELECTED FILE NAME
13927  M00S10119.pfm     +++|          ZJN    SHB6        IF NO SELECTED FILE REQUESTED
13928  M00S10120.pfm     +++|          LMI    P2
13929  M00S10121.pfm     +++|          NJN    SHB2        NO MATCH
13930  M00S10122.pfm     +++|          LDM    1,P2
13931  M00S10123.pfm     +++|          LMD    FN+1
13932  M00S10124.pfm     +++|          NJN    SHB2        NO MATCH
13933  M00S10125.pfm     +++|          LDM    2,P2
13934  M00S10126.pfm     +++|          LMD    FN+2
13935  M00S10127.pfm     +++|          NJN    SHB2        NO MATCH
13936  M00S10128.pfm     +++|          LDM    3,P2
13937  M00S10129.pfm     +++|          LMD    FN+3
13938  M00S10130.pfm     +++|          SCN    77
13939  M00S10131.pfm     +++| SHB5     NJN    SHB2        IF NOT MATCH
13940  M00S10132.pfm     +++| SHB6     BSS    0
13941  M00S10133.pfm     +++| SHBE     UJN    SHB7
13942  M00S10134.pfm     +++|*         PSN                IF CATLIST OF DEVICE NUMBER SPECIFIED.
13943  M00S10135.pfm     +++|
13944  M00S10136.pfm     +++|          LDM    FCDN,P2     CHECK DEVICE NUMBER
13945  M00S10137.pfm     +++|          LPN    77
13946  M00S10138.pfm     +++|          SBD    DN
13947  M00S10139.pfm     +++|          NJN    SHB5        IF NO MATCH
Line S10140 Modification History
M01 (Removed by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
13948  M01S10140.ns2756  ---| SHB7     LDN    1           SET FOR *PDST* EXIT CASE
Line S00004 Modification History
M01 (Added by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
13949  M01S00004.ns2756  +++| SHB7     LDN    1           SET FOR *CTPM* EXIT CASE
13950  M00S10141.pfm     +++|          UJN    *           PERFORM SEARCH DEPENDING ON MODE
13951  M00S10142.pfm     +++| SHBB     EQU    *-1
Line S10143 Modification History
M01 (Removed by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
13952  M01S10143.ns2756  ---|*         UJN    SHB9        (IF NORMAL CATALOG SEARCH, *NCST*)
13953  M01S10144.ns2756  ---|*         UJN    SHB3        (IF PERMIT DATA SEARCH, *PDST*)
13954  M01S10145.ns2756  ---|*         UJN    SHB9        (IF *PFID* ACCESS SEARCH, *PAST*)
13955  M01S10146.ns2756  ---|*         UJN    SHB8        (IF ALTERNATE CATALOG SEARCH, *ACST*)
Line S00005 Modification History
M01 (Added by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
13956  M01S00005.ns2756  +++|*         UJN    SHB9        (IF NORMAL CATALOG SEARCH, *CTNC*)
13957  M01S00006.ns2756  +++|*         UJN    SHB3        (IF PERMIT DATA SEARCH, *CTPM*)
13958  M01S00007.ns2756  +++|*         UJN    SHB9        (IF *PFID* ACCESS SEARCH, *CTID*)
13959  M01S00008.ns2756  +++|*         UJN    SHB8        (IF ALTERNATE CATALOG SEARCH, *CTCA*)
13960  M00S10147.pfm     +++|
13961  M00S10148.pfm     +++|*         VALIDATE ACCESS AND PREPARE THE *PFC* ENTRY FOR OUTPUT.
13962  M00S10149.pfm     +++|
13963  M00S10150.pfm     +++| SHB8     RJM    CCP         CHECK CATALOG PERMISSION
Line S10151 Modification History
M01 (Removed by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
13964  M01S10151.pfm28   ---|          ZJN    SHB11       IF NOT PERMITTED
13965  M01S10152.pfm28   ---| SHB9     LDM    FCBS,P2
Line S00055 Modification History
M01 (Added by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
13966  M01S00055.pfm28   +++|          ZJP    SHB11       IF NOT PERMITTED
13967  M01S00056.pfm28   +++| SHB9     LDM    SSOM
Line S00057 Modification History
M01 (Added by) pfm28
M02 (Removed by) ns2616
Seq #  *Modification Id* Act 
----------------------------+
13968  M02S00057.ns2616  ---|          ZJP    SHB9.2      IF UNSECURED SYSTEM
Line S00001 Modification History
M01 (Added by) ns2616
Seq #  *Modification Id* Act 
----------------------------+
13969  M01S00001.ns2616  +++|          ZJN    SHB9.1      IF UNSECURED SYSTEM
13970  M01S00002.ns2616  +++|          LDM    SSJS
13971  M01S00003.ns2616  +++|          NJN    SHB9.1      IF *SSJ=* CALLER
Line S00058 Modification History
M01 (Added by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
13972  M01S00058.pfm28   +++|          LDM    FCAL,P2     GET FILE ACCESS LEVEL
13973  M01S00059.pfm28   +++|          LPN    7
13974  M01S00060.pfm28   +++|          STD    T1
13975  M01S00061.pfm28   +++|          LDM    PFAL        GET JOB ACCESS LEVEL
13976  M01S00062.pfm28   +++|          SBD    T1
Line S00063 Modification History
M01 (Added by) pfm28
M02 (Removed by) ns2616
Seq #  *Modification Id* Act 
----------------------------+
13977  M02S00063.ns2616  ---|          PJP    SHB9.2      IF FILE ACCESS LEVEL NOT ABOVE JOB
Line S00004 Modification History
M01 (Added by) ns2616
Seq #  *Modification Id* Act 
----------------------------+
13978  M01S00004.ns2616  +++|          MJN    SHB9.2      IF FILE ACCESS LEVEL ABOVE JOB
13979  M01S00005.ns2616  +++| SHB9.1   LJM    SHB9.4      WRITE CATALOG TO CM
Line S00064 Modification History
M01 (Added by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
13980  M01S00064.pfm28   +++|
Line S00065 Modification History
M01 (Added by) pfm28
M02 (Removed by) ns2616
Seq #  *Modification Id* Act 
----------------------------+
13981  M02S00065.ns2616  ---|*         IF THE FILE ACCESS LEVEL IS HIGHER THAN THE JOB ACCES
13982  M02S00066.ns2616  ---|*         LEVEL, CLEAR THE FOLLOWING PFC FIELDS.
Line S00006 Modification History
M01 (Added by) ns2616
Seq #  *Modification Id* Act 
----------------------------+
13983  M01S00006.ns2616  +++|*         IF THE FILE ACCESS LEVEL IS HIGHER THAN THE JOB ACCESS LEVEL,
13984  M01S00007.ns2616  +++|*         CLEAR THE FOLLOWING PFC FIELDS (UNLESS CALLER IS *SSJ=*).
Line S00067 Modification History
M01 (Added by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
13985  M01S00067.pfm28   +++|*                1. PASSWORD (REPLACE WITH ASTERISKS).
13986  M01S00068.pfm28   +++|*                2. PASSWORD EXPIRATION DATE.
13987  M01S00069.pfm28   +++|*                3. ACCESS CATEGORY SET.
13988  M01S00070.pfm28   +++|*                4. USER CONTROL WORD.
13989  M01S00071.pfm28   +++|
Line S00072 Modification History
M01 (Added by) pfm28
M02 (Removed by) ns2616
Seq #  *Modification Id* Act 
----------------------------+
13990  M02S00072.ns2616  ---|          LDK    FCCW        SET ADDRESS OF USER CONTROL WORD
Line S00008 Modification History
M01 (Added by) ns2616
Seq #  *Modification Id* Act 
----------------------------+
13991  M01S00008.ns2616  +++| SHB9.2   LDK    FCCW        SET ADDRESS OF USER CONTROL WORD
Line S00073 Modification History
M01 (Added by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
13992  M01S00073.pfm28   +++|          ADD    P2
13993  M01S00074.pfm28   +++|          STM    SHBG
13994  M01S00075.pfm28   +++|          LDM    FCPW,P2
Line S00076 Modification History
M01 (Added by) pfm28
M02 (Removed by) ns2616
Seq #  *Modification Id* Act 
----------------------------+
13995  M02S00076.ns2616  ---|          ZJN    SHB9.1      IF NO PASSWORD DEFINED
Line S00009 Modification History
M01 (Added by) ns2616
Seq #  *Modification Id* Act 
----------------------------+
13996  M01S00009.ns2616  +++|          ZJN    SHB9.3      IF NO PASSWORD DEFINED
Line S00077 Modification History
M01 (Added by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
13997  M01S00077.pfm28   +++|          LDC    2R**        REPLACE PASSWORD WITH ASTERISKS
13998  M01S00078.pfm28   +++|          STM    FCPW,P2
13999  M01S00079.pfm28   +++|          STM    FCPW+1,P2
14000  M01S00080.pfm28   +++|          STM    FCPW+2,P2
14001  M01S00081.pfm28   +++|          SCN    77          CLEAR PASSWORD EXPIRATION DATE
14002  M01S00082.pfm28   +++|          STM    FCPW+3,P2
14003  M01S00083.pfm28   +++|*         STM    FCXD,P2
14004  M01S00084.pfm28   +++|          LDN    0
14005  M01S00085.pfm28   +++|          STM    FCXD+1,P2
Line S00086 Modification History
M01 (Added by) pfm28
M02 (Removed by) ns2616
Seq #  *Modification Id* Act 
----------------------------+
14006  M02S00086.ns2616  ---| SHB9.1   STM    FCFC+1,P2   CLEAR ACCESS CATEGORY SET
Line S00010 Modification History
M01 (Added by) ns2616
Seq #  *Modification Id* Act 
----------------------------+
14007  M01S00010.ns2616  +++| SHB9.3   STM    FCFC+1,P2   CLEAR ACCESS CATEGORY SET
Line S00087 Modification History
M01 (Added by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
14008  M01S00087.pfm28   +++|          STM    FCFC+2,P2
14009  M01S00088.pfm28   +++|          LDM    FCFC,P2
14010  M01S00089.pfm28   +++|          LPC    7400
14011  M01S00090.pfm28   +++|          STM    FCFC,P2
14012  M01S00091.pfm28   +++|          LDN    ZERL        CLEAR USER CONTROL WORD
14013  M01S00092.pfm28   +++|          CRM    *,ON
14014  M01S00093.pfm28   +++| SHBG     EQU    *-1         (ADDRESS OF USER CONTROL WORD)
Line S00094 Modification History
M01 (Added by) pfm28
M02 (Removed by) ns2616
Seq #  *Modification Id* Act 
----------------------------+
14015  M02S00094.ns2616  ---| SHB9.2   LDM    FCBS,P2
Line S00095 Modification History
M01 (Added by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
14016  M01S00095.pfm28   +++|
14017  M01S00096.pfm28   +++|*         WRITE CATALOG TO CM.
14018  M01S00097.pfm28   +++|
Line S00011 Modification History
M01 (Added by) ns2616
Seq #  *Modification Id* Act 
----------------------------+
14019  M01S00011.ns2616  +++| SHB9.4   LDM    FCBS,P2
14020  M00S10153.pfm     +++|          SHN    6
Line S10154 Modification History
M01 (Removed by) ns2616
Seq #  *Modification Id* Act 
----------------------------+
14021  M01S10154.ns2616  ---|          PJN    SHB10       IF NO DIRECT ACCESS FILE
14022  M01S10155.ns2616  ---|          RJM    DFS
Line S00012 Modification History
M01 (Added by) ns2616
Seq #  *Modification Id* Act 
----------------------------+
14023  M01S00012.ns2616  +++|          PJN    SHB10       IF NOT DIRECT ACCESS FILE
14024  M01S00013.ns2616  +++|          RJM    DFS         DETERMINE FILE SIZE
14025  M00S10156.pfm     +++| SHB10    LDN    NWCE        WRITE CATALOG TO CM
14026  M00S10157.pfm     +++| SHBC     EQU    *-1
Line S10158 Modification History
M01 (Removed by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
14027  M01S10158.ns2756  ---|*         LDN    NWCE+1      (IF *PFID* ACCESS SEARCH, *PAST*)
Line S00009 Modification History
M01 (Added by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
14028  M01S00009.ns2756  +++|*         LDN    NWCE+1      (IF *PFID* ACCESS SEARCH, *CTID*)
14029  M00S10159.pfm     +++|          STD    T1
14030  M00S10160.pfm     +++|          LDD    P2
14031  M00S10161.pfm     +++|          RJM    WDB
14032  M00S10162.pfm     +++|          LDD    FN
14033  M00S10163.pfm     +++|          ZJN    SHB11       IF NOT SELECTED FILE SEARCH
14034  M00S10164.pfm     +++|          LJM    SHBX        RETURN FILE FOUND
14035  M00S10165.pfm     +++|
Line S10166 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
14036  M01S10166.ns2415  ---|*         CHECK IF PAUSE NECESSARY BEFORE CONTINUING SEARCH.
Line S00126 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
14037  M01S00126.ns2415  +++| SHB11    STM    RBSA        CLEAR DA FILE COUNT
14038  M01S00127.ns2415  +++| SHB13    LJM    SHB2        LOOP FOR NEXT CATALOG ENTRY
14039  M00S10167.pfm     +++|
Line S10168 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
14040  M01S10168.ns2415  ---| SHB11    LDC    **          CATALOG SEARCH PAUSE COUNT
14041  M01S10169.ns2415  ---| SHBD     EQU    *-1
14042  M01S10170.ns2415  ---|          SBN    CSPC
14043  M01S10171.ns2415  ---|          MJN    SHB13       IF PAUSE NOT NECESSARY
14044  M01S10172.ns2415  ---|          ENDMS
14045  M01S10173.ns2415  ---|          PAUSE
14046  M01S10174.ns2415  ---|          LDD    CM+1
14047  M01S10175.ns2415  ---|          ZJN    SHB12       IF ERROR FLAG NOT SET
14048  M01S10176.ns2415  ---|          ERROR  ABT,CH,IW   *PFM ABORTED.*
14049  M01S10177.ns2415  ---|
14050  M01S10178.ns2415  ---| SHB12    STM    SHBD        CLEAR PAUSE COUNT
14051  M01S10179.ns2415  ---|          STM    RBSA        CLEAR DA FILE COUNT
14052  M01S10180.ns2415  ---| SHB13    LJM    SHB2        LOOP FOR NEXT CATALOG ENTRY
14053  M00S10181.pfm     +++|
14054  M00S10182.pfm     +++| SHBF     BSS    0           BRANCH TABLE
14055  M00S10183.pfm     +++|          LOC    SHBB
Line S10184 Modification History
M01 (Removed by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
14056  M01S10184.ns2756  ---|          UJN    SHB9        *NCST* MODE OF SEARCH
Line S00010 Modification History
M01 (Added by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
14057  M01S00010.ns2756  +++|          UJN    SHB9        *CTNC* MODE OF SEARCH
14058  M00S10185.pfm     +++|          LOC    SHBB
Line S10186 Modification History
M01 (Removed by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
14059  M01S10186.ns2756  ---|          UJN    SHB3        *PDST* MODE OF SEARCH
Line S00011 Modification History
M01 (Added by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
14060  M01S00011.ns2756  +++|          UJN    SHB3        *CTPM* MODE OF SEARCH
14061  M00S10187.pfm     +++|          LOC    SHBB
Line S10188 Modification History
M01 (Removed by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
14062  M01S10188.ns2756  ---|          UJN    SHB9        *PAST* MODE OF SEARCH
Line S00012 Modification History
M01 (Added by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
14063  M01S00012.ns2756  +++|          UJN    SHB9        *CTID* MODE OF SEARCH
14064  M00S10189.pfm     +++|          LOC    SHBB
Line S10190 Modification History
M01 (Removed by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
14065  M01S10190.ns2756  ---|          UJN    SHB8        *ACST* MODE OF SEARCH
Line S00013 Modification History
M01 (Added by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
14066  M01S00013.ns2756  +++|          UJN    SHB8        *CTCA* MODE OF SEARCH
14067  M00S10191.pfm     +++|          LOC    *O
14068  M00S10192.pfm     +++| WDB      SPACE  4,20
14069  M00S10193.pfm     +++|**        WDB - WRITE BUFFER TO CENTRAL.
14070  M00S10194.pfm     +++|*
14071  M00S10195.pfm     +++|*         ENTRY  (A) = CATALOG ENTRY ADDRESS.
14072  M00S10196.pfm     +++|*                (T1) = WORD COUNT OF ENTRY TO WRITE
14073  M00S10197.pfm     +++|*                (IN - IN+1) = CURRENT POSITION IN FET.
14074  M00S10198.pfm     +++|*                (LM - LM+1) = FET LIMIT.
14075  M00S10199.pfm     +++|*                (SI) = CURRENT SECTOR WORD INDEX.
14076  M00S10200.pfm     +++|*                (T6 - T7) CURRENT PERMIT BUFFER ADDRESS IF PERMIT LIST.
14077  M00S10201.pfm     +++|*                (WDBB - WDBC) SET TO CURRENT CATALOG SEARCH POS.
14078  M00S10202.pfm     +++|*
14079  M00S10203.pfm     +++|*         EXIT   CATALOG ENTRY WRITTEN TO BUFFER.
14080  M00S10204.pfm     +++|*                (IN - IN+1) ADVANCED
14081  M00S10205.pfm     +++|*                TO DPP IF BUFFER FULL (EOF STATUS SET IN FET)
14082  M00S10206.pfm     +++|*
14083  M00S10207.pfm     +++|*         USES   T2, CM - CM+4.
14084  M00S10208.pfm     +++|*
14085  M00S10209.pfm     +++|*         CALLS  PCA, SBS, SFA, SRA.
14086  M00S10210.pfm     +++|*
14087  M00S10211.pfm     +++|*         MACROS ENDMS, ERROR.
14088  M00S10212.pfm     +++|
14089  M00S10213.pfm     +++|
14090  M00S10214.pfm     +++| WDB      SUBR               ENTRY/EXIT
14091  M00S10215.pfm     +++|          STD    T2          SET ADDRESS FOR WRITE
14092  M00S10216.pfm     +++|          STM    WDBA
14093  M00S10217.pfm     +++|          LDD    IN          CHECK FOR ROOM IN BUFFER FOR NEXT ENTRY
14094  M00S10218.pfm     +++|          SHN    14
14095  M00S10219.pfm     +++|          ADD    IN+1
14096  M00S10220.pfm     +++|          ADD    T1
14097  M00S10221.pfm     +++|          STD    CM+4
14098  M00S10222.pfm     +++|          SHN    -14
14099  M00S10223.pfm     +++|          STD    CM+3
14100  M00S10224.pfm     +++|          SBD    LM
14101  M00S10225.pfm     +++|          SHN    14
14102  M00S10226.pfm     +++|          ADD    CM+4
14103  M00S10227.pfm     +++|          SBD    LM+1
14104  M00S10228.pfm     +++|          PJN    WDB1        IF BUFFER FULL
14105  M00S10229.pfm     +++|          RJM    PCA         PROCESS CATALOG ADDRESS ACCESS MODE
14106  M00S10230.pfm     +++|          LDD    IN          WRITE ENTRY TO BUFFER
14107  M00S10231.pfm     +++|          SHN    6
14108  M00S10232.pfm     +++|          ADD    RA
14109  M00S10233.pfm     +++|          SHN    6
14110  M00S10234.pfm     +++|          ADD    IN+1
14111  M00S10235.pfm     +++|          CWM    *,T1
14112  M00S10236.pfm     +++| WDBA     EQU    *-1
14113  M00S10237.pfm     +++|          LDD    CM+3        ADVANCE IN POINTER
14114  M00S10238.pfm     +++|          STD    IN
14115  M00S10239.pfm     +++|          LDD    CM+4
14116  M00S10240.pfm     +++|          STD    IN+1
14117  M00S10241.pfm     +++|          LDN    IPCE        PF INCREMENT FOR CATALOG ENTRY RETURNED
Line S10242 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14118  M01S10242.242l642 ---|          RAM    DPPF
Line S01208 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14119  M01S01208.242l642 +++|          RAM    AIPF+1
14120  M00S10243.pfm     +++|          LJM    WDBX        EXIT
14121  M00S10244.pfm     +++|
14122  M00S10245.pfm     +++|*         BUFFER FULL.
14123  M00S10246.pfm     +++|
14124  M00S10247.pfm     +++| WDB1     ENDMS
14125  M00S10248.pfm     +++|          LDM    CATA
Line S10249 Modification History
M01 (Removed by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
14126  M01S10249.ns2756  ---|          LMN    PDST
Line S00014 Modification History
M01 (Added by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
14127  M01S00014.ns2756  +++|          LMN    CTPM
14128  M00S10250.pfm     +++|          ZJN    WDB2        IF PERMIT FILE POSITION TO BE SAVED
14129  M00S10251.pfm     +++|          LDC    *           SET CURRENT POSITION
14130  M00S10252.pfm     +++| WDBB     EQU    *-1
14131  M00S10253.pfm     +++|          STD    T6
14132  M00S10254.pfm     +++|          LDC    *
14133  M00S10255.pfm     +++| WDBC     EQU    *-1
14134  M00S10256.pfm     +++|          STD    T7
14135  M00S10257.pfm     +++|          LDM    DVLW+1      SET ALLOCATOR TRACK
14136  M00S10258.pfm     +++|          UJN    WDB3
14137  M00S10259.pfm     +++| WDB2     LDM    DVLW+2      SET PERMIT FILE
14138  M00S10260.pfm     +++| WDB3     RJM    SRA         SET RANDOM ADDRESS
14139  M00S10261.pfm     +++|          ZJN    WDB4        IF NO ERROR
14140  M00S10262.pfm     +++|          ERROR  RIN,CH,IW,EQ  *EQXXX,DNYY, RANDOM INDEX ERROR.*
14141  M00S10263.pfm     +++|
14142  M00S10264.pfm     +++| WDB4     LDN    ZERL        CLEAR ASSEMBLY AREA
14143  M00S10265.pfm     +++|          CRD    CM
14144  M00S10266.pfm     +++|          LDD    RI+1        REPOSITION RANDOM ADDRESS
14145  M00S10267.pfm     +++|          SHN    6
14146  M00S10268.pfm     +++|          STD    CM+2
14147  M00S10269.pfm     +++|          LPC    770000
14148  M00S10270.pfm     +++|          ADD    RI
14149  M00S10271.pfm     +++|          SHN    6
14150  M00S10272.pfm     +++|          STD    CM+1
14151  M00S10273.pfm     +++|          LPC    770000
14152  M00S10274.pfm     +++|          ADD    SI
14153  M00S10275.pfm     +++|          SHN    6
14154  M00S10276.pfm     +++|          STD    CM
14155  M00S10277.pfm     +++|          RJM    SFA         SET FET ADDRESS
14156  M00S10278.pfm     +++|          ADN    CFCN
14157  M00S10279.pfm     +++|          CWD    CM          WRITE ADDRESS TO FET
14158  M00S10280.pfm     +++|          LDN    31          SET END OF FILE STATUS
14159  M00S10281.pfm     +++|          RJM    SBS         SET STATUS OF BUFFER
14160  M00S10282.pfm     +++|          LJM    DPP         TERMINATE PROGRAM
14161  M00S10283.pfm     +++|
Line S10284 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14162  M01S10284.242l642 ---| CCP      SPACE  4,15
Line S01209 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14163  M01S01209.242l642 +++| CCP      SPACE  4,20
14164  M00S10285.pfm     +++|**        CCP - CHECK CATALOG PERMISSION.
14165  M00S10286.pfm     +++|*
14166  M00S10287.pfm     +++|*         CATALOG ENTRY RETURNED IF ALTERNATE CATLIST PERMISSION HAS
14167  M00S10288.pfm     +++|*         BEEN GRANTED AND USER IS VALID TO ACCESS FILE.
14168  M00S10289.pfm     +++|*
14169  M00S10290.pfm     +++|*         ENTRY  (P2) = ADDRESS OF CATALOG ENTRY.
14170  M00S10291.pfm     +++|*
14171  M00S10292.pfm     +++|*         EXIT   (A) = 0 IF USER NOT PERMITTED TO FILE.
14172  M00S10293.pfm     +++|*                CATALOG ENTRY ADJUSTED IF USER PERMITTED.
Line S10294 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
14173  M01S10294.ns2415  ---|*                (SHBD) ADVANCED IF PERMIT SECTOR READ
14174  M00S10295.pfm     +++|*
14175  M00S10296.pfm     +++|*         USES   T1, T2, T6, T7, P3, ST, SS.
14176  M00S10297.pfm     +++|*
Line S10298 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14177  M01S10298.242l642 ---|*         CALLS  CSA, RDS, SPB.
Line S01210 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14178  M01S01210.242l642 +++|*         CALLS  CSA, MSR, PDV, RDS, SPB.
14179  M00S10299.pfm     +++|*
Line S10300 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14180  M01S10300.242l642 ---|*         MACROS SETMS.
Line S01211 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14181  M01S01211.242l642 +++|*         MACROS MONITOR, SETMS.
14182  M00S10301.pfm     +++|
14183  M00S10302.pfm     +++|
14184  M00S10303.pfm     +++| CCP10    LDN    0           DENY ACCESS TO USER
14185  M00S10304.pfm     +++| CCP11    ZJP    CCPX        IF USER NOT PERMITTED
14186  M00S10305.pfm     +++| CCP12    LDM    FCAM,P2     CHECK PERMISSION MODE
14187  M00S10306.pfm     +++|          LPN    77
14188  M00S10307.pfm     +++|          LMN    PTNU
14189  M00S10308.pfm     +++|          ZJN    CCP11       IF *NULL* PERMISSION
14190  M00S10309.pfm     +++|
14191  M00S10310.pfm     +++|*         CHECK FOR EXPIRED PERMIT.
14192  M00S10311.pfm     +++|
Line S10312 Modification History
M01 (Removed by) pfm32
Seq #  *Modification Id* Act 
----------------------------+
14193  M01S10312.pfm32   ---|          LDD    T2
Line S00001 Modification History
M01 (Added by) pfm32
Seq #  *Modification Id* Act 
----------------------------+
14194  M01S00001.pfm32   +++|          LDD    P3
14195  M00S10313.pfm     +++|          ZJN    CCP13       IF NO PERMIT ENTRY FOUND
14196  M00S10314.pfm     +++|          LDM    FPMD,T2     CHECK FOR EXPIRED PERMIT
14197  M00S10315.pfm     +++|          SHN    21-5
14198  M00S10316.pfm     +++|          PJN    CCP13       IF NO EXPIRATION DATE PRESENT
14199  M00S10317.pfm     +++|          LDM    FPXD,T2
14200  M00S10318.pfm     +++|          LPN    77
14201  M00S10319.pfm     +++|          STD    CM+3
14202  M00S10320.pfm     +++|          SHN    14
14203  M00S10321.pfm     +++|          LMM    FPXD+1,T2
14204  M00S10322.pfm     +++|          ZJN    CCP13       IF NON-EXPIRING PERMIT
14205  M00S10323.pfm     +++|          STD    CM+4
14206  M00S10324.pfm     +++|          LDN    VEDS        VALIDATE EXPIRATION DATE
14207  M00S10325.pfm     +++|          STD    CM+1
14208  M00S10326.pfm     +++|          MONITOR  VSAM
14209  M00S10327.pfm     +++|          LDD    CM+1
14210  M00S10328.pfm     +++|          NJN    CCP10       IF EXPIRED
14211  M00S10329.pfm     +++|
14212  M00S10330.pfm     +++|*         VALIDATE ACCESS LEVEL/CATEGORY SET OF USER.
14213  M00S10331.pfm     +++|
Line S10332 Modification History
M01 (Removed by) pfm60
Seq #  *Modification Id* Act 
----------------------------+
14214  M01S10332.pfm60   ---| CCP13    LDD    P2
14215  M01S10333.pfm60   ---|          ADK    FCAL-1
14216  M01S10334.pfm60   ---|          STM    CCPE
14217  M01S10335.pfm60   ---|          LDD    MA
14218  M01S10336.pfm60   ---|          CWM    *,ON
14219  M01S10337.pfm60   ---| CCPE     EQU    *-1
Line S00016 Modification History
M01 (Added by) pfm60
Seq #  *Modification Id* Act 
----------------------------+
14220  M01S00016.pfm60   +++| CCP13    LDN    ZERL
14221  M01S00017.pfm60   +++|          CRD    CM
14222  M01S00018.pfm60   +++|          LDM    FCAL,P2     SET ACCESS LEVEL
14223  M01S00019.pfm60   +++|          LPN    7
14224  M01S00020.pfm60   +++|          STD    CM+1
14225  M01S00021.pfm60   +++|          LDM    FCFC,P2     SET ACCESS CATEGORY
14226  M01S00022.pfm60   +++|          LPC    377
14227  M01S00023.pfm60   +++|          STD    CM+2
14228  M01S00024.pfm60   +++|          LDM    FCFC+1,P2
14229  M01S00025.pfm60   +++|          STD    CM+3
14230  M01S00026.pfm60   +++|          LDM    FCFC+2,P2
14231  M01S00027.pfm60   +++|          STD    CM+4
14232  M01S00028.pfm60   +++|          LDD    MA
14233  M01S00029.pfm60   +++|          CWD    CM
14234  M00S10338.pfm     +++|          LDN    ZERL
14235  M00S10339.pfm     +++|          CRD    CM
14236  M00S10340.pfm     +++|          LDN    3           CHECK ACCESS LEVEL/ACCESS CATEGORY SET
14237  M00S10341.pfm     +++|          STD    CM+4
14238  M00S10342.pfm     +++|          LDN    VAJS        CHECK AGAINST USER-S VALIDATION
14239  M00S10343.pfm     +++|          STD    CM+1
14240  M00S10344.pfm     +++|          MONITOR  VSAM
14241  M00S10345.pfm     +++|          LDD    CM+1
14242  M00S10346.pfm     +++|          NJP    CCP10       IF NOT VALID ACCESS
14243  M00S10347.pfm     +++|
14244  M00S10348.pfm     +++|*         CLEAR FIELDS IN CATALOG ENTRY.
14245  M00S10349.pfm     +++|
14246  M00S10350.pfm     +++|          LDN    FCPW        SET FWA OF PASSWORD
14247  M00S10351.pfm     +++|          ADD    P2
14248  M00S10352.pfm     +++|          STM    CCPC
14249  M00S10353.pfm     +++|          ADN    FCAL-1-FCPW SET FWA OF ACCESS LEVEL AND CATEGORY SET
14250  M00S10354.pfm     +++|          STM    CCPD
14251  M00S10355.pfm     +++|          ADN    FCCN-FCAL   SET FWA OF CHARGE NUMBER
14252  M00S10356.pfm     +++|          STM    CCDF
14253  M00S10357.pfm     +++|          ADK    FCP1-FCCN   SET FWA OF PROJECT NUMBER
14254  M00S10358.pfm     +++|          STM    CCDG
14255  M00S10359.pfm     +++|          ADK    FCP2-FCP1   SET FWA OF WORD 2 OF PROJECT NUMBER
14256  M00S10360.pfm     +++|          STM    CCDH
14257  M00S10361.pfm     +++|          LDN    ZERL        CLEAR PASSWORD AND EXPIRATION DATE
14258  M00S10362.pfm     +++|          CRM    *,ON
14259  M00S10363.pfm     +++| CCPC     EQU    *-1         (FWA OF PASSWORD)
14260  M00S10364.pfm     +++|          LDN    ZERL        CLEAR ACCESS LEVEL AND CATEGORIES
14261  M00S10365.pfm     +++|          CRM    *,ON
14262  M00S10366.pfm     +++| CCPD     EQU    *-1
14263  M00S10367.pfm     +++|          LDN    0
14264  M00S10368.pfm     +++|          STM    FCUI+1,P2   CLEAR USER INDEX
14265  M00S10369.pfm     +++|          LDM    FCUI,P2
14266  M00S10370.pfm     +++|          SCN    77
14267  M00S10371.pfm     +++|          STM    FCUI,P2
14268  M00S10372.pfm     +++|          LDM    SSJS
14269  M00S10373.pfm     +++|          NJN    CCP14       IF CALLER IS *SSJ=* PROGRAM
14270  M00S10374.pfm     +++|          LDN    ZERL        CLEAR CHARGE/PROJECT FIELDS
14271  M00S10375.pfm     +++|          CRM    *,ON
14272  M00S10376.pfm     +++| CCDF     EQU    *-1
14273  M00S10377.pfm     +++|          LDN    ZERL
14274  M00S10378.pfm     +++|          CRM    *,ON
14275  M00S10379.pfm     +++| CCDG     EQU    *-1
14276  M00S10380.pfm     +++|          LDN    ZERL
14277  M00S10381.pfm     +++|          CRM    *,ON
14278  M00S10382.pfm     +++| CCDH     EQU    *-1
14279  M00S10383.pfm     +++| CCP14    LDN    1           RETURN PERMISSION FLAG
14280  M00S10384.pfm     +++|
14281  M00S10385.pfm     +++| CCP      SUBR               ENTRY/EXIT
14282  M00S10386.pfm     +++|          LDM    FCAP,P2     CHECK ALTERNATE CATLIST PERMISSION
14283  M00S10387.pfm     +++|          SHN    0-12
14284  M00S10388.pfm     +++|          NJN    CCP1        IF ALTERNATE CATLIST PERMISSION PRESENT
Line S10389 Modification History
M01 (Removed by) ns2351
Seq #  *Modification Id* Act 
----------------------------+
14285  M01S10389.ns2351  ---|          LDN    ACNO        DENY ALTERNATE CATLIST PERMISSION
Line S00002 Modification History
M01 (Added by) ns2351
Seq #  *Modification Id* Act 
----------------------------+
14286  M01S00002.ns2351  +++|          LDN    ACEX        USE DEFAULT PERMISSION FOR EXISTING FILES
14287  M00S10390.pfm     +++| CCP1     LMN    ACNO
14288  M00S10391.pfm     +++|          ZJN    CCPX        IF ALTERNATE CATLIST NOT PERMITTED
Line S10392 Modification History
M01 (Removed by) pfm32
Seq #  *Modification Id* Act 
----------------------------+
14289  M01S10392.pfm32   ---|          LDN    0           CLEAR PERMIT ENTRY ADDRESS
14290  M01S10393.pfm32   ---|          STD    T2
Line S00002 Modification History
M01 (Added by) pfm32
Seq #  *Modification Id* Act 
----------------------------+
14291  M01S00002.pfm32   +++|          LDN    0           CLEAR PERMIT SEARCH STATUS
14292  M01S00003.pfm32   +++|          STD    P3
Line S10394 Modification History
M01 (Removed by) pfm67
Seq #  *Modification Id* Act 
----------------------------+
14293  M01S10394.pfm67   ---|          LDM    FCCT,P2     CHECK FILE CATEGORY
14294  M01S10395.pfm67   ---|          SHN    -6
14295  M01S10396.pfm67   ---|          LMN    FCPB
14296  M01S10397.pfm67   ---|          ZJP    CCP12       IF PUBLIC FILE
14297  M01S10398.pfm67   ---|          LMN    FCSP&FCPB
14298  M01S10399.pfm67   ---|          NJN    CCP2        IF NOT SEMI-PRIVATE FILE
14299  M01S10400.pfm67   ---|          LDC    CCP12       PRESET RETURN FOR SEMI-PRIVATE FILES
14300  M01S10401.pfm67   ---|          STM    CCPA
14301  M01S10402.pfm67   ---|          STM    CCPB
14302  M01S10403.pfm67   ---|          UJN    CCP3        PROCESS SEMIPRIVATE FILE
14303  M00S10404.pfm     +++|
Line S10405 Modification History
M01 (Removed by) pfm67
Seq #  *Modification Id* Act 
----------------------------+
14304  M01S10405.pfm67   ---| CCP2     LDC    CCPX        PRESET RETURN FOR PRIVATE FILES
14305  M01S10406.pfm67   ---|          STM    CCPA
14306  M01S10407.pfm67   ---|          LDC    CCP11
14307  M01S10408.pfm67   ---|          STM    CCPB
Line S00012 Modification History
M01 (Added by) pfm67
Seq #  *Modification Id* Act 
----------------------------+
14308  M01S00012.pfm67   +++|*         SEARCH FOR PERMIT ENTRY.
14309  M00S10409.pfm     +++|
Line S10410 Modification History
M01 (Removed by) pfm67
Seq #  *Modification Id* Act 
----------------------------+
14310  M01S10410.pfm67   ---|*         PRIVATE/SEMI-PRIVATE FILE, SEARCH PERMIT BUFFER FOR USER.
14311  M01S10411.pfm67   ---|
14312  M01S10412.pfm67   ---| CCP3     LDM    FCRI,P2     SET PERMIT INDEX
Line S00013 Modification History
M01 (Added by) pfm67
Seq #  *Modification Id* Act 
----------------------------+
14313  M01S00013.pfm67   +++|          LDM    FCRI,P2     SET PERMIT INDEX
14314  M00S10413.pfm     +++|          STD    RI
14315  M00S10414.pfm     +++|          LDM    FCRI+1,P2
14316  M00S10415.pfm     +++|          STD    RI+1
14317  M00S10416.pfm     +++|          ADD    RI
14318  M00S10417.pfm     +++|          NJN    CCP4        IF PERMIT INDEX PRESENT
Line S10418 Modification History
M01 (Removed by) pfm67
Seq #  *Modification Id* Act 
----------------------------+
14319  M01S10418.pfm67   ---|          LJM    *           IF NO PERMIT INDEX, RETURN
14320  M01S10419.pfm67   ---| CCPA     EQU    *-1
14321  M01S10420.pfm67   ---|*         LJM    CCPX        (PRIVATE FILE)
14322  M01S10421.pfm67   ---|*         LJM    CCP12       (SEMI-PRIVATE FILE)
Line S00014 Modification History
M01 (Added by) pfm67
Seq #  *Modification Id* Act 
----------------------------+
14323  M01S00014.pfm67   +++|          LDM    FCCT,P2     CHECK FILE CATEGORY
14324  M01S00015.pfm67   +++|          SHN    -6
14325  M01S00016.pfm67   +++|          LMN    FCPR
14326  M01S00017.pfm67   +++|          ZJN    CCPX        IF PRIVATE FILE
14327  M01S00018.pfm67   +++|          LJM    CCP12       CHECK PERMISSION MODE IN PFC
14328  M00S10422.pfm     +++|
Line S10423 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
14329  M01S10423.ns2415  ---| CCP4     AOM    SHBD        ADVANCE CATALOG SEARCH PAUSE COUNT
14330  M01S10424.ns2415  ---|          LDN    IPPA        PF INCREMENT FOR PERMIT FILE ACCESS
Line S00128 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
14331  M01S00128.ns2415  +++| CCP4     LDN    IPPA        PF INCREMENT FOR PERMIT FILE ACCESS
Line S10425 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14332  M01S10425.242l642 ---|          RAM    DPPF
Line S01212 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14333  M01S01212.242l642 +++|          RAM    AIPF+1
14334  M00S10426.pfm     +++|          LDD    T6          SAVE POSITION OF CATALOGS
14335  M00S10427.pfm     +++|          STD    ST
14336  M00S10428.pfm     +++|          LDD    T7
14337  M00S10429.pfm     +++|          STD    SS
14338  M00S10430.pfm     +++|          LDD    P2
14339  M00S10431.pfm     +++| CCP5     RJM    CSA         COMPUTE SECTOR ADDRESS
Line S10432 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14340  M01S10432.242l642 ---|          SETMS  READ
Line S01213 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14341  M01S01213.242l642 +++|          SETMS  IO
14342  M01S01214.242l642 +++|          RJM    PDV         PROCESS DEVICE STATUS
14343  M00S10433.pfm     +++|          LDC    BUFB        READ PERMIT BUFFER
14344  M00S10434.pfm     +++|          RJM    RDS
14345  M00S10435.pfm     +++|          PJN    CCP6        IF NO ERROR
Line S10436 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14346  M01S10436.242l642 ---|          LDN    0           TERMINATE SEARCH
14347  M01S10437.242l642 ---|          UJN    CCP8        SET TERMINATED SEARCH STATUS
Line S01215 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14348  M01S01215.242l642 +++|          RJM    MSR         PROCESS READ ERROR
14349  M00S10438.pfm     +++|
14350  M00S10439.pfm     +++| CCP6     LDM    BUFB        CHECK CONTROL BYTES
14351  M00S10440.pfm     +++|          ZJN    CCP8        IF TERMINATING SEARCH
14352  M00S10441.pfm     +++|          LDM    BUFB+1
Line S10442 Modification History
M01 (Removed by) ns2649
Seq #  *Modification Id* Act 
----------------------------+
14353  M01S10442.ns2649  ---|          ZJN    CCP8        IF EMPTY SECTOR
Line S00021 Modification History
M01 (Added by) ns2649
Seq #  *Modification Id* Act 
----------------------------+
14354  M01S00021.ns2649  +++|          SBN    NWPH+NWPE
14355  M01S00022.ns2649  +++|          MJN    CCP6.0      IF INCORRECT SECTOR LENGTH
Line S10443 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
14356  M01S10443.ns2415  ---|          LDD    CP          SET USER NAME FOR SEARCH
Line S00129 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
14357  M01S00129.ns2415  +++|          LPN    NWPE-1
14358  M01S00130.ns2415  +++|          ERRNZ  NWPH-NWPE   HEADER SIZE MUST EQUAL ENTRY SIZE
14359  M01S00131.ns2415  +++|          ZJN    CCP6.1      IF INTEGRAL NUMBER OF PERMIT ENTRIES
Line S00132 Modification History
M01 (Added by) ns2415
M02 (Removed by) ns2649
Seq #  *Modification Id* Act 
----------------------------+
14360  M02S00132.ns2649  ---|          ERROR  BCS,,IW,T5,,EI  *EQXXX,DNYY,BAD CATALOG/PERMIT SECTOR*
Line S00023 Modification History
M01 (Added by) ns2649
Seq #  *Modification Id* Act 
----------------------------+
14361  M01S00023.ns2649  +++| CCP6.0   ERROR  BCS,,IW,T5,,EI  *EQXXX,DNYY,BAD CATALOG/PERMIT SECTOR*
Line S00133 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
14362  M01S00133.ns2415  +++|
14363  M01S00134.ns2415  +++| CCP6.1   LDD    CP          SET USER NAME FOR SEARCH
14364  M00S10444.pfm     +++|          ADN    UIDW
14365  M00S10445.pfm     +++|          CRD    CM
14366  M00S10446.pfm     +++|          RJM    SPB         SEARCH PERMIT BUFFER
14367  M00S10447.pfm     +++|          NJN    CCP8        IF PERMIT FOUND
14368  M00S10448.pfm     +++| CCP7     LDM    BUFB+FPRI   CHECK FOR PERMIT LINK
14369  M00S10449.pfm     +++|          STD    RI
14370  M00S10450.pfm     +++|          LDM    BUFB+FPRI+1
14371  M00S10451.pfm     +++|          STD    RI+1
14372  M00S10452.pfm     +++|          ADD    RI
Line S10453 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14373  M01S10453.242l642 ---|          NJN    CCP5        IF PERMIT BUFFERS CONTINUE
Line S01216 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14374  M01S01216.242l642 +++|          NJP    CCP5        IF MORE PERMITS TO CHECK
14375  M00S10454.pfm     +++| CCP8     STD    P3          SAVE SEARCH STATUS
14376  M00S10455.pfm     +++|          ZJN    CCP9        IF TERMINATING PERMIT SEARCH
14377  M00S10456.pfm     +++|          LDM    FPMD,T2     CHECK PERMIT TYPE
14378  M00S10457.pfm     +++|          SHN    21-4
14379  M00S10458.pfm     +++|          MJN    CCP7        IF ACCOUNTING PERMIT
14380  M00S10459.pfm     +++|          SHN    4-4-21+4    SET PERMIT MODE
14381  M00S10460.pfm     +++|          LPN    17
14382  M00S10461.pfm     +++|          STD    T1
14383  M00S10462.pfm     +++|          LDM    FCAM,P2
14384  M00S10463.pfm     +++|          SCN    77
14385  M00S10464.pfm     +++|          ADD    T1
14386  M00S10465.pfm     +++|          STM    FCAM,P2
14387  M00S10466.pfm     +++| CCP9     LDD    ST          RESET SEARCH ADDRESS
14388  M00S10467.pfm     +++|          STD    T6
14389  M00S10468.pfm     +++|          LDD    SS
14390  M00S10469.pfm     +++|          STD    T7
Line S10470 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14391  M01S10470.242l642 ---|          SETMS  READ
Line S01217 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
14392  M02S01217.ns2645  ---|          SETMS  IO
Line S00017 Modification History
M01 (Added by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
14393  M01S00017.ns2645  +++|          SETMS  READSTR
Line S01218 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14394  M01S01218.242l642 +++|          RJM    PDV         PROCESS DEVICE STATUS
Line S10471 Modification History
M01 (Removed by) pfm67
Seq #  *Modification Id* Act 
----------------------------+
14395  M01S10471.pfm67   ---|          LDD    P3          PROCESS CATALOG ENTRY
14396  M01S10472.pfm67   ---|          LJM    *           CHECK PERMISSION MODE
14397  M01S10473.pfm67   ---| CCPB     EQU    *-1
14398  M01S10474.pfm67   ---|*         LJM    CCP11       (PRIVATE FILE)
14399  M01S10475.pfm67   ---|*         LJM    CCP12       (SEMI-PRIVATE FILE)
Line S00019 Modification History
M01 (Added by) pfm67
Seq #  *Modification Id* Act 
----------------------------+
14400  M01S00019.pfm67   +++|          LDD    P3
14401  M01S00020.pfm67   +++|          NJN    CCP9.1      IF PERMIT ENTRY FOUND
14402  M01S00021.pfm67   +++|          LDM    FCCT,P2     CHECK FILE CATEGORY
14403  M01S00022.pfm67   +++|          SHN    -6
14404  M01S00023.pfm67   +++|          LMN    FCPR
14405  M01S00024.pfm67   +++|          ZJP    CCPX        IF PRIVATE FILE
14406  M01S00025.pfm67   +++| CCP9.1   LJM    CCP12       CHECK PERMISSION MODE IN PERMIT OR PFC
14407  M00S10476.pfm     +++| DFS      SPACE  4,15
14408  M00S10477.pfm     +++|**        DFS - DETERMINE FILE SIZE.
14409  M00S10478.pfm     +++|*
14410  M00S10479.pfm     +++|*         ENTRY  (P2) = ADDRESS OF CATALOG ENTRY.
14411  M00S10480.pfm     +++|*                (EQ) = MASTER DEVICE EST ORDINAL.
14412  M00S10481.pfm     +++|*
14413  M00S10482.pfm     +++|*         EXIT   LENGTH OF FILE SET IN CATALOG ENTRY.
14414  M00S10483.pfm     +++|*
Line S10484 Modification History
M01 (Removed by) pfm74
Seq #  *Modification Id* Act 
----------------------------+
14415  M01S10484.pfm74   ---|*         USES   T1-T7, CM - CM+4.
Line S00001 Modification History
M01 (Added by) pfm74
Seq #  *Modification Id* Act 
----------------------------+
14416  M01S00001.pfm74   +++|*         USES   P3, SS, ST, CM - CM+4, T1 - T7.
14417  M00S10485.pfm     +++|*
Line S10486 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14418  M01S10486.242l642 ---|*         CALLS  CTA, SDN, SEI.
Line S01219 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14419  M01S01219.242l642 +++|*         CALLS  CTA, PDV, SDN, SEI.
14420  M00S10487.pfm     +++|*
14421  M00S10488.pfm     +++|*         MACROS ENDMS, SETMS.
14422  M00S10489.pfm     +++|
14423  M00S10490.pfm     +++|
14424  M00S10491.pfm     +++| DFS2     ADD    T2
14425  M00S10492.pfm     +++|          ZJN    DFS3        IF ZERO LENGTH
14426  M00S10493.pfm     +++| DFS2.1   SOM    FCLF+1,P2   DISCOUNT EOI
14427  M00S10494.pfm     +++|          PJN    DFS3        IF NO OVERFLOW
14428  M00S10495.pfm     +++|          AOM    FCLF+1,P2
14429  M00S10496.pfm     +++|          SOM    FCLF,P2
14430  M00S10497.pfm     +++| DFS3     LDD    ST          RESTORE CATALOG TRACK/SECTOR/EQ
14431  M00S10498.pfm     +++|          STD    T6
14432  M00S10499.pfm     +++|          LDD    SS
14433  M00S10500.pfm     +++|          STD    T7
14434  M00S10501.pfm     +++|          LDD    T5
14435  M00S10502.pfm     +++|          LMD    EQ
14436  M00S10503.pfm     +++|          ZJN    DFSX        IF SAME DEVICE
14437  M00S10504.pfm     +++|          LDD    EQ          RESET MASTER DEVICE DRIVER
14438  M00S10505.pfm     +++|          STD    T5
Line S10506 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14439  M01S10506.242l642 ---|          SETMS  READ
Line S01220 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
14440  M02S01220.ns2645  ---|          SETMS  IO
Line S00018 Modification History
M01 (Added by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
14441  M01S00018.ns2645  +++|          SETMS  READSTR
Line S01221 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14442  M01S01221.242l642 +++|          RJM    PDV         PROCESS DEVICE STATUS
14443  M00S10507.pfm     +++|
14444  M00S10508.pfm     +++| DFS      SUBR               ENTRY/EXIT
14445  M00S10509.pfm     +++|          LDD    T6          SAVE CATALOG TRACK
14446  M00S10510.pfm     +++|          STD    ST
14447  M00S10511.pfm     +++|          LDD    T7          SAVE CATALOG SECTOR
14448  M00S10512.pfm     +++|          STD    SS
14449  M00S10513.pfm     +++|          LDM    FCLF,P2     CHECK LENGTH IN CATALOG
14450  M00S10514.pfm     +++|          ADM    FCLF+1,P2
Line S10515 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14451  M01S10515.242l642 ---|          NJN    DFS2.1      IF LENGTH ALREADY AVAILABLE
Line S01222 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14452  M01S01222.242l642 +++|          NJP    DFS2.1      IF FILE LENGTH ALREADY AVAILABLE
14453  M00S10516.pfm     +++|          ENDMS
Line S10517 Modification History
M01 (Removed by) pfm74
Seq #  *Modification Id* Act 
----------------------------+
14454  M01S10517.pfm74   ---|          LDM    FCDN,P2
Line S00002 Modification History
M01 (Added by) pfm74
Seq #  *Modification Id* Act 
----------------------------+
14455  M01S00002.pfm74   +++|          LDM    FCDN,P2     GET DEVICE NUMBER
14456  M00S10518.pfm     +++|          LPN    77
Line S00003 Modification History
M01 (Added by) pfm74
Seq #  *Modification Id* Act 
----------------------------+
14457  M01S00003.pfm74   +++|          STD    P3
14458  M00S10519.pfm     +++|          ZJN    DFS1        IF DA FILE ON MASTER DEVICE
14459  M00S10520.pfm     +++|          STD    CM
14460  M00S10521.pfm     +++|          LDM    PFPN+4
14461  M00S10522.pfm     +++|          RJM    SDN         SEARCH FOR DEVICE NUMBER
14462  M00S10523.pfm     +++|          PJN    DFS1        IF DEVICE FOUND
14463  M00S10524.pfm     +++|          LJM    DFS3        RETURN LENGTH OF ZERO
14464  M00S10525.pfm     +++|
14465  M00S10526.pfm     +++| DFS1     AOM    RBSA        ADVANCE DA FILE COUNT
Line S10527 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14466  M01S10527.242l642 ---|          SETMS  READ
Line S01223 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14467  M01S01223.242l642 +++|          SETMS  STATUS
14468  M00S10528.pfm     +++|          LDD    CM+4        SET TRT ADDRESS
14469  M00S10529.pfm     +++|          SHN    3
14470  M00S10530.pfm     +++|          ADN    TRLL
14471  M00S10531.pfm     +++|          RJM    CTA         CALCULATE FWA OF TRT
14472  M00S10532.pfm     +++|          SBD    TH
14473  M00S10533.pfm     +++|          STM    SEIA+1
14474  M00S10534.pfm     +++|          SHN    -14
14475  M00S10535.pfm     +++|          LMC    ADCI
14476  M00S10536.pfm     +++|          STM    SEIA
14477  M00S10537.pfm     +++|          LDM    FCBT,P2     SET FIRST TRACK OF FILE
14478  M00S10538.pfm     +++|          STD    T6
Line S10539 Modification History
M01 (Removed by) pfm74
Seq #  *Modification Id* Act 
----------------------------+
14479  M01S10539.pfm74   ---|          LDN    0           REQUEST TRT UPDATE
14480  M01S10540.pfm74   ---|          RJM    SEI         SET FILE LENGTH IN CATALOG ENTRY
Line S00004 Modification History
M01 (Added by) pfm74
Seq #  *Modification Id* Act 
----------------------------+
14481  M01S00004.pfm74   +++|          LDM    DFSA,P3     REQUEST TRT UPDATE IF FIRST FILE ON DEVICE
14482  M01S00005.pfm74   +++|          RJM    SEI         GET FILE LENGTH
14483  M01S00006.pfm74   +++|          AOM    DFSA,P3     PREVENT TRT UPDATE ON SUBSEQUENT FILES
14484  M00S10541.pfm     +++|          LDD    T2
14485  M00S10542.pfm     +++|          STM    FCLF,P2
14486  M00S10543.pfm     +++|          LDD    T3
14487  M00S10544.pfm     +++|          STM    FCLF+1,P2
14488  M00S10545.pfm     +++|          LJM    DFS2        DISCOUNT EOI
Line S00007 Modification History
M01 (Added by) pfm74
Seq #  *Modification Id* Act 
----------------------------+
14489  M01S00007.pfm74   +++|
14490  M01S00008.pfm74   +++|
14491  M01S00009.pfm74   +++| DFSA     BSSZ   100B        TRT UPDATE FLAGS FOR EACH DEVICE IN FAMILY
14492  M00S10546.pfm     +++| SPB      SPACE  4,10
14493  M00S10547.pfm     +++|**        SPB - SEARCH PERMIT BUFFER.
14494  M00S10548.pfm     +++|*
14495  M00S10549.pfm     +++|*         ENTRY  PERMIT BUFFER LOADED TO *BUFB*
Line S10550 Modification History
M01 (Removed by) pfm43
Seq #  *Modification Id* Act 
----------------------------+
14496  M01S10550.pfm43   ---|*                (CM - CM+4) = 42/USER NAME,18/USER INDEX FOR SEARCH.
Proceed to Part 10
cdc/nos2.source/opl.opl871/deck/pfm.009.txt ยท Last modified: by 127.0.0.1