User Tools

Site Tools


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

Deck PFM Part 003

95 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
03303  M01S02353.pfm     +++|          UJN    CPNX        RETURN
03304  M01S00281.242l642 +++| PER      SPACE  4,15
03305  M01S00282.242l642 +++|**        PER - PROCESS ERROR REPLY FROM *CPUPFM*.
03306  M01S00283.242l642 +++|*
03307  M01S00284.242l642 +++|*         ENTRY  (A) = ERROR REPLY FROM *CPUPFM*.
03308  M01S00285.242l642 +++|*                (CM - CM+4) = CP WORD *SPCW*.
03309  M01S00286.242l642 +++|*                (PWRF) = *PFM* RESTART FLAGS.
03310  M01S00287.242l642 +++|*
03311  M01S00288.242l642 +++|*         EXIT   (A) = PARAMETER WORD FOR *ERROR* MACRO.
03312  M01S00289.242l642 +++|*                (P1) = ERROR CODE.
03313  M01S00290.242l642 +++|*                (PWRF) = *RFRR* BIT SET IF REQUEST TO BE RETRIED.
Line S00291 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
03314  M02S00291.ns2414  ---|*                TO *3PR* TO REDO *DMP=* CALL IF *CPUPFM* DID NOT
03315  M01S00011.ns2414  +++|*                TO *3PS* TO REDO *DMP=* CALL IF *CPUPFM* DID NOT
03316  M01S00292.242l642 +++|*                COMPLETE.
03317  M01S00293.242l642 +++|*
03318  M01S00294.242l642 +++|*         USES   T0.
03319  M01S00295.242l642 +++|*
03320  M01S00296.242l642 +++|*         MACROS EXECUTE.
03321  M01S00297.242l642 +++|
03322  M01S00298.242l642 +++|
03323  M01S00299.242l642 +++| PER      SUBR               ENTRY/EXIT
03324  M01S00300.242l642 +++|          STD    T0
03325  M01S00301.242l642 +++|          SHN    21-11
03326  M01S00302.242l642 +++|          PJN    PER3        IF *CPUPFM* DID NOT COMPLETE
03327  M01S00303.242l642 +++|          LDD    T0
03328  M01S00304.242l642 +++|          LPC    177
03329  M01S00305.242l642 +++|          STD    P1          ERROR CODE
03330  M01S00306.242l642 +++|          ZJN    PERX        IF NO ERROR
03331  M01S00307.242l642 +++|          LMK    /ERRMSG/RTR
03332  M01S00308.242l642 +++|          NJN    PER2        IF NOT *RETRY REQUEST*
03333  M01S00309.242l642 +++|          LDM    PWRF        RESTART FLAGS
03334  M01S00310.242l642 +++|          LPK    RFRR
03335  M01S00311.242l642 +++|          NJN    PER1        IF REQUEST ALREADY RETRIED
03336  M01S00312.242l642 +++|          LDK    RFRR        SET *RETRY REQUEST* FLAG
03337  M01S00313.242l642 +++|          RAM    PWRF
03338  M01S00314.242l642 +++|          UJN    PER2        FORM PARAMETER WORD FOR *ERROR* MACRO
03339  M01S00315.242l642 +++|
03340  M01S00316.242l642 +++| PER1     LDK    /ERRMSG/MSE SET ERROR CODE TO *MASS STORAGE ERROR*
03341  M01S00317.242l642 +++|          STD    P1
03342  M01S00318.242l642 +++| PER2     LDD    T0          FORM PARAMETER WORD FOR *ERROR* MACRO
03343  M01S00319.242l642 +++|          SHN    1-10
03344  M01S00320.242l642 +++|          LPN    2           ERROR IDLE FLAG
03345  M01S00321.242l642 +++|          STD    T0
03346  M01S00322.242l642 +++|          LDD    P1
03347  M01S00323.242l642 +++|          SHN    2           ERROR CODE
03348  M01S00324.242l642 +++|          ADD    T0
03349  M01S00325.242l642 +++|          UJN    PERX        RETURN
03350  M01S00326.242l642 +++|
03351  M01S00327.242l642 +++|*         REDO *DMP=* CALL.
03352  M01S00328.242l642 +++|
03353  M01S00329.242l642 +++| PER3     LDD    CM
Line S00330 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
03354  M02S00330.ns2414  ---|          EXECUTE  3PR       REDO *DMP=* CALL
03355  M01S00012.ns2414  +++|          EXECUTE  3PS       REDO *DMP=* CALL
Line S02354 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03356  M02S02354.242l642 ---| PFP      SPACE  4,15
03357  M01S00331.242l642 +++| PFP      SPACE  4,20
03358  M01S02355.pfm     +++|**        PFP - PROCESS FET PARAMETERS.
03359  M01S02356.pfm     +++|*
03360  M01S02357.pfm     +++|*         ENTRY  (IR+3 - IR+4) = FET ADDRESS.
03361  M01S02358.pfm     +++|*
03362  M01S02359.pfm     +++|*         EXIT   (CN - CN+4) = USER NAME/USER INDEX.
03363  M01S02360.pfm     +++|*                (FN - FN+4) = ACCESS WORD (*AACW*).
03364  M01S00332.242l642 +++|*                (FERT) = REAL-TIME PROCESSING FLAG.
03365  M01S02361.pfm     +++|*                (PFUC) = USER CONTROLS.
03366  M01S02362.pfm     +++|*                (FETL) = LENGTH OF PF PARAMETERS IN FET.
03367  M01S02363.pfm     +++|*                (PRSA - PRSA+1) = AUXILIARY DEVICE TYPE REQUESTED.
Line S02364 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03368  M02S02364.ns2599  ---|*                (PRSD) = UP AND EP EXIT PROCESSING STATUS.
03369  M01S02365.pfm     +++|*                (RQDT - RQDT+1) = REQUESTED DEVICE TYPE.
03370  M01S02366.pfm     +++|*                PARAMETERS FROM FET SET IN PFM PARAMETER BLOCK AREA.
03371  M01S02367.pfm     +++|*
03372  M01S02368.pfm     +++|*         USES   T1, CM - CM+4, CN - CN+4, FN - FN+4.
03373  M01S02369.pfm     +++|*
03374  M01S02370.pfm     +++|*         CALLS  CRS, PSR, PXT, SAP, SFA, VRP.
03375  M01S02371.pfm     +++|*
03376  M01S02372.pfm     +++|*         MACROS ERROR.
03377  M01S02373.pfm     +++|
03378  M01S02374.pfm     +++|
03379  M01S02375.pfm     +++| PFP      SUBR               ENTRY/EXIT
Line S02376 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm22
Seq #  *Modification Id* Act 
----------------------------+
03380  M02S02376.pfm22   ---|          LDD    IR+3        SET FET ADDRESS IN *SFA*
Line S02377 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm22
Seq #  *Modification Id* Act 
----------------------------+
03381  M02S02377.pfm22   ---|          LPN    37
Line S02378 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm22
Seq #  *Modification Id* Act 
----------------------------+
03382  M02S02378.pfm22   ---|          LMC    ADCI
Line S02379 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm22
Seq #  *Modification Id* Act 
----------------------------+
03383  M02S02379.pfm22   ---|          STM    SFAA
Line S02380 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm22
Seq #  *Modification Id* Act 
----------------------------+
03384  M02S02380.pfm22   ---|          LDD    IR+4
Line S02381 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm22
Seq #  *Modification Id* Act 
----------------------------+
03385  M02S02381.pfm22   ---|          STM    SFAA+1
Line S02382 Modification History
M01 (Added by) pfm
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03386  M02S02382.241l630 ---|          RJM    CRS         CHECK RECALL STATUS
Line S02383 Modification History
M01 (Added by) pfm
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03387  M02S02383.241l630 ---|          ZJP    PFP1        IF NOT CALLED WITH AUTO RECALL
Line S02384 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm22
M03 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03388  M03S02384.241l630 ---|          RJM    SFA         VERIFY FET ADDRESS IN FL
Line S00052 Modification History
M01 (Added by) pfm22
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03389  M02S00052.241l630 ---|          RJM    SFA         READ FET+1 PARAMETERS
Line S00005 Modification History
M01 (Added by) 241l630
M02 (Updated by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03390  M02S00005.ns2599  ---|          LDM    TCTL,CC
Line S00006 Modification History
M01 (Added by) 241l630
M02 (Updated by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03391  M02S00006.ns2599  ---|          SHN    21-13
Line S00007 Modification History
M01 (Added by) 241l630
M02 (Updated by) 253l688
M03 (Updated by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03392  M03S00007.ns2599  ---|          PJN    PFP0.1      IF AUTO-RECALL REQUIRED
Line S00008 Modification History
M01 (Added by) 241l630
M02 (Updated by) 253l688
M03 (Updated by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03393  M03S00008.ns2599  ---|          LDC    ZJNI-NJNI   REVERSE ERROR CONDITION ON RECALL
Line S00009 Modification History
M01 (Added by) 241l630
M02 (Updated by) 253l688
M03 (Updated by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03394  M03S00009.ns2599  ---|          RAM    PFPC
Line S00010 Modification History
M01 (Added by) 241l630
M02 (Updated by) 253l688
M03 (Updated by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03395  M03S00010.ns2599  ---| PFP0.1   RJM    CRS         CHECK RECALL STATUS
Line S00011 Modification History
M01 (Added by) 241l630
M02 (Updated by) 253l688
M03 (Updated by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03396  M03S00011.ns2599  ---| PFPC     NJN    PFP0.2      IF CALLED WITH AUTO RECALL
Line S00012 Modification History
M01 (Added by) 241l630
M02 (Updated by) 253l688
M03 (Updated by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03397  M03S00012.ns2599  ---|*         ZJN    PFP0.2      (NON-AUTO RECALL REQUEST)
Line S00013 Modification History
M01 (Added by) 241l630
M02 (Updated by) 253l688
M03 (Updated by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03398  M03S00013.ns2599  ---|          LJM    PFP1        * PFM ARGUMENT ERROR. *
Line S00052 Modification History
M01 (Added by) 253l688
M02 (Updated by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03399  M02S00052.ns2599  ---|          MJN    PFP0.1      IF REQUEST MAY BE MADE WITHOUT AUTO-RECALL
Line S00053 Modification History
M01 (Added by) 253l688
M02 (Updated by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03400  M02S00053.ns2599  ---|          RJM    CRS         CHECK RECALL STATUS
Line S00054 Modification History
M01 (Added by) 253l688
M02 (Updated by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03401  M02S00054.ns2599  ---|          ZJP    PFP1        IF CALLED WITHOUT AUTO RECALL
Line S00014 Modification History
M01 (Added by) 241l630
M02 (Updated by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03402  M02S00014.ns2599  ---|
Line S00015 Modification History
M01 (Added by) 241l630
M02 (Updated by) 253l688
M03 (Updated by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03403  M03S00015.ns2599  ---| PFP0.2   RJM    SFA         VERIFY FET ADDRESS
Line S00055 Modification History
M01 (Added by) 253l688
M02 (Updated by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03404  M02S00055.ns2599  ---| PFP0.1   RJM    SFA         VERIFY FET ADDRESS
03405  M01S00025.ns2599  +++|          RJM    SFA         READ FET+1
03406  M01S02385.pfm     +++|          ADN    1
03407  M01S02386.pfm     +++|          CRD    CM
Line S02387 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm22
Seq #  *Modification Id* Act 
----------------------------+
03408  M02S02387.pfm22   ---|          SHN    -6
Line S02388 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm22
Seq #  *Modification Id* Act 
----------------------------+
03409  M02S02388.pfm22   ---|          SBD    RA
Line S02389 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm22
Seq #  *Modification Id* Act 
----------------------------+
03410  M02S02389.pfm22   ---|          SBD    FL
Line S02390 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm22
Seq #  *Modification Id* Act 
----------------------------+
03411  M02S02390.pfm22   ---|          PJN    PFP1        IF FET OUTSIDE JOB FL
03412  M01S02391.pfm     +++|          LDD    CM          SET DEVICE TYPE FOR AUX PACK PROCESSING
03413  M01S02392.pfm     +++|          STM    PFPB
03414  M01S00333.242l642 +++|          LDD    CM+1        SAVE RT STATUS
03415  M01S00334.242l642 +++|          SHN    0-7
03416  M01S00335.242l642 +++|          LPN    1
03417  M01S00336.242l642 +++|          STM    FERT
Line S02393 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03418  M02S02393.ns2599  ---|          LDD    CM+1        SAVE EP AND UP STATUS
Line S02394 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03419  M02S02394.ns2599  ---|          SHN    0-10
Line S02395 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03420  M02S02395.ns2599  ---|          LPN    3
Line S02396 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03421  M02S02396.ns2599  ---|          STM    PRSD
Line S02397 Modification History
M01 (Added by) pfm
M02 (Updated by) 241l630
M03 (Updated by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03422  M03S02397.ns2599  ---|          LDD    CM+1        SAVE SECURITY PROCESSING BIT
Line S00016 Modification History
M01 (Added by) 241l630
M02 (Updated by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03423  M02S00016.ns2599  ---|          LMN    3
Line S00017 Modification History
M01 (Added by) 241l630
M02 (Updated by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03424  M02S00017.ns2599  ---|          ZJN    PFP0.3      IF BOTH *EP* AND *UP* SPECIFIED
Line S00018 Modification History
M01 (Added by) 241l630
M02 (Updated by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03425  M02S00018.ns2599  ---|          LDM    TCTL,CC
Line S00019 Modification History
M01 (Added by) 241l630
M02 (Updated by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03426  M02S00019.ns2599  ---|          SHN    21-13
Line S00020 Modification History
M01 (Added by) 241l630
M02 (Updated by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03427  M02S00020.ns2599  ---|          MJN    PFP1        IF NON-AUTO RECALL REQUEST
Line S00021 Modification History
M01 (Added by) 241l630
M02 (Updated by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03428  M02S00021.ns2599  ---| PFP0.3   LDD    CM+1        SAVE SECURITY PROCESSING BIT
03429  M01S00026.ns2599  +++|          LDD    CM+1        SAVE SECURITY PROCESSING BIT
03430  M01S02398.pfm     +++|          LPN    10
03431  M01S02399.pfm     +++|          STM    PFSP
03432  M01S02400.pfm     +++|          LDD    CM+3
03433  M01S02401.pfm     +++|          SHN    -6
03434  M01S02402.pfm     +++|          ADN    5           COMPUTE FULL LENGTH
03435  M01S02403.pfm     +++|          STD    T1
Line S02404 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm22
Seq #  *Modification Id* Act 
----------------------------+
03436  M02S02404.pfm22   ---|          LDD    IR+3        CHECK FET ADDRESS
Line S02405 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm22
Seq #  *Modification Id* Act 
----------------------------+
03437  M02S02405.pfm22   ---|          LPN    77
Line S02406 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm22
Seq #  *Modification Id* Act 
----------------------------+
03438  M02S02406.pfm22   ---|          SHN    14
Line S02407 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm22
Seq #  *Modification Id* Act 
----------------------------+
03439  M02S02407.pfm22   ---|          MJN    PFP1        IF ADDRESS OUT OF RANGE
Line S02408 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm22
Seq #  *Modification Id* Act 
----------------------------+
03440  M02S02408.pfm22   ---|          ADD    IR+4
Line S02409 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm22
Seq #  *Modification Id* Act 
----------------------------+
03441  M02S02409.pfm22   ---|          ADD    T1          FET LENGTH
Line S02410 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm22
Seq #  *Modification Id* Act 
----------------------------+
03442  M02S02410.pfm22   ---|          SBN    1
Line S02411 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm22
Seq #  *Modification Id* Act 
----------------------------+
03443  M02S02411.pfm22   ---|          SHN    -6
Line S02412 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm22
Seq #  *Modification Id* Act 
----------------------------+
03444  M02S02412.pfm22   ---|          SBD    FL
Line S02413 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm22
Seq #  *Modification Id* Act 
----------------------------+
03445  M02S02413.pfm22   ---|          MJN    PFP2        IF ADDRESS IN RANGE
Line S00053 Modification History
M01 (Added by) pfm22
M02 (Updated by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03446  M02S00053.ns2599  ---|          UJN    PFP2        SET FET PARAMETERS
03447  M01S00054.pfm22   +++|
03448  M01S00027.ns2599  +++|*         CHECK RECALL STATUS.
03449  M01S00028.ns2599  +++|
03450  M01S00029.ns2599  +++|          LDM    TCTL,CC
03451  M01S00030.ns2599  +++|          SHN    21-13
03452  M01S00031.ns2599  +++|          MJN    PFP1.1      IF REQUEST MAY BE MADE WITHOUT AUTO-RECALL
03453  M01S00032.ns2599  +++|          RJM    CRS         CHECK RECALL STATUS
03454  M01S00033.ns2599  +++|          NJN    PFP2        IF CALLED WITH AUTO RECALL
03455  M01S02414.pfm     +++| PFP1     ERROR  PAE,CH,IW   * PFM ARGUMENT ERROR.*
03456  M01S00034.ns2599  +++|
03457  M01S00035.ns2599  +++| PFP1.1   LDD    CM+1        CHECK ERROR PROCESSING OPTIONS
03458  M01S00036.ns2599  +++|          SHN    0-10
03459  M01S00037.ns2599  +++|          LPN    3
03460  M01S00038.ns2599  +++|          LMN    3
03461  M01S00039.ns2599  +++|          NJN    PFP1        IF EITHER *EP* OR *UP* NOT SPECIFIED
03462  M01S02415.pfm     +++|
03463  M01S02416.pfm     +++|*         SET FET PARAMETERS.
03464  M01S02417.pfm     +++|
Line S02418 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm20
Seq #  *Modification Id* Act 
----------------------------+
03465  M02S02418.pfm20   ---| PFP2     LDD    T1          DETERMINE IF FET WILL FIT IN BUFFER AREA
03466  M01S00001.pfm20   +++| PFP2     LDD    CC
03467  M01S00002.pfm20   +++|          LMN    CCCT
03468  M01S00003.pfm20   +++|          NJN    PFP2.1      IF NOT *CATLIST* COMMAND
03469  M01S00004.pfm20   +++|          LDD    T1
03470  M01S00005.pfm20   +++|          SBN    CFCN+1
03471  M01S00006.pfm20   +++|          MJN    PFP1        IF FET NOT LONG ENOUGH
03472  M01S00007.pfm20   +++| PFP2.1   LDD    T1          DETERMINE IF FET WILL FIT IN BUFFER AREA
03473  M01S02419.pfm     +++|          SBM    FETL
03474  M01S02420.pfm     +++|          PJN    PFP3        IF FET LONGER THAN PF PARAMETERS
03475  M01S02421.pfm     +++|          RAM    FETL        SET FET LENGTH
03476  M01S02422.pfm     +++|
03477  M01S02423.pfm     +++| PFP3     LDM    FETL        READ FET PARAMETERS
03478  M01S02424.pfm     +++|          SBN    CFPN
03479  M01S02425.pfm     +++|          STD    T1
03480  M01S02426.pfm     +++|          MJN    PFP4        IF NONE TO READ
03481  M01S02427.pfm     +++|          ZJN    PFP4        IF NONE TO READ
03482  M01S02428.pfm     +++|          RJM    SFA
03483  M01S02429.pfm     +++|          ADN    CFPN
03484  M01S02430.pfm     +++|          CRM    PFFN,T1
03485  M01S02431.pfm     +++|          LDM    EMRA        CHECK ERROR MESSAGE RETURN ADDRESS
03486  M01S02432.pfm     +++|          LPN    37
03487  M01S02433.pfm     +++|          SHN    14
03488  M01S02434.pfm     +++|          ADM    EMRA+1
Line S02435 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2722
Seq #  *Modification Id* Act 
----------------------------+
03489  M02S02435.ns2722  ---|          ADN    2           CHECK ADDRESS
03490  M01S00011.ns2722  +++|          ADN    3           CHECK ADDRESS
03491  M01S02436.pfm     +++|          SHN    -6
03492  M01S02437.pfm     +++|          SBD    FL
03493  M01S02438.pfm     +++|          MJN    PFP4        IF ADDRESS IN RANGE
03494  M01S02439.pfm     +++|          LDN    0           CLEAR ERROR MESSAGE RETURN ADDRESS
03495  M01S02440.pfm     +++|          STM    EMRA
03496  M01S02441.pfm     +++|          STM    EMRA+1
03497  M01S02442.pfm     +++|          LJM    PFP1        ISSUE ERROR MESSAGE
03498  M01S02443.pfm     +++|
03499  M01S02444.pfm     +++| PFP4     RJM    SAP         SAVE ACCESS PARAMETERS
03500  M01S02445.pfm     +++|          RJM    PXT         PROCESS EXPIRATION TERM
03501  M01S02446.pfm     +++|          LDD    CP          READ USER CONTROL FROM CONTROL POINT
03502  M01S02447.pfm     +++|          ADN    PFCW
03503  M01S02448.pfm     +++|          CRD    FS
03504  M01S02449.pfm     +++|          ADN    UIDW-PFCW   READ USER INDEX
03505  M01S02450.pfm     +++|          CRD    CN
03506  M01S02451.pfm     +++|          CRM    PFAC,ON     READ USER NAME
03507  M01S02452.pfm     +++|          ADN    AACW-UIDW-1
03508  M01S02453.pfm     +++|          CRD    FN          READ USER VALIDATIONS
Line S02454 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm21
Seq #  *Modification Id* Act 
----------------------------+
03509  M02S02454.pfm21   ---|          LDD    FS+4        SAVE PF USER CONTROL VALIDATIONS
03510  M01S00001.pfm21   +++|          LDM    SSJS
03511  M01S00002.pfm21   +++|          ZJN    PFP4.1      IF NOT *SSJ=*
03512  M01S00003.pfm21   +++|          LDD    CN+3        CHECK USER INDEX
03513  M01S00004.pfm21   +++|          LPN    37
03514  M01S00005.pfm21   +++|          SHN    14
03515  M01S00006.pfm21   +++|          LMD    CN+4
03516  M01S00007.pfm21   +++|          LMC    SYUI
03517  M01S00008.pfm21   +++|          NJN    PFP4.1      IF NOT *SYSTEMX*
03518  M01S00009.pfm21   +++|          LCN    0           SET UNLIMITED VALIDATIONS
03519  M01S00010.pfm21   +++|          STD    FS+4
03520  M01S00011.pfm21   +++| PFP4.1   LDD    FS+4        SAVE PF USER CONTROL VALIDATIONS
03521  M01S02455.pfm     +++|          STM    PFUC
03522  M01S02456.pfm     +++|          RJM    PSR         PROCESS SPECIAL REQUEST BLOCK
03523  M01S02457.pfm     +++|          NJN    PFP5        IF NOT SPECIAL REQUEST
03524  M01S02458.pfm     +++|          LJM    PFPX        RETURN
03525  M01S02459.pfm     +++|
03526  M01S02460.pfm     +++|*         DETERMINE AUXILIARY PACKNAME AND DEVICE TYPE.
03527  M01S02461.pfm     +++|
03528  M01S02462.pfm     +++| PFP5     RJM    VRP         VERIFY PARAMETERS
03529  M01S00003.ns2350  +++|          LDK    PFNL        PRESET SYSTEM DEFAULT PACK TYPE
03530  M01S00004.ns2350  +++|          CRD    CM
03531  M01S00005.ns2350  +++|          LDD    CM+1
03532  M01S00006.ns2350  +++|          SCN    77
03533  M01S00007.ns2350  +++|          SHN    6
03534  M01S00008.ns2350  +++|          LMD    CM
03535  M01S00009.ns2350  +++|          SHN    6
03536  M01S00010.ns2350  +++|          STM    RQDT+1
03537  M01S00011.ns2350  +++|          SHN    -14
03538  M01S00012.ns2350  +++|          STM    RQDT
03539  M01S02463.pfm     +++|          LDM    PFPN+4      SAVE UNIT COUNT
03540  M01S02464.pfm     +++|          STM    PFPA
03541  M01S02465.pfm     +++|          LDD    IA          READ INPUT REGISTER
03542  M01S02466.pfm     +++|          CRD    CM
03543  M01S02467.pfm     +++|          LDD    CM+2
03544  M01S02468.pfm     +++|          SCN    77
03545  M01S02469.pfm     +++|          NJN    PFP6        IF *IP* OR *DF* SPECIFIED
03546  M01S02470.pfm     +++|          LDM    PFPN
03547  M01S02471.pfm     +++|          ZJN    PFP8        IF PACKNAME NOT SPECIFIED IN FET
03548  M01S02472.pfm     +++|          LMC    1R0*100
03549  M01S02473.pfm     +++|          NJP    PFP9        IF NOT *PN.EQ.0*
03550  M01S02474.pfm     +++|
03551  M01S02475.pfm     +++|*         CLEAR PACKNAME.
03552  M01S02476.pfm     +++|
03553  M01S02477.pfm     +++| PFP6     LDN    0           CLEAR PACKNAME
03554  M01S02478.pfm     +++|          STM    PFPN
03555  M01S02479.pfm     +++|          LDD    CM+2
03556  M01S02480.pfm     +++|          SHN    21-11
03557  M01S02481.pfm     +++|          PJN    PFP7        IF NOT *DF* (FORCE SYSTEM DEFAULT FAMILY)
03558  M01S02482.pfm     +++|          LDM    SSJS
03559  M01S02483.pfm     +++|          ZJP    PFP1        IF NOT *SSJ=* PROGRAM
03560  M01S02484.pfm     +++|          LDC    PFNL
03561  M01S02485.pfm     +++|          CRD    FS
Line S02486 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03562  M02S02486.ns2776  ---| PFP7     LJM    PFP11       SET FAMILY EQUIPMENT
03563  M01S00057.ns2776  +++| PFP7     UJN    PFP9.1      SET FAMILY EQUIPMENT
03564  M01S02487.pfm     +++|
03565  M01S02488.pfm     +++|*         NO PACKNAME IN FET - SET PACKNAME AND DEVICE TYPE FROM CPA.
03566  M01S02489.pfm     +++|
03567  M01S02490.pfm     +++| PFP8     LDD    CP          SET PACKNAME AND DEVICE TYPE FROM CPA
03568  M01S02491.pfm     +++|          ADC    PKNW
03569  M01S02492.pfm     +++|          CRM    PFPN,ON
03570  M01S02493.pfm     +++|          LDM    PFPN+4
03571  M01S02494.pfm     +++|          ZJN    PFP9        IF DEVICE TYPE NOT SPECIFIED IN CPA
03572  M01S02495.pfm     +++|          STM    RQDT+1      SET DEVICE TYPE
03573  M01S02496.pfm     +++|          LDM    PFPN+3
03574  M01S02497.pfm     +++|          LPN    37
Line S02498 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03575  M02S02498.ns2776  ---|          LMD    HN          SET USER REQUESTED DEVICE
Line S02499 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03576  M02S02499.ns2776  ---|          STM    RQDT
Line S02500 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03577  M02S02500.ns2776  ---|          UJN    PFP11       SET FAMILY EQUIPMENT
03578  M01S00058.ns2776  +++|          UJN    PFP10.1     SET USER REQUESTED AND FAMILY EQUIPMENT
03579  M01S02501.pfm     +++|
03580  M01S02502.pfm     +++|*         SET DEVICE TYPE FROM FET.
03581  M01S02503.pfm     +++|
03582  M01S02504.pfm     +++| PFP9     LDN    CFPK        CHECK FET LENGTH
03583  M01S02505.pfm     +++|          SBM    FETL
Line S02506 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03584  M02S02506.ns2776  ---|          PJN    PFP11       IF FET TOO SHORT FOR UNIT COUNT
03585  M01S00059.ns2776  +++| PFP9.1   PJN    PFP11       IF FET TOO SHORT FOR UNIT COUNT
03586  M01S02507.pfm     +++|          LDC    *
03587  M01S02508.pfm     +++| PFPA     EQU    *-1         (UNIT COUNT SPECIFIED IN FET)
03588  M01S02509.pfm     +++|          NJN    PFP10       IF UNIT COUNT SPECIFIED
03589  M01S02510.pfm     +++|          LDN    1           SET DEFAULT COUNT
03590  M01S02511.pfm     +++| PFP10    ADN    1R0         CONVERT TO DISPLAY CODE
03591  M01S02512.pfm     +++|          STD    T1
03592  M01S02513.pfm     +++|          LDC    *
03593  M01S02514.pfm     +++| PFPB     EQU    *-1         (DEVICE TYPE SPECIFIED IN FET)
03594  M01S02515.pfm     +++|          ZJN    PFP11       IF NO DEVICE TYPE SPECIFIED
03595  M01S02516.pfm     +++|          LPC    3777        SET REQUESTED DEVICE TYPE
03596  M01S02517.pfm     +++|          SHN    6
03597  M01S02518.pfm     +++|          LMD    T1
03598  M01S02519.pfm     +++|          STM    RQDT+1
03599  M01S02520.pfm     +++|          SHN    -14
Line S02521 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03600  M02S02521.ns2776  ---|          LMD    HN          SET *USER REQUESTED DEVICE* FLAG
03601  M01S00060.ns2776  +++| PFP10.1  LMD    HN          SET *USER REQUESTED DEVICE* FLAG
03602  M01S02522.pfm     +++|          STM    RQDT
03603  M01S02523.pfm     +++|
03604  M01S02524.pfm     +++|*         SET FAMILY EQUIPMENT.
03605  M01S02525.pfm     +++|
03606  M01S02526.pfm     +++| PFP11    LDD    FS+3
03607  M01S02527.pfm     +++|          STM    PFPN+4
03608  M01S02528.pfm     +++|          LJM    PFPX        RETURN
03609  M01S02529.pfm     +++| PSR      SPACE  4,15
03610  M01S02530.pfm     +++|**        PSR - PROCESS SPECIAL REQUEST BLOCK.
03611  M01S02531.pfm     +++|*
03612  M01S02532.pfm     +++|*         ENTRY  (CC) = COMMAND CODE.
03613  M01S02533.pfm     +++|*                (FS - FS+4) = (PFCW) FROM CONTROL POINT AREA.
03614  M01S02534.pfm     +++|*                (PFRB - PFRB+1) = SPECIAL REQUEST BLOCK ADDRESS.
03615  M01S00056.253l688 +++|*                (SSJS) .NE. 0 IF CALLED BY *SSJ=* PROGRAM.
03616  M01S02535.pfm     +++|*
03617  M01S02536.pfm     +++|*         EXIT   (A) = 0 IF SPECIAL REQUEST.
03618  M01S02537.pfm     +++|*                (CN+3 - CN+4) = USER INDEX.
03619  M01S02538.pfm     +++|*                (PFPN - PFPN+4) = 42/ NAME, 6/, 12/ FAMILY EQ.
03620  M01S02539.pfm     +++|*                (PFUC) = USER CONTROLS.
03621  M01S02540.pfm     +++|*                (PFSB - PFFN) = SPECIAL REQUEST BLOCK SETUP.
03622  M01S00057.253l688 +++|*                *STTA* SET IN *STAT* IF TAPE ALTERNATE STORAGE REQUEST.
03623  M01S02541.pfm     +++|*
Line S02542 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm19
Seq #  *Modification Id* Act 
----------------------------+
03624  M02S02542.pfm19   ---|*         USES   T5, T6, CM - CM+4, CN - CN+4, T0 - T0+4.
03625  M01S00001.pfm19   +++|*         USES   T5, T6, CM - CM+4, CN - CN+4, T0 - T0+4, T7 - T7+4.
03626  M01S02543.pfm     +++|*
03627  M01S02544.pfm     +++|*         CALLS  VCA.
03628  M01S02545.pfm     +++|*
03629  M01S02546.pfm     +++|*         MACROS ERROR, SFA.
03630  M01S02547.pfm     +++|
03631  M01S02548.pfm     +++|
03632  M01S00061.ns2776  +++| PSR12    LDN    1           INDICATE NO SRB
03633  M01S00062.ns2776  +++|
03634  M01S02549.pfm     +++| PSR      SUBR               ENTRY/EXIT
03635  M01S02550.pfm     +++|          LDM    TCTL,CC
03636  M01S02551.pfm     +++|          SHN    21-12
Line S02552 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03637  M02S02552.253l688 ---|          MJN    PSR2        IF SPECIAL REQUEST
Line S02553 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03638  M02S02553.253l688 ---| PSR1     LDN    1
Line S00058 Modification History
M01 (Added by) 253l688
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03639  M02S00058.ns2776  ---|          MJN    PSR2        IF SPECIAL REQUEST BLOCK ALLOWED
Line S00059 Modification History
M01 (Added by) 253l688
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03640  M02S00059.ns2776  ---| PSR1     LDN    1           INDICATE NO SRB
Line S02554 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03641  M02S02554.ns2776  ---|          UJN    PSRX        RETURN
03642  M01S00063.ns2776  +++| PSR1     PJN    PSR12       IF NO SPECIAL REQUEST BLOCK ALLOWED
03643  M01S02555.pfm     +++|
Line S02556 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03644  M02S02556.253l688 ---|*         READ SPECIAL REQUEST BLOCK
03645  M01S00060.253l688 +++|*         READ SPECIAL REQUEST BLOCK (SRB).
03646  M01S02557.pfm     +++|
03647  M01S02558.pfm     +++| PSR2     LDM    PFRB        CHECK LOCATION OF SPECIAL REQUEST BLOCK
03648  M01S02559.pfm     +++|          LPN    37
03649  M01S02560.pfm     +++|          SHN    14
03650  M01S02561.pfm     +++|          ADM    PFRB+1
03651  M01S02562.pfm     +++|          NJN    PSR3        IF ADDRESS SPECIFIED
03652  M01S00061.253l688 +++|
03653  M01S00062.253l688 +++|*         NO SRB SPECIFIED ON FUNCTION WHICH ALLOWS SRB.  FOR *DROPDS*,
03654  M01S00063.253l688 +++|*         *DROPIDS* AND *PURGE* - ALLOW EVEN WITH NO *SSJ=*.
03655  M01S00064.253l688 +++|*         FOR *ASSIGNPF*, *UATTACH* AND *UGET* - ALLOW WITH *SSJ=*.
03656  M01S00065.253l688 +++|*         FOR ALL OTHER SRB-TYPE FUNCTIONS - DO NOT ALLOW.
03657  M01S00066.253l688 +++|
03658  M01S02563.pfm     +++|          LDD    CC
Line S02564 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03659  M02S02564.253l688 ---|          LMN    CCUA
Line S02565 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03660  M02S02565.253l688 ---|          ZJN    PSR1        IF *UATTACH*, ALLOW NO SPECIAL REQUEST
03661  M01S00067.253l688 +++|          LMN    CCPG
03662  M01S00068.253l688 +++|          ZJN    PSR1        IF *PURGE*
03663  M01S00069.253l688 +++|          LMN    CCDD&CCPG
03664  M01S00070.253l688 +++|          ZJN    PSR1        IF *DROPDS*
03665  M01S00071.253l688 +++|          LMN    CCDI&CCDD
03666  M01S00072.253l688 +++|          ZJN    PSR1        IF *DROPIDS*
03667  M01S00073.253l688 +++|          LMN    CCUA&CCDI
03668  M01S00074.253l688 +++|          ZJN    PSR2.1      IF *UATTACH*
03669  M01S02566.pfm     +++|          LMN    CCUG&CCUA
Line S02567 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03670  M02S02567.253l688 ---|          ZJN    PSR1        IF *UGET*, ALLOW NO SPECIAL REQUEST BLOCK
03671  M01S00075.253l688 +++|          ZJN    PSR2.1      IF *UGET*
03672  M01S02568.pfm     +++|          LMN    CCAN&CCUG
Line S02569 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
03673  M02S02569.ns2414  ---|          NJN    PSR4        IF NOT *ASSIGNPF*
Line S00013 Modification History
M01 (Added by) ns2414
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03674  M02S00013.253l688 ---|          ZJN    PSR1        IF *ASSIGNPF*, ALLOW NO SPECIAL REQUEST
Line S00014 Modification History
M01 (Added by) ns2414
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03675  M02S00014.253l688 ---|          LMN    CCDD&CCAN
Line S00015 Modification History
M01 (Added by) ns2414
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03676  M02S00015.253l688 ---|          ZJN    PSR1        IF *DROPDS*, ALLOW NO SPECIAL REQUEST
Line S00016 Modification History
M01 (Added by) ns2414
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03677  M02S00016.253l688 ---|          LMN    CCDI&CCDD
Line S00017 Modification History
M01 (Added by) ns2414
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03678  M02S00017.253l688 ---|          NJN    PSR4        IF NOT *DROPIDS*
Line S02570 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03679  M02S02570.253l688 ---|          UJN    PSR1        DO NOT PROCESS AS SPECIAL REQUEST
03680  M01S00076.253l688 +++|          NJN    PSR4        IF NOT *ASSIGNPF*
03681  M01S00077.253l688 +++| PSR2.1   LDM    SSJS
03682  M01S00078.253l688 +++|          NJN    PSR1        IF *SSJ=*
03683  M01S00079.253l688 +++| PSR2.2   ERROR  ILR,CH,IW   * PFM INCORRECT REQUEST.*
03684  M01S02571.pfm     +++|
03685  M01S02572.pfm     +++| PSR3     ADN    SFBL-1
03686  M01S02573.pfm     +++|          SHN    -6
03687  M01S02574.pfm     +++|          SBD    FL
03688  M01S02575.pfm     +++|          MJN    PSR5        IF IN RANGE OF FIELD LENGTH
03689  M01S02576.pfm     +++| PSR4     ERROR  PAE,CH,IW   * PFM ARGUMENT ERROR.*
03690  M01S02577.pfm     +++|
Line S02578 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03691  M02S02578.253l688 ---| PSR5     LDN    SFBL        READ SPECIAL REQUEST BLOCK
03692  M01S00080.253l688 +++| PSR5     LDM    SSJS        ALWAYS REQUIRE *SSJ=* IF SRB SPECIFIED
03693  M01S00081.253l688 +++|          ZJN    PSR2.2      IF NOT *SSJ=*
03694  M01S00082.253l688 +++|          LDN    SFBL        READ SPECIAL REQUEST BLOCK
03695  M01S02579.pfm     +++|          STD    T1
03696  M01S02580.pfm     +++|          LDM    PFRB
03697  M01S02581.pfm     +++|          LPN    37
03698  M01S02582.pfm     +++|          SHN    6
03699  M01S02583.pfm     +++|          ADD    RA
03700  M01S02584.pfm     +++|          SHN    6
03701  M01S02585.pfm     +++|          ADM    PFRB+1
03702  M01S02586.pfm     +++|          CRM    PFSB,T1
Line S02587 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03703  M02S02587.253l688 ---|          LDN    ZERL        INITIALIZE FOR USER INDEX
03704  M01S00083.253l688 +++|          LDM    PFSB+5+1
03705  M01S00084.253l688 +++|          SHN    21-6
03706  M01S00085.253l688 +++|          PJN    PSR5.1      IF NOT TAPE ALTERNATE STORAGE REQUEST
03707  M01S00086.253l688 +++|          LDN    STTA        SET TAPE FLAG
03708  M01S00087.253l688 +++|          RAM    STAT
03709  M01S00088.253l688 +++| PSR5.1   LDN    ZERL        INITIALIZE FOR USER INDEX
03710  M01S02588.pfm     +++|          CRD    CN
03711  M01S02589.pfm     +++|          LDM    PFSU        SET USER INDEX
03712  M01S02590.pfm     +++|          LPN    77
03713  M01S02591.pfm     +++|          STD    CN+3
03714  M01S02592.pfm     +++|          LDM    PFSU+1
03715  M01S02593.pfm     +++|          STD    CN+4
03716  M01S02594.pfm     +++|
03717  M01S02595.pfm     +++|*         FIND THE FAMILY EST ORDINAL BASED ON THE FAMILY NAME AND
03718  M01S02596.pfm     +++|*         DEVICE NUMBER.
03719  M01S02597.pfm     +++|
03720  M01S02598.pfm     +++|          LDN    ESTP        READ EST SEARCH POINTERS
03721  M01S02599.pfm     +++|          CRD    T0
03722  M01S02600.pfm     +++|          LDN    NOPE-1      INITIALIZE EST ORDINAL FOR SEARCH
03723  M01S02601.pfm     +++|          STD    T5
03724  M01S02602.pfm     +++|          LDD    T0+3        SAVE LAST MASS STORAGE ORDINAL + 1
03725  M01S02603.pfm     +++|          STD    T6
03726  M01S02604.pfm     +++| PSR6     AOD    T5          ADVANCE EST ORDINAL
03727  M01S02605.pfm     +++|          LMD    T6
03728  M01S02606.pfm     +++|          NJN    PSR7        IF NOT END OF MASS STORAGE DEVICES
03729  M01S02607.pfm     +++|          ERROR  IPA,CH,IW   * INCORRECT PFC ADDRESS.*
03730  M01S02608.pfm     +++|
03731  M01S02609.pfm     +++| PSR7     SFA    EST,T5
03732  M01S02610.pfm     +++|          ADK    EQDE
03733  M01S02611.pfm     +++|          CRD    CM
03734  M01S02612.pfm     +++|          LDD    CM          CHECK FOR MASS STORAGE DEVICE
Line S02613 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm69
Seq #  *Modification Id* Act 
----------------------------+
03735  M02S02613.pfm69   ---|          SHN    21-13
Line S02614 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm69
Seq #  *Modification Id* Act 
----------------------------+
03736  M02S02614.pfm69   ---|          PJN    PSR6        IF NOT MASS STORAGE DEVICE
03737  M01S00001.pfm69   +++|          SHN    -6
03738  M01S00002.pfm69   +++|          LPN    41
03739  M01S00003.pfm69   +++|          LMN    40
03740  M01S00004.pfm69   +++|          NJN    PSR6        IF UNAVAILABLE OR NON-MS DEVICE
03741  M01S00002.pfm19   +++|          LDD    CM+3        SAVE DEVICE TYPE
03742  M01S00003.pfm19   +++|          STM    PSRB
03743  M01S02615.pfm     +++|          LDD    CM+4        READ MST
03744  M01S00004.pfm19   +++|          STM    PSRA        SAVE MST ADDRESS
03745  M01S02616.pfm     +++|          SHN    3
03746  M01S00005.pfm69   +++|          ADN    STLL
03747  M01S00006.pfm69   +++|          CRD    T0
03748  M01S00007.pfm69   +++|          LDD    T0
03749  M01S00008.pfm69   +++|          LPC    MLFPR+MLIAL+MLIHD+MLIFD+MLIPF+MLUNL+MLDUL
03750  M01S00009.pfm69   +++| PSR7.1   NJN    PSR6        IF INITIALIZE PENDING OR UNLOADED
03751  M01S00010.pfm69   +++|          LDM    PSRA
03752  M01S00011.pfm69   +++|          SHN    3
03753  M01S02617.pfm     +++|          ADN    PFGL
03754  M01S02618.pfm     +++|          CRD    T0
03755  M01S02619.pfm     +++|          LDM    PFFM        COMPARE FAMILY NAME
03756  M01S02620.pfm     +++|          LMD    T0
Line S02621 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm69
Seq #  *Modification Id* Act 
----------------------------+
03757  M02S02621.pfm69   ---|          NJN    PSR6        IF FAMILY NAME DOES NOT MATCH
03758  M01S00012.pfm69   +++| PSR8     NJN    PSR7.1      IF FAMILY NAME DOES NOT MATCH
03759  M01S02622.pfm     +++|          LDM    PFFM+1
03760  M01S02623.pfm     +++|          LMD    T0+1
Line S02624 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm69
Seq #  *Modification Id* Act 
----------------------------+
03761  M02S02624.pfm69   ---|          NJN    PSR6        IF FAMILY NAME DOES NOT MATCH
03762  M01S00013.pfm69   +++|          NJN    PSR8        IF FAMILY NAME DOES NOT MATCH
03763  M01S02625.pfm     +++|          LDM    PFFM+2
03764  M01S02626.pfm     +++|          LMD    T0+2
Line S02627 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm19
Seq #  *Modification Id* Act 
----------------------------+
03765  M02S02627.pfm19   ---| PSR8     NJN    PSR6        IF FAMILY NAME DOES NOT MATCH
Line S00005 Modification History
M01 (Added by) pfm19
M02 (Updated by) pfm69
Seq #  *Modification Id* Act 
----------------------------+
03766  M02S00005.pfm69   ---| PSR8     NJP    PSR6        IF FAMILY NAME DOES NOT MATCH
03767  M01S00014.pfm69   +++|          NJN    PSR8        IF FAMILY NAME DOES NOT MATCH
03768  M01S02628.pfm     +++|          LDM    PFFM+3
03769  M01S02629.pfm     +++|          LMD    T0+3
03770  M01S02630.pfm     +++|          SCN    77
03771  M01S02631.pfm     +++|          NJN    PSR8        IF FAMILY NAME DOES NOT MATCH
03772  M01S02632.pfm     +++|          LDD    CC          CHECK COMMAND CODE
03773  M01S02633.pfm     +++|          LMN    CCAN
03774  M01S02634.pfm     +++|          ZJN    PSR9        IF *ASSIGNPF* COMMAND
03775  M01S02635.pfm     +++|          LDM    PFID        COMPARE DEVICE NUMBER
03776  M01S02636.pfm     +++|          LMD    T0+3
03777  M01S02637.pfm     +++|          LPN    77
03778  M01S02638.pfm     +++|          NJN    PSR8        IF DEVICE NUMBER DOES NOT MATCH
03779  M01S02639.pfm     +++|
03780  M01S02640.pfm     +++|*         THE EST ORDINAL HAS BEEN IDENTIFIED.
03781  M01S02641.pfm     +++|
03782  M01S02642.pfm     +++|          RJM    VCA         VERIFY THE CATALOG ADDRESS *PFID*
Line S02643 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm19
Seq #  *Modification Id* Act 
----------------------------+
03783  M02S02643.pfm19   ---| PSR9     LDD    T5          SET FAMILY EST ORDINAL
Line S02644 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm19
Seq #  *Modification Id* Act 
----------------------------+
03784  M02S02644.pfm19   ---|          STM    PFPN+4
Line S02645 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm19
Seq #  *Modification Id* Act 
----------------------------+
03785  M02S02645.pfm19   ---|          LDD    FS+4        SET USER CONTROL BIT
03786  M01S00006.pfm19   +++| PSR9     LDD    FS+4        SET USER CONTROL BIT
03787  M01S02646.pfm     +++|          STM    PFUC
03788  M01S02647.pfm     +++|          LDM    PFPN        CHECK FET FIELDS
03789  M01S02648.pfm     +++|          ADM    PFOU
Line S02649 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm19
Seq #  *Modification Id* Act 
----------------------------+
03790  M02S02649.pfm19   ---|          NJN    PSR10       IF *PN* OR *UN* SPECIFIED
Line S02650 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm19
Seq #  *Modification Id* Act 
----------------------------+
03791  M02S02650.pfm19   ---|          LJM    PSRX        RETURN
Line S02651 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm19
Seq #  *Modification Id* Act 
----------------------------+
03792  M02S02651.pfm19   ---|
Line S02652 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm19
Seq #  *Modification Id* Act 
----------------------------+
03793  M02S02652.pfm19   ---| PSR10    LJM    PSR4        * PFM ARGUMENT ERROR.*
03794  M01S00007.pfm19   +++|          NJP    PSR4        IF *PN* OR *UN* SPECIFIED
03795  M01S00008.pfm19   +++|          LDC    *           CHECK IF DEVICE IS AUXILIARY PACK
03796  M01S00009.pfm19   +++| PSRA     EQU    *-1         (MST ADDRESS/10)
03797  M01S00010.pfm19   +++|          SHN    3
03798  M01S00011.pfm19   +++|          ADN    MDGL
03799  M01S00012.pfm19   +++|          CRD    T0
03800  M01S00013.pfm19   +++|          ADN    DDLL-MDGL
03801  M01S00014.pfm19   +++|          CRD    T7
03802  M01S00015.pfm19   +++|          LDD    T0+0
03803  M01S00016.pfm19   +++|          SHN    21-12
03804  M01S00017.pfm19   +++|          MJN    PSR10       IF AUXILIARY PACK
03805  M01S00018.pfm19   +++|          LDD    T5          SET EST ORDINAL OF SPECIFIED DEVICE
03806  M01S00019.pfm19   +++|          UJN    PSR11       SET FAMILY EST ORDINAL
03807  M01S00020.pfm19   +++|
03808  M01S00021.pfm19   +++| PSR10    LDD    MA          SET PACKNAME INTO *PFPN*
03809  M01S00022.pfm19   +++|          CWM    PFFM,ON
03810  M01S00023.pfm19   +++|          SBN    1
03811  M01S00024.pfm19   +++|          CRM    PFPN,ON
03812  M01S00025.pfm19   +++|          LDD    T7+0        GET UNIT COUNT
03813  M01S00026.pfm19   +++|          LPN    7
03814  M01S00027.pfm19   +++|          ADN    1R1
03815  M01S00028.pfm19   +++|          SHN    14
03816  M01S00029.pfm19   +++|          LMC    *
03817  M01S00030.pfm19   +++| PSRB     EQU    *-1         (DEVICE TYPE)
03818  M01S00031.pfm19   +++|          SHN    6
03819  M01S00032.pfm19   +++|          STM    RQDT+1      SET REQUESTED DEVICE TYPE
03820  M01S00033.pfm19   +++|          SHN    -14
03821  M01S00034.pfm19   +++|          STM    RQDT
03822  M01S00035.pfm19   +++|          LDD    FS+3        SET FAMILY EST ORDINAL FROM CPA
03823  M01S00036.pfm19   +++| PSR11    STM    PFPN+4      SET FAMILY EST ORDINAL
03824  M01S00037.pfm19   +++|          LDN    0           INDICATE SPECIAL REQUEST BLOCK PRESENT
03825  M01S00038.pfm19   +++|          LJM    PSRX        RETURN
03826  M01S02653.pfm     +++| PXT      SPACE  4,20
03827  M01S02654.pfm     +++|**        PXT -  PROCESS EXPIRATION TERM.
03828  M01S02655.pfm     +++|*
03829  M01S02656.pfm     +++|*         CONVERT EXPIRATION TERM INTO PACKED DATE, AND CHECK AGAINST
03830  M01S02657.pfm     +++|*         MAXIMUM ALLOWED BY SYSTEM.
03831  M01S02658.pfm     +++|*
03832  M01S02659.pfm     +++|*         ENTRY  (PFXT - PFXT+1) = USER SPECIFIED EXPIRATION DATE/TERM.
03833  M01S02660.pfm     +++|*                (CC) = COMMAND CODE.
03834  M01S02661.pfm     +++|*                (SVAL) = SECURITY VALIDATION BITS.
03835  M01S02662.pfm     +++|*
03836  M01S02663.pfm     +++|*         EXIT   (PXDT - PXDT+1) = VALIDATED EXPIRATION DATE.
03837  M01S02664.pfm     +++|*                (PXDT - PXDT+1) = 0 IF NONEXPIRING PASSWORD/PERMIT.
03838  M01S02665.pfm     +++|*
03839  M01S02666.pfm     +++|*         USES   T1, T2, CM - CM+4, CN - CN+4.
03840  M01S02667.pfm     +++|*
03841  M01S02668.pfm     +++|*         MACROS ERROR, MONITOR.
03842  M01S02669.pfm     +++|
03843  M01S02670.pfm     +++|
03844  M01S02671.pfm     +++| PXT      SUBR               ENTRY/EXIT
03845  M01S02672.pfm     +++|          LDM    TCTL,CC
03846  M01S02673.pfm     +++|          SHN    21-10
03847  M01S02674.pfm     +++|          PJN    PXTX        IF COMMAND DOES NOT ALLOW *XT*
03848  M01S02675.pfm     +++|          LDN    ZERL
03849  M01S02676.pfm     +++|          CRD    CM
03850  M01S02677.pfm     +++|          LDN    RIDS        SET UP *RDCM* PARAMETERS
03851  M01S02678.pfm     +++|          STD    CM+1
03852  M01S02679.pfm     +++|          LDM    PFXT        CHECK *XD/XT*
03853  M01S02680.pfm     +++|          LPN    77
03854  M01S02681.pfm     +++|          STD    T1
03855  M01S02682.pfm     +++|          SHN    14
03856  M01S02683.pfm     +++|          LMM    PFXT+1
03857  M01S02684.pfm     +++|          STD    T2
03858  M01S02685.pfm     +++|          NJN    PXT1        IF *XD/XT* SPECIFIED
03859  M01S02686.pfm     +++|          LDK    FPXT        USE SYSTEM DEFAULT *XT*
03860  M01S02687.pfm     +++|          STD    T2
03861  M01S02688.pfm     +++|          LJM    PXT8        SET DEFAULT *XT*
03862  M01S02689.pfm     +++|
03863  M01S02690.pfm     +++| PXT1     LDN    STXD        INDICATE THAT DATE WAS SPECIFIED
03864  M01S02691.pfm     +++|          RAM    STAT
03865  M01S02692.pfm     +++|          LDM    SVAL        CHECK PASSWORD EXPIRATION VALIDATION
03866  M01S02693.pfm     +++|          SHN    21-10
03867  M01S02694.pfm     +++|          MJN    PXT2        IF USER VALIDATED TO SET EXPIRATION DATE
03868  M01S02695.pfm     +++|          ERROR  NVX,CH,IW   *NOT VALIDATED TO SET XD/XT.*
03869  M01S02696.pfm     +++|
03870  M01S02697.pfm     +++| PXT2     LDD    T1
03871  M01S02698.pfm     +++|          ZJP    PXT7        IF *XT* SPECIFIED RATHER THAN *XD*
03872  M01S02699.pfm     +++|
03873  M01S02700.pfm     +++|*         VALIDATE SPECIFIED EXPIRATION DATE.
03874  M01S02701.pfm     +++|
03875  M01S02702.pfm     +++| PXT3     LDK    FPXL        READ MAXIMUM *XT* ALLOWED
03876  M01S02703.pfm     +++|          LMC    7777
03877  M01S02704.pfm     +++|          ZJN    PXT4        IF MAXIMUM IS UNLIMITED
03878  M01S02705.pfm     +++|          LDK    FPXL        CONVERT MAXIMUM *XT* TO *XD*
03879  M01S02706.pfm     +++|          STD    CM+4
03880  M01S02707.pfm     +++|          MONITOR  RDCM
03881  M01S02708.pfm     +++|          LDD    MA
03882  M01S02709.pfm     +++|          CRD    CN          COMPARE *XD* SPECIFIED WITH MAXIMUM *XD*
03883  M01S02710.pfm     +++|          LDD    CN+3
03884  M01S02711.pfm     +++|          SBD    T1
03885  M01S02712.pfm     +++|          MJN    PXT6        IF DATE BEYOND MAXIMUM
03886  M01S02713.pfm     +++|          SHN    14
03887  M01S02714.pfm     +++|          ADD    CN+4
03888  M01S02715.pfm     +++|          SBD    T2
03889  M01S02716.pfm     +++|          MJN    PXT6        IF DATE BEYOND MAXIMUM
03890  M01S02717.pfm     +++|
03891  M01S02718.pfm     +++|*         SAVE PASSWORD/PERMIT EXPIRATION DATE.
03892  M01S02719.pfm     +++|
03893  M01S02720.pfm     +++| PXT4     LDD    T1
03894  M01S02721.pfm     +++|          SHN    14
03895  M01S02722.pfm     +++|          LMD    T2
03896  M01S02723.pfm     +++| PXT5     STM    PXDT+1
03897  M01S02724.pfm     +++|          SHN    -14
03898  M01S02725.pfm     +++|          STM    PXDT
03899  M01S02726.pfm     +++|          LJM    PXTX        RETURN
03900  M01S02727.pfm     +++|
03901  M01S02728.pfm     +++| PXT6     ERROR  DEM,CH,IW   *XD/XT EXCEEDS MAXIMUM.*
03902  M01S02729.pfm     +++|
03903  M01S02730.pfm     +++|*         PROCESS EXPIRATION TERM.
03904  M01S02731.pfm     +++|
03905  M01S02732.pfm     +++| PXT7     LDK    FPXL        COMPARE TO MAXIMUM *XT*
03906  M01S02733.pfm     +++|          SBD    T2
03907  M01S02734.pfm     +++|          MJN    PXT6        IF MAXIMUM *XT* EXCEEDED
03908  M01S02735.pfm     +++| PXT8     LDD    T2
03909  M01S02736.pfm     +++|          LMC    7777
03910  M01S02737.pfm     +++|          ZJN    PXT5        IF NON-EXPIRING TERM SPECIFIED
03911  M01S02738.pfm     +++|          LDD    T2          CONVERT *XT* INTO *XD*
03912  M01S02739.pfm     +++|          STD    CM+4
03913  M01S02740.pfm     +++|          MONITOR  RDCM
03914  M01S02741.pfm     +++|          LDD    MA          READ RESULT
03915  M01S02742.pfm     +++|          CRD    CN
03916  M01S02743.pfm     +++|          LDD    CN+3
03917  M01S02744.pfm     +++|          SHN    14
03918  M01S02745.pfm     +++|          LMD    CN+4
03919  M01S02746.pfm     +++|          UJN    PXT5        STORE DATE
03920  M01S02747.pfm     +++| SAP      SPACE  4,15
03921  M01S02748.pfm     +++|**        SAP - SAVE ACCESS PARAMETERS.
03922  M01S02749.pfm     +++|*
03923  M01S02750.pfm     +++|*         ENTRY  (CC) = COMMAND CODE.
03924  M01S02751.pfm     +++|*
03925  M01S02752.pfm     +++|*         EXIT   (PFFC - PFFC+2) = SPECIFIED ACCESS CATEGORY SET.
03926  M01S02753.pfm     +++|*                (PFAL) = JOB ACCESS LEVEL.
03927  M01S02754.pfm     +++|*                (LFAL) = SPECIFIED ACCESS LEVEL(IF ANY),DEFAULT PFAL.
03928  M01S02755.pfm     +++|*                (SVAL) = SECURITY VALIDATION BITS.
03929  M01S02756.pfm     +++|*
03930  M01S02757.pfm     +++|*         USES   CN - CN+4, CM - CM+4, T0 - T4.
03931  M01S02758.pfm     +++|*
03932  M01S02759.pfm     +++|*         MACROS ERROR, MONITOR.
03933  M01S02760.pfm     +++|
03934  M01S02761.pfm     +++|
03935  M01S02762.pfm     +++| SAP      SUBR               ENTRY/EXIT
03936  M01S02763.pfm     +++|          LDD    CP          GET JOB DEFAULT VALUES AND VALIDATION
03937  M01S02764.pfm     +++|          ADK    JSCW
03938  M01S02765.pfm     +++|          CRM    SVAL,ON
03939  M01S02766.pfm     +++|          LDM    SVAL+1      SAVE JOB ACCESS LEVEL
03940  M01S02767.pfm     +++|          SHN    -11
03941  M01S02768.pfm     +++|          STM    PFAL
03942  M01S02769.pfm     +++|          STM    LFAL
03943  M01S02770.pfm     +++|          LDM    SVAL+2      SAVE JOB ACCESS CATEGORY SET
03944  M01S02771.pfm     +++|          LPC    377
03945  M01S02772.pfm     +++|          STM    PFFC
03946  M01S02773.pfm     +++|          ERRNZ  SVAL+2-PFFC CODE DEPENDS ON VALUE
03947  M01S02774.pfm     +++|          LDN    ZERL        SET UP FOR *VSAM*
03948  M01S02775.pfm     +++|          CRD    CN
03949  M01S02776.pfm     +++|          CRD    CM
03950  M01S02777.pfm     +++|          LDN    VAJS
03951  M01S02778.pfm     +++|          STD    CM+1
03952  M01S02779.pfm     +++|          LDD    CC
03953  M01S02780.pfm     +++|          LMN    CCAC
03954  M01S02781.pfm     +++|          ZJP    SAP4        IF *SETPFAC* REQUEST
03955  M01S02782.pfm     +++|          LMN    CCAL&CCAC
03956  M01S02783.pfm     +++|          ZJN    SAP2        IF *SETPFAL* REQUEST
03957  M01S02784.pfm     +++|
03958  M01S02785.pfm     +++|*         PROCESS ACCESS LEVEL FROM FET FOR *SAVE*, *DEFINE*, AND
03959  M01S02786.pfm     +++|*         *ASSIGNPF*, IF *SP* BIT SET.
03960  M01S02787.pfm     +++|
03961  M01S02788.pfm     +++|          LMN    CCSV&CCAL
03962  M01S02789.pfm     +++|          ZJN    SAP1        IF *SAVE* REQUEST
03963  M01S02790.pfm     +++|          LMN    CCDF&CCSV
03964  M01S02791.pfm     +++|          ZJN    SAP1        IF *DEFINE* REQUEST
03965  M01S02792.pfm     +++|          LMN    CCAN&CCDF
03966  M01S02793.pfm     +++|          NJP    SAPX        IF NOT *ASSIGNPF* REQUEST
03967  M01S02794.pfm     +++| SAP1     LDM    PFSP
03968  M01S02795.pfm     +++|          ZJP    SAPX        IF SECURITY PROCESSING BIT NOT SET
03969  M01S02796.pfm     +++|
03970  M01S02797.pfm     +++|*         VALIDATE SPECIFIED ACCESS LEVEL.
03971  M01S02798.pfm     +++|
03972  M01S02799.pfm     +++| SAP2     RJM    SFA         GET SPECIFIED ACCESS LEVEL
03973  M01S02800.pfm     +++|          ADN    CFAL
03974  M01S02801.pfm     +++|          CRD    T0
03975  M01S02802.pfm     +++|          LDD    T0+1        SAVE ACCESS LEVEL
03976  M01S02803.pfm     +++|          LPN    7
03977  M01S02804.pfm     +++|          STM    LFAL
03978  M01S02805.pfm     +++|          STD    CN+1
03979  M01S02806.pfm     +++|          LDN    1           VALIDATE ACCESS LEVEL ONLY
03980  M01S02807.pfm     +++|          STD    CM+4
03981  M01S02808.pfm     +++|          LDD    MA
03982  M01S02809.pfm     +++|          CWD    CN
03983  M01S02810.pfm     +++|          MONITOR  VSAM
03984  M01S02811.pfm     +++|          LDD    CM+1
03985  M01S02812.pfm     +++|          ZJP    SAPX        IF SPECIFIED ACCESSES VALID
03986  M01S02813.pfm     +++|          ERROR  LNJ,CH,IW,,SVE  * ACCESS LEVEL NOT VALID FOR JOB.*
03987  M01S02814.pfm     +++|
03988  M01S02815.pfm     +++|*         VALIDATE SPECIFIED ACCESS CATEGORY SET.
03989  M01S02816.pfm     +++|
03990  M01S02817.pfm     +++| SAP4     LDN    CFFC
03991  M01S02818.pfm     +++|          SBM    FETL
03992  M01S02819.pfm     +++|          MJN    SAP5        IF FET LONG ENOUGH FOR FUNCTION
03993  M01S02820.pfm     +++|          ERROR  ILR,CH,IW   * PFM INCORRECT REQUEST.*
03994  M01S02821.pfm     +++|
03995  M01S02822.pfm     +++| SAP5     RJM    SFA         GET SPECIFIED ACCESS CATEGORY SET
03996  M01S02823.pfm     +++|          ADN    CFFC
03997  M01S02824.pfm     +++|          CRD    CN
03998  M01S02825.pfm     +++|          LDD    CN+2
03999  M01S02826.pfm     +++|          LPC    377
04000  M01S02827.pfm     +++|          STD    CN+2
04001  M01S02828.pfm     +++|          STM    PFFC        SAVE ACCESS CATEGORY SET
04002  M01S02829.pfm     +++|          LDD    CN+3
04003  M01S02830.pfm     +++|          STM    PFFC+1
04004  M01S02831.pfm     +++|          LDD    CN+4
04005  M01S02832.pfm     +++|          STM    PFFC+2
04006  M01S02833.pfm     +++|          LDN    2           VALIDATE ACCESS CATEGORY SET ONLY
04007  M01S02834.pfm     +++|          STD    CM+4
04008  M01S02835.pfm     +++|          LDD    MA
04009  M01S02836.pfm     +++|          CWD    CN
04010  M01S02837.pfm     +++|          MONITOR  VSAM
04011  M01S02838.pfm     +++|          LDD    CM+1
04012  M01S02839.pfm     +++|          ZJP    SAPX        IF SPECIFIED ACCESS CATEGORY SET VALID
04013  M01S02840.pfm     +++|          ERROR  CNJ,CH,IW,,SVE  * ACCESS CATEGORIES NOT VALID FOR JOB*
04014  M01S00040.ns2599  +++| SEP      SPACE  4,10
04015  M01S00041.ns2599  +++|**        SEP - SET ERROR PROCESSING OPTIONS.
04016  M01S00042.ns2599  +++|*
04017  M01S00043.ns2599  +++|*         EXIT   (EPOP) = ERROR PROCESSING OPTIONS.
04018  M01S00044.ns2599  +++|*
04019  M01S00045.ns2599  +++|*         USES   CM - CM+4.
04020  M01S00046.ns2599  +++|*
04021  M01S00047.ns2599  +++|*         CALLS  SFA.
04022  M01S00048.ns2599  +++|
04023  M01S00049.ns2599  +++|
04024  M01S00050.ns2599  +++| SEP      SUBR               ENTRY/EXIT
04025  M01S00051.ns2599  +++|          RJM    SFA         READ FET+1
04026  M01S00052.ns2599  +++|          ADN    1
04027  M01S00053.ns2599  +++|          CRD    CM
04028  M01S00054.ns2599  +++|          LDD    CM+1        SAVE ERROR PROCESSING OPTIONS
04029  M01S00055.ns2599  +++|          SHN    0-6
04030  M01S00056.ns2599  +++|          LPN    37
04031  M01S00057.ns2599  +++|          STM    EPOP
04032  M01S00058.ns2599  +++|          UJN    SEPX        RETURN
04033  M01S02841.pfm     +++| SLT      SPACE  4,20
04034  M01S02842.pfm     +++|**        SLT - SEARCH COMMON LIBRARY TABLE FOR ALTERNATE USER NAME.
04035  M01S02843.pfm     +++|*
04036  M01S02844.pfm     +++|*         ENTRY  (FN - FN+3) = USER NAME FOR ALTERNATE ACCESS.
04037  M01S02845.pfm     +++|*
04038  M01S02846.pfm     +++|*         EXIT   (A) = -1 IF USER NAME NOT FOUND.
04039  M01S02847.pfm     +++|*                (A) =  0 IF MATCH AND USER INDEX AND EQ AVAILABLE.
04040  M01S02848.pfm     +++|*                (A) =  1 IF MATCH BUT VALIDATION NEEDED.
04041  M01S02849.pfm     +++|*                (CN - CN+3) = FAMILY IF USER NAME FOUND.
04042  M01S02850.pfm     +++|*                (T1 - T2) = USER INDEX IF FOUND IN THE TABLE.
04043  M01S02851.pfm     +++|*                (POAB) = TABLE OFFSET IF ENTRY FOUND.
04044  M01S02852.pfm     +++|*                (PFPN+4) = (T5) = EST ORDINAL IF TAKEN FROM THE TABLE.
04045  M01S02853.pfm     +++|*                (PFUC) = PERMANENT FILE VALIDATION.
04046  M01S02854.pfm     +++|*
04047  M01S02855.pfm     +++|*         USES   T1 - T7, CM - CM+4.
04048  M01S02856.pfm     +++|*
04049  M01S02857.pfm     +++|*         CALLS  CPN.
04050  M01S02858.pfm     +++|*
04051  M01S02859.pfm     +++|*         MACROS SFA.
04052  M01S02860.pfm     +++|
04053  M01S02861.pfm     +++|
04054  M01S02862.pfm     +++| SLT6     LCN    1           VALUE
04055  M01S02863.pfm     +++|
04056  M01S02864.pfm     +++| SLT      SUBR               ENTRY/EXIT
Line S02865 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm50
Seq #  *Modification Id* Act 
----------------------------+
04057  M02S02865.pfm50   ---|          LDM    PFPN        CHECK FOR PACKNAME
Line S02866 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm50
Seq #  *Modification Id* Act 
----------------------------+
04058  M02S02866.pfm50   ---|          NJN    SLT6        IF PACKNAME SPECIFIED
04059  M01S02867.pfm     +++|          LDC    CLTP        PICK UP COMMON LIBRARIES POINTER
04060  M01S02868.pfm     +++|          CRD    T3
04061  M01S02869.pfm     +++|          LDD    T5
04062  M01S02870.pfm     +++|          ZJN    SLT6        IF NO CLT
04063  M01S02871.pfm     +++|          LDN    0           INITIALIZE CLT OFFSET
04064  M01S02872.pfm     +++|          STD    T4
Line S02873 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
04065  M02S02873.ns2776  ---| SLT1     AOD    T4
04066  M01S00064.ns2776  +++| SLT1     AOD    T4          CHECK NEXT CLT ENTRY
04067  M01S02874.pfm     +++|          LMD    T5
04068  M01S02875.pfm     +++|          ZJN    SLT6        IF END OF CLT
04069  M01S02876.pfm     +++|          SFA    CLT,T4
04070  M01S02877.pfm     +++|          CRD    CM          READ COMMON LIBRARIES USER NAME
04071  M01S02878.pfm     +++|          LDN    FN          PASS ALTERNATE USER NAME ADDRESS
04072  M01S02879.pfm     +++|          RJM    CPN         COMPARE USER NAMES
Line S02880 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
04073  M02S02880.ns2776  ---|          ZJN    SLT2        IF MATCH
Line S02881 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
04074  M02S02881.ns2776  ---|          UJN    SLT1        RETRY USING NEXT COMMON LIBRARY USER NAME
Line S02882 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
04075  M02S02882.ns2776  ---|
04076  M01S00065.ns2776  +++|          NJN    SLT1        IF NO MATCH
04077  M01S02883.pfm     +++| SLT2     LDD    T4
04078  M01S02884.pfm     +++|          STM    POAB        SAVE TABLE OFFSET FOR ENTRY
04079  M01S02885.pfm     +++|          LDD    CM+3        PICK UP USER INDEX
04080  M01S02886.pfm     +++|          LPN    37
04081  M01S02887.pfm     +++|          STD    T1
04082  M01S02888.pfm     +++|          LDD    CM+4
04083  M01S02889.pfm     +++|          STD    T2
04084  M01S02890.pfm     +++|          SFA    CLT,T4      CHECK FOR EST ORDINAL
04085  M01S02891.pfm     +++|          ADN    CLTF-CLTU
04086  M01S02892.pfm     +++|          CRD    CN          PICK UP FAMILY NAME AND EST ORDINAL
04087  M01S02893.pfm     +++|          LDD    CN+4
04088  M01S02894.pfm     +++|          NJN    SLT5        IF EST ORDINAL IN THE TABLE
04089  M01S02895.pfm     +++| SLT3     LDN    1           SET VALIDATION REQUIRED
04090  M01S02896.pfm     +++| SLT4     LJM    SLTX        RETURN
04091  M01S02897.pfm     +++|
04092  M01S02898.pfm     +++| SLT5     STD    T5          SAVE EST ORDINAL
04093  M01S02899.pfm     +++|          SFA    EST
04094  M01S02900.pfm     +++|          ADK    EQDE
04095  M01S02901.pfm     +++|          CRD    CM          READ EST ENTRY
04096  M01S02902.pfm     +++|          LDD    CM+4        GET MST ADDRESS
04097  M01S02903.pfm     +++|          SHN    3
04098  M01S02904.pfm     +++|          ADN    PFGL
04099  M01S02905.pfm     +++|          CRD    CM          READ FAMILY OR PACK NAME
04100  M01S02906.pfm     +++|          LDN    CN
04101  M01S02907.pfm     +++|          RJM    CPN         COMPARE FAMILY NAMES
04102  M01S02908.pfm     +++|          NJN    SLT3        IF NO MATCH
04103  M01S02909.pfm     +++|          LDD    T5          CHANGE EST ORDINAL
04104  M01S02910.pfm     +++|          STM    PFPN+4
04105  M01S02911.pfm     +++|          SFA    CLT,T4      GET PF VALIDATION
04106  M01S02912.pfm     +++|          ADN    CLTV-CLTU
04107  M01S02913.pfm     +++|          CRD    CM
04108  M01S02914.pfm     +++|          LDD    CM+4
04109  M01S02915.pfm     +++|          STM    PFUC
04110  M01S02916.pfm     +++|          LDN    0           USER NAME AND INDEX FOUND
04111  M01S02917.pfm     +++|          UJN    SLT4        RETURN
04112  M01S02918.pfm     +++| VCA      SPACE  4,15
04113  M01S02919.pfm     +++|**        VCA - VERIFY CATALOG ADDRESS.
04114  M01S02920.pfm     +++|*
04115  M01S02921.pfm     +++|*         ENTRY  (CM - CM+4) = EST ENTRY OF THE FAMILY AND DEVICE.
04116  M01S02922.pfm     +++|*                (T5) = EST ORDINAL FOR THE FAMILY AND DEVICE NUMBER.
04117  M01S02923.pfm     +++|*                (PFID - PFID+2) = 4/,2/PEO,6/DN,12/TRACK,12/SECTOR.
04118  M01S02924.pfm     +++|*
04119  M01S02925.pfm     +++|*         EXIT   THE CATALOG ADDRESS IS VERIFIED TO DEFINE A LEGAL
04120  M01S02926.pfm     +++|*                PERMANENT FILE CATALOG ADDRESS.
04121  M01S02927.pfm     +++|*
04122  M01S02928.pfm     +++|*         USES   CM - CM+4, T0 - T0+4, T6 - T6+4.
04123  M01S02929.pfm     +++|*
04124  M01S02930.pfm     +++|*         CALLS  CTA.
04125  M01S02931.pfm     +++|*
04126  M01S02932.pfm     +++|*         MACROS ERROR.
04127  M01S02933.pfm     +++|
04128  M01S02934.pfm     +++|
04129  M01S02935.pfm     +++| VCA      SUBR               ENTRY/EXIT
04130  M01S02936.pfm     +++|          LDD    CM+4        DETERMINE MST ADDRESS
04131  M01S02937.pfm     +++|          SHN    3
04132  M01S02938.pfm     +++|          ADN    ALGL        READ THE DEVICE ALLOCATION WORD
04133  M01S02939.pfm     +++|          CRD    T6
04134  M01S02940.pfm     +++|          ADN    PUGL-ALGL   READ DEVICE MASK
04135  M01S02941.pfm     +++|          CRD    T0
04136  M01S02942.pfm     +++|          ADN    TRLL-PUGL
04137  M01S02943.pfm     +++|          RJM    CTA         CALCULATE FWA OF TRT
04138  M01S02944.pfm     +++|          SBD    TH          BIAS FOR LINK INDICATOR BIT
04139  M01S02945.pfm     +++|          STM    VCAA+1
04140  M01S02946.pfm     +++|          SHN    -14
04141  M01S02947.pfm     +++|          LMC    ADCI
04142  M01S02948.pfm     +++|          STM    VCAA
04143  M01S02949.pfm     +++|          LDD    T6+1        SET FIRST TRACK IN CATALOG CHAIN (LABEL)
04144  M01S02950.pfm     +++|          STD    T6
04145  M01S02951.pfm     +++|          LDM    PFSU+1      CHECK USER INDEX AGAINST DEVICE MASK
04146  M01S02952.pfm     +++|          LPN    7
04147  M01S02953.pfm     +++|          RAM    VCAB
04148  M01S02954.pfm     +++|          LDN    1
04149  M01S02955.pfm     +++| VCAB     SHN    **          (LAST DIGIT OF USER INDEX)
04150  M01S02956.pfm     +++|          STM    VCAC
04151  M01S02957.pfm     +++|          LDD    T0+4
04152  M01S02958.pfm     +++|          LPC    377
04153  M01S02959.pfm     +++|          LPC    *           (MASK FOR SPECIFIED USER INDEX)
04154  M01S02960.pfm     +++| VCAC     EQU    *-1
04155  M01S02961.pfm     +++|          ZJN    VCA2        IF USER INDEX NOT LEGAL FOR DEVICE
04156  M01S02962.pfm     +++|
04157  M01S02963.pfm     +++|*         LOOP THROUGH THE CHAIN OF CATALOG TRACKS AND VERIFY THAT
04158  M01S02964.pfm     +++|*         THE SPECIFIED TRACK IS IN THE CHAIN.
04159  M01S02965.pfm     +++|
04160  M01S02966.pfm     +++| VCA1     LDD    T6          CHECK TRACK LINKAGE
04161  M01S02967.pfm     +++|          SHN    21-13
04162  M01S02968.pfm     +++|          PJN    VCA2        IF NOT A VALID LINKAGE
04163  M01S02969.pfm     +++|          ZJN    VCA2        IF END OF CHAIN
04164  M01S02970.pfm     +++|          SHN    13-21-2     CALCULATE NEXT TRT WORD OFFSET
04165  M01S02971.pfm     +++| VCAA     ADC    TRTS
04166  M01S02972.pfm     +++|          CRD    CM          READ THE LINKED TO WORD
04167  M01S02973.pfm     +++|          LDD    T6          BIAS INTO THIS TRT WORD
04168  M01S02974.pfm     +++|          LPN    3
04169  M01S02975.pfm     +++|          STD    CM+4
04170  M01S02976.pfm     +++|          LDM    CM,CM+4
04171  M01S02977.pfm     +++|          STD    T6          SET THE NEXT TRACK
04172  M01S02978.pfm     +++|          LMM    PFID+1
04173  M01S02979.pfm     +++|          ZJN    VCA3        IF THE SPECIFIED TRACK IS IN THE CHAIN
04174  M01S02980.pfm     +++|          UJN    VCA1        CONTINUE EXAMINING CATALOG TRACKS
04175  M01S02981.pfm     +++|
04176  M01S02982.pfm     +++| VCA2     ERROR  IPA,CH,IW   * INCORRECT PFC ADDRESS.*
04177  M01S02983.pfm     +++|
04178  M01S02984.pfm     +++|*         THE TRACK IS A MEMBER OF THE CATALOG CHAIN.
04179  M01S02985.pfm     +++|
Line S02986 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04180  M02S02986.242l642 ---| VCA3     SETMS              VERIFY THE SECTOR SPECIFIED
04181  M01S00337.242l642 +++| VCA3     SETMS  STATUS      VERIFY THE SECTOR SPECIFIED
04182  M01S02987.pfm     +++|          LDM    PFID+2
04183  M01S02988.pfm     +++|          SBM    SLM
04184  M01S02989.pfm     +++|          PJN    VCA2        IF SECTOR OUT OF RANGE
04185  M01S02990.pfm     +++|          LJM    VCAX        RETURN
04186  M01S00055.pfm22   +++| VFA      SPACE  4,15
04187  M01S00056.pfm22   +++|**        VFA - VERIFY FET ADDRESS.
04188  M01S00057.pfm22   +++|*
04189  M01S00058.pfm22   +++|*         EXIT   (A) .LT. 0, IF FET NOT WITHIN CALLER-S FIELD LENGTH.
04190  M01S00059.pfm22   +++|*                (SFAB) = *LDD RA*, IF FET IN RANGE.
04191  M01S00060.pfm22   +++|*                (SFAA - SFAA+1) = FET ADDRESS, IF IN RANGE.
Line S00061 Modification History
M01 (Added by) pfm22
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04192  M02S00061.242l642 ---|*                (TRPA) = *UJN TRP2*, IF RANDOM ADDRESS NOT TO BE
Line S00062 Modification History
M01 (Added by) pfm22
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04193  M02S00062.242l642 ---|*                  UPDATED.
04194  M01S00063.pfm22   +++|*
04195  M01S00064.pfm22   +++|*         USES   T1, CN - CN+4.
04196  M01S00065.pfm22   +++|*
04197  M01S00066.pfm22   +++|*         CALLS  SFA.
04198  M01S00067.pfm22   +++|*
04199  M01S00068.pfm22   +++|*         MACROS ISTORE.
04200  M01S00069.pfm22   +++|
04201  M01S00070.pfm22   +++|
04202  M01S00071.pfm22   +++| VFA      SUBR               ENTRY/EXIT
04203  M01S00072.pfm22   +++|          LDD    IR+3
04204  M01S00073.pfm22   +++|          LPN    77
04205  M01S00074.pfm22   +++|          SHN    14
04206  M01S00075.pfm22   +++|          MJN    VFA1        IF ADDRESS OUT OF RANGE
04207  M01S00076.pfm22   +++|          LMD    IR+4
04208  M01S00077.pfm22   +++|          ADN    1
04209  M01S00078.pfm22   +++|          SHN    -6
04210  M01S00079.pfm22   +++|          SBD    FL
04211  M01S00080.pfm22   +++|          MJN    VFA2        IF ADDRESS IN RANGE
04212  M01S00081.pfm22   +++| VFA1     LCN    0           SET ERROR RETURN
04213  M01S00082.pfm22   +++|          UJN    VFAX        RETURN
04214  M01S00083.pfm22   +++|
04215  M01S00084.pfm22   +++| VFA2     LDD    IR+3        SAVE FET ADDRESS
04216  M01S00085.pfm22   +++|          LPN    37
04217  M01S00086.pfm22   +++|          LMC    ADCI
04218  M01S00087.pfm22   +++|          STM    SFAA
04219  M01S00088.pfm22   +++|          LDD    IR+4
04220  M01S00089.pfm22   +++|          STM    SFAA+1
04221  M01S00090.pfm22   +++|          ISTORE SFAB,(LDD RA)  FLAG FET ADDRESS VALID
04222  M01S00091.pfm22   +++|          RJM    SFA         READ FET LENGTH/RANDOM BIT
04223  M01S00092.pfm22   +++|          ADN    1
04224  M01S00093.pfm22   +++|          CRD    CN
04225  M01S00094.pfm22   +++|          LDD    CN+3        SAVE FET LENGTH
04226  M01S00095.pfm22   +++|          SHN    -6
04227  M01S00096.pfm22   +++|          ADN    4
04228  M01S00097.pfm22   +++|          STD    T1
04229  M01S00098.pfm22   +++|          LDD    CN+1
04230  M01S00099.pfm22   +++|          SHN    21-13
04231  M01S00100.pfm22   +++|          PJN    VFA4        IF NOT RANDOM FET
04232  M01S00101.pfm22   +++|          LDD    T1
04233  M01S00102.pfm22   +++|          SBN    CFCN
04234  M01S00103.pfm22   +++|          PJN    VFA4        IF FET NOT TOO SHORT
Line S00104 Modification History
M01 (Added by) pfm22
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04235  M02S00104.242l642 ---| VFA3     ISTORE TRPA,(UJN TRP2)  DO NOT UPDATE RANDOM INDEX
Line S00105 Modification History
M01 (Added by) pfm22
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04236  M02S00105.242l642 ---|          UJP    VFA1        SET ERROR RETURN
04237  M01S00338.242l642 +++| VFA3     UJN    VFA1        SET ERROR RETURN
04238  M01S00106.pfm22   +++|
04239  M01S00107.pfm22   +++| VFA4     LDD    IR+3        CHECK FET WITHIN FIELD LENGTH
04240  M01S00108.pfm22   +++|          LPN    77
04241  M01S00109.pfm22   +++|          SHN    14
04242  M01S00110.pfm22   +++|          LMD    IR+4
04243  M01S00111.pfm22   +++|          ADD    T1
04244  M01S00112.pfm22   +++|          SHN    -6
04245  M01S00113.pfm22   +++|          SBD    FL
04246  M01S00114.pfm22   +++|          PJN    VFA3        IF FET OUT OF RANGE
04247  M01S00115.pfm22   +++|          LDN    0           SET NO ERROR
04248  M01S00116.pfm22   +++|          UJP    VFAX        RETURN
04249  M01S02991.pfm     +++| VRP      SPACE  4,15
04250  M01S02992.pfm     +++|**        VRP - VERIFY PARAMETERS.
04251  M01S02993.pfm     +++|*
04252  M01S02994.pfm     +++|*         ENTRY  (CC) = COMMAND CODE.
04253  M01S02995.pfm     +++|*                (FN - FN+4) = ACCESS WORD.
04254  M01S02996.pfm     +++|*                (PFBR) = BACKUP REQUIREMENT VALUE.
04255  M01S02997.pfm     +++|*                (PFRS) = PREFERRED RESIDENCE VALUE.
04256  M01S02998.pfm     +++|*                (PFSS) = SUBSYSTEM VALUE.
04257  M01S02999.pfm     +++|*                (PFAP) = ALTERNATE CATLIST PERMISSION VALUE.
04258  M01S03000.pfm     +++|*
04259  M01S03001.pfm     +++|*         EXIT   PARAMETERS VERIFIED TO BE IN RANGE.
04260  M01S03002.pfm     +++|*                DEFAULT VALUES SET IF NEEDED (FILE CREATION).
04261  M01S03003.pfm     +++|*
04262  M01S03004.pfm     +++|*         MACROS ERROR.
04263  M01S03005.pfm     +++|
04264  M01S03006.pfm     +++|
04265  M01S03007.pfm     +++| VRP      SUBR               ENTRY/EXIT
04266  M01S03008.pfm     +++|          LDD    CC          CHECK FOR *CHANGE* REQUEST
04267  M01S03009.pfm     +++|          LMN    CCCG
Line S03010 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
04268  M02S03010.ns2776  ---|          ZJP    VRP3        IF *CHANGE* REQUEST
04269  M01S00066.ns2776  +++|          ZJN    VRP3        IF *CHANGE* REQUEST
04270  M01S03011.pfm     +++|
04271  M01S03012.pfm     +++|
04272  M01S03013.pfm     +++|*         SET DEFAULT VALUES ON FILE CREATION.
04273  M01S03014.pfm     +++|
04274  M01S03015.pfm     +++|
04275  M01S03016.pfm     +++|          LDM    PFSS        CLEAR *CHANGE* FLAG ON FILE CREATION
04276  M01S03017.pfm     +++|          SCN    40
04277  M01S03018.pfm     +++|          STM    PFSS
04278  M01S03019.pfm     +++|          LDM    PFBR        INSURE VALID *BR* VALUE
04279  M01S03020.pfm     +++|          LPC    0700
04280  M01S03021.pfm     +++|          NJN    VRP1        IF *BR* PARAMETER SPECIFIED
04281  M01S03022.pfm     +++|          LDC    BRDE*100    SET DEFAULT *BR* VALUE
04282  M01S03023.pfm     +++|          RAM    PFBR
04283  M01S03024.pfm     +++| VRP1     LDM    PFRS        INSURE VALID *PR* VALUE
Line S03025 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
04284  M02S03025.ns2776  ---|          LPC    7000
04285  M01S00067.ns2776  +++|          SHN    0-11
04286  M01S03026.pfm     +++|          NJN    VRP2        IF *PR* PARAMETER SPECIFIED
04287  M01S03027.pfm     +++|          LDC    RSDE*1000   SET DEFAULT *PR* VALUE
04288  M01S03028.pfm     +++|          RAM    PFRS
04289  M01S03029.pfm     +++| VRP2     LDM    PFAP        CHECK FOR NULL *AC* VALUE
04290  M01S03030.pfm     +++|          SHN    -12
04291  M01S03031.pfm     +++|          NJN    VRP3        IF *AC* PARAMETER SPECIFIED
Line S03032 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2351
Seq #  *Modification Id* Act 
----------------------------+
04292  M02S03032.ns2351  ---|          LDC    ACNO*2000   SET DEFAULT *AC* VALUE
04293  M01S00001.ns2351  +++|          LDC    ACDF*2000   SET DEFAULT *AC* VALUE
04294  M01S03033.pfm     +++|          RAM    PFAP
04295  M01S03034.pfm     +++|
04296  M01S03035.pfm     +++|*         ENSURE VALID PARAMETER VALUES.
04297  M01S03036.pfm     +++|
04298  M01S03037.pfm     +++| VRP3     LDM    PFBR        VERIFY RANGE OF *BR* VALUE
04299  M01S03038.pfm     +++|          SHN    0-6
04300  M01S03039.pfm     +++|          LPN    7
04301  M01S03040.pfm     +++|          SBN    BRMX+1
04302  M01S03041.pfm     +++|          PJN    VRP4        IF *BR* NOT IN RANGE
04303  M01S03042.pfm     +++|          LDM    PFRS        VERIFY RANGE OF *PR* VALUE
04304  M01S03043.pfm     +++|          SHN    0-11
04305  M01S03044.pfm     +++|          SBN    RSMX+1
04306  M01S03045.pfm     +++|          PJN    VRP4        IF *PR* OUT OF RANGE
04307  M01S03046.pfm     +++|          ADN    RSMX+1-RSLK
04308  M01S03047.pfm     +++|          NJN    VRP5        IF *DISK LOCKED* NOT REQUESTED
04309  M01S03048.pfm     +++|          LDD    FN+2        CHECK FOR *CLTD* VALIDATION
04310  M01S03049.pfm     +++|          SHN    21-0
04311  M01S03050.pfm     +++|          MJN    VRP5        IF USER VALIDATED TO SPECIFY DISK LOCKED
04312  M01S03051.pfm     +++| VRP4     ERROR  ILR,CH,IW   * PFM INCORRECT REQUEST.*
04313  M01S03052.pfm     +++|
04314  M01S03053.pfm     +++| VRP5     LDM    PFSS        VERIFY SUBSYSTEM VALUE
04315  M01S03054.pfm     +++|          LPN    37
04316  M01S03055.pfm     +++|          SBN    MSYS+1
04317  M01S03056.pfm     +++|          PJN    VRP4        IF *SS* NOT VALID
04318  M01S03057.pfm     +++|          LDM    PFAP        VERIFY *AC* PARAMETER
04319  M01S03058.pfm     +++|          SHN    -12
04320  M01S03059.pfm     +++|          SBN    ACMX+1
04321  M01S03060.pfm     +++|          PJN    VRP4        IF *AC* NOT VALID
04322  M01S03061.pfm     +++|          LJM    VRPX        RETURN
04323  M01S03062.pfm     +++| VUA      SPACE  4,15
04324  M01S03063.pfm     +++|**        VUA - VALIDATE USER ACCESS.
04325  M01S03064.pfm     +++|*
Line S03065 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04326  M02S03065.253l688 ---|*         EXIT   (PRSI) = 1 IF *SSJ=* JOB.
04327  M01S00089.253l688 +++|*         EXIT   (SSJS) = 1 IF *SSJ=* JOB.
04328  M01S03066.pfm     +++|*
04329  M01S03067.pfm     +++|*         USES   CM - CM+4.
Line S03068 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04330  M02S03068.253l688 ---|*
Line S03069 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04331  M02S03069.253l688 ---|*         MACROS ERROR.
04332  M01S03070.pfm     +++|
04333  M01S03071.pfm     +++|
04334  M01S03072.pfm     +++| VUA      SUBR               ENTRY/EXIT
04335  M01S03073.pfm     +++|          LDD    CP          CHECK FOR SSJ= JOB
04336  M01S03074.pfm     +++|          ADC    SEPW
04337  M01S03075.pfm     +++|          CRD    CM
04338  M01S03076.pfm     +++|          LDD    CM
04339  M01S03077.pfm     +++|          SHN    0-2
04340  M01S03078.pfm     +++|          LPN    1
04341  M01S03079.pfm     +++|          STM    SSJS        SAVE *SSJ=* STATUS
Line S03080 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04342  M02S03080.253l688 ---|          NJN    VUAX        IF *SSJ=* JOB
Line S00018 Modification History
M01 (Added by) ns2414
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04343  M02S00018.253l688 ---|          LDD    CC
Line S00019 Modification History
M01 (Added by) ns2414
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04344  M02S00019.253l688 ---|          LMN    CCDD
Line S00020 Modification History
M01 (Added by) ns2414
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04345  M02S00020.253l688 ---|          ZJN    VUAX        IF DROPDS REQUEST
Line S00021 Modification History
M01 (Added by) ns2414
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04346  M02S00021.253l688 ---|          LMN    CCDI&CCDD
Line S00022 Modification History
M01 (Added by) ns2414
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04347  M02S00022.253l688 ---|          ZJN    VUAX        IF DROPIDS REQUEST
Line S03081 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04348  M02S03081.253l688 ---|          LDM    TCTL,CC
Line S03082 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04349  M02S03082.253l688 ---|          SHN    21-12
Line S03083 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04350  M02S03083.253l688 ---|          PJN    VUAX        IF NOT PRIVILEGED COMMAND
Line S03084 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04351  M02S03084.253l688 ---|          ERROR  ILR,CH,IW   * PFM INCORRECT REQUEST.*
04352  M01S00090.253l688 +++|          UJN    VUAX        RETURN
04353  M01S03085.pfm     +++|          SPACE  4,10
04354  M01S03086.pfm     +++|*         COMMON DECKS.
04355  M01S03087.pfm     +++|
04356  M01S03088.pfm     +++|
04357  M01S03089.pfm     +++|*CALL     COMPCRS
04358  M01S03090.pfm     +++|*CALL     COMPVFN
04359  M01S03091.pfm     +++|          SPACE  4,10
04360  M01S03092.pfm     +++|*         CHECK FOR OVERFLOW.
04361  M01S03093.pfm     +++|
04362  M01S03094.pfm     +++|
Line S03095 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04363  M02S03095.242l642 ---|          ERRNG  EPFW-*      OVERFLOW INTO DISK ERROR PROCESSING AREA
04364  M01S00339.242l642 +++|          OVERFLOW  PPFW,EPFW  OVERFLOW INTO DISK ERROR PROCESSING AREA
04365  M01S03096.pfm     +++|          OVERLAY  (LOCAL FILE PROCESSING.),OVLD
04366  M01S03097.pfm     +++|          SPACE  4,15
04367  M01S03098.pfm     +++|**        THIS OVERLAY PERFORMS INITIAL LOCAL FILE PROCESSING FOR
04368  M01S03099.pfm     +++|*         REQUESTS WHICH ARE SENSITIVE TO THE EXISTENCE OF LOCAL FILES.
04369  M01S03100.pfm     +++|
04370  M01S03101.pfm     +++|
04371  M01S03102.pfm     +++| OVL      BSS    0           ENTRY
04372  M01S03103.pfm     +++|*         LJM    PLF         PROCESS LOCAL FILE
04373  M01S03104.pfm     +++| PLF      SPACE  4,15
04374  M01S03105.pfm     +++|**        PLF - PROCESS LOCAL FILE.
04375  M01S03106.pfm     +++|*
04376  M01S03107.pfm     +++|*         ENTRY  (CC) = COMMAND CODE.
04377  M01S03108.pfm     +++|*
04378  M01S03109.pfm     +++|*         EXIT   (FN - FN+4) = PERMANENT FILE NAME.
04379  M01S03110.pfm     +++|
04380  M01S03111.pfm     +++|
04381  M01S03112.pfm     +++| PLF      BSS    0           ENTRY
04382  M01S03113.pfm     +++|          LDM    PLFT,CC
04383  M01S03114.pfm     +++|          STM    PLFA
04384  M01S03115.pfm     +++| PLFT     LJM    PLF7        *SAVE*
04385  M01S03116.pfm     +++| PLFA     EQU    *-1         (LOCAL FILE PROCESSOR ADDRESS)
04386  M01S03117.pfm     +++|          CON    PLF4        *GET*
04387  M01S03118.pfm     +++|          CON    0           *PURGE* (NO LOCAL FILE PROCESSING)
04388  M01S03119.pfm     +++|          CON    0           *CATLIST* (NO LOCAL FILE PROCESSING)
04389  M01S03120.pfm     +++|          CON    0           *PERMIT* (NO LOCAL FILE PROCESSING)
04390  M01S03121.pfm     +++|          CON    PLF7        *REPLACE*
04391  M01S03122.pfm     +++|          CON    PLF8        *APPEND*
04392  M01S03123.pfm     +++|          CON    PLF1        *DEFINE*
04393  M01S03124.pfm     +++|          CON    PLF5        *ATTACH*
04394  M01S03125.pfm     +++|          CON    0           *CHANGE* (NO LOCAL FILE PROCESSING)
04395  M01S03126.pfm     +++|          CON    PLF11       *UATTACH*
04396  M01S03127.pfm     +++|          CON    PLF12       *SETASA*
04397  M01S03128.pfm     +++|          CON    0           *SETAF* (NO LOCAL FILE PROCESSING)
04398  M01S03129.pfm     +++|          CON    PLF3        *SETDA*
04399  M01S03130.pfm     +++|          CON    0           *DROPDS* (NO LOCAL FILE PROCESSING)
04400  M01S03131.pfm     +++|          CON    PLF1        *ASSIGNPF*
04401  M01S03132.pfm     +++|          CON    PLF4        *OLD*
04402  M01S03133.pfm     +++|          CON    0           *SETPFAC* (NO LOCAL FILE PROCESSING)
04403  M01S03134.pfm     +++|          CON    0           *SETPFAL* (NO LOCAL FILE PROCESSING)
04404  M01S03135.pfm     +++|          CON    PLF4        *UGET*
04405  M01S03136.pfm     +++|          CON    PLF7        *UREPLACE*
04406  M01S03137.pfm     +++|          CON    0           *DROPIDS* (NO LOCAL FILE PROCESSING)
04407  M01S03138.pfm     +++|          CON    PLF13       *DELPFC*
04408  M01S03139.pfm     +++|          CON    0           *RPFSTAT* (NO LOCAL FILE PROCESSING)
04409  M01S00091.253l688 +++|          CON    0           *STAGEPF* (NO LOCAL FILE PROCESSING)
04410  M01S03140.pfm     +++|
04411  M01S03141.pfm     +++|*         *ASSIGNPF*/*DEFINE* PROCESSING.
04412  M01S03142.pfm     +++|
04413  M01S03143.pfm     +++| PLF1     RJM    PEF         PROCESS EXISTING FILE
04414  M01S03144.pfm     +++|          LDM    MXNF
04415  M01S03145.pfm     +++|          ZJN    PLF2        IF NO FILE LIMIT SPECIFIED
04416  M01S03146.pfm     +++|          LDK    STAC        TURN ON STATISTICAL ACCUMULATION
04417  M01S03147.pfm     +++|          RAM    STAT
04418  M01S03148.pfm     +++| PLF2     EXECUTE  3PB       FILE RESIDENCE PROCESSOR
04419  M01S03149.pfm     +++|
04420  M01S03150.pfm     +++|*         *SETDA* PROCESSING.
04421  M01S03151.pfm     +++|
04422  M01S03152.pfm     +++| PLF3     RJM    SSF         SEARCH FOR SYSTEM FILE
04423  M01S03153.pfm     +++|          UJN    PLF2        PROCESS FILE RESIDENCE
04424  M01S03154.pfm     +++|
04425  M01S03155.pfm     +++|*         *GET*/*OLD*/*UGET* PROCESSING.
04426  M01S03156.pfm     +++|
04427  M01S03157.pfm     +++| PLF4     RJM    PEF         PROCESS EXISTING FILE
04428  M01S03158.pfm     +++|
04429  M01S03159.pfm     +++|*         EXIT TO COMMAND PREPROCESSING OVERLAY.
04430  M01S03160.pfm     +++|
04431  M01S03161.pfm     +++| PLFX     RJM    SPN         SET PERMANENT FILE NAME
04432  M01S03162.pfm     +++|          EXECUTE  3PC       EXIT TO COMMAND PROCESSING OVERLAY
04433  M01S03163.pfm     +++|
04434  M01S03164.pfm     +++|*         *ATTACH* PROCESSING.
04435  M01S03165.pfm     +++|
04436  M01S03166.pfm     +++| PLF5     RJM    PEF         PROCESS EXISTING FILE
04437  M01S03167.pfm     +++|          LDM    MODE        SET UP FNT STATUS MODE EQUIVALENCE
04438  M01S03168.pfm     +++|          LPN    37
04439  M01S03169.pfm     +++|          STD    T1
04440  M01S03170.pfm     +++|          LDM    TFNS,T1
04441  M01S03171.pfm     +++|          STM    FNMD
04442  M01S03172.pfm     +++|          RJM    CFA         CHECK FAST ATTACH FILE
04443  M01S03173.pfm     +++|          PJN    PLF6        IF NOT FAST ATTACH FILE
04444  M01S03174.pfm     +++|          RJM    EFN         ESTABLISH *FNT/FST* FOR *FA* FILE
Line S03175 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04445  M02S03175.242l642 ---|          LJM    TRP         TERMINATE PROGRAM
Line S00340 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
04446  M02S00340.ns2414  ---|          EXECUTE  3PT       TERMINATE PROGRAM
04447  M01S00023.ns2414  +++|          EXECUTE  3PU       TERMINATE PROGRAM
04448  M01S03176.pfm     +++|
04449  M01S03177.pfm     +++| PLF6     RJM    CAA         CHECK FOR APPLICATION ACCOUNTING
04450  M01S03178.pfm     +++|          UJN    PLF10       EXIT
04451  M01S03179.pfm     +++|
04452  M01S03180.pfm     +++|*         *SAVE*/*REPLACE*/*APPEND*/*UREPLAC* PROCESSING.
04453  M01S03181.pfm     +++|
04454  M01S03182.pfm     +++| PLF7     LDM    MXNF
04455  M01S03183.pfm     +++|          NJN    PLF8        IF FILE LIMIT SPECIFIED
04456  M01S03184.pfm     +++|          LDM    MXCS
04457  M01S03185.pfm     +++|          NJN    PLF8        IF SIZE LIMIT SPECIFIED
04458  M01S03186.pfm     +++|          LDM    MXCS+1
04459  M01S03187.pfm     +++|          ZJN    PLF9        IF NO SIZE LIMIT SPECIFIED
04460  M01S03188.pfm     +++| PLF8     LDK    STAC        TURN ON STATISTICAL ACCUMULATION
04461  M01S03189.pfm     +++|          RAM    STAT
04462  M01S03190.pfm     +++| PLF9     RJM    SSF         SEARCH FOR SYSTEM FILE
04463  M01S03191.pfm     +++|          RJM    CFS         CHECK FILE SIZE
04464  M01S03192.pfm     +++| PLF10    LJM    PLFX        COMPLETE
04465  M01S03193.pfm     +++|
04466  M01S03194.pfm     +++|*         *UATTACH* PROCESSING.
04467  M01S03195.pfm     +++|
04468  M01S03196.pfm     +++| PLF11    RJM    PEF
04469  M01S03197.pfm     +++|          LDM    MODE        SET UP FNT STATUS MODE EQUIVALENCE
04470  M01S03198.pfm     +++|          LPN    37
04471  M01S03199.pfm     +++|          STD    T1
04472  M01S03200.pfm     +++|          LDM    TFNS,T1
04473  M01S03201.pfm     +++|          STM    FNMD
04474  M01S03202.pfm     +++|          UJN    PLF10       EXIT
04475  M01S03203.pfm     +++|
04476  M01S03204.pfm     +++|*         *SETASA* PROCESSING.
04477  M01S03205.pfm     +++|
Line S03206 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04478  M02S03206.253l688 ---| PLF12    RJM    SSF         SEARCH FOR SYSTEM FILE
04479  M01S00092.253l688 +++| PLF12    LDM    STAT
04480  M01S00093.253l688 +++|          LPK    STTA
04481  M01S00094.253l688 +++|          NJN    PLF10       IF SETTING TAPE ASA
04482  M01S00002.274l797 +++|          LDM    PFAT
04483  M01S00003.274l797 +++|          LPN    77
04484  M01S00004.274l797 +++|          LMN    ATOD
04485  M01S00005.274l797 +++|          ZJN    PLF10       IF SETTING OPTICAL DISK ASA
04486  M01S00095.253l688 +++|          RJM    SSF         SEARCH FOR SYSTEM FILE
04487  M01S03207.pfm     +++|          UJN    PLF10       EXIT
04488  M01S03208.pfm     +++|
04489  M01S03209.pfm     +++|*         *DELPFC* PROCESSING.
04490  M01S03210.pfm     +++|
04491  M01S03211.pfm     +++| PLF13    RJM    PIF         PROCESS INTERLOCK FILES
04492  M01S03212.pfm     +++|          UJN    PLF10       EXIT
04493  M01S03213.pfm     +++| TFNS     SPACE  4,15
04494  M01S03214.pfm     +++|**        FNT STATUS VALUES FOR SPECIFIED ACCESS MODE.
04495  M01S03215.pfm     +++|
04496  M01S03216.pfm     +++|
04497  M01S03217.pfm     +++| TFNS     BSS    0
04498  M01S03218.pfm     +++|          LOC    0
04499  M01S03219.pfm     +++|          CON    2           WRITE
04500  M01S03220.pfm     +++|          CON    1           READ
04501  M01S03221.pfm     +++|          CON    22          APPEND/EXTEND
04502  M01S03222.pfm     +++|          CON    5           EXECUTE
04503  M01S03223.pfm     +++|          CON    0           NULL
04504  M01S03224.pfm     +++|          CON    32          MODIFY
04505  M01S03225.pfm     +++|          CON    31          READ AND ALLOW MODIFY
04506  M01S03226.pfm     +++|          CON    21          READ AND ALLOW APPEND
04507  M01S03227.pfm     +++|          CON    12          UPDATE
04508  M01S03228.pfm     +++|          CON    11          READ AND ALLOW UPDATE
04509  M01S03229.pfm     +++|          LOC    *O
04510  M01S03230.pfm     +++| TFNSL    EQU    *-TFNS
04511  M01S03231.pfm     +++|          TITLE  SUBROUTINES.
04512  M01S03232.pfm     +++| CAA      SPACE  4,15
04513  M01S03233.pfm     +++|**        CAA - CHECK FOR APPLICATION ACCOUNTING.
04514  M01S03234.pfm     +++|*
04515  M01S03235.pfm     +++|*         ENTRY  (FNTA) = *FST* ADDRESS OF FILE.
04516  M01S03236.pfm     +++|*
04517  M01S03237.pfm     +++|*         EXIT   IF THE FILE IS FROM THE APPLICATION LIBRARY
04518  M01S03238.pfm     +++|*                AND THE MODE OF ACCESS IS EXECUTE, THE
04519  M01S03239.pfm     +++|*                APPLICATION ACCOUNTING FILE STATUS IS SET.
04520  M01S03240.pfm     +++|
04521  M01S03241.pfm     +++|
04522  M01S03242.pfm     +++| CAA      SUBR               ENTRY/EXIT
04523  M01S03243.pfm     +++|          LDD    UI          CHECK FOR APPLICATION LIBRARY
04524  M01S03244.pfm     +++|          SHN    14
04525  M01S03245.pfm     +++|          ADD    UI+1
04526  M01S03246.pfm     +++|          LMC    AAUI
04527  M01S03247.pfm     +++|          NJN    CAAX        IF NOT FROM APPLICATION LIBRARY
04528  M01S03248.pfm     +++|          LDM    FNMD        CHECK FOR MODE OF ATTACH FUNCTION
04529  M01S03249.pfm     +++|          LMN    5
04530  M01S03250.pfm     +++|          NJN    CAAX        IF NOT EXECUTE-ONLY FILE
04531  M01S03251.pfm     +++|          LDM    SFNB        SET APPLICATION ACCOUNTING FILE STATUS
04532  M01S03252.pfm     +++|          SCN    77
04533  M01S03253.pfm     +++|          LMN    AAST
04534  M01S03254.pfm     +++|          STM    SFNB
04535  M01S03255.pfm     +++|          UJN    CAAX        EXIT
Line S03256 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
04536  M02S03256.ns2729  ---| CFA      SPACE  4,10
04537  M01S00022.ns2729  +++| CFA      SPACE  4,25
04538  M01S03257.pfm     +++|**        CFA - CHECK FOR FAST ATTACH FILE.
04539  M01S03258.pfm     +++|*
04540  M01S00023.ns2729  +++|*         IF THE *FA* OR *MA* SPECIAL REQUEST WAS SPECIFIED AND THE
04541  M01S00024.ns2729  +++|*         CALLER IS *SSJ=*, CHECK THE SYSTEM FNT FOR THE SPECIFIED
04542  M01S00025.ns2729  +++|*         FAST ATTACH FILE, AND ATTACH THE FILE IF IT EXISTS AND IS
04543  M01S00026.ns2729  +++|*         NOT BUSY.  IF THE FILE DOES NOT EXIST AND THE *FA* (FORCED
04544  M01S00027.ns2729  +++|*         FAST ATTACH) SPECIAL REQUEST WAS SPECIFIED, RETURN AN
04545  M01S00028.ns2729  +++|*         ERROR.  IF THE FILE DOES NOT EXIST AND THE *MA* (MIXED
04546  M01S00029.ns2729  +++|*         FAST ATTACH) SPECIAL REQUEST WAS SPECIFIED, EXIT AND ALLOW
04547  M01S00030.ns2729  +++|*         NORMAL ATTACH PROCESSING TO PROCEED.
04548  M01S00031.ns2729  +++|*
04549  M01S00032.ns2729  +++|*         ENTRY  (PFSR) = SPECIAL REQUEST SUBFUNCTION.
04550  M01S00033.ns2729  +++|*                (SSJS) = SPECIAL SYSTEM JOB STATUS.
04551  M01S00034.ns2729  +++|*
04552  M01S03259.pfm     +++|*         EXIT   (A) .LT. 0 IF FAST ATTACH FILE FOUND.
04553  M01S03260.pfm     +++|*
Line S03261 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
04554  M02S03261.ns2729  ---|*         USES   P0, T0 - T7, CM - CM+4, CN - CN+4, FN - FN+4,
Line S03262 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
04555  M02S03262.ns2729  ---|*                FS - FS+4.
04556  M01S00035.ns2729  +++|*         USES   T5, T6, CM - CM+4, CN - CN+4, FN - FN+4, FS - FS+4.
04557  M01S03263.pfm     +++|*
04558  M01S03264.pfm     +++|*         CALLS  FAT, SFN, SPN.
04559  M01S03265.pfm     +++|*
04560  M01S03266.pfm     +++|*         MACROS ERROR, MONITOR, SFA.
04561  M01S03267.pfm     +++|
04562  M01S03268.pfm     +++|
04563  M01S03269.pfm     +++| CFA6     LDM    PFSR        CHECK FOR SPECIAL REQUEST
04564  M01S03270.pfm     +++|          LPN    77
04565  M01S00036.ns2729  +++|          LMN    SRMA
04566  M01S00037.ns2729  +++|          ZJN    CFAX        IF MIXED FAST ATTACH SPECIAL REQUEST
04567  M01S00038.ns2729  +++|          ERROR  FNF,CH,IW   * (FILE NAME) NOT FOUND.*
04568  M01S00039.ns2729  +++|
04569  M01S00040.ns2729  +++| CFA7     ERROR  IUA,CH,IW   * USER ACCESS NOT VALID.*
04570  M01S00041.ns2729  +++|
04571  M01S00042.ns2729  +++|
04572  M01S00043.ns2729  +++| CFA      SUBR               ENTRY/EXIT
04573  M01S00044.ns2729  +++|          LDM    PFSR        CHECK FOR SPECIAL REQUEST
04574  M01S00045.ns2729  +++|          LPN    77
04575  M01S03271.pfm     +++|          LMN    SRFA
Line S03272 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
04576  M02S03272.ns2729  ---|          NJN    CFAX        IF NOT *FA* REQUEST
Line S03273 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
04577  M02S03273.ns2729  ---|          ERROR  FNF,CH,IW   * (FILE NAME) NOT FOUND.*
Line S03274 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
04578  M02S03274.ns2729  ---|
Line S03275 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
04579  M02S03275.ns2729  ---| CFA      SUBR               ENTRY/EXIT
04580  M01S00046.ns2729  +++|          ZJN    CFA0        IF FORCED FAST ATTACH SPECIAL REQUEST
04581  M01S00047.ns2729  +++|          LMN    SRMA&SRFA
04582  M01S00048.ns2729  +++|          NJN    CFAX        IF NOT MIXED FAST ATTACH SPECIAL REQUEST
04583  M01S00049.ns2729  +++| CFA0     LDM    SSJS
04584  M01S00050.ns2729  +++|          ZJN    CFA7        IF CALLER IS NOT *SSJ=*
04585  M01S03276.pfm     +++|          RJM    SPN         SET FILE NAME
Line S03277 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
04586  M02S03277.ns2729  ---|          LDM    SSJS
Line S03278 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
04587  M02S03278.ns2729  ---|          ZJN    CFA6        IF NOT *SSJ=* JOB
Line S03279 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
04588  M02S03279.ns2729  ---|          LDM    PFSR        CHECK FOR SPECIAL REQUEST
Line S03280 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
04589  M02S03280.ns2729  ---|          LPN    77
Line S03281 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
04590  M02S03281.ns2729  ---|          LMN    SRNF
Line S03282 Modification History
M01 (Added by) pfm
M02 (Updated by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
04591  M02S03282.ns2729  ---|          ZJN    CFAX        IF FORCE NON FAST ATTACH
04592  M01S03283.pfm     +++|          SFA    EST,PFPN+4  SET FAMILY EST ORDINAL
04593  M01S03284.pfm     +++|          ADK    EQDE
04594  M01S03285.pfm     +++|          CRD    CN          READ EST ENTRY
04595  M01S03286.pfm     +++|          LDD    CN+4
04596  M01S03287.pfm     +++|          SHN    3
04597  M01S03288.pfm     +++|          ADN    PFGL        READ FAMILY NAME
04598  M01S03289.pfm     +++|          CRD    CN
04599  M01S03290.pfm     +++|          LDD    MA
04600  M01S03291.pfm     +++|          CWD    FN
04601  M01S03292.pfm     +++|          CRD    CM          SET FILE NAME
04602  M01S03293.pfm     +++|          RJM    FAT         CHECK IF FAST ATTACH
04603  M01S03294.pfm     +++|          ZJN    CFA1        IF FAST ATTACH FILE FOUND
04604  M01S03295.pfm     +++|          LJM    CFA6        PROCESS FILE NOT FOUND
04605  M01S03296.pfm     +++|
04606  M01S03297.pfm     +++|*         FAST ATTACH FILE FOUND.
04607  M01S03298.pfm     +++|
04608  M01S03299.pfm     +++| CFA1     SFA    FNT,T1      READ FNT/FST ENTRY
04609  M01S03300.pfm     +++|          CRD    FN
04610  M01S03301.pfm     +++|          ADN    FSTL
04611  M01S03302.pfm     +++|          CRD    FS
04612  M01S03303.pfm     +++|          LDD    FS          SET FILE TRACK AND EST ORDINAL
04613  M01S03304.pfm     +++|          STD    T5
04614  M01S03305.pfm     +++|          STM    PFEQ
04615  M01S03306.pfm     +++|          STM    ERRE        SET EST ORDINAL FOR EVENT
04616  M01S03307.pfm     +++|          LDD    FS+1
04617  M01S03308.pfm     +++|          STD    T6
04618  M01S03309.pfm     +++|          STM    ERRC        SET TRACK FOR EVENT
04619  M01S03310.pfm     +++|          STM    PFFT
04620  M01S03311.pfm     +++|          LDM    MODE        CHECK FOR LEGAL MODE
04621  M01S03312.pfm     +++|          LPN    37
04622  M01S03313.pfm     +++|          STD    CM+2        SET MODE IN MONITOR REQUEST
04623  M01S03314.pfm     +++|          LDM    TFNS,CM+2
04624  M01S03315.pfm     +++|          STM    CFAA
04625  M01S03316.pfm     +++|          NJN    CFA2        IF LEGAL MODE
04626  M01S03317.pfm     +++|          ERROR  ILR,CH,IW,FS *PFM INCORRECT REQUEST.*
04627  M01S03318.pfm     +++|
04628  M01S03319.pfm     +++| CFA2     LDN    AFAS        SET REQUEST FOR FAFT FILE
04629  M01S03320.pfm     +++|          STD    CM+3
04630  M01S03321.pfm     +++|          LDD    T1
04631  M01S03322.pfm     +++|          STD    CM+4
04632  M01S03323.pfm     +++|          LDD    FN+3
04633  M01S03324.pfm     +++|          LPN    77
04634  M01S03325.pfm     +++|          ZJN    CFA3        IF LOCAL FAST ATTACH FILE
04635  M01S03326.pfm     +++|          LDD    T5          SET EST ORDINAL IF GLOBAL FILE
04636  M01S03327.pfm     +++| CFA3     STD    CM+1
04637  M01S03328.pfm     +++|          MONITOR  AFAM
04638  M01S03329.pfm     +++|          LDD    CM+1        CHECK RETURN STATUS
04639  M01S03330.pfm     +++|          ZJN    CFA4        IF NO ERROR
04640  M01S03331.pfm     +++|          LDN    FRT         SET TIME FOR EVENT
04641  M01S03332.pfm     +++|          STM    ERRD
04642  M01S03333.pfm     +++|          ERROR  FBS,CH,IW,FS *(FILE NAME) BUSY.*
04643  M01S03334.pfm     +++|
04644  M01S03335.pfm     +++| CFA4     LDC    *
04645  M01S03336.pfm     +++| CFAA     EQU    *-1         (*TFNS* TABLE ENTRY FOR SPECIFIED MODE)
04646  M01S03337.pfm     +++|          SHN    21-4
04647  M01S03338.pfm     +++|          MJN    CFA5        IF M, RM, A OR RA MODE
04648  M01S03339.pfm     +++|          LDD    T5          REQUEST TRT UPDATE
04649  M01S03340.pfm     +++|          STD    CM+1
04650  M01S03341.pfm     +++|          LDN    UTRS
04651  M01S03342.pfm     +++|          STD    CM+3
04652  M01S03343.pfm     +++|          MONITOR  STBM
04653  M01S03344.pfm     +++| CFA5     LDC    PFSN        SET FILE NAME
04654  M01S03345.pfm     +++|          RJM    SFN
04655  M01S03346.pfm     +++|          LCN    1           SET FAST ATTACH FILE FOUND
04656  M01S03347.pfm     +++|          LJM    CFAX        EXIT
04657  M01S03348.pfm     +++| CSA      SPACE  4,10
04658  M01S03349.pfm     +++|**        CSA - CHECK SPECIFIED ACCESS LEVEL.
04659  M01S03350.pfm     +++|*
04660  M01S03351.pfm     +++|*         ENTRY  (FA) = FNT ADDRESS IN NFL.
04661  M01S03352.pfm     +++|*                (LFAL) = REQESTED ACCESS LEVEL, IF *PFSP* NONZERO.
04662  M01S03353.pfm     +++|*
04663  M01S03354.pfm     +++|*         EXIT   ACCESS LEVEL SET IN FNT ENTRY BY *CPUMTR*, IF VALID.
04664  M01S03355.pfm     +++|*                *MFFI* ACCOUNT MESSAGE ISSUED.
04665  M01S03356.pfm     +++|*
04666  M01S03357.pfm     +++|*         CALLS  IAM.
04667  M01S03358.pfm     +++|*
04668  M01S03359.pfm     +++|*         USES   CM - CM+4.
04669  M01S03360.pfm     +++|*
04670  M01S03361.pfm     +++|*         MACROS ERROR, MONITOR.
04671  M01S03362.pfm     +++|
04672  M01S03363.pfm     +++|
04673  M01S03364.pfm     +++| CSA      SUBR               ENTRY/EXIT
04674  M01S03365.pfm     +++|          LDM    PFSP
04675  M01S03366.pfm     +++|          ZJN    CSAX        IF SECURITY PROCESSING BIT NOT SET IN FET
04676  M01S03367.pfm     +++|          LDN    VSFS        VALIDATE AND SET ACCESS LEVEL FOR FILE
04677  M01S03368.pfm     +++|          STD    CM+1
04678  M01S03369.pfm     +++|          LDD    FA
04679  M01S03370.pfm     +++|          STD    CM+3
04680  M01S03371.pfm     +++|          LDM    LFAL
04681  M01S03372.pfm     +++|          STD    CM+4
04682  M01S03373.pfm     +++|          MONITOR  VSAM
04683  M01S03374.pfm     +++|          LDD    CM+1
04684  M01S03375.pfm     +++|          ZJN    CSAX        IF ACCESS LEVEL VALID
04685  M01S03376.pfm     +++|          RJM    IAM         ISSUE ACCOUNT FILE MESSAGE
04686  M01S03377.pfm     +++|          ERROR  LNF,CH,IW,,SVE  * ACCESS LEVEL NOT VALID FOR FILE.*
04687  M01S03378.pfm     +++| CFS      SPACE  4,10
04688  M01S03379.pfm     +++|**        CFS - CHECK FILE SIZE FOR THE CATALOG SEARCH.
04689  M01S03380.pfm     +++|*
04690  M01S03381.pfm     +++|*         ENTRY  (MXFS) = MAXIMUM FILE SIZE ALLOWED FOR INDIRECT
04691  M01S03382.pfm     +++|*                         ACCESS FILES/ 10B.
04692  M01S03383.pfm     +++|*                (LF - LF+1) = LENGTH OF LOCAL FILE.
04693  M01S03384.pfm     +++|*
04694  M01S03385.pfm     +++|*         EXIT   (LF - LF+1) CHECKED FOR SIZE LIMITS.
04695  M01S03386.pfm     +++|*
04696  M01S03387.pfm     +++|*         MACROS ERROR.
04697  M01S03388.pfm     +++|
04698  M01S03389.pfm     +++|
04699  M01S03390.pfm     +++| CFS3     ERROR  EFL,CH,IW   *(FILE NAME) EMPTY.*
04700  M01S03391.pfm     +++|
04701  M01S03392.pfm     +++| CFS      SUBR               ENTRY/EXIT
04702  M01S03393.pfm     +++|          LDD    LF
04703  M01S03394.pfm     +++|          SHN    -5
04704  M01S03395.pfm     +++|          ZJN    CFS2        IF FILE LENGTH .LT. 131072D SECTORS
04705  M01S03396.pfm     +++| CFS1     ERROR  FTL,CH,IW   *FILE TOO LONG.*
04706  M01S03397.pfm     +++|
04707  M01S03398.pfm     +++| CFS2     LDD    LF          CHECK FOR EMPTY FILE
04708  M01S03399.pfm     +++|          SHN    14
04709  M01S03400.pfm     +++|          ADD    LF+1
04710  M01S03401.pfm     +++|          ZJN    CFS3        IF FILE EMPTY
04711  M01S03402.pfm     +++|          ADN    2           ADD SYSTEM AND EOI SECTORS
04712  M01S03403.pfm     +++|          MJN    CFS1        IF FILE .GT. 131069D SECTORS
04713  M01S03404.pfm     +++|          LDM    MXFS
04714  M01S03405.pfm     +++|          ZJN    CFSX        IF NO FILE SIZE LIMITS
04715  M01S03406.pfm     +++|          LDD    LF
04716  M01S03407.pfm     +++|          SHN    -3
04717  M01S03408.pfm     +++|          NJN    CFS1        IF FILE SIZE .GT. MAXIMUM FILE SIZE LIMIT
04718  M01S03409.pfm     +++|          LDD    LF
04719  M01S03410.pfm     +++|          SHN    14
04720  M01S03411.pfm     +++|          ADD    LF+1
04721  M01S03412.pfm     +++|          ADN    7
04722  M01S03413.pfm     +++|          SHN    -3
04723  M01S03414.pfm     +++|          SBM    MXFS
04724  M01S03415.pfm     +++|          MJN    CFSX        IF LIMIT NOT EXCEEDED
04725  M01S03416.pfm     +++|          NJN    CFS1        IF FILE LIMIT EXCEEDED
04726  M01S03417.pfm     +++|          UJN    CFSX        RETURN
04727  M01S03418.pfm     +++| EFN      SPACE  4,20
04728  M01S03419.pfm     +++|**        EFN - ESTABLISH FNT ENTRY FOR FAST ATTACH FILE.
04729  M01S03420.pfm     +++|*
04730  M01S03421.pfm     +++|*         ENTRY  (FN - FN+4) = LOCAL FILE NAME.
04731  M01S03422.pfm     +++|*                (FNTA) = FNT ADDRESS OF LOCAL FILE.
04732  M01S03423.pfm     +++|*                (PFEQ) = EST ORDINAL FOR FILE.
04733  M01S03424.pfm     +++|*                (PFFT) = FIRST TRACK FOR FILE.
04734  M01S03425.pfm     +++|*                (PFSN) = LOCAL FILE NAME.
04735  M01S03426.pfm     +++|*                (FNMD) = FNT STATUS MODE EQUIVALENCE.
04736  M01S03427.pfm     +++|*
04737  M01S03428.pfm     +++|*         EXIT   FNT ENTRY ESTABLISHED IN CENTRAL MEMORY.
04738  M01S03429.pfm     +++|*                (FA) = FNT ADDRESS.
04739  M01S03430.pfm     +++|*                (FN - FN+4) = FNT.
04740  M01S03431.pfm     +++|*                (FS - FS+4) = FST.
04741  M01S03432.pfm     +++|*                PERMANENT FILE USER COUNT INCREMENTED.
04742  M01S03433.pfm     +++|*
04743  M01S03434.pfm     +++|*         USES   T1, CM - CM+4.
04744  M01S03435.pfm     +++|*
04745  M01S03436.pfm     +++|*         MACROS MONITOR.
04746  M01S03437.pfm     +++|
04747  M01S03438.pfm     +++|
04748  M01S03439.pfm     +++| EFN      SUBR               ENTRY/EXIT
04749  M01S03440.pfm     +++|          LDM    FNTA        SET FNT/FST
04750  M01S03441.pfm     +++|          STD    FA
04751  M01S03442.pfm     +++|          LDM    PFEQ        SET EST ORDINAL
04752  M01S03443.pfm     +++|          STD    FS
04753  M01S03444.pfm     +++|          LDM    PFFT        SET FIRST TRACK
04754  M01S03445.pfm     +++|          STD    FS+1
04755  M01S03446.pfm     +++|          STD    FS+2
04756  M01S03447.pfm     +++|          LDN    FSMS        SET SECTOR
04757  M01S03448.pfm     +++|          STD    FS+3
04758  M01S03449.pfm     +++|          LDC    2004        SET FST STATUS
04759  M01S03450.pfm     +++|          STD    FS+4
04760  M01S03451.pfm     +++|          LDC    PMFT*100    SET FILE TYPE
04761  M01S03452.pfm     +++|          RAD    FN+4
04762  M01S03453.pfm     +++|          STM    PFSN+4
04763  M01S03454.pfm     +++|          LDM    FNMD        SET FNT STATUS MODE
04764  M01S03455.pfm     +++|          SCN    2           CLEAR WRITEABLE MODE BIT
04765  M01S03456.pfm     +++|          RAM    PFSN+3
04766  M01S03457.pfm     +++|          STD    FN+3
04767  M01S03458.pfm     +++|          LDN    ZERL        SET FILE SIZE LIMIT TO INFINITE
04768  M01S03459.pfm     +++|          CRD    CM
04769  M01S03460.pfm     +++|          LDC    700
04770  M01S03461.pfm     +++|          STD    CM+2
Proceed to Part 4
cdc/nos2.source/opl.opl871/deck/pfm.003.txt ยท Last modified: by 127.0.0.1