User Tools

Site Tools


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

Deck PFM Part 002

95 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
02064  M01S00018.ns2729  +++|          LMN    SRMA&SRFA
Line S00019 Modification History
M01 (Added by) ns2729
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02065  M02S00019.ns2776  ---|          NJN    CCA1        IF NOT *MA* SPECIAL REQUEST
Line S00020 Modification History
M01 (Added by) ns2729
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02066  M02S00020.ns2776  ---|          LJM    CCA4        BYPASS CATALOG TRACK INTERLOCK CHECK
02067  M01S00031.ns2776  +++|          ZJN    CCA2.1      IF *MA* SPECIAL REQUEST
02068  M01S01445.pfm     +++|
02069  M01S01446.pfm     +++|*         CHECK CATALOG TRACK INTERLOCK AVAILABILITY.
02070  M01S01447.pfm     +++|
02071  M01S01448.pfm     +++| CCA1     LDD    CC          CHECK FOR *ASSIGNPF*
02072  M01S01449.pfm     +++|          LMN    CCAN
02073  M01S01450.pfm     +++|          ZJN    CCA2        IF INTERLOCK NOT NEEDED
02074  M01S01451.pfm     +++|          LMN    CCCT&CCAN   CHECK FOR *CATLIST*
02075  M01S01452.pfm     +++|          ZJN    CCA2        IF INTERLOCK NOT NEEDED
02076  M01S01453.pfm     +++|          LMN    CCDP&CCCT   CHECK FOR *DELPFC*
02077  M01S00024.253l688 +++|          ZJN    CCA2        IF INTERLOCK NOT NEEDED
02078  M01S00025.253l688 +++|          LMN    CCSP&CCDP   CHECK FOR *STAGEPF*
Line S01454 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02079  M02S01454.pfm52   ---| CCA2     ZJN    CCA4        IF INTERLOCK NOT NEEDED
02080  M01S00005.pfm52   +++| CCA2     ZJP    CCA6        IF INTERLOCK NOT NEEDED
02081  M01S01455.pfm     +++|          RJM    DTS         DETERMINE TRACK INTERLOCK STATUS
Line S01456 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02082  M02S01456.pfm52   ---|          MJP    CCA6        IF CATALOG TRACK ALREADY INTERLOCKED
Line S01457 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02083  M02S01457.pfm52   ---|          LDD    T5          EST ORDINAL
Line S00006 Modification History
M01 (Added by) pfm52
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02084  M02S00006.253l688 ---|          PJN    CCA4        IF CATALOG TRACK NOT ALREADY INTERLOCKED
02085  M01S00026.253l688 +++|          PJN    CCA3.1      IF CATALOG TRACK NOT ALREADY INTERLOCKED
02086  M01S00007.pfm52   +++|
02087  M01S00008.pfm52   +++|*         PROCESS CATALOG TRACK ALREADY INTERLOCKED.  IF THE CALLER
Line S00009 Modification History
M01 (Added by) pfm52
M02 (Updated by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
02088  M02S00009.ns2599  ---|*         IS A SUBSYSTEM WITH EP/UP SET, CONTINUE TO PROCESS REQUEST.
Line S00010 Modification History
M01 (Added by) pfm52
M02 (Updated by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
02089  M02S00010.ns2599  ---|*         OTHERWISE, RECALL *PFM* IMMEDIATELY.
02090  M01S00015.ns2599  +++|*         HAS EP/IP SET, OR IF CALLER IS A SUBSYSTEM WITH EP/UP SET,
02091  M01S00016.ns2599  +++|*         CONTINUE TO PROCESS REQUEST.  OTHERWISE, RECALL *PFM*
02092  M01S00017.ns2599  +++|*         IMMEDIATELY.
02093  M01S00011.pfm52   +++|
Line S00012 Modification History
M01 (Added by) pfm52
M02 (Updated by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
02094  M02S00012.ns2599  ---|          LDM    PRSD        CHECK ERROR PROCESSING OPTION
Line S00013 Modification History
M01 (Added by) pfm52
M02 (Updated by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
02095  M02S00013.ns2599  ---|          LMN    3
02096  M01S00018.ns2599  +++|          LDM    EPOP        CHECK ERROR PROCESSING OPTIONS
02097  M01S00019.ns2599  +++|          LPN    5
02098  M01S00020.ns2599  +++|          LMN    5
Line S00021 Modification History
M01 (Added by) ns2599
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02099  M02S00021.ns2776  ---|          ZJN    CCA4        IF *EP* AND *IP* SET
02100  M01S00032.ns2776  +++| CCA2.1   ZJN    CCA4        IF *EP* AND *IP* SET
02101  M01S00022.ns2599  +++|          LDM    EPOP        CHECK ERROR PROCESSING OPTION
02102  M01S00023.ns2599  +++|          LPN    14
02103  M01S00024.ns2599  +++|          LMN    14
Line S00014 Modification History
M01 (Added by) pfm52
M02 (Updated by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
02104  M02S00014.ns2729  ---|          NJN    CCA3        IF EITHER EP OR UP IS NOT SET
02105  M01S00021.ns2729  +++|          NJN    CCA3        IF EITHER *EP* OR *UP* IS NOT SET
02106  M01S00015.pfm52   +++|          LDM    SSID
02107  M01S00016.pfm52   +++|          NJN    CCA4        IF SUBSYSTEM
02108  M01S00017.pfm52   +++| CCA3     LDK    /ERRMSG/INA * INTERLOCK NOT AVAILABLE*
02109  M01S00018.pfm52   +++|          LJM    RCL         RECALL PFM
02110  M01S00027.253l688 +++|
02111  M01S00028.253l688 +++|*         CHECK DEVICE ACCESSIBILITY.
02112  M01S00029.253l688 +++|
02113  M01S00030.253l688 +++| CCA3.1   NJN    CCA4        IF NOT INACCESSIBLE DEVICE
02114  M01S00031.253l688 +++|          ERROR  WID,CH,IW,T5,EC6
02115  M01S00019.pfm52   +++|
02116  M01S00020.pfm52   +++|*         INCREMENT PF ACTIVITY.
02117  M01S00021.pfm52   +++|
02118  M01S00022.pfm52   +++| CCA4     LDD    T5          EST ORDINAL
02119  M01S01458.pfm     +++|          STD    CM+1
02120  M01S01459.pfm     +++|          LDN    IPAS        INCREMENT PF ACTIVITY
02121  M01S01460.pfm     +++|          STD    CM+3
02122  M01S01461.pfm     +++|          MONITOR  STBM
02123  M01S01462.pfm     +++|          LDD    CM+1
Line S01463 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02124  M02S01463.pfm52   ---|          ZJN    CCA3        IF ACTIVITY INCREMENTED
02125  M01S00023.pfm52   +++|          ZJN    CCA5        IF ACTIVITY INCREMENTED
02126  M01S01464.pfm     +++|          LDM    MSTA        CHECK MST
02127  M01S01465.pfm     +++|          SHN    3
02128  M01S01466.pfm     +++|          ADK    TDGL
02129  M01S01467.pfm     +++|          CRD    CM
02130  M01S01468.pfm     +++|          LDD    CM+1
02131  M01S01469.pfm     +++|          SHN    21-6
Line S01470 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02132  M02S01470.ns2776  ---|          MJP    CCA10       IF PF UTILITY INTERLOCK SET
02133  M01S00033.ns2776  +++|          MJN    CCA4.1      IF PF UTILITY INTERLOCK SET
02134  M01S01471.pfm     +++|          EXIT   PEA,CH,IW,,EC4  * PFM EXCESS ACTIVITY.*
02135  M01S00034.ns2776  +++|
02136  M01S00035.ns2776  +++|*         PROCESS PF UTILITY INTERLOCK SET.
02137  M01S00036.ns2776  +++|
02138  M01S00037.ns2776  +++| CCA4.1   LDN    PFUE        SET EVENT FOR ROLLOUT
02139  M01S00038.ns2776  +++|          STM    ERRC
02140  M01S00039.ns2776  +++|          LDC    UIRT        SET USER INTERLOCK ROLLOUT TIME
02141  M01S00040.ns2776  +++|          STM    ERRD
02142  M01S00041.ns2776  +++|          EXIT   PFA,CH,IW,,EC2  * PF UTILITY ACTIVE.*
02143  M01S01472.pfm     +++|
Line S01473 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02144  M02S01473.pfm52   ---| CCA3     LDD    T5          SET EST ORDINAL FOR PF ACTIVITY INCREMENT
02145  M01S00024.pfm52   +++| CCA5     LDD    T5          SET EST ORDINAL FOR PF ACTIVITY INCREMENT
Line S01474 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02146  M02S01474.242l642 ---|          STM    DPPG
02147  M01S00190.242l642 +++|          STM    EPFA
Line S01475 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02148  M02S01475.pfm52   ---| CCA4     SFA    EST,T5
02149  M01S00025.pfm52   +++|
02150  M01S00026.pfm52   +++|*         CHECK FOR ERROR IDLE.
02151  M01S00027.pfm52   +++|
02152  M01S00028.pfm52   +++| CCA6     SFA    EST,T5
02153  M01S01476.pfm     +++|          ADK    EQDE
02154  M01S01477.pfm     +++|          CRD    CM
02155  M01S01478.pfm     +++|          LDD    CC
02156  M01S01479.pfm     +++|          LMN    CCUA
Line S01480 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02157  M02S01480.pfm52   ---|          ZJN    CCA5        IF *UATTACH*, IGNORE ERROR IDLE
02158  M01S00029.pfm52   +++|          ZJN    CCA7        IF *UATTACH*, IGNORE ERROR IDLE
02159  M01S01481.pfm     +++|          LMN    CCUG&CCUA
Line S01482 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02160  M02S01482.pfm52   ---|          ZJN    CCA5        IF *UGET*, IGNORE ERROR IDLE
02161  M01S00030.pfm52   +++|          ZJN    CCA7        IF *UGET*, IGNORE ERROR IDLE
02162  M01S01483.pfm     +++|          LDD    CM+4        CHECK FOR ERROR IDLE
02163  M01S01484.pfm     +++|          SHN    3
02164  M01S01485.pfm     +++|          ADN    ACGL
02165  M01S01486.pfm     +++|          CRD    CM
02166  M01S01487.pfm     +++|          LDD    CM+4
02167  M01S01488.pfm     +++|          LPN    20
02168  M01S01489.pfm     +++|          NJN    CCA8        IF ERROR IDLE
Line S01490 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02169  M02S01490.pfm52   ---| CCA5     LJM    CCAX        RETURN
Line S01491 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02170  M02S01491.pfm52   ---|
Line S01492 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2426
M03 (Updated by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02171  M03S01492.pfm52   ---| CCA6     EXIT   INA,CH,IW,,EC4  * INTERLOCK NOT AVAILABLE.*
Line S00009 Modification History
M01 (Added by) ns2426
M02 (Updated by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02172  M02S00009.pfm52   ---| CCA6     LDM    PRSD        CHECK ERROR PROCESSING OPTION
Line S00010 Modification History
M01 (Added by) ns2426
M02 (Updated by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02173  M02S00010.pfm52   ---|          LMN    3
Line S00011 Modification History
M01 (Added by) ns2426
M02 (Updated by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02174  M02S00011.pfm52   ---|          NJN    CCA7        IF EITHER EP OR UP IS NOT SET
Line S00012 Modification History
M01 (Added by) ns2426
M02 (Updated by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02175  M02S00012.pfm52   ---|          LDM    SSID
Line S00013 Modification History
M01 (Added by) ns2426
M02 (Updated by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02176  M02S00013.pfm52   ---|          ZJN    CCA7        IF NOT SUBSYSTEM
Line S00014 Modification History
M01 (Added by) ns2426
M02 (Updated by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02177  M02S00014.pfm52   ---|          EXIT   INA,CH,IW,,EC4  * INTERLOCK NOT AVAILABLE.*
Line S00015 Modification History
M01 (Added by) ns2426
M02 (Updated by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02178  M02S00015.pfm52   ---|
Line S00016 Modification History
M01 (Added by) ns2426
M02 (Updated by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02179  M02S00016.pfm52   ---| CCA7     LDK    /ERRMSG/INA * INTERLOCK NOT AVAILABLE*
Line S00017 Modification History
M01 (Added by) ns2426
M02 (Updated by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02180  M02S00017.pfm52   ---|          LJM    RCL         RECALL PFM
Line S01493 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02181  M02S01493.pfm52   ---|
Line S01494 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02182  M02S01494.pfm52   ---|*         PROCESS ERROR IDLE.
02183  M01S00031.pfm52   +++| CCA7     LJM    CCAX        RETURN
02184  M01S01495.pfm     +++|
02185  M01S01496.pfm     +++| CCA8     LDM    SSJS
02186  M01S01497.pfm     +++|          ZJN    CCA9        IF NOT *SSJ=* JOB
02187  M01S01498.pfm     +++|          LDM    PFSR
02188  M01S01499.pfm     +++|          LPN    77
02189  M01S01500.pfm     +++|          LMN    SRIE
Line S01501 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02190  M02S01501.pfm52   ---|          ZJN    CCA5        IF *IGNORE ERROR IDLE* SPECIAL REQUEST
02191  M01S00032.pfm52   +++|          ZJN    CCA7        IF *IGNORE ERROR IDLE* SPECIAL REQUEST
02192  M01S01502.pfm     +++|          LDN    VSNE/10000  SET EVENT TYPE
02193  M01S01503.pfm     +++| CCA9     ERROR  PFN,CH,IW   * DEVICE UNAVAILABLE.*
Line S01504 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02194  M02S01504.ns2776  ---|
Line S01505 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm52
M03 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02195  M03S01505.ns2776  ---|*         ROLL OR RECALL THE JOB UNTIL THE UTILITY INTERLOCK IS CLEAR.
Line S00033 Modification History
M01 (Added by) pfm52
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02196  M02S00033.ns2776  ---|*         PROCESS PF UTILITY INTERLOCK SET.
Line S01506 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02197  M02S01506.ns2776  ---|
Line S01507 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02198  M02S01507.ns2776  ---| CCA10    LDN    PFUE        SET EVENT FOR ROLLOUT
Line S01508 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02199  M02S01508.ns2776  ---|          STM    ERRC
Line S01509 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02200  M02S01509.ns2776  ---|          LDC    UIRT        SET USER INTERLOCK ROLLOUT TIME
Line S01510 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02201  M02S01510.ns2776  ---|          STM    ERRD
Line S01511 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02202  M02S01511.ns2776  ---|          EXIT   PFA,CH,IW,,EC2  * PF UTILITY ACTIVE.*
02203  M01S01512.pfm     +++| CRF      SPACE  4,15
02204  M01S01513.pfm     +++|**        CRF - CALL *0RF*.
02205  M01S01514.pfm     +++|*
02206  M01S01515.pfm     +++|*         ENTRY  (EQ) = REMOVABLE DEVICE EST ORDINAL.
02207  M01S01516.pfm     +++|*                     = 0, IF DEVICE UNAVAILABLE.
02208  M01S01517.pfm     +++|*                (FN - FN+4) = PACK NAME, IF DEVICE UNAVAILABLE.
02209  M01S01518.pfm     +++|*
Line S01519 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2362
Seq #  *Modification Id* Act 
----------------------------+
02210  M02S01519.ns2362  ---|*         EXIT   *0RF* CALLED TO RETURN RESOURCE.
Line S01520 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2362
Seq #  *Modification Id* Act 
----------------------------+
02211  M02S01520.ns2362  ---|*
Line S01521 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2358
M03 (Updated by) ns2362
Seq #  *Modification Id* Act 
----------------------------+
02212  M03S01521.ns2362  ---|*         USES   CM - CM+4.
Line S00004 Modification History
M01 (Added by) ns2358
M02 (Updated by) ns2362
Seq #  *Modification Id* Act 
----------------------------+
02213  M02S00004.ns2362  ---|*         USES   FS - FS+1.
Line S01522 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2362
Seq #  *Modification Id* Act 
----------------------------+
02214  M02S01522.ns2362  ---|*
Line S01523 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2362
Seq #  *Modification Id* Act 
----------------------------+
02215  M02S01523.ns2362  ---|*         CALLS  *0RF*.
Line S01524 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2362
Seq #  *Modification Id* Act 
----------------------------+
02216  M02S01524.ns2362  ---|*
Line S01525 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2362
Seq #  *Modification Id* Act 
----------------------------+
02217  M02S01525.ns2362  ---|*         MACROS EXECUTE.
02218  M01S00001.ns2362  +++|*         EXIT   (FA) = 0.
02219  M01S00002.ns2362  +++|*
02220  M01S00003.ns2362  +++|*         USES   FS - FS+4.
02221  M01S00004.ns2362  +++|*
02222  M01S00005.ns2362  +++|*         CALLS  PES, *0RF*.
02223  M01S00006.ns2362  +++|*
02224  M01S00007.ns2362  +++|*         MACROS EXECUTE, NFA.
02225  M01S01526.pfm     +++|
02226  M01S01527.pfm     +++|
02227  M01S01528.pfm     +++| CRF      SUBR               ENTRY/EXIT
02228  M01S01529.pfm     +++|          LDM    STAT        CHECK *RESEX* STATUS
02229  M01S01530.pfm     +++|          LPN    STRX
Line S01531 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2362
Seq #  *Modification Id* Act 
----------------------------+
02230  M02S01531.ns2362  ---|          ZJN    CRFX        IF *RESEX* NOT ACTIVATED
02231  M01S00008.ns2362  +++|          ZJN    CRF2        IF *RESEX* NOT ACTIVATED
02232  M01S00009.ns2362  +++|          LDK    RFCN+FSTL
02233  M01S00010.ns2362  +++|          STD    FA          SET FNT POINTER
02234  M01S00011.ns2362  +++|          NFA    FA,R
02235  M01S00012.ns2362  +++|          ADN    FSTL        FETCH RESOURCE FILE STATUS
02236  M01S00013.ns2362  +++|          CRD    FS
02237  M01S00014.ns2362  +++|          LDD    FS+1        CHECK ERROR ON PREVIOUS UPDATE
02238  M01S00015.ns2362  +++|          SCN    1
02239  M01S00016.ns2362  +++|          NJN    CRF1        IF PROCESSING ERROR
Line S01532 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
02240  M02S01532.ns2358  ---|          LDD    CP          SET RESOURCE FILE RANDOM INDEX
Line S01533 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
02241  M02S01533.ns2358  ---|          ADN    RFCW
Line S01534 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
02242  M02S01534.ns2358  ---|          CRD    CM
Line S01535 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
02243  M02S01535.ns2358  ---|          LDD    CM+4
Line S01536 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
02244  M02S01536.ns2358  ---|          STM    LOCF-2
Line S01537 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
02245  M02S01537.ns2358  ---|          LDD    CM+3
Line S01538 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
02246  M02S01538.ns2358  ---|          LPN    77
Line S01539 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
02247  M02S01539.ns2358  ---|          LMC    1100        SET *0RF* PARAMETERS
Line S01540 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
02248  M02S01540.ns2358  ---|          STM    LOCF-3
Line S01541 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
02249  M02S01541.ns2358  ---|          LDD    EQ          SET EST ORDINAL
Line S01542 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
02250  M02S01542.ns2358  ---|          STM    LOCF-1
02251  M01S00005.ns2358  +++|          LDD    EQ
02252  M01S00006.ns2358  +++|          STD    FS          SET EST ORDINAL
02253  M01S00007.ns2358  +++|          LDN    5
02254  M01S00008.ns2358  +++|          STD    FS+1        SET *0RF* OPTION
Line S00009 Modification History
M01 (Added by) ns2358
M02 (Updated by) ns2362
Seq #  *Modification Id* Act 
----------------------------+
02255  M02S00009.ns2362  ---|          LDN    1
02256  M01S00017.ns2362  +++| CRF1     LDN    1
02257  M01S00010.ns2358  +++|          STM    LOCF-1      SET RESOURCE UPDATE CONTROL
02258  M01S01543.pfm     +++|          EXECUTE  0RF,LOCF
Line S01544 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2362
Seq #  *Modification Id* Act 
----------------------------+
02259  M02S01544.ns2362  ---|          UJN    CRFX        RETURN
02260  M01S00018.ns2362  +++|          LPC    1S17        CLEAR FNT POINTER
02261  M01S00019.ns2362  +++| CRF2     STD    FA
02262  M01S00020.ns2362  +++|          PJN    CRF3        IF RESOURCE FILE UPDATED
02263  M01S00021.ns2362  +++|          RJM    PES         PROCESS ERROR STATUS
02264  M01S00022.ns2362  +++| CRF3     LJM    CRFX        RETURN
02265  M01S01545.pfm     +++| CRR      SPACE  4,10
02266  M01S01546.pfm     +++|**        CRR - CHECK AUXILIARY DEVICE REQUEST.
02267  M01S01547.pfm     +++|*
02268  M01S01548.pfm     +++|*         ENTRY  (T5) = EST ORDINAL OF DEVICE TO BE ACCESSED.
02269  M01S01549.pfm     +++|*
02270  M01S01550.pfm     +++|*         EXIT   (A) = 0 IF FIRST ACCESS TO PACK.
02271  M01S01551.pfm     +++|*
Line S01552 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm53
Seq #  *Modification Id* Act 
----------------------------+
02272  M02S01552.pfm53   ---|*         USES   CM - CM+4, FN - FN+4.
02273  M01S00001.pfm53   +++|*         USES   T1, T2, CM - CM+4, FN - FN+4.
02274  M01S01553.pfm     +++|
02275  M01S01554.pfm     +++|
Line S01555 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm53
Seq #  *Modification Id* Act 
----------------------------+
02276  M02S01555.pfm53   ---| CRR2     LCN    1           INDICATE EQUIPMENT ASSIGNED
02277  M01S00002.pfm53   +++| CRR3     LCN    1           INDICATE EQUIPMENT ASSIGNED
02278  M01S01556.pfm     +++|
02279  M01S01557.pfm     +++| CRR      SUBR               ENTRY/EXIT
02280  M01S01558.pfm     +++|
02281  M01S01559.pfm     +++|*         SEARCH FNT FOR ANOTHER FILE ASSIGNED TO DEVICE.
02282  M01S01560.pfm     +++|
02283  M01S01561.pfm     +++|          LDD    CP          SET NFL SIZE
02284  M01S01562.pfm     +++|          ADN    FLSW
02285  M01S01563.pfm     +++|          CRD    FN
02286  M01S01564.pfm     +++|          LDD    FN
02287  M01S01565.pfm     +++|          SHN    6
02288  M01S01566.pfm     +++|          ADN    1
Line S01567 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm53
Seq #  *Modification Id* Act 
----------------------------+
02289  M02S01567.pfm53   ---|          STD    FN
02290  M01S00003.pfm53   +++|          STD    T1
02291  M01S01568.pfm     +++|          LDC    FNTN        SET FIRST FNT ENTRY ADDRESS
Line S01569 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm53
Seq #  *Modification Id* Act 
----------------------------+
02292  M02S01569.pfm53   ---|          STD    FN+1
Line S01570 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm53
Seq #  *Modification Id* Act 
----------------------------+
02293  M02S01570.pfm53   ---| CRR1     NFA    FN+1,R
Line S01571 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm53
Seq #  *Modification Id* Act 
----------------------------+
02294  M02S01571.pfm53   ---|          ADN    FSTL
02295  M01S00004.pfm53   +++|          STD    T2
02296  M01S00005.pfm53   +++| CRR1     NFA    T2,R
02297  M01S00006.pfm53   +++|          ADK    FNTL
02298  M01S00007.pfm53   +++|          CRD    FN
02299  M01S00008.pfm53   +++|          ADN    FSTL-FNTL
02300  M01S01572.pfm     +++|          CRD    CM
02301  M01S01573.pfm     +++|          LDD    CM          CHECK EQUIPMENT ASSIGNMENT
02302  M01S01574.pfm     +++|          LMD    T5
Line S01575 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm53
Seq #  *Modification Id* Act 
----------------------------+
02303  M02S01575.pfm53   ---|          ZJN    CRR2        IF MATCH ON EST ORDINAL
Line S01576 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm53
Seq #  *Modification Id* Act 
----------------------------+
02304  M02S01576.pfm53   ---|          LDN    LENF        ADVANCE FNT ADDRESS
Line S01577 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm53
Seq #  *Modification Id* Act 
----------------------------+
02305  M02S01577.pfm53   ---|          RAD    FN+1
Line S01578 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm53
Seq #  *Modification Id* Act 
----------------------------+
02306  M02S01578.pfm53   ---|          SBD    FN
02307  M01S00009.pfm53   +++|          NJN    CRR2        IF NO MATCH ON EST ORDINAL
02308  M01S00010.pfm53   +++|          LDD    FN+4        CHECK FILE TYPE
02309  M01S00011.pfm53   +++|          SHN    -6
02310  M01S00012.pfm53   +++|          LMN    PMFT
02311  M01S00013.pfm53   +++|          ZJN    CRR3        IF *PMFT* FILE ON CORRECT EQUIPMENT
02312  M01S00014.pfm53   +++| CRR2     LDN    LENF        ADVANCE FNT ADDRESS
02313  M01S00015.pfm53   +++|          RAD    T2
02314  M01S00016.pfm53   +++|          SBD    T1
02315  M01S01579.pfm     +++|          MJN    CRR1        IF NOT END OF NFL
02316  M01S01580.pfm     +++|          LDN    0
02317  M01S01581.pfm     +++|          UJN    CRRX
02318  M01S01582.pfm     +++| CRX      SPACE  4,30
02319  M01S01583.pfm     +++|**        CRX - CHECK *CPUPFM*/*RESEX* RETURN STATUS.
02320  M01S01584.pfm     +++|*
02321  M01S01585.pfm     +++|*         ENTRY  (CP) = CP ADDRESS.
02322  M01S01586.pfm     +++|*
02323  M01S01587.pfm     +++|*         EXIT   (A) = (CM+2) = RETURN STATUS.
02324  M01S01588.pfm     +++|*T,       3/ PI,9/ RS
Figure

08911 RS PI

02325  M01S01589.pfm     +++|*                PI = PROCESSOR INDEX (0 = *RESEX*,  1 = *CPUPFM*).
02326  M01S01590.pfm     +++|*                RS = RETURN STATUS.
02327  M01S00191.242l642 +++|*                (CM - CM+4) = CP WORD *SPCW*.
02328  M01S01591.pfm     +++|*
02329  M01S01592.pfm     +++|*         *RESEX* RETURN STATUS -
02330  M01S01593.pfm     +++|*T,       3/ 0,3/ ST,2/ 0,1/ P,1/ O,1/ E,1/ C
Figure

01234568911 C E O P 0 ST 0

02331  M01S01594.pfm     +++|*                ST = ERROR CODE.
02332  M01S01595.pfm     +++|*                            0 = *RESEX* FAILURE - SYSTEM ERROR.
02333  M01S01596.pfm     +++|*                            1 = INCORRECT DEVICE REQUEST.
02334  M01S01597.pfm     +++|*                            2 = UNRECOGNIZED EQUIPMENT TYPE.
02335  M01S01598.pfm     +++|*                            3 = INCORRECT USER REQUEST.
02336  M01S01599.pfm     +++|*
02337  M01S01600.pfm     +++|*                P = 0 IF PACK AVAILABLE.
02338  M01S01601.pfm     +++|*                E = 1 IF ERROR.
02339  M01S01602.pfm     +++|*                O = 1 IF ASSIGNMENT WILL OVERCOMMIT.
02340  M01S01603.pfm     +++|*                C = 1 IF OPERATION ALLOWED.
02341  M01S01604.pfm     +++|*
02342  M01S01605.pfm     +++|*                TO *ERR* IF *RESEX* ERROR STATUS DETECTED.
02343  M01S01606.pfm     +++|*
02344  M01S01607.pfm     +++|*         *CPUPFM* RETURN STATUS -
02345  M01S01608.pfm     +++|*T,       3/ 1,9/ EC
Figure

08911 EC 1

02346  M01S01609.pfm     +++|*                EC = *PFM* ERROR CODE.
02347  M01S01610.pfm     +++|*                EC = 0 IF NORMAL COMPLETION.
02348  M01S01611.pfm     +++|
02349  M01S01612.pfm     +++|
02350  M01S01613.pfm     +++| CRX2     LDN    0           SET *CPUPFM*/*RESEX* NOT ACTIVATED
02351  M01S01614.pfm     +++|
02352  M01S01615.pfm     +++| CRX      SUBR
02353  M01S01616.pfm     +++|          LDD    CP          READ RETURN STATUS
02354  M01S01617.pfm     +++|          ADC    SPCW
02355  M01S01618.pfm     +++|          CRD    CM
02356  M01S01619.pfm     +++|          LDD    CM
02357  M01S01620.pfm     +++|          NJN    CRX2        IF *DMP=* PROGRAM IN PROGRESS
02358  M01S01621.pfm     +++|          LDD    CM+2        CHECK RETURN STATUS
02359  M01S01622.pfm     +++|          ZJN    CRX2        IF *DMP=* PROGRAM NOT ACTIVATED
02360  M01S01623.pfm     +++|          SHN    -11
02361  M01S01624.pfm     +++|          NJN    CRX1        IF NOT *RESEX*
02362  M01S01625.pfm     +++|          LDD    CM+2
02363  M01S01626.pfm     +++|          LPN    /STATUS/FE  CHECK RESEX STATUS
02364  M01S01627.pfm     +++|          ZJN    CRX1        IF NOT FATAL ERROR
02365  M01S01628.pfm     +++|          ERROR  NEM,CH,IW   ABORT WITH NO MESSAGE
02366  M01S01629.pfm     +++|
02367  M01S01630.pfm     +++| CRX1     LDM    STAT        SET *CPUPFM*/*RESEX* ACTIVATED STATUS
02368  M01S01631.pfm     +++|          SCN    STRX
02369  M01S01632.pfm     +++|          LMN    STRX
02370  M01S01633.pfm     +++|          STM    STAT
02371  M01S01634.pfm     +++|          LDD    CM+2        SET RETURN STATUS
02372  M01S01635.pfm     +++|          UJN    CRXX        RETURN
02373  M01S01636.pfm     +++| CUN      SPACE  4,15
02374  M01S01637.pfm     +++|**        CUN - COMPARE USER NAMES.
02375  M01S01638.pfm     +++|*
02376  M01S01639.pfm     +++|*         ENTRY  (PFOU) = USER NAME SPECIFIED IN FET.
02377  M01S01640.pfm     +++|*                (PFAC) = USER NAME OF CALLING JOB.
02378  M01S01641.pfm     +++|*
02379  M01S01642.pfm     +++|*         EXIT   (A) = 0 IF USER NAMES MATCH.
02380  M01S01643.pfm     +++|*                (A) .NE. 0 IF USER NAMES DO NOT MATCH.
02381  M01S01644.pfm     +++|*
02382  M01S01645.pfm     +++|*         USES   T1, T2, CM - CM+4.
02383  M01S01646.pfm     +++|*
02384  M01S01647.pfm     +++|*         CALLS  SFN.
02385  M01S01648.pfm     +++|
02386  M01S01649.pfm     +++|
02387  M01S01650.pfm     +++| CUN      SUBR               ENTRY/EXIT
02388  M01S01651.pfm     +++|          LDC    PFOU        SET USER NAME
02389  M01S01652.pfm     +++|          RJM    SFN
02390  M01S01653.pfm     +++|          LDD    MA          TRANSFER USER NAME
02391  M01S01654.pfm     +++|          CWM    PFAC,ON
02392  M01S01655.pfm     +++|          SBN    1
02393  M01S01656.pfm     +++|          CRD    CM
02394  M01S01657.pfm     +++|          LDD    CM+3        CLEAR LOWER CHARACTER OF USER NAME
02395  M01S01658.pfm     +++|          SCN    77
02396  M01S01659.pfm     +++|          STD    CM+3
02397  M01S01660.pfm     +++|          LDN    0           INITIALIZE COUNT
02398  M01S01661.pfm     +++|          STD    T1
02399  M01S01662.pfm     +++|
02400  M01S01663.pfm     +++|*         COMPARE USER NAMES ALLOWING A (*) IN (CM) TO MATCH ANY
02401  M01S01664.pfm     +++|*         CORRESPONDING CHARACTER IN THE USER NAME IN (FN).
02402  M01S01665.pfm     +++|
02403  M01S01666.pfm     +++| CUN1     AOD    T1          TEST FOR END OF LOOP
02404  M01S01667.pfm     +++|          LMN    5
02405  M01S01668.pfm     +++|          ZJN    CUNX        IF USER NAMES MATCH
02406  M01S01669.pfm     +++|          LDM    CM-1,T1     USER NAME OF THE REQUESTOR JOB
02407  M01S01670.pfm     +++|          STD    T2
02408  M01S01671.pfm     +++|          LMC    2R**
02409  M01S01672.pfm     +++|          ZJN    CUN1        IF (**), SKIP CHARACTER COMPARE
02410  M01S01673.pfm     +++|          SCN    77
02411  M01S01674.pfm     +++|          ZJN    CUN3        IF UPPER CHARACTER = (*)
02412  M01S01675.pfm     +++|          LDD    T2          COMPARE UPPER CHARACTER
02413  M01S01676.pfm     +++|          LMM    FN-1,T1
02414  M01S01677.pfm     +++|          SCN    77
02415  M01S01678.pfm     +++| CUN2     NJN    CUNX        IF USER NAME DOES NOT MATCH
02416  M01S01679.pfm     +++|          LDD    T2          CHECK LOWER CHARACTER FOR (*)
02417  M01S01680.pfm     +++|          LMN    1R*
02418  M01S01681.pfm     +++|          LPN    77
02419  M01S01682.pfm     +++|          ZJN    CUN1        IF LOWER CHARACTER = (*)
02420  M01S01683.pfm     +++| CUN3     LDD    T2          COMPARE LOWER CHARACTER
02421  M01S01684.pfm     +++|          LMM    FN-1,T1
02422  M01S01685.pfm     +++|          LPN    77
02423  M01S01686.pfm     +++|          ZJN    CUN1        IF LOWER CHARACTER MATCHES
02424  M01S01687.pfm     +++|          UJN    CUN2        RETURN, USER NAMES DO NOT MATCH
Line S01688 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02425  M02S01688.242l642 ---| FIF      SPACE  4,20
02426  M01S00192.242l642 +++| FIF      SPACE  4,10
02427  M01S01689.pfm     +++|**        FIF - FIND INTERLOCK FILES.
02428  M01S01690.pfm     +++|*
Line S01691 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02429  M02S01691.242l642 ---|*         ENTRY  (P1) = *CPUPFM* ERROR CODE, IF ANY.
Line S01692 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02430  M02S01692.242l642 ---|*
Line S01693 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02431  M02S01693.242l642 ---|*         EXIT   (EQ) = MASTER DEVICE EST ORDINAL.
Line S01694 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02432  M02S01694.242l642 ---|*                (FNTB - FNTD) = FNT ADDRESSES, IF FILES PRESENT.
Line S01695 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02433  M02S01695.242l642 ---|*                TO *ERR*, IF /PFM*ILK/ NOT PRESENT AND ERROR CODE SET.
02434  M01S00193.242l642 +++|*         EXIT   (FNTB, FNTC, FNTD) = FNT ADDRESSES, IF FILES PRESENT.
02435  M01S01696.pfm     +++|*
Line S01697 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02436  M02S01697.242l642 ---|*         USES   EQ, FS - FS+4.
Line S01698 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02437  M02S01698.242l642 ---|*
02438  M01S01699.pfm     +++|*         CALLS  SAF, SFN.
Line S01700 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02439  M02S01700.242l642 ---|*
Line S01701 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02440  M02S01701.242l642 ---|*         MACROS ERROR, NFA.
02441  M01S01702.pfm     +++|
02442  M01S01703.pfm     +++|
02443  M01S01704.pfm     +++| FIF      SUBR               ENTRY/EXIT
02444  M01S01705.pfm     +++|          LDC    FIFA        SEARCH FOR /PFM*ILK/
02445  M01S01706.pfm     +++|          RJM    SFN
02446  M01S01707.pfm     +++|          RJM    SAF
Line S01708 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02447  M02S01708.242l642 ---|          NJN    FIF1        IF FILE FOUND
Line S01709 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02448  M02S01709.242l642 ---|          LDD    P1
Line S01710 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02449  M02S01710.242l642 ---|          ZJN    FIF2        IF NO ERROR CODE SET
Line S01711 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02450  M02S01711.242l642 ---|          ERROR  FNF,CH,IW   *FILE NOT FOUND.*
Line S01712 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02451  M02S01712.242l642 ---|
Line S01713 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02452  M02S01713.242l642 ---| FIF1     LDD    FA          SAVE FNT ADDRESS
02453  M01S00194.242l642 +++|          ZJN    FIF2        IF NOT FOUND
02454  M01S00195.242l642 +++|          LDD    FA          SAVE FNT ADDRESS
02455  M01S01714.pfm     +++|          STM    FNTC
Line S01715 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02456  M02S01715.242l642 ---|          NFA    FA,R        READ FST
Line S01716 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02457  M02S01716.242l642 ---|          ADN    FSTL
Line S01717 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02458  M02S01717.242l642 ---|          CRD    FS
Line S01718 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02459  M02S01718.242l642 ---|          LDD    FS          SET MASTER DEVICE EST ORDINAL
Line S01719 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02460  M02S01719.242l642 ---|          STD    EQ
02461  M01S01720.pfm     +++| FIF2     LDC    FIFB        SEARCH FOR /PFM*PFN/
02462  M01S01721.pfm     +++|          RJM    SFN
02463  M01S01722.pfm     +++|          RJM    SAF
02464  M01S01723.pfm     +++|          ZJN    FIF3        IF NOT FOUND
02465  M01S01724.pfm     +++|          LDD    FA          SAVE FNT ADDRESS
02466  M01S01725.pfm     +++|          STM    FNTB
Line S01726 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02467  M02S01726.242l642 ---|
02468  M01S01727.pfm     +++| FIF3     LDC    FIFC        SEARCH FOR /PFM*APF/
02469  M01S01728.pfm     +++|          RJM    SFN
02470  M01S01729.pfm     +++|          RJM    SAF
02471  M01S01730.pfm     +++|          ZJN    FIF4        IF NOT FOUND
02472  M01S01731.pfm     +++|          LDD    FA          SAVE FNT ADDRESS
02473  M01S01732.pfm     +++|          STM    FNTD
02474  M01S01733.pfm     +++| FIF4     UJP    FIFX        RETURN
02475  M01S01734.pfm     +++|
02476  M01S01735.pfm     +++|
02477  M01S01736.pfm     +++| FIFA     VFD    60/7L"ILK"
02478  M01S01737.pfm     +++| FIFB     VFD    60/7L"PFN"
02479  M01S01738.pfm     +++| FIFC     VFD    60/7L"APF"
02480  M01S01739.pfm     +++| FMS      SPACE  4,15
02481  M01S01740.pfm     +++|**        FMS - FORM MASK FOR FILE RESIDENCE CHECK.
02482  M01S01741.pfm     +++|*
02483  M01S01742.pfm     +++|*         ENTRY  (UI - UI+1) = USER INDEX.
02484  M01S01743.pfm     +++|*                (JORG) = JOB ORIGIN.
02485  M01S01744.pfm     +++|*
02486  M01S01745.pfm     +++|*         EXIT   (FRSM) = MASK FOR FILE RESIDENCE CHECK.
02487  M01S01746.pfm     +++|
02488  M01S01747.pfm     +++|
02489  M01S01748.pfm     +++| FMS      SUBR               ENTRY/EXIT
02490  M01S01749.pfm     +++|          LDD    UI+1        FORM MASK FOR ACCESS CHECK
02491  M01S01750.pfm     +++|          LPN    7
02492  M01S01751.pfm     +++|          LMC    SHNI
02493  M01S01752.pfm     +++|          STM    FMSA
02494  M01S01753.pfm     +++|          LDN    1           POSITION MASK
02495  M01S01754.pfm     +++| FMSA     PSN    0
02496  M01S01755.pfm     +++|*         SHN    N           N = SHIFT COUNT TO POSITION MASK
02497  M01S01756.pfm     +++|          STM    FRSM        SAVE MASK
02498  M01S01757.pfm     +++|          LDD    UI          CHECK FOR SPECIAL USER INDEX
02499  M01S01758.pfm     +++|          SHN    14
02500  M01S01759.pfm     +++|          LMD    UI+1
02501  M01S01760.pfm     +++|          ADC    -AUIMX
02502  M01S01761.pfm     +++|          MJN    FMS1        IF NOT SPECIAL USER INDEX
02503  M01S01762.pfm     +++|          LDC    4000        SET SPECIAL USER INDEX
02504  M01S01763.pfm     +++|          RAM    FRSM
02505  M01S01764.pfm     +++| FMS1     LDM    JORG        CHECK JOB ORIGIN
02506  M01S01765.pfm     +++|          LMK    SYOT
02507  M01S01766.pfm     +++|          NJN    FMS2        IF NOT SYSTEM ORIGIN
02508  M01S01767.pfm     +++|          LDM    SSJS
02509  M01S01768.pfm     +++|          ZJN    FMS2        IF NOT SSJ= PROCESS
02510  M01S01769.pfm     +++|          LDC    2000        SET *LIFT* FILE ALLOWED FOR DEFINE
02511  M01S01770.pfm     +++|          RAM    FRSM
02512  M01S01771.pfm     +++| FMS2     LJM    FMSX        RETURN
02513  M01S00196.242l642 +++| GCA      SPACE  4,20
02514  M01S00197.242l642 +++|**        GCA - GET CATALOG ADDRESS.
02515  M01S00198.242l642 +++|*
02516  M01S00199.242l642 +++|*         ENTRY  (A) = ADDRESS OF PERMANENT FILE DEVICE DESCRIPTION.
02517  M01S00200.242l642 +++|*                (UI - UI+1) = USER INDEX.
02518  M01S00201.242l642 +++|*                (FERT) = REAL-TIME PROCESSING FLAG.
02519  M01S00202.242l642 +++|*                (SSYS) = SUBSYSTEM FLAG.
02520  M01S00203.242l642 +++|*
02521  M01S00204.242l642 +++|*         EXIT   (A) = ADDRESS OF MST/10B IF DEVICE FOUND.
02522  M01S00205.242l642 +++|*                (A) .LT. 0 IF CATALOG NOT AVAILABLE.
02523  M01S00206.242l642 +++|*                (T5) = EST ORDINAL.
02524  M01S00207.242l642 +++|*                (T6) = CATALOG TRACK.
02525  M01S00208.242l642 +++|*
02526  M01S00209.242l642 +++|*                TO *ERR* IF CATALOG NOT AVAILABLE AT THIS TIME
02527  M01S00210.242l642 +++|*                AND CALLER HAS REAL-TIME PROCESSING SET IN FET
02528  M01S00211.242l642 +++|*                OR IS NOT A SUBSYSTEM.
02529  M01S00212.242l642 +++|*
02530  M01S00213.242l642 +++|*         CALLS  SCA.
02531  M01S00214.242l642 +++|*
02532  M01S00215.242l642 +++|*         MACROS ERROR.
02533  M01S00216.242l642 +++|
02534  M01S00217.242l642 +++|
02535  M01S00218.242l642 +++| GCA2     LCN    0           RETURN WITH (A) .LT. 0
02536  M01S00219.242l642 +++|
02537  M01S00220.242l642 +++| GCA      SUBR               ENTRY/EXIT
02538  M01S00221.242l642 +++|          RJM    SCA         SET CATALOG ADDRESS
02539  M01S00222.242l642 +++|          PJN    GCAX        IF DEVICE AVAILABLE
02540  M01S00223.242l642 +++|          ADN    1
02541  M01S00224.242l642 +++|          NJN    GCA2        IF DEVICE NOT FOUND
02542  M01S00225.242l642 +++|          LDM    FERT
02543  M01S00226.242l642 +++|          NJN    GCA1        IF REAL-TIME PROCESSING SELECTED
02544  M01S00227.242l642 +++|          LDM    SSYS
02545  M01S00228.242l642 +++|          NJN    GCA2        IF SUBSYSTEM
02546  M01S00229.242l642 +++| GCA1     ERROR  WID,CH,IW,T5,EC6  * WAITING - INACCESSIBLE DEVICE.*
Line S01772 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02547  M02S01772.242l642 ---| POA      SPACE  4,15
02548  M01S00230.242l642 +++| POA      SPACE  4,25
02549  M01S01773.pfm     +++|**        POA - PROCESS OPTIONAL USER NAME.
02550  M01S01774.pfm     +++|*
02551  M01S01775.pfm     +++|*         ENTRY  (CC) = COMMAND CODE
02552  M01S01776.pfm     +++|*                (UI - UI+1) = CALLING USER INDEX.
02553  M01S00231.242l642 +++|*                (FERT) = REAL-TIME PROCESSING FLAG.
02554  M01S00232.242l642 +++|*                (RDCT) = DRIVER STATUS.
02555  M01S00233.242l642 +++|*                (SSYS) = SUBSYSTEM FLAG.
02556  M01S01777.pfm     +++|*
02557  M01S01778.pfm     +++|*         EXIT   (A) .LT. 0 IF INCORRECT REQUEST.
02558  M01S01779.pfm     +++|*                (UI - UI+1) = USER INDEX OF CATALOG TO BE ACCESSED.
02559  M01S01780.pfm     +++|*                (PI - PI+1) = USER INDEX OF OPTIONAL USER.
02560  M01S01781.pfm     +++|*                (PFUC) = USER CONTROLS.
02561  M01S01782.pfm     +++|*
Line S01783 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02562  M02S01783.242l642 ---|*         ERROR  TO *DPP* IF USER NAME NOT VALID ON *CATLIST* REQUEST
02563  M01S00234.242l642 +++|*         ERROR  (STAU) = *STDP* BIT SET TO DROP PP.
Line S00235 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
02564  M02S00235.ns2414  ---|*                TO *3PT* IF USER NAME NOT VALID ON *CATLIST* REQUEST
02565  M01S00007.ns2414  +++|*                TO *3PU* IF USER NAME NOT VALID ON *CATLIST* REQUEST
02566  M01S01784.pfm     +++|*                AND NO FILE NAME WAS SPECIFIED.
02567  M01S00236.242l642 +++|*
02568  M01S00237.242l642 +++|*                TO *ERR* IF UNRECOVERABLE ERROR ON VALIDUS FILE
02569  M01S00238.242l642 +++|*                OR DEVICE INACCESSIBLE.
02570  M01S01785.pfm     +++|*
Line S01786 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02571  M02S01786.242l642 ---|*         CALLS  *0AV*, SFN, SLT, SFA, SPN.
Line S01787 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02572  M02S01787.242l642 ---|*
02573  M01S01788.pfm     +++|*         USES   FN+3, FN+4, T4, T6, T7, CM - CM+4, CN - CN+4.
02574  M01S00239.242l642 +++|*
Line S00240 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02575  M02S00240.ns2426  ---|*         CALLS  SFA, SFN, SLT, SPN, *0AV*.
02576  M01S00018.ns2426  +++|*         CALLS  CPN, SFA, SFN, SLT, SPN, *0AV*.
02577  M01S01789.pfm     +++|*
Line S01790 Modification History
M01 (Added by) pfm
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02578  M02S01790.271l750 ---|*         MACROS ERROR, EXECUTE, SFA.
02579  M01S00003.271l750 +++|*         MACROS ERROR, EXECUTE, NFA, SFA.
02580  M01S01791.pfm     +++|
02581  M01S01792.pfm     +++|
02582  M01S01793.pfm     +++| POA14    LCN    1           SET INCORRECT REQUEST
02583  M01S01794.pfm     +++|
02584  M01S01795.pfm     +++| POA      SUBR               ENTRY/EXIT
02585  M01S01796.pfm     +++|          LDN    0
02586  M01S01797.pfm     +++|          STD    PI          CLEAR OPTIONAL USER INDEX
02587  M01S01798.pfm     +++|          STD    PI+1
02588  M01S01799.pfm     +++|          LDD    CC
02589  M01S01800.pfm     +++|          LMN    CCPM
Line S01801 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm23
Seq #  *Modification Id* Act 
----------------------------+
02590  M02S01801.pfm23   ---|          ZJN    POA2        IF *PERMIT* REQUEST
02591  M01S00001.pfm23   +++|          ZJN    POAX        IF *PERMIT* REQUEST
02592  M01S01802.pfm     +++|          LDM    PFOU        OPTIONAL USER
Line S01803 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02593  M02S01803.ns2776  ---|          ZJN    POAX        IF NO OPTIONAL USER NAME
02594  M01S00042.ns2776  +++| POA0     ZJN    POAX        IF NO OPTIONAL USER NAME
02595  M01S01804.pfm     +++|          LMM    PFAC        JOB USER NAME
02596  M01S01805.pfm     +++|          NJN    POA2        IF USER NAMES DO NOT MATCH
02597  M01S01806.pfm     +++|          LDM    PFOU+1
02598  M01S01807.pfm     +++|          LMM    PFAC+1
02599  M01S01808.pfm     +++|          NJN    POA2        IF USER NAMES DO NOT MATCH
02600  M01S01809.pfm     +++|          LDM    PFOU+2
02601  M01S01810.pfm     +++|          LMM    PFAC+2
02602  M01S01811.pfm     +++|          NJN    POA2        IF USER NAMES DO NOT MATCH
02603  M01S01812.pfm     +++|          LDM    PFOU+3
02604  M01S01813.pfm     +++|          LMM    PFAC+3
02605  M01S01814.pfm     +++|          SHN    -6
02606  M01S01815.pfm     +++|          NJN    POA2        IF USER NAMES DO NOT MATCH
02607  M01S01816.pfm     +++|          STM    PFOU        CLEAR OPTIONAL USER NAME
Line S01817 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02608  M02S01817.ns2776  ---| POA1     LJM    POAX        RETURN
02609  M01S00043.ns2776  +++| POA1     UJN    POA0        RETURN
02610  M01S01818.pfm     +++|
Line S01819 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02611  M02S01819.253l688 ---| POA2     LDM    TCTL,CC     CHECK FOR SPECIAL REQUEST
Line S01820 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02612  M02S01820.253l688 ---|          SHN    21-12
Line S01821 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02613  M02S01821.253l688 ---|          PJN    POA3        IF NOT SPECIAL REQUEST
Line S01822 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02614  M02S01822.253l688 ---|          LDN    0
02615  M01S00032.253l688 +++| POA2     LDM    PFRB        CHECK FOR SPECIAL REQUEST BLOCK
02616  M01S00033.253l688 +++|          LPN    37
02617  M01S00034.253l688 +++|          ADM    PFRB+1
02618  M01S00035.253l688 +++|          ZJN    POA3        IF NO SPECIAL REQUEST BLOCK
02619  M01S00036.253l688 +++| POA2.1   LDN    0           IGNORE OPTIONAL USER NAME
02620  M01S01823.pfm     +++|          UJN    POA1        RETURN
02621  M01S01824.pfm     +++|
Line S01825 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02622  M02S01825.253l688 ---| POA3     LDD    CP          CHECK FOR *SSJ=* PROGRAM
Line S01826 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02623  M02S01826.253l688 ---|          ADC    SEPW
Line S01827 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02624  M02S01827.253l688 ---|          CRD    CM
Line S01828 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02625  M02S01828.253l688 ---|          LDD    CM
Line S01829 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02626  M02S01829.253l688 ---|          SHN    21-2
Line S01830 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02627  M02S01830.253l688 ---|          PJN    POA4        IF NOT *SSJ=*
02628  M01S00037.253l688 +++| POA3     LDM    TCTL,CC     CHECK ALTERNATE CATALOG ACCESS LEGAL
02629  M01S00038.253l688 +++|          SHN    21-0
02630  M01S00039.253l688 +++|          PJN    POA3.1      IF ALTERNATE CATALOG ACCESS VALID
02631  M01S00040.253l688 +++|          SHN    21-12-21+0+22
02632  M01S00041.253l688 +++|          MJN    POA2.1      IF SRB-TYPE FUNCTION WITH NO SRB
02633  M01S00042.253l688 +++|          AOM    POAC        INDICATE NONVALID ALTERNATE CATALOG ACCESS
02634  M01S00043.253l688 +++| POA3.1   LDM    SSJS
02635  M01S00044.253l688 +++|          ZJN    POA4        IF NOT *SSJ=*
02636  M01S01831.pfm     +++|          LDM    JORG        CHECK JOB ORIGIN
02637  M01S01832.pfm     +++|          LMK    SYOT
02638  M01S01833.pfm     +++|          ZJN    POA6        IF SYSTEM ORIGIN
Line S01834 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02639  M02S01834.253l688 ---| POA4     LDM    TCTL,CC     CHECK ALTERNATE CATALOG ACCESS LEGAL
Line S01835 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02640  M02S01835.253l688 ---|          SHN    21-0
Line S01836 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02641  M02S01836.253l688 ---|          MJN    POA1        IF ALTERNATE CATALOG ACCESS NOT VALID
02642  M01S00045.253l688 +++| POA4     LDN    0
02643  M01S00046.253l688 +++|*         LDN    1           (ALTERNATE CATALOG ACCESS NOT VALID)
02644  M01S00047.253l688 +++| POAC     EQU    *-1
02645  M01S00048.253l688 +++|          NJN    POA4.1      IF ALTERNATE CATALOG ACCESS NOT ALLOWED
02646  M01S01837.pfm     +++|          LDD    CC
02647  M01S01838.pfm     +++|          LMN    CCCT
02648  M01S01839.pfm     +++|          NJN    POA6        IF NOT *CATLIST* REQUEST
02649  M01S01840.pfm     +++|          LDM    PFFN+4
02650  M01S01841.pfm     +++|          ZJN    POA6        IF NOT PERMIT LIST
02651  M01S01842.pfm     +++|          LDM    PFFN
02652  M01S01843.pfm     +++|          NJN    POA5        IF FILE NAME SPECIFIED
Line S01844 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02653  M02S01844.253l688 ---|          LJM    POA14       RETURN INCORRECT REQUEST STATUS
02654  M01S00049.253l688 +++| POA4.1   LJM    POA14       RETURN INCORRECT REQUEST STATUS
02655  M01S01845.pfm     +++|
02656  M01S01846.pfm     +++| POA5     LDN    2           SET TO BYPASS PRESET OF USER INDEX
Line S01847 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02657  M02S01847.253l688 ---|          STM    TCTL,CC
02658  M01S00050.253l688 +++|          RAM    TCTL,CC
02659  M01S01848.pfm     +++|
Line S01849 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02660  M02S01849.ns2426  ---| POA6     SFA    EST,PFPN+4  SET FAMILY NAME
Line S00019 Modification History
M01 (Added by) ns2426
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02661  M02S00019.271l750 ---|*         CHECK USER NAME CACHE IN CPA.
02662  M01S00004.271l750 +++|*         CHECK USER NAME CACHE IN NFL/CPA.
02663  M01S00020.ns2426  +++|
02664  M01S00021.ns2426  +++| POA6     LDC    PFOU        SET USER NAME
02665  M01S00022.ns2426  +++|          RJM    SFN
02666  M01S00023.ns2426  +++|          LDD    CP          CHECK USER NAME CACHE IN CPA
02667  M01S00024.ns2426  +++|          ADK    PFCW
02668  M01S00025.ns2426  +++|          CRD    CN
Line S00026 Modification History
M01 (Added by) ns2426
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02669  M02S00026.271l750 ---|          ADK    PUCW-PFCW
02670  M01S00005.271l750 +++|          NFA    PUCN
02671  M01S00027.ns2426  +++|          CRD    CM
02672  M01S00028.ns2426  +++|          LDN    FN
02673  M01S00029.ns2426  +++|          RJM    CPN         COMPARE USER NAMES
02674  M01S00030.ns2426  +++|          NJN    POA6.0      IF NO MATCH
02675  M01S00031.ns2426  +++|          LDD    CM+4        SET USER INDEX
02676  M01S00032.ns2426  +++|          STD    T2
02677  M01S00033.ns2426  +++|          LDD    CM+3
02678  M01S00034.ns2426  +++|          LPN    37
02679  M01S00035.ns2426  +++|          STD    T1
02680  M01S00036.ns2426  +++|          LDD    CN+2        SET VALIDATIONS
02681  M01S00037.ns2426  +++|          STM    PFUC
02682  M01S00038.ns2426  +++|          LJM    POA7        CONTINUE
02683  M01S00039.ns2426  +++|
02684  M01S00040.ns2426  +++|*         CHECK COMMON LIBRARY TABLE IN CMR.
02685  M01S00041.ns2426  +++|
02686  M01S00042.ns2426  +++| POA6.0   SFA    EST,PFPN+4  SET FAMILY NAME
02687  M01S01850.pfm     +++|          ADK    EQDE
02688  M01S01851.pfm     +++|          CRD    CM
02689  M01S01852.pfm     +++|          LDD    CM+4        READ FAMILY NAME
02690  M01S01853.pfm     +++|          SHN    3
02691  M01S01854.pfm     +++|          ADN    PFGL
02692  M01S01855.pfm     +++|          CRD    CN
Line S01856 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02693  M02S01856.ns2426  ---|          LDC    PFOU        SET USER NAME
Line S01857 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02694  M02S01857.ns2426  ---|          RJM    SFN
02695  M01S01858.pfm     +++|          RJM    SLT         CHECK COMMON LIBRARY TABLE
02696  M01S01859.pfm     +++|          STM    POAA        SAVE SEARCH RESULT
Line S01860 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02697  M02S01860.242l642 ---|          ZJN    POA7        IF VALIDATION NOT REQUIRED
02698  M01S00241.242l642 +++|          ZJP    POA7        IF VALIDATION NOT REQUIRED
02699  M01S00043.ns2426  +++|
02700  M01S00044.ns2426  +++|*         CALL *0AV* TO VALIDATE USER.
02701  M01S00045.ns2426  +++|
02702  M01S01861.pfm     +++|          LDN    0           SET VALIDATION FUNCTION
02703  M01S01862.pfm     +++|          STD    FN+4
02704  M01S01863.pfm     +++|          EXECUTE 0AV,LOCF   VALIDATE USER NAME
Line S01864 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02705  M02S01864.242l642 ---|          LDM    AHFC*5,T3   SAVE USER LIMIT INDICES
02706  M01S00242.242l642 +++|          PJN    POA6.3      IF NO ERROR
02707  M01S00243.242l642 +++|          LDM    RDCT        DRIVER STATUS
02708  M01S00244.242l642 +++|          SHN    21-12
02709  M01S00245.242l642 +++|          MJN    POA6.2      IF UNRECOVERABLE ERROR
02710  M01S00246.242l642 +++|          LDM    SSYS
02711  M01S00247.242l642 +++|          ZJN    POA6.1      IF NOT A SUBSYSTEM
02712  M01S00248.242l642 +++|          LDM    FERT
02713  M01S00249.242l642 +++|          ZJN    POA6.2      IF REAL-TIME PROCESSING NOT SELECTED
02714  M01S00250.242l642 +++| POA6.1   ERROR  WID,CH,IW,T5,EC6  * WAITING - INACCESSIBLE DEVICE.*
02715  M01S00251.242l642 +++|
02716  M01S00252.242l642 +++| POA6.2   ERROR  MSE,CH,IW,T5  *EQXXX,DNYY, MASS STORAGE ERROR.*
02717  M01S00253.242l642 +++|
02718  M01S00046.ns2426  +++|*         CHECK FOR VALID USER NAME.
02719  M01S00047.ns2426  +++|
02720  M01S00254.242l642 +++| POA6.3   LDM    AHFC*5,T3   SAVE USER LIMIT INDICES
02721  M01S01865.pfm     +++|          STM    PFUC
02722  M01S01866.pfm     +++| POA7     LDD    T1
02723  M01S01867.pfm     +++|          STD    PI
02724  M01S01868.pfm     +++|          RAD    FN+3
02725  M01S01869.pfm     +++|          LPN    77          SAVE ONLY USER INDEX PORTION OF BYTE
02726  M01S01870.pfm     +++|          SHN    14
02727  M01S01871.pfm     +++|          ADD    T2
02728  M01S01872.pfm     +++|          STD    PI+1
02729  M01S01873.pfm     +++|          STD    FN+4
02730  M01S01874.pfm     +++|          ZJN    POA8        IF USER NAME NOT VALID
02731  M01S01875.pfm     +++|          LMC    IFUI
02732  M01S01876.pfm     +++|          ZJN    POA8        IF INDIRECT FLAW USER INDEX SPECIFIED
02733  M01S01877.pfm     +++|          LJM    POA10       PROCESS VALID USER NAME
02734  M01S01878.pfm     +++|
Line S01879 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02735  M02S01879.ns2426  ---|*         DETERMINE PROPER ERROR PROCEDURE.
02736  M01S00048.ns2426  +++|*         PROCESS NON-VALID USER NAME.
02737  M01S01880.pfm     +++|
02738  M01S01881.pfm     +++| POA8     LDD    CC          CHECK COMMAND CODE
Line S01882 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm23
Seq #  *Modification Id* Act 
----------------------------+
02739  M02S01882.pfm23   ---|          LMN    CCPM
Line S01883 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm23
Seq #  *Modification Id* Act 
----------------------------+
02740  M02S01883.pfm23   ---|          ZJN    POA10       IF PERMIT COMMAND
Line S01884 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm23
Seq #  *Modification Id* Act 
----------------------------+
02741  M02S01884.pfm23   ---|          LMN    CCCT&CCPM
02742  M01S00002.pfm23   +++|          LMN    CCCT
02743  M01S01885.pfm     +++|          NJN    POA9        IF NOT *CATLIST* REQUEST
02744  M01S01886.pfm     +++|          LDM    PFFN+4
02745  M01S01887.pfm     +++|          NJN    POA10       IF PERMIT CATLIST
02746  M01S01888.pfm     +++|          LDM    PFFN
02747  M01S01889.pfm     +++|          NJN    POA9        IF FILE NAME SPECIFIED
02748  M01S01890.pfm     +++|          RJM    SFA         SET EOI STATUS TO INDICATE EMPTY CATALOG
02749  M01S01891.pfm     +++|          CRD    CM
02750  M01S01892.pfm     +++|          LDD    CM+3
02751  M01S01893.pfm     +++|          SCN    77
02752  M01S01894.pfm     +++|          STD    CM+3
02753  M01S01895.pfm     +++|          LDD    CM+4
02754  M01S01896.pfm     +++|          LPN    2
02755  M01S01897.pfm     +++|          ADC    1031
02756  M01S01898.pfm     +++|          STD    CM+4
02757  M01S01899.pfm     +++|          RJM    SFA
02758  M01S01900.pfm     +++|          CWD    CM
Line S01901 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02759  M02S01901.242l642 ---|          LJM    DPP         EXIT
02760  M01S00255.242l642 +++|          LDK    STDP        SET *DROP PP* STATUS BIT
02761  M01S00256.242l642 +++|          RAM    STAU
Line S00257 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
02762  M02S00257.ns2414  ---|          EXECUTE  3PT       DROP PP
02763  M01S00008.ns2414  +++|          EXECUTE  3PU       DROP PP
02764  M01S01902.pfm     +++|
02765  M01S01903.pfm     +++| POA9     RJM    SPN         SET PERMANENT FILE NAME
02766  M01S01904.pfm     +++|          ERROR  FNF,CH,IW   *(FILENAME) NOT FOUND.*
02767  M01S01905.pfm     +++|
02768  M01S00049.ns2426  +++|*         PROCESS VALID USER NAME.
02769  M01S00050.ns2426  +++|
02770  M01S01906.pfm     +++| POA10    LDM    TCTL,CC
02771  M01S01907.pfm     +++|          LPN    2
02772  M01S01908.pfm     +++|          NJN    POA11       IF NOT ALTERNATE USER ACCESS
02773  M01S01909.pfm     +++|          LDD    PI          SET CATALOG TO BE ACCESSED
02774  M01S01910.pfm     +++|          STD    UI
02775  M01S01911.pfm     +++|          LDD    PI+1
02776  M01S01912.pfm     +++|          STD    UI+1
Line S01913 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02777  M02S01913.ns2426  ---| POA11    LDC    0
02778  M01S00051.ns2426  +++| POA11    LDC    7776
02779  M01S00052.ns2426  +++|*         LDC    7776        (NORMAL USER NAME - NOT IN CLT)
02780  M01S00053.ns2426  +++|*         LDC    0           (USER NAME AND VALIDATION INFO IN CLT)
02781  M01S00054.ns2426  +++|*         LDC    1           (USER NAME BUT NOT VALIDATION INFO IN CLT)
02782  M01S01914.pfm     +++| POAA     EQU    *-1
Line S01915 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02783  M02S01915.ns2426  ---|          ZJN    POA12       IF ALL INFORMATION IN TABLE
02784  M01S00055.ns2426  +++|          ZJN    POA12       IF ALL INFORMATION IN CLT
02785  M01S01916.pfm     +++|          SBN    1
Line S01917 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02786  M02S01917.ns2426  ---|          ZJN    POA13       IF VALIDATION INFORMATION NEEDED
02787  M01S00056.ns2426  +++|          ZJN    POA13       IF VALIDATION INFORMATION NEEDED IN CLT
02788  M01S00057.ns2426  +++|
Line S00058 Modification History
M01 (Added by) ns2426
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02789  M02S00058.271l750 ---|*         UPDATE USER NAME CACHE IN CPA.
02790  M01S00006.271l750 +++|*         UPDATE USER NAME CACHE IN NFL/CPA.
02791  M01S00059.ns2426  +++|
02792  M01S00060.ns2426  +++|          LDD    CP
02793  M01S00061.ns2426  +++|          ADK    PFCW
02794  M01S00062.ns2426  +++|          CRD    CN
02795  M01S00063.ns2426  +++|          LDM    PFUC        UPDATE USER VALIDATION INFORMATION
02796  M01S00064.ns2426  +++|          STM    CN+2
02797  M01S00065.ns2426  +++|          LDD    CP
02798  M01S00066.ns2426  +++|          ADK    PFCW
02799  M01S00067.ns2426  +++|          CWD    CN
Line S00068 Modification History
M01 (Added by) ns2426
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02800  M02S00068.271l750 ---|          ADK    PUCW-PFCW   SAVE USER NAME AND USER INDEX
02801  M01S00007.271l750 +++|          NFA    PUCN        SAVE USER NAME AND USER INDEX
02802  M01S00069.ns2426  +++|          CWD    FN
02803  M01S00008.271l750 +++|          LDN    0           SET RETURN STATUS
02804  M01S01918.pfm     +++| POA12    LJM    POAX        RETURN
02805  M01S00070.ns2426  +++|
02806  M01S00071.ns2426  +++|*         UPDATE COMMON LIBRARY TABLE ENTRY.
02807  M01S01919.pfm     +++|
Line S01920 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm70
Seq #  *Modification Id* Act 
----------------------------+
02808  M02S01920.pfm70   ---| POA13    LDC    0           GET ENTRY LOCATION
Line S01921 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm70
Seq #  *Modification Id* Act 
----------------------------+
02809  M02S01921.pfm70   ---| POAB     EQU    *-1
Line S01922 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm70
Seq #  *Modification Id* Act 
----------------------------+
02810  M02S01922.pfm70   ---|          STD    T4
Line S01923 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm70
Seq #  *Modification Id* Act 
----------------------------+
02811  M02S01923.pfm70   ---|          SFA    CLT         DETERMINE ADDRESS
Line S01924 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm70
Seq #  *Modification Id* Act 
----------------------------+
02812  M02S01924.pfm70   ---|          ADK    CLTU
Line S01925 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm70
Seq #  *Modification Id* Act 
----------------------------+
02813  M02S01925.pfm70   ---|          CWD    FN          WRITE USER INDEX IN TABLE
Line S01926 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm70
Seq #  *Modification Id* Act 
----------------------------+
02814  M02S01926.pfm70   ---|          ADN    CLTF-CLTU
Line S01927 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm70
Seq #  *Modification Id* Act 
----------------------------+
02815  M02S01927.pfm70   ---|          CRD    CM          PICK UP SECOND WORD OF ENTRY
Line S01928 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm70
Seq #  *Modification Id* Act 
----------------------------+
02816  M02S01928.pfm70   ---|          LDD    T5          SAVE NEW EST ORDINAL
Line S01929 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm70
Seq #  *Modification Id* Act 
----------------------------+
02817  M02S01929.pfm70   ---|          STD    CM+4
02818  M01S00001.pfm70   +++| POA13    LDD    CN+3        CLEAR DEVICE NUMBER FROM FAMILY NAME
02819  M01S00002.pfm70   +++|          SCN    77
02820  M01S00003.pfm70   +++|          STD    CN+3
02821  M01S00004.pfm70   +++|          LDD    T5          SAVE NEW EST ORDINAL
02822  M01S00005.pfm70   +++|          STD    CN+4        MERGE EST ORDINAL WITH FAMILY NAME
02823  M01S01930.pfm     +++|          STM    PFPN+4      CHANGE EST ORDINAL
Line S01931 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm70
Seq #  *Modification Id* Act 
----------------------------+
02824  M02S01931.pfm70   ---|          SFA    CLT,T4
Line S01932 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm70
Seq #  *Modification Id* Act 
----------------------------+
02825  M02S01932.pfm70   ---|          ADN    CLTF
Line S01933 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm70
Seq #  *Modification Id* Act 
----------------------------+
02826  M02S01933.pfm70   ---|          CWD    CM          WRITE EST ORDINAL IN TABLE
02827  M01S00006.pfm70   +++|          LDC    0           GET ENTRY ORDINAL
02828  M01S00007.pfm70   +++| POAB     EQU    *-1
02829  M01S00008.pfm70   +++|          STD    T4
02830  M01S00009.pfm70   +++|          SFA    CLT
02831  M01S00010.pfm70   +++|          ADK    CLTU
02832  M01S00011.pfm70   +++|          CWD    FN          WRITE USER INDEX IN TABLE
02833  M01S00012.pfm70   +++|          ADN    CLTF-CLTU
02834  M01S00013.pfm70   +++|          CWD    CN          WRITE FAMILY NAME AND EST ORDINAL IN TABLE
02835  M01S01934.pfm     +++|          ADN    CLTV-CLTF   SET PERMANENT FILE VALIDATION INFORMATION
02836  M01S01935.pfm     +++|          CRD    CM
02837  M01S01936.pfm     +++|          LDM    PFUC
02838  M01S01937.pfm     +++|          STD    CM+4
02839  M01S01938.pfm     +++|          SFA    CLT,T4
02840  M01S01939.pfm     +++|          ADN    CLTV
02841  M01S01940.pfm     +++|          CWD    CM
02842  M01S01941.pfm     +++|          LJM    POAX        RETURN
Line S01942 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02843  M02S01942.242l642 ---| RCL      SPACE  4,10
02844  M01S00258.242l642 +++| RCL      SPACE  4,15
02845  M01S01943.pfm     +++|**        RCL - RECALL PFM.
02846  M01S01944.pfm     +++|*
Line S01945 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02847  M02S01945.242l642 ---|*         EXIT   TO *DPP*.
Line S01946 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02848  M02S01946.242l642 ---|*                INPUT REGISTER WRITTEN TO PP RECALL STACK.
Line S01947 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02849  M02S01947.242l642 ---|*                (DPPF) CLEARED.
Line S01948 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02850  M02S01948.242l642 ---|*
Line S01949 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02851  M02S01949.242l642 ---|*         MACROS MONITOR.
Line S00259 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02852  M02S00259.ns2426  ---|*         ENTRY  (PWRF) = RESTART FLAGS.
02853  M01S00072.ns2426  +++|*         ENTRY  (A) = ERROR CODE.
02854  M01S00073.ns2426  +++|*                (PWRF) = RESTART FLAGS.
02855  M01S00260.242l642 +++|*
02856  M01S00261.242l642 +++|*         EXIT   (CN - CN+4) = INPUT REGISTER FOR *PFM* RECALL.
02857  M01S00262.242l642 +++|*                (FN - FN+4) = RECALL REQUEST FOR MONITOR.
02858  M01S00263.242l642 +++|*                (MP - MP+4) = PARAMETER WORD FOR *PFM* RECALL.
02859  M01S00264.242l642 +++|*                (AIPF, AIPF+1) = 0.
02860  M01S00265.242l642 +++|*                (STAU) = *STRP* BIT SET TO RECALL *PFM*.
Line S00266 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
02861  M02S00266.ns2414  ---|*                TO *3PT* TO RECALL *PFM*.
02862  M01S00009.ns2414  +++|*                TO *3PU* TO RECALL *PFM*.
02863  M01S00267.242l642 +++|*
02864  M01S00074.ns2426  +++|*         USES   P1, CN - CN+4, FN - FN+4, MP - MP+4.
02865  M01S00075.ns2426  +++|*
02866  M01S00268.242l642 +++|*         MACROS EXECUTE.
02867  M01S01950.pfm     +++|
02868  M01S01951.pfm     +++|
02869  M01S01952.pfm     +++| RCL      BSS    0           ENTRY
02870  M01S00076.ns2426  +++|          STD    P1          SAVE ERROR CODE
02871  M01S01953.pfm     +++|          LDN    0           CLEAR PF ACCUMULATOR INCREMENT
Line S01954 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02872  M02S01954.242l642 ---|          STM    DPPF
Line S01955 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02873  M02S01955.242l642 ---|          STM    DPPF-1
02874  M01S00269.242l642 +++|          STM    AIPF
02875  M01S00270.242l642 +++|          STM    AIPF+1
02876  M01S01956.pfm     +++|          LDN    ZERL
Line S01957 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02877  M02S01957.242l642 ---|          CRD    CM
02878  M01S00271.242l642 +++|          CRD    FN          SET RECALL REQUEST
02879  M01S00272.242l642 +++|          CRD    MP
02880  M01S00273.242l642 +++|          LDM    PWRF        SET RESTART FLAGS FOR RECALL
02881  M01S00274.242l642 +++|          STD    MP
02882  M01S00077.ns2426  +++|          LDD    P1          SET ERROR CODE
02883  M01S00078.ns2426  +++|          STD    MP+1
02884  M01S01958.pfm     +++|          LDD    IA          READ INPUT REQUEST REGISTER
02885  M01S01959.pfm     +++|          CRD    CN
Line S01960 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02886  M02S01960.242l642 ---|          LDD    MA          RECALL REQUEST
Line S01961 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02887  M02S01961.242l642 ---|          CWD    CN
Line S01962 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02888  M02S01962.242l642 ---|          ADN    1           CLEAR PARAMETER WORD
Line S01963 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02889  M02S01963.242l642 ---|          CWD    CM
Line S01964 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02890  M02S01964.242l642 ---|          LDD    CN+1        CLEAR AUTO RECALL
Line S01965 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02891  M02S01965.242l642 ---|          SCN    40
Line S01966 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02892  M02S01966.242l642 ---|          STD    CN+1
Line S01967 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02893  M02S01967.242l642 ---|          LDD    IA          REWRITE INPUT REGISTER
Line S01968 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02894  M02S01968.242l642 ---|          CWD    CN
Line S01969 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02895  M02S01969.242l642 ---|          LDC    4000+PTMF   SET TO RECALL WITH TIME SPECIFIED
Line S01970 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02896  M02S01970.242l642 ---|          STD    CM+1
02897  M01S00275.242l642 +++|          LDC    PTMF        SET TIMED RECALL
02898  M01S00276.242l642 +++|          STD    FN+1
Line S01971 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02899  M02S01971.ns2426  ---|          LDC    200D        SET DELAY TO 200D MILLISECONDS
02900  M01S00079.ns2426  +++|          LDC    250D        SET DELAY TO 250D MILLISECONDS
Line S01972 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02901  M02S01972.242l642 ---|          STD    CM+4
Line S01973 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02902  M02S01973.242l642 ---|          MONITOR  RECM
Line S01974 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02903  M02S01974.242l642 ---|          LJM    DPP         DROP PP
02904  M01S00277.242l642 +++|          STD    FN+4
02905  M01S00278.242l642 +++|          LDK    STRP        SET *RECALL PFM* STATUS BIT
02906  M01S00279.242l642 +++|          RAM    STAU
Line S00280 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
02907  M02S00280.ns2414  ---|          EXECUTE  3PT       RECALL *PFM*
02908  M01S00010.ns2414  +++|          EXECUTE  3PU       RECALL *PFM*
02909  M01S01975.pfm     +++| RSX      SPACE  4,10
02910  M01S01976.pfm     +++|**        RSX - REQUEST RESOURCE VALIDATION.
02911  M01S01977.pfm     +++|*
02912  M01S01978.pfm     +++|*         CALL *RESEX* AS A *DMP=* PROGRAM.
02913  M01S01979.pfm     +++|*
02914  M01S01980.pfm     +++|*         EXIT   TO *RCL*.
02915  M01S01981.pfm     +++|*
02916  M01S01982.pfm     +++|*         USES   CM - CM+4, FN - FN+4.
02917  M01S01983.pfm     +++|*
02918  M01S01984.pfm     +++|*         MACROS ERROR, MONITOR.
02919  M01S01985.pfm     +++|
02920  M01S01986.pfm     +++|
02921  M01S01987.pfm     +++| RSX      BSS    0           ENTRY
02922  M01S01988.pfm     +++|          LDD    CP          CHECK FOR *DMP=* IN PROGRESS
02923  M01S01989.pfm     +++|          ADC    SPCW
02924  M01S01990.pfm     +++|          CRD    CM
02925  M01S01991.pfm     +++|          LDD    CM+1
02926  M01S01992.pfm     +++|          SHN    -6
02927  M01S01993.pfm     +++|          ADD    CM
02928  M01S01994.pfm     +++|          ZJN    RSX1        IF NOT *DMP=* IN PROGRESS
02929  M01S01995.pfm     +++|          ERROR  ILR,CH,IW   * PFM INCORRECT REQUEST.*
02930  M01S01996.pfm     +++|
02931  M01S01997.pfm     +++| RSX1     LDD    MA          SET INPUT REGISTER
02932  M01S01998.pfm     +++|          CWD    IR
02933  M01S01999.pfm     +++|          CRD    FN
02934  M01S02000.pfm     +++|          LDD    FN+1
02935  M01S02001.pfm     +++|          SCN    77
02936  M01S02002.pfm     +++|          LMN    20          SET STATUS TO LEAVE RA+1 SET WITH PFM CALL
02937  M01S02003.pfm     +++|          STD    FN+1
02938  M01S02004.pfm     +++|          LDN    0           CLEAR RETURN STATUS
02939  M01S02005.pfm     +++|          STD    FN+2
02940  M01S02006.pfm     +++|          LDD    CP          WRITE CP REQUEST
02941  M01S02007.pfm     +++|          ADC    SPCW
02942  M01S02008.pfm     +++|          CWD    FN
02943  M01S02009.pfm     +++|          LDN    ROSR        REQUEST SCHEDULER ROLLOUT
02944  M01S02010.pfm     +++|          STD    CM+1
02945  M01S02011.pfm     +++|          MONITOR ROCM
02946  M01S00080.ns2426  +++|*         LDN    0           (NO ERROR CODE)
02947  M01S02012.pfm     +++|          LJM    RCL         RECALL PFM
02948  M01S02013.pfm     +++| SAM      SPACE  4,15
02949  M01S02014.pfm     +++|**        SAM - SET UP ACCOUNTING MESSAGE.
02950  M01S02015.pfm     +++|*
02951  M01S02016.pfm     +++|*         ENTRY  (A) = ADDRESS OF USER NAME.
02952  M01S02017.pfm     +++|*                (PFPN) = OPTIONAL PACK NAME.
02953  M01S02018.pfm     +++|*                (CC) = COMMAND CODE.
02954  M01S02019.pfm     +++|*
02955  M01S02020.pfm     +++|*         EXIT   (PRSF) - (PRSH+PRSHL-1) = MESSAGE AREA SET UP.
02956  M01S02021.pfm     +++|*
02957  M01S02022.pfm     +++|*         CALLS  ACS, SFN, SPN.
02958  M01S02023.pfm     +++|*
02959  M01S02024.pfm     +++|*         USES   P0, T1, FN - FN+4.
02960  M01S02025.pfm     +++|
02961  M01S02026.pfm     +++|
02962  M01S02027.pfm     +++| SAM      SUBR               ENTRY/EXIT
02963  M01S02028.pfm     +++|          STD    P0          SAVE ADDRESS OF USER NAME
02964  M01S02029.pfm     +++|          LDM    PRSH,CC     SET PFM FUNCTION IN MESSAGE BUFFER
02965  M01S02030.pfm     +++|          STM    PRSF+1
02966  M01S02031.pfm     +++|          RJM    SPN         SET PERMANENT FILE NAME
02967  M01S02032.pfm     +++|          LDC    PRSH        INITIALIZE MESSAGE POINTER FOR ACS CALLS
02968  M01S02033.pfm     +++|          STD    T1
02969  M01S02034.pfm     +++|          LDN    FN          INSERT FILE NAME IN MESSAGE BUFFER
02970  M01S02035.pfm     +++|          RJM    ACS
02971  M01S02036.pfm     +++|          LDC    PRSB        APPEND COMMA SEPARATOR
02972  M01S02037.pfm     +++|          RJM    ACS
02973  M01S02038.pfm     +++|          LDI    P0          CHECK USER NAME
02974  M01S02039.pfm     +++|          ZJN    SAM1        IF NULL USER NAME
02975  M01S02040.pfm     +++|          LDD    P0          CLEAR LOWER 3 CHARACTERS OF USER NAME
02976  M01S02041.pfm     +++|          RJM    SFN
02977  M01S02042.pfm     +++|          LDN    FN          APPEND USER NAME IN MESSAGE BUFFER
02978  M01S02043.pfm     +++|          RJM    ACS
02979  M01S02044.pfm     +++| SAM1     LDC    PRSB        APPEND COMMA SEPARATOR
02980  M01S02045.pfm     +++|          RJM    ACS
02981  M01S02046.pfm     +++|          LDM    PFPN        CHECK FOR OPTIONAL PACK NAME
02982  M01S02047.pfm     +++|          ZJN    SAM2        IF NO PACK NAME
02983  M01S02048.pfm     +++|          LDC    PFPN        CLEAR LOWER 3 CHARACTERS OF PACK NAME
02984  M01S02049.pfm     +++|          RJM    SFN
02985  M01S02050.pfm     +++|          LDN    FN          APPEND OPTIONAL PACK NAME
02986  M01S02051.pfm     +++|          RJM    ACS
02987  M01S02052.pfm     +++| SAM2     LDC    PRSC        APPEND MESSAGE TERMINATOR
02988  M01S02053.pfm     +++|          RJM    ACS
02989  M01S02054.pfm     +++|          LJM    SAMX        RETURN
02990  M01S02055.pfm     +++| SRF      SPACE  4,15
02991  M01S02056.pfm     +++|**        SRF - SET UP RESERVE FNT.
02992  M01S02057.pfm     +++|*
02993  M01S02058.pfm     +++|*         RESERVE AN FNT ENTRY IF STATUS *H* IS SET IN *TCTL*.
02994  M01S02059.pfm     +++|*
02995  M01S02060.pfm     +++|*         ENTRY  (CC) = COMMAND CODE.
02996  M01S02061.pfm     +++|*
02997  M01S02062.pfm     +++|*         EXIT   (FNTA) = ADDRESS OF RESERVE FNT ENTRY.
02998  M01S02063.pfm     +++|*                (PRSF) = EXIT PROCESSING STATUS.
02999  M01S02064.pfm     +++|*
03000  M01S02065.pfm     +++|*         CALLS  SFN, *0BF*.
03001  M01S02066.pfm     +++|*
03002  M01S02067.pfm     +++|*         USES   T4, CM - CM+4, FS - FS+4.
03003  M01S02068.pfm     +++|*
03004  M01S02069.pfm     +++|*         MACROS EXECUTE, EXIT.
03005  M01S02070.pfm     +++|
03006  M01S02071.pfm     +++|
03007  M01S02072.pfm     +++| SRF      SUBR               ENTRY/EXIT
03008  M01S02073.pfm     +++|          LDM    TCTL,CC     CHECK FOR FNT NEEDED
03009  M01S02074.pfm     +++|          SHN    21-7
Line S02075 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03010  M02S02075.ns2776  ---|          PJN    SRFX        IF FNT NOT NEEDED
03011  M01S00044.ns2776  +++| SRF1     PJN    SRFX        IF FNT NOT NEEDED
03012  M01S02076.pfm     +++|          LDC    SRFB        SET RESERVED FNT NAME
03013  M01S02077.pfm     +++|          RJM    SFN
03014  M01S02078.pfm     +++|          LDN    NEEQ        ASSIGN NULL EQUIPMENT
03015  M01S02079.pfm     +++|          STD    FS
03016  M01S02080.pfm     +++|          LDN    5           RETURN ON NFL INCREASE, LOCAL FILE LIMIT
03017  M01S02081.pfm     +++|          STM    LOCF-1
03018  M01S02082.pfm     +++|          EXECUTE  0BF,LOCF  CREATE PFM*** FILE
Line S02083 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03019  M02S02083.ns2776  ---|          UJN    SRF2        CHECK RETURN STATUS
03020  M01S00045.ns2776  +++|          NJN    SRF2        IF FILE NOT CREATED
03021  M01S02084.pfm     +++|
03022  M01S02085.pfm     +++|*         USE EXISTING FNT ENTRY (ADVANCE EXIT FROM *0BF*).
03023  M01S02086.pfm     +++|
Line S02087 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03024  M02S02087.ns2776  ---|          UJN    SRF3        SAVE FNT POINTER
03025  M01S00046.ns2776  +++|          LDD    FA          SAVE RESERVE FNT POINTER
03026  M01S00047.ns2776  +++|          STM    FNTA
03027  M01S00048.ns2776  +++|          LDD    FN+4        SAVE FILE STATUS
03028  M01S00049.ns2776  +++|          LPN    77
03029  M01S00050.ns2776  +++|          RAM    SFNB
03030  M01S00051.ns2776  +++|          LDN    0           CLEAR FST POINTER
03031  M01S00052.ns2776  +++|          STD    FA
03032  M01S00053.ns2776  +++|          LDD    FS          CHECK FOR RESERVED SPACE
03033  M01S00054.ns2776  +++|          NJN    SRF1        IF SPACE RESERVED
03034  M01S00055.ns2776  +++|          EXIT   PFN,CH,IW,,EC4  * DEVICE UNAVAILABLE.*
03035  M01S02088.pfm     +++|
Line S02089 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03036  M02S02089.ns2776  ---| SRF2     ZJN    SRF3        IF FILE CREATED
Line S02090 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03037  M02S02090.ns2776  ---|          MJN    SRF5        IF REJECT ON NFL INCREASE
03038  M01S00056.ns2776  +++| SRF2     MJN    SRF5        IF REJECT ON NFL INCREASE
03039  M01S02091.pfm     +++|          LMN    4
03040  M01S02092.pfm     +++|          NJN    SRF6        IF NOT LOCAL FILE LIMIT
Line S02093 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm41
Seq #  *Modification Id* Act 
----------------------------+
03041  M02S02093.pfm41   ---|          ERROR  LFL,CH,IW,,EC3  * LOCAL FILE LIMIT.*
03042  M01S00001.pfm41   +++|          ERROR  LFL,CH,IW   * LOCAL FILE LIMIT.*
Line S02094 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03043  M02S02094.ns2776  ---|
Line S02095 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03044  M02S02095.ns2776  ---| SRF3     LDD    FA          SAVE RESERVE FNT POINTER
Line S02096 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03045  M02S02096.ns2776  ---|          STM    FNTA
Line S02097 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03046  M02S02097.ns2776  ---|          LDD    FN+4        SAVE FILE STATUS
Line S02098 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03047  M02S02098.ns2776  ---|          LPN    77
Line S02099 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03048  M02S02099.ns2776  ---|          RAM    SFNB
Line S02100 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03049  M02S02100.ns2776  ---|          LDN    0           CLEAR FST POINTER
Line S02101 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03050  M02S02101.ns2776  ---|          STD    FA
Line S02102 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03051  M02S02102.ns2776  ---|          LDD    FS          CHECK FOR RESERVED SPACE
Line S02103 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03052  M02S02103.ns2776  ---|          ZJN    SRF4        IF SPACE NOT RESERVED
Line S02104 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03053  M02S02104.ns2776  ---|          LJM    SRFX        RETURN
Line S02105 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03054  M02S02105.ns2776  ---|
Line S02106 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03055  M02S02106.ns2776  ---| SRF4     EXIT   PFN,CH,IW,,EC4  * DEVICE UNAVAILABLE.*
03056  M01S02107.pfm     +++|
03057  M01S02108.pfm     +++| SRF5     LDN    0           SET SCHEDULER ROLLOUT
03058  M01S02109.pfm     +++|          STM    ERRC
03059  M01S02110.pfm     +++|          STM    ERRD
03060  M01S02111.pfm     +++|          EXIT   WNF,CH,IW,,EC1  * WAITING FOR NFL.*
03061  M01S02112.pfm     +++|
03062  M01S02113.pfm     +++| SRF6     EXIT   WNF,CH,IW,,EC4  * WAITING FOR NFL.*
03063  M01S02114.pfm     +++|
03064  M01S02115.pfm     +++|
03065  M01S02116.pfm     +++| SRFB     VFD    60/6LPFM***
03066  M01S02117.pfm     +++| SUC      SPACE  4,30
03067  M01S02118.pfm     +++|**        SUC - SET USER CONTROLS.
03068  M01S02119.pfm     +++|*         IF INDIVIDUAL CONTROL NOT SET USE
03069  M01S02120.pfm     +++|*         SERVICE CLASS SPECIFIED LIMITS.
03070  M01S02121.pfm     +++|*
03071  M01S02122.pfm     +++|*         ENTRY  (PFUC) = USER CONTROL.
03072  M01S02123.pfm     +++|*T PFUC   3/ DS, 3/ FC, 3/ CS, 3/ FS
Figure PFUC

023568911 FS CS FC DS

03073  M01S02124.pfm     +++|*                DS = INDEX FOR DIRECT ACCESS FILE SIZE.
03074  M01S02125.pfm     +++|*                FC = INDEX FOR NUMBER OF FILES IN CATALOG.
03075  M01S02126.pfm     +++|*                CS = INDEX FOR CUMULATIVE SIZE OF INDIRECT FILES.
03076  M01S02127.pfm     +++|*                FS = INDEX FOR INDIRECT FILE SIZE.
03077  M01S02128.pfm     +++|*                (JORG) = JOB ORIGIN.
03078  M01S02129.pfm     +++|*
03079  M01S02130.pfm     +++|*
03080  M01S02131.pfm     +++|*         EXIT   (MXFS) = MAXIMUM INDIRECT FILE SIZE/10B.
03081  M01S02132.pfm     +++|*                (IMSK) SET TO DEVICE ACCESS MASK FOR *DEFINE*.
03082  M01S02133.pfm     +++|*                (MXNF) = MAXIMUM NUMBER OF FILES/100B.
03083  M01S02134.pfm     +++|*                (MXCS - MXCS+1) = MAXIMUM CUMULATIVE SIZE FOR IAPF-S.
03084  M01S02135.pfm     +++|*                (MXDS - MXDS+1) = MAXIMUM SIZE OF DIRECT ACCESS FILE.
03085  M01S02136.pfm     +++|*
03086  M01S02137.pfm     +++|*         CALLS  FMS, RJC.
03087  M01S02138.pfm     +++|*
03088  M01S02139.pfm     +++|*         USES   FS - FS+4, T1.
03089  M01S02140.pfm     +++|
03090  M01S02141.pfm     +++|
03091  M01S02142.pfm     +++| SUC      SUBR               ENTRY/EXIT
03092  M01S02143.pfm     +++|
03093  M01S02144.pfm     +++|*         SET PERMANENT FILE CONTROLS.
03094  M01S02145.pfm     +++|
03095  M01S02146.pfm     +++| SUCA     LDN    0           (SERVICE CLASS SET IN *PRS*)
03096  M01S02147.pfm     +++|          LMN    DSSC
03097  M01S02148.pfm     +++|          NJN    SUC1        IF NOT DEADSTART SEQUENCING
03098  M01S02149.pfm     +++|          LDN    SSSC&DSSC   USE SUBSYSTEM SERVICE CLASS
03099  M01S02150.pfm     +++| SUC1     LMN    DSSC        READ JOB CONTROL PARAMETERS
03100  M01S02151.pfm     +++|          RJM    RJC
03101  M01S02152.pfm     +++|          ZJN    SUCX        IF SERVICE CLASS UNDEFINED
03102  M01S02153.pfm     +++|          ADN    PFCT
03103  M01S02154.pfm     +++|          CRD    FS
03104  M01S02155.pfm     +++|
03105  M01S02156.pfm     +++|*         SET LIMIT FOR INDIVIDUAL FILE SIZE.
03106  M01S02157.pfm     +++|
03107  M01S02158.pfm     +++|          LDD    FS          SET SERVICE CLASS CONTROL AS DEFAULT
03108  M01S02159.pfm     +++|          LPN    7
03109  M01S02160.pfm     +++|          STD    T1
03110  M01S02161.pfm     +++|          LDM    PFUC        CHECK INDIVIDUAL *FS* VALUE
03111  M01S02162.pfm     +++|          LPN    7
03112  M01S02163.pfm     +++|          ZJN    SUC2        IF NOT INDIVIDUAL CONTROL SET
03113  M01S02164.pfm     +++|          STD    T1
03114  M01S02165.pfm     +++| SUC2     LDM    TMFS,T1     SET CONTROL VALUE
03115  M01S02166.pfm     +++|          STM    MXFS
03116  M01S02167.pfm     +++|
03117  M01S02168.pfm     +++|*         SET LIMIT FOR NUMBER OF FILES.
03118  M01S02169.pfm     +++|
03119  M01S02170.pfm     +++|          LDD    FS          SET SERVICE CLASS CONTROL AS DEFAULT
03120  M01S02171.pfm     +++|          SHN    -6
03121  M01S02172.pfm     +++|          LPN    7
03122  M01S02173.pfm     +++|          STD    T1
03123  M01S02174.pfm     +++|          LDM    PFUC        CHECK INDIVIDUAL *FC* VALUE
03124  M01S02175.pfm     +++|          SHN    -6
03125  M01S02176.pfm     +++|          LPN    7
03126  M01S02177.pfm     +++|          ZJN    SUC3        IF NO INDIVIDUAL CONTROL SET
03127  M01S02178.pfm     +++|          STD    T1
03128  M01S02179.pfm     +++| SUC3     LDM    TMNF,T1     SET CONTROL VALUE
03129  M01S02180.pfm     +++|          STM    MXNF
03130  M01S02181.pfm     +++|
03131  M01S02182.pfm     +++|*         SET LIMIT FOR CUMULATIVE SIZE OF INDIRECT ACCESS FILES.
03132  M01S02183.pfm     +++|
03133  M01S02184.pfm     +++|          LDD    FS          SET SERVICE CLASS CONTROL AS DEFAULT
03134  M01S02185.pfm     +++|          SHN    -3
03135  M01S02186.pfm     +++|          LPN    7
03136  M01S02187.pfm     +++|          SHN    1
03137  M01S02188.pfm     +++|          STD    T1
03138  M01S02189.pfm     +++|          LDM    PFUC        CHECK INDIVIDUAL *CS* VALUE
03139  M01S02190.pfm     +++|          SHN    -3
03140  M01S02191.pfm     +++|          LPN    7
03141  M01S02192.pfm     +++|          ZJN    SUC4        IF NO INDIVIDUAL CONTROL SET
03142  M01S02193.pfm     +++|          SHN    1
03143  M01S02194.pfm     +++|          STD    T1
03144  M01S02195.pfm     +++| SUC4     LDM    TMCS,T1     SET CONTROL VALUE
03145  M01S02196.pfm     +++|          STM    MXCS
03146  M01S02197.pfm     +++|          LDM    TMCS+1,T1
03147  M01S02198.pfm     +++|          STM    MXCS+1
03148  M01S02199.pfm     +++|
03149  M01S02200.pfm     +++|*         SET DIRECT ACCESS FILE SIZE CONTROLS.
03150  M01S02201.pfm     +++|
03151  M01S02202.pfm     +++|          LDM    TCTL,CC
03152  M01S02203.pfm     +++|          SHN    21-5
03153  M01S02204.pfm     +++|          PJN    SUC6        IF NOT DIRECT ACCESS REQUEST
03154  M01S02205.pfm     +++|          RJM    FMS         FORM MASK FOR FILE RESIDENCE CHECK
03155  M01S02206.pfm     +++|          LDD    FS          SET SERVICE CLASS CONTROL AS DEFAULT
03156  M01S02207.pfm     +++|          SHN    -11
03157  M01S02208.pfm     +++|          LPN    7
03158  M01S02209.pfm     +++|          SHN    1
03159  M01S02210.pfm     +++|          STD    T1
03160  M01S02211.pfm     +++|          LDM    PFUC        CHECK INDIVIDUAL *DS* VALUE
03161  M01S02212.pfm     +++|          SHN    -11
03162  M01S02213.pfm     +++|          LPN    7
03163  M01S02214.pfm     +++|          ZJN    SUC5        IF NO INDIVIDUAL CONTROL SET
03164  M01S02215.pfm     +++|          SHN    1
03165  M01S02216.pfm     +++|          STD    T1
03166  M01S02217.pfm     +++| SUC5     LDM    TMDS,T1     SET INDIVIDUAL CONTROL
03167  M01S02218.pfm     +++|          STM    MXDS
03168  M01S02219.pfm     +++|          LDM    TMDS+1,T1
03169  M01S02220.pfm     +++|          STM    MXDS+1
03170  M01S02221.pfm     +++| SUC6     LJM    SUCX        EXIT
03171  M01S02222.pfm     +++| SWI      SPACE  4,15
03172  M01S02223.pfm     +++|**        SWI - SWAP USER INDICES.
03173  M01S02224.pfm     +++|*
03174  M01S02225.pfm     +++|*         ENTRY  (UI - UI+1) = USER INDEX.
03175  M01S02226.pfm     +++|*                (PI - PI+1) = PERMIT INDEX.
03176  M01S02227.pfm     +++|*
03177  M01S02228.pfm     +++|*         EXIT   (UI - UI+1) = PERMIT INDEX.
03178  M01S02229.pfm     +++|*                (PI - PI+1) = USER INDEX.
03179  M01S02230.pfm     +++|
03180  M01S02231.pfm     +++|
03181  M01S02232.pfm     +++| SWI      SUBR               ENTRY/EXIT
03182  M01S02233.pfm     +++|          LDD    UI          SWAP USER AND PERMIT INDICES
03183  M01S02234.pfm     +++|          STD    T1
03184  M01S02235.pfm     +++|          LDD    PI
03185  M01S02236.pfm     +++|          STD    UI
03186  M01S02237.pfm     +++|          LDD    T1
03187  M01S02238.pfm     +++|          STD    PI
03188  M01S02239.pfm     +++|          LDD    UI+1
03189  M01S02240.pfm     +++|          STD    T1
03190  M01S02241.pfm     +++|          LDD    PI+1
03191  M01S02242.pfm     +++|          STD    UI+1
03192  M01S02243.pfm     +++|          LDD    T1
03193  M01S02244.pfm     +++|          STD    PI+1
03194  M01S02245.pfm     +++|          UJN    SWIX        RETURN
03195  M01S02246.pfm     +++| TMFS     SPACE  4,15
03196  M01S02247.pfm     +++|**        TABLE OF INDIVIDUAL FILE SIZE LIMITS.
03197  M01S02248.pfm     +++|
03198  M01S02249.pfm     +++|
03199  M01S02250.pfm     +++| TMFS     BSS    0
03200  M01S02251.pfm     +++|          LOC    0
03201  M01S02252.pfm     +++|          CON    0
03202  M01S02253.pfm     +++|          CON    FSRNG1
03203  M01S02254.pfm     +++|          CON    FSRNG2
03204  M01S02255.pfm     +++|          CON    FSRNG3
03205  M01S02256.pfm     +++|          CON    FSRNG4
03206  M01S02257.pfm     +++|          CON    FSRNG5
03207  M01S02258.pfm     +++|          CON    FSRNG6
03208  M01S02259.pfm     +++|          CON    FSRNG7
03209  M01S02260.pfm     +++|          LOC    *O
03210  M01S02261.pfm     +++| TMNF     SPACE  4,15
03211  M01S02262.pfm     +++|**        TABLE OF NUMBER OF FILE LIMITS.
03212  M01S02263.pfm     +++|
03213  M01S02264.pfm     +++|
03214  M01S02265.pfm     +++| TMNF     BSS    0
03215  M01S02266.pfm     +++|          LOC    0
03216  M01S02267.pfm     +++|          CON    0
03217  M01S02268.pfm     +++|          CON    NFRNG1
03218  M01S02269.pfm     +++|          CON    NFRNG2
03219  M01S02270.pfm     +++|          CON    NFRNG3
03220  M01S02271.pfm     +++|          CON    NFRNG4
03221  M01S02272.pfm     +++|          CON    NFRNG5
03222  M01S02273.pfm     +++|          CON    NFRNG6
03223  M01S02274.pfm     +++|          CON    NFRNG7
03224  M01S02275.pfm     +++|          LOC    *O
03225  M01S02276.pfm     +++| TMCS     SPACE  4,15
03226  M01S02277.pfm     +++|**        TABLE OF CUMULATIVE FILE SIZE LIMITS.
03227  M01S02278.pfm     +++|
03228  M01S02279.pfm     +++|
03229  M01S02280.pfm     +++| TMCS     BSS    0
03230  M01S02281.pfm     +++|          LOC    0
03231  M01S02282.pfm     +++|          CON    0,0
03232  M01S02283.pfm     +++|          CSR    CSRNG1
03233  M01S02284.pfm     +++|          CSR    CSRNG2
03234  M01S02285.pfm     +++|          CSR    CSRNG3
03235  M01S02286.pfm     +++|          CSR    CSRNG4
03236  M01S02287.pfm     +++|          CSR    CSRNG5
03237  M01S02288.pfm     +++|          CSR    CSRNG6
03238  M01S02289.pfm     +++|          CSR    CSRNG7
03239  M01S02290.pfm     +++|          LOC    *O
03240  M01S02291.pfm     +++| TMDS     SPACE  4,15
03241  M01S02292.pfm     +++|**        TABLE OF DIRECT ACCESS FILE SIZE LIMITS.
03242  M01S02293.pfm     +++|
03243  M01S02294.pfm     +++|
03244  M01S02295.pfm     +++| TMDS     BSS    0
03245  M01S02296.pfm     +++|          LOC    0
03246  M01S02297.pfm     +++|          CON    0,0
03247  M01S02298.pfm     +++|          CSR    DSRNG1
03248  M01S02299.pfm     +++|          CSR    DSRNG2
03249  M01S02300.pfm     +++|          CSR    DSRNG3
03250  M01S02301.pfm     +++|          CSR    DSRNG4
03251  M01S02302.pfm     +++|          CSR    DSRNG5
03252  M01S02303.pfm     +++|          CSR    DSRNG6
03253  M01S02304.pfm     +++|          CSR    DSRNG7
03254  M01S02305.pfm     +++|          LOC    *O
03255  M01S02306.pfm     +++|          SPACE  4,10
03256  M01S02307.pfm     +++|*         COMMON DECKS.
03257  M01S02308.pfm     +++|
03258  M01S02309.pfm     +++|
03259  M01S02310.pfm     +++|*CALL     COMPACS
03260  M01S00051.253l688 +++| DTS$     EQU    0           CHECK FOR INACCESSIBLE DEVICE
03261  M01S02311.pfm     +++|*CALL     COMPDTS
03262  M01S02312.pfm     +++| CLT$     EQU    0           DEFINE *COMPGFP* ACCESS TO CLT
03263  M01S02313.pfm     +++| EJT$     EQU    0           DEFINE *COMPGFP* ACCESS TO EJT
03264  M01S02314.pfm     +++|*CALL     COMPGFP
03265  M01S02315.pfm     +++|*CALL     COMPRJC
03266  M01S02316.pfm     +++|*CALL     COMPSAF
03267  M01S02317.pfm     +++|*CALL     COMPSCA
03268  M01S02318.pfm     +++|          SPACE  4,10
03269  M01S02319.pfm     +++| LOCF     EQU    *+5         OVERLAY ADDRESS FOR ZERO-LEVEL OVERLAYS
03270  M01S02320.pfm     +++|
03271  M01S02321.pfm     +++|          ERRNG  EPFW-LOCF-ZAVL  CHECK LENGTH OF *0AV*
03272  M01S02322.pfm     +++|          ERRNG  EPFW-LOCF-ZBFL  CHECK LENGTH OF *0BF*
03273  M01S02323.pfm     +++|          ERRNG  BFMS-LOCF-ZRFL  CHECK LENGTH OF *0RF*
03274  M01S02324.pfm     +++|
03275  M01S02325.pfm     +++|
03276  M01S02326.pfm     +++|*         THE FOLLOWING CODE MAY BE OVERLAID BY ZERO-LEVEL OVERLAYS.
03277  M01S02327.pfm     +++|          TITLE  OVERLAYABLE PRESET SUBROUTINES.
03278  M01S02328.pfm     +++| CPN      SPACE  4,10
03279  M01S02329.pfm     +++|**        CPN - COMPARE NAMES.
03280  M01S02330.pfm     +++|*
03281  M01S02331.pfm     +++|*         ENTRY  (CM - CM+3) = NAME FROM COMMON LIBRARIES TABLE.
03282  M01S02332.pfm     +++|*                (A) = ADDRESS OF SECOND NAME.
03283  M01S02333.pfm     +++|*
03284  M01S02334.pfm     +++|*         EXIT   (A) = 0 IF MATCH.
03285  M01S02335.pfm     +++|*
03286  M01S02336.pfm     +++|*         USES   T7.
03287  M01S02337.pfm     +++|
03288  M01S02338.pfm     +++|
03289  M01S02339.pfm     +++| CPN      SUBR               ENTRY/EXIT
03290  M01S02340.pfm     +++|          STD    T7          SAVE ADDRESS
03291  M01S02341.pfm     +++|          LDI    T7
03292  M01S02342.pfm     +++|          LMD    CM
03293  M01S02343.pfm     +++|          NJN    CPNX        IF NO MATCH
03294  M01S02344.pfm     +++|          LDM    1,T7
03295  M01S02345.pfm     +++|          LMD    CM+1
03296  M01S02346.pfm     +++|          NJN    CPNX        IF NO MATCH
03297  M01S02347.pfm     +++|          LDM    2,T7
03298  M01S02348.pfm     +++|          LMD    CM+2
03299  M01S02349.pfm     +++|          NJN    CPNX        IF NO MATCH
03300  M01S02350.pfm     +++|          LDM    3,T7
03301  M01S02351.pfm     +++|          LMD    CM+3
03302  M01S02352.pfm     +++|          SCN    77
Proceed to Part 3
cdc/nos2.source/opl.opl871/deck/pfm.002.txt ยท Last modified: by 127.0.0.1