User Tools

Site Tools


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

Deck PFM Part 001

95 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
01496  M00S00966.pfm     +++|*         CATALOG NOT AVAILABLE.
01497  M00S00967.pfm     +++|
01498  M00S00968.pfm     +++| PRS20    LDD    MA          SET PACK NAME FOR *0RF*
01499  M00S00969.pfm     +++|          CWM    PFPN,ON
01500  M00S00970.pfm     +++|          SBN    1
01501  M00S00971.pfm     +++|          CRD    FN
01502  M00S00972.pfm     +++|          LDN    0           CLEAR EST ORDINAL
01503  M00S00973.pfm     +++|          STD    EQ
01504  M00S00974.pfm     +++|          RJM    CRF         *UNLOAD* REMOVABLE PACK RESOURCE
01505  M00S00975.pfm     +++| PRS21    ERROR  PFN,CH,IW   * PERMANENT FILES NOT AVAILABLE.*
01506  M00S00976.pfm     +++|
01507  M00S00977.pfm     +++| PRS22    LDM    PFPN
01508  M00S00978.pfm     +++|          ZJN    PRS21       IF NOT AUXILIARY DEVICE REQUEST
Line S00979 Modification History
M01 (Removed by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
01509  M01S00979.ns2599  ---|          LDM    PRSD        CHECK ERROR PROCESSING STATUS
01510  M01S00980.ns2599  ---|          LPN    1
01511  M01S00981.ns2599  ---|          ZJN    PRS20       IF ERROR PROCESSING NOT SELECTED
01512  M01S00982.ns2599  ---|          LDM    PRSD        CHECK USER ERROR PROCESSING SELECTED
01513  M01S00983.ns2599  ---|          LPN    2
01514  M01S00984.ns2599  ---|          NJN    PRS20       IF USER ERROR PROCESSING SELECTED
Line S00006 Modification History
M01 (Added by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
01515  M01S00006.ns2599  +++|          LDM    EPOP        CHECK ERROR PROCESSING STATUS
01516  M01S00007.ns2599  +++|          SHN    21-2
01517  M01S00008.ns2599  +++|          PJN    PRS20       IF ERROR PROCESSING NOT SELECTED
01518  M01S00009.ns2599  +++|          SHN    21-3-21+2+22  CHECK USER ERROR PROCESSING SELECTED
01519  M01S00010.ns2599  +++|          MJN    PRS20       IF USER ERROR PROCESSING SELECTED
01520  M00S00985.pfm     +++|          RJM    CRX         CHECK RESEX STATUS
01521  M00S00986.pfm     +++|          NJN    PRS24       IF RESEX HAS BEEN ACTIVATED
01522  M00S00987.pfm     +++| PRS23    LJM    RSX         ACTIVATE RESEX
01523  M00S00988.pfm     +++|
01524  M00S00989.pfm     +++| PRS24    LPN    /STATUS/MV  CHECK RESEX STATUS
01525  M00S00990.pfm     +++|          ZJN    PRS23       IF PACK AVAILABLE
01526  M00S00991.pfm     +++|
01527  M00S00992.pfm     +++|          ERROR  RSE,CH,IW   * RESEX FAILURE.*
01528  M00S00993.pfm     +++|*                            NON-FATAL ERROR DETECTED WITH
01529  M00S00994.pfm     +++|*                            NO PACK AVAILABLE AND ERROR
01530  M00S00995.pfm     +++|*                            PROCESSING SET.
01531  M00S00996.pfm     +++|
01532  M00S00997.pfm     +++|*         CATALOG AVAILABLE - DETERMINE IF REQUEST CAN BE CONTINUED.
01533  M00S00998.pfm     +++|
01534  M00S00999.pfm     +++| PRS25    LDM    PFPN        CHECK AUXILIARY DEVICE REQUEST
01535  M00S01000.pfm     +++|          NJN    PRS26       IF AUXILIARY DEVICE REQUEST
01536  M00S01001.pfm     +++|          LJM    PRS39       CHECK CATALOG ACCESSABILITY
01537  M00S01002.pfm     +++|
01538  M00S01003.pfm     +++|*         PROCESS AUXILIARY DEVICE REQUEST.
01539  M00S01004.pfm     +++|*         DETERMINE IF DEVICE FOUND IS PROPER TYPE.
01540  M00S01005.pfm     +++|
01541  M00S01006.pfm     +++| PRS26    LDM    RQDT+1      PRESET REQUESTED DEVICE TYPE
01542  M00S01007.pfm     +++|          STM    PRSA+1
01543  M00S01008.pfm     +++|          LDM    RQDT
01544  M00S01009.pfm     +++|          LPN    77
01545  M00S01010.pfm     +++|          LMC    LMCI
01546  M00S01011.pfm     +++|          STM    PRSA
01547  M00S01012.pfm     +++|          SFA    EST,T5      READ EST
01548  M00S01013.pfm     +++|          ADK    EQDE
01549  M00S01014.pfm     +++|          CRD    T7
01550  M00S01015.pfm     +++|          LDD    T7
01551  M00S01016.pfm     +++|          SHN    21-10
01552  M00S01017.pfm     +++|          PJN    PRS27       IF NOT REMOVABLE
01553  M00S01018.pfm     +++|          LDD    T7+4        GET UNIT COUNT
01554  M00S01019.pfm     +++|          SHN    3
01555  M00S01020.pfm     +++|          ADN    DDLL
01556  M00S01021.pfm     +++|          CRD    CM+3
01557  M00S01022.pfm     +++|          LDD    CM+3
01558  M00S01023.pfm     +++|          LPN    7
01559  M00S01024.pfm     +++|          ADN    1R1
01560  M00S01025.pfm     +++|          SHN    14
01561  M00S01026.pfm     +++|          LMD    T7+3        DEVICE TYPE
01562  M00S01027.pfm     +++|          SHN    6
01563  M00S01028.pfm     +++| PRSA     LMC    *           CHECK DEVICE TYPE
01564  M00S01029.pfm     +++|*         LMC    (RQDT)      PRESET TO REQUESTED TYPE
Line S01030 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
01565  M01S01030.251l664 ---|          ZJN    PRS27       IF PROPER TYPE
01566  M01S01031.251l664 ---|          ERROR  IDR,CH,IW   *INCORRECT DEVICE REQUEST.*
Line S00001 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
01567  M01S00001.251l664 +++|          NJN    PRS26.1     IF NOT PROPER TYPE
01568  M01S00002.251l664 +++|          LDD    T7
01569  M01S00003.251l664 +++|          LPN    2
01570  M01S00004.251l664 +++|          ZJN    PRS27       IF DEVICE *ON* OR *IDLE*
01571  M01S00005.251l664 +++| PRS26.1  ERROR  IDR,CH,IW   *INCORRECT DEVICE REQUEST.*
01572  M00S01032.pfm     +++|
01573  M00S01033.pfm     +++|*         DETERMINE IF ALTERNATE ACCESS TO PRIVATE DEVICE.
01574  M00S01034.pfm     +++|
01575  M00S01035.pfm     +++| PRS27    LDD    FS
01576  M00S01036.pfm     +++|          NJN    PRS28       IF PRIVATE DEVICE
01577  M00S01037.pfm     +++|          LJM    PRS36       CHECK EST OF DEVICE
01578  M00S01038.pfm     +++|
01579  M00S01039.pfm     +++| PRS28    LDM    PFUC        DISABLE ALL BUT INDIRECT FILE SIZE LIMITS
01580  M00S01040.pfm     +++|          LPN    7
01581  M00S01041.pfm     +++|          LMC    7770
01582  M00S01042.pfm     +++|          STM    PFUC
01583  M00S01043.pfm     +++|          LDK    STPD        SET *PRIVATE DEVICE* FLAG
01584  M00S01044.pfm     +++|          RAM    STAT
01585  M00S01045.pfm     +++|          LDM    TCTL,CC     CHECK FUNCTION TYPE
01586  M00S01046.pfm     +++|          LPN    2
01587  M00S01047.pfm     +++|          NJN    PRS29       IF NOT ALTERNATE CATALOG ACCESS
01588  M00S01048.pfm     +++|          LDM    PFOU        SET CATALOG FOR ACCESS
01589  M00S01049.pfm     +++|          ZJN    PRS29       IF NO OPTIONAL USER
01590  M00S01050.pfm     +++|          LDC    PFOU
01591  M00S01051.pfm     +++|          UJN    PRS30       SET UP OPTIONAL USER
01592  M00S01052.pfm     +++|
Line S01053 Modification History
M01 (Removed by) pfm76
Seq #  *Modification Id* Act 
----------------------------+
01593  M01S01053.pfm76   ---| PRS29    LDC    PFAC
Line S00001 Modification History
M01 (Added by) pfm76
Seq #  *Modification Id* Act 
----------------------------+
01594  M01S00001.pfm76   +++| PRS29    LDC    PFAC        GET USER NAME OF CALLER
01595  M00S01054.pfm     +++| PRS30    RJM    SFN
Line S01055 Modification History
M01 (Removed by) pfm76
Seq #  *Modification Id* Act 
----------------------------+
01596  M01S01055.pfm76   ---|          LDN    0
Line S00002 Modification History
M01 (Added by) pfm76
Seq #  *Modification Id* Act 
----------------------------+
01597  M01S00002.pfm76   +++|          LDN    3
01598  M00S01056.pfm     +++|          STD    T1
01599  M00S01057.pfm     +++|          LDD    FS+3        CLEAR LOWER CHARACTER OF USER NAME
01600  M00S01058.pfm     +++|          SCN    77
01601  M00S01059.pfm     +++|          STD    FS+3
Line S01060 Modification History
M01 (Removed by) pfm76
Seq #  *Modification Id* Act 
----------------------------+
01602  M01S01060.pfm76   ---| PRS31    LDM    FN,T1
Line S00003 Modification History
M01 (Added by) pfm76
Seq #  *Modification Id* Act 
----------------------------+
01603  M01S00003.pfm76   +++| PRS31    LDM    FN,T1       COMPARE NEXT BYTE OF USER NAMES
01604  M00S01061.pfm     +++|          LMM    FS,T1
Line S01062 Modification History
M01 (Removed by) pfm76
Seq #  *Modification Id* Act 
----------------------------+
01605  M01S01062.pfm76   ---|          ZJN    PRS33       IF CORRECT USER
01606  M01S01063.pfm76   ---|          LDM    TCTL,CC
Line S00004 Modification History
M01 (Added by) pfm76
Seq #  *Modification Id* Act 
----------------------------+
01607  M01S00004.pfm76   +++|          NJN    PRS31.1     IF NOT CORRECT USER
01608  M01S00005.pfm76   +++|          SOD    T1
01609  M01S00006.pfm76   +++|          PJN    PRS31       IF MORE BYTES TO COMPARE
01610  M01S00007.pfm76   +++|          UJN    PRS34       PROCESS ACCESS BY/SPECIFYING DEVICE OWNER
01611  M01S00008.pfm76   +++|
01612  M01S00009.pfm76   +++| PRS31.1  LDM    TCTL,CC     CHECK FUNCTION TYPE
01613  M00S01064.pfm     +++|          LPN    14
01614  M00S01065.pfm     +++|          ZJN    PRS32       IF NOT FILE CREATION REQUEST
01615  M00S01066.pfm     +++|          LJM    PRS21       *DEVICE UNAVAILABLE.*
01616  M00S01067.pfm     +++|
01617  M00S01068.pfm     +++|*         ALTERNATE ACCESS TO PRIVATE DEVICE.
01618  M00S01069.pfm     +++|
01619  M00S01070.pfm     +++| PRS32    LDM    TCTL,CC     CHECK FUNCTION TYPE
01620  M00S01071.pfm     +++|          LPN    2
01621  M00S01072.pfm     +++|          NJN    PRS35       IF NOT ALTERNATE CATALOG ACCESS
01622  M00S01073.pfm     +++|          LDM    PFOU        CHECK USER NAME
01623  M00S01074.pfm     +++|          NJN    PRS35       IF OPTIONAL USER CALL
Line S01075 Modification History
M01 (Removed by) pfm76
Seq #  *Modification Id* Act 
----------------------------+
01624  M01S01075.pfm76   ---|          LDD    MA          SET CALLING USER AS OPTIONAL USER
Line S00010 Modification History
M01 (Added by) pfm76
Seq #  *Modification Id* Act 
----------------------------+
01625  M01S00010.pfm76   +++|          LDD    MA          SET DEVICE OWNER AS OPTIONAL USER
01626  M00S01076.pfm     +++|          CWD    FS          COPY ALTERNATE USER NAME
01627  M00S01077.pfm     +++|          CRM    PFOU,ON
Line S01078 Modification History
M01 (Removed by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
01628  M01S01078.ns2426  ---|          RJM    POA         PROCCESS OPTIONAL USER NAME
Line S00003 Modification History
M01 (Added by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
01629  M01S00003.ns2426  +++|          RJM    POA         PROCESS OPTIONAL USER NAME
Line S01079 Modification History
M01 (Removed by) pfm76
Seq #  *Modification Id* Act 
----------------------------+
01630  M01S01079.pfm76   ---|          PJN    PRS34       IF USER NAME VALID
Line S00011 Modification History
M01 (Added by) pfm76
Seq #  *Modification Id* Act 
----------------------------+
01631  M01S00011.pfm76   +++|          PJN    PRS33       IF USER NAME VALID
01632  M00S01080.pfm     +++|          ERROR  ILR,CH,IW   *PFM INCORRECT REQUEST*
01633  M00S01081.pfm     +++|
Line S01082 Modification History
M01 (Removed by) pfm76
Seq #  *Modification Id* Act 
----------------------------+
01634  M01S01082.pfm76   ---| PRS33    AOD    T1          ADVANCE TO NEXT BYTE
01635  M01S01083.pfm76   ---|          LMN    4
01636  M01S01084.pfm76   ---|          NJN    PRS31       IF MORE NAME TO COMPARE
Line S00012 Modification History
M01 (Added by) pfm76
Seq #  *Modification Id* Act 
----------------------------+
01637  M01S00012.pfm76   +++| PRS33    LDM    TCTL,CC     CHECK FUNCTION TYPE
01638  M01S00013.pfm76   +++|          LPN    2
01639  M01S00014.pfm76   +++|          NJN    PRS35       IF NOT ALTERNATE CATALOG ACCESS
01640  M00S01085.pfm     +++|
01641  M00S01086.pfm     +++|*         CHECK IF RESOURCE CONTROL NEEDED.
01642  M00S01087.pfm     +++|
01643  M00S01088.pfm     +++| PRS34    LDC    PFPN        RESET CATALOG POINTER
Line S01089 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01644  M01S01089.242l642 ---|          RJM    SCA         SET CATALOG ADDRESS
Line S00176 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01645  M01S00176.242l642 +++|          RJM    GCA         GET CATALOG ADDRESS
01646  M00S01090.pfm     +++|          STM    MSTA        MST ADDRESS/10B
01647  M00S01091.pfm     +++|          PJN    PRS36       IF CATALOG FOUND
01648  M00S01092.pfm     +++|          LJM    PRS22       TREAT AS IF CATALOG NOT FOUND
01649  M00S01093.pfm     +++|
01650  M00S01094.pfm     +++| PRS35    RJM    SPN         SET PERMANENT FILE NAME
01651  M00S01095.pfm     +++|          ERROR  FNF,CH,IW   * (FILENAM) NOT FOUND.*
01652  M00S01096.pfm     +++|
01653  M00S01097.pfm     +++| PRS36    SFA    EST,T5      READ EST ENTRY
01654  M00S01098.pfm     +++|          ADK    EQDE
01655  M00S01099.pfm     +++|          CRD    CM
01656  M00S01100.pfm     +++|          LDD    CM
01657  M00S01101.pfm     +++|          SHN    21-10
01658  M00S01102.pfm     +++|          PJN    PRS39       IF NOT REMOVABLE
01659  M00S01103.pfm     +++|          RJM    CRX         CHECK RESEX RETURN STATUS
01660  M00S01104.pfm     +++|          NJN    PRS38       IF *RESEX* HAS BEEN ACTIVATED
01661  M00S01105.pfm     +++|          LDM    TCTL,CC
01662  M00S01106.pfm     +++|          SHN    21-5
01663  M00S01107.pfm     +++|          PJN    PRS39       IF NOT DA REQUEST
01664  M00S01108.pfm     +++|          RJM    CRR         CHECK IF FIRST AUXILIARY REQUEST ON DEVICE
01665  M00S01109.pfm     +++|          NJN    PRS39       IF NOT 1ST DA FILE ON THIS PACK
01666  M00S01110.pfm     +++|          RJM    CCA         CHECK FOR ERROR IDLE OR PF UTILITY ACTIVE
01667  M00S01111.pfm     +++|          LJM    RSX         ACTIVATE *RESEX*
01668  M00S01112.pfm     +++|
01669  M00S01113.pfm     +++| PRS37    EXIT   PFN,CH,IW   * DEVICE UNAVAILABLE.*
01670  M00S01114.pfm     +++|
01671  M00S01115.pfm     +++| PRS38    LPN    /STATUS/MV  CHECK RESEX STATUS
01672  M00S01116.pfm     +++|          NJN    PRS37       IF PACK NOT AVAILABLE
01673  M00S01117.pfm     +++|          LDD    CM+2
01674  M00S01118.pfm     +++|          LPN    /STATUS/OK
01675  M00S01119.pfm     +++|          NJN    PRS39       IF REQUEST COMPLETE
01676  M00S01120.pfm     +++|
01677  M00S01121.pfm     +++|          ERROR  RSE,CH,IW   * RESEX FAILURE.*
01678  M00S01122.pfm     +++|
01679  M00S01123.pfm     +++|*         REQUEST CAN BE PROCESSED DETERMINE IF CATALOG CAN BE ACCESSED
01680  M00S01124.pfm     +++|
01681  M00S01125.pfm     +++| PRS39    RJM    CCA         CHECK CATALOG ACCESSABILITY
01682  M00S01126.pfm     +++|
01683  M00S01127.pfm     +++|*         CATALOG CAN BE ACCESSED - PROCEED WITH REQUEST.
01684  M00S01128.pfm     +++|
01685  M00S01129.pfm     +++|          LDM    TCTL,CC     CHECK COMMAND
01686  M00S01130.pfm     +++|          SHN    21-4
01687  M00S01131.pfm     +++|          PJN    PRS40       IF USER CONTROLS NOT NEEDED
01688  M00S01132.pfm     +++|          RJM    SUC         SET USER CONTROLS
01689  M00S01133.pfm     +++| PRS40    RJM    SRF         SET RESERVE FNT
01690  M00S01134.pfm     +++|
01691  M00S01135.pfm     +++|*         SET UP APPROPRIATE ACCOUNTING MESSAGE.
01692  M00S01136.pfm     +++|
Line S01137 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01693  M01S01137.242l642 ---| PRS41    LDD    CC
Line S00177 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01694  M01S00177.242l642 +++| PRS41    LDM    PWRF        RESTART FLAGS
01695  M01S00178.242l642 +++|          LPK    RFAM
01696  M01S00179.242l642 +++|          NJN    PRS43       IF ACCOUNTING MESSAGES ISSUED
01697  M01S00180.242l642 +++|          LDK    RFAM        SET ACCOUNTING MESSAGES ISSUED FLAG
01698  M01S00181.242l642 +++|          RAM    PWRF
01699  M01S00182.242l642 +++|          LDD    CC
01700  M00S01138.pfm     +++|          LMN    CCPM
01701  M00S01139.pfm     +++|          ZJN    PRS42       IF PERMIT FUNCTION
01702  M00S01140.pfm     +++|          LDN    PFOU&PFAC   SPECIFY USER NAME
01703  M00S01141.pfm     +++| PRS42    LMC    PFAC        SPECIFY REQUESTING USER NAME
01704  M00S01142.pfm     +++|          RJM    SAM         SET UP ACCOUNTING MESSAGE
01705  M00S01143.pfm     +++|
01706  M00S01144.pfm     +++|*         ISSUE DAYFILE MESSAGE(S).
01707  M00S01145.pfm     +++|
01708  M00S01146.pfm     +++|          LDC    PRSF+ACFN   ISSUE *S* TYPE ACCOUNT LOG MESSAGE
01709  M00S01147.pfm     +++|          RJM    DFM
01710  M00S01148.pfm     +++|          LDM    TCTL,CC     CHECK IF *A* TYPE MESSAGE NEEDED
01711  M00S01149.pfm     +++|          SHN    21-6
01712  M00S01150.pfm     +++|          PJN    PRS43       IF *A* TYPE MESSAGE NOT NEEDED
01713  M00S01151.pfm     +++|          LDC    2RAP        PRESET MESSAGE CODE
01714  M00S01152.pfm     +++|          STM    PRSF
01715  M00S01153.pfm     +++|          LDC    PRSF+ACFN   ISSUE *A* TYPE ACCOUNT LOG MESSAGE
01716  M00S01154.pfm     +++|          RJM    DFM
01717  M00S01155.pfm     +++|
01718  M00S01156.pfm     +++|*         INCREMENT ACCOUNTING INFORMATION.
01719  M00S01157.pfm     +++|
01720  M00S01158.pfm     +++| PRS43    LDM    TPFI,CC     PF INCREMENT FOR REQUESTED FUNCTION
Line S01159 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01721  M01S01159.242l642 ---|          RAM    DPPF
Line S00183 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01722  M01S00183.242l642 +++|          RAM    AIPF+1
01723  M00S01160.pfm     +++|          LDM    PFPN        CHECK AUXILIARY PACK REQUEST
01724  M00S01161.pfm     +++|          ZJN    PRS44       IF NOT AUXILIARY PACK REQUEST
01725  M00S01162.pfm     +++|          LDN    IPAD        PF INCREMENT FOR AUXILIARY DEVICE
Line S01163 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01726  M01S01163.242l642 ---|          RAM    DPPF
Line S00184 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01727  M01S00184.242l642 +++|          RAM    AIPF+1
01728  M00S01164.pfm     +++| PRS44    LDM    PFOU        CHECK FOR OPTIONAL USER
01729  M00S01165.pfm     +++|          ZJN    PRS45       IF NO OPTIONAL USER
01730  M00S01166.pfm     +++|          LDN    IPVA        PF INCREMENT FOR *VALIDUS* ACCESS
Line S01167 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01731  M01S01167.242l642 ---|          RAM    DPPF
Line S00185 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01732  M01S00185.242l642 +++|          RAM    AIPF+1
01733  M00S01168.pfm     +++|
01734  M00S01169.pfm     +++| PRS45    LDM    PRSJ
01735  M00S01170.pfm     +++|          STD    UI
01736  M00S01171.pfm     +++|          LDM    PRSJ+1
01737  M00S01172.pfm     +++|          STD    UI+1
Line S01173 Modification History
M01 (Removed by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
01738  M01S01173.ns2358  ---|          LDN    ZERL        CLEAR FILE STATUS
01739  M01S01174.ns2358  ---|          CRD    FS
01740  M00S01175.pfm     +++|          LDM    STAT        CHECK *CPUPFM*/*RESEX* STATUS
01741  M00S01176.pfm     +++|          LPK    STRX
01742  M00S01177.pfm     +++|          ZJN    PRS46       IF *CPUPFM*/*RESEX* NOT ACTIVATED
01743  M00S01178.pfm     +++|          LDN    ZERL        CLEAR SPCW STATUS
01744  M00S01179.pfm     +++|          CRD    CM
01745  M00S01180.pfm     +++|          LDD    CP
01746  M00S01181.pfm     +++|          ADC    SPCW
01747  M00S01182.pfm     +++|          CWD    CM
01748  M00S01183.pfm     +++|          LDD    CC
01749  M00S01184.pfm     +++|          LMN    CCRS
01750  M00S01185.pfm     +++|          NJN    PRS46       IF NOT *RPFSTAT* REQUEST
Line S00001 Modification History
M01 (Added by) ns2542
Seq #  *Modification Id* Act 
----------------------------+
01751  M01S00001.ns2542  +++|          LDN    CAPS        CLEAR *CPUPFM* ACTIVE STATUS
01752  M01S00002.ns2542  +++|          STD    CM+1
01753  M01S00003.ns2542  +++|          MONITOR  SJCM
01754  M00S01186.pfm     +++|          EXIT   NEC,CH,IW,EQ  PROCESS ERROR CODE FROM *CPUPFM*, IF ANY
01755  M00S01187.pfm     +++| PRSK     EQU    *-1         (ERROR CODE)
01756  M00S01188.pfm     +++|
01757  M00S01189.pfm     +++|*         PROCESS RESOURCE FILE CLEAN UP.
01758  M00S01190.pfm     +++|
01759  M00S01191.pfm     +++| PRS46    LDM    TCTL,CC     CHECK ACCESS TYPE
01760  M00S01192.pfm     +++|          SHN    21-5
01761  M00S01193.pfm     +++|          PJN    PRS47       IF NOT DIRECT ACCESS OPERATION
01762  M00S01194.pfm     +++|          SHN    21-7-21+5+22
01763  M00S01195.pfm     +++|          PJN    PRS47       IF NO FNT CREATED
01764  M00S01196.pfm     +++|          NFA    FNTA,R      SET EST ORDINAL IN FST
01765  M00S01197.pfm     +++|          ADK    FNTL
01766  M00S01198.pfm     +++|          CRD    CN
01767  M00S01199.pfm     +++|          ADN    FSTL-FNTL
01768  M00S01200.pfm     +++|          CRD    CM
01769  M00S01201.pfm     +++|          LDD    EQ
01770  M00S01202.pfm     +++|          STD    CM
01771  M00S01203.pfm     +++|          LDD    CN+4
01772  M00S01204.pfm     +++|          LPN    77
01773  M00S01205.pfm     +++|          LMC    PMFT*100B
01774  M00S01206.pfm     +++|          STD    CN+4
01775  M00S01207.pfm     +++|          NFA    FNTA,R
01776  M00S01208.pfm     +++|          ADK    FNTL
01777  M00S01209.pfm     +++|          CWD    CN
01778  M00S01210.pfm     +++|          ADN    FSTL-FNTL
01779  M00S01211.pfm     +++|          CWD    CM
01780  M00S01212.pfm     +++|          UJN    PRS48       PROCESS REQUEST
01781  M00S01213.pfm     +++|
01782  M00S01214.pfm     +++| PRS47    RJM    CRF         *UNLOAD* REMOVABLE PACK RESOURCE
Line S01215 Modification History
M01 (Removed by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
01783  M01S01215.ns2358  ---| PRS48    LDD    CC          CHECK COMMAND CODE
Line S00001 Modification History
M01 (Added by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
01784  M01S00001.ns2358  +++| PRS48    LDN    ZERL
01785  M01S00002.ns2358  +++|          CRD    FS
01786  M01S00003.ns2358  +++|          LDD    CC          CHECK COMMAND CODE
01787  M00S01216.pfm     +++|          LMN    CCCT
01788  M00S01217.pfm     +++|          NJN    PRS49       IF NOT CATLIST COMMAND
Line S01218 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01789  M01S01218.242l642 ---|          EXECUTE 3PI        EXIT TO CATLIST PROCESSOR
Line S00186 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01790  M01S00186.242l642 +++|          EXECUTE  3PJ       EXIT TO CATLIST PROCESSOR
01791  M00S01219.pfm     +++|
01792  M00S01220.pfm     +++| PRS49    LMN    CCPM&CCCT   CHECK COMMAND CODE
01793  M00S01221.pfm     +++|          ZJN    PRS51       IF *PERMIT* COMMAND
01794  M00S01222.pfm     +++|          LDM    PFOU        CHECK USER NAME
01795  M00S01223.pfm     +++|          ZJN    PRS51       IF NO USER NAME
01796  M00S01224.pfm     +++|
01797  M00S01225.pfm     +++|*         PROCESS USER NAME.
01798  M00S01226.pfm     +++|
01799  M00S01227.pfm     +++|          RJM    CUN         COMPARE USER NAME
01800  M00S01228.pfm     +++|          NJN    PRS50       IF NOT A MATCH
01801  M00S01229.pfm     +++|          STM    PFPT        SET MATCH OF MULTI LEVEL USER DETECTED
01802  M00S01230.pfm     +++| PRS50    RJM    SWI         SWAP INDICES
01803  M00S01231.pfm     +++|
01804  M00S01232.pfm     +++|*         DETERMINE CATALOG ADDRESS AND ACCESSABILITY.
01805  M00S01233.pfm     +++|
01806  M00S01234.pfm     +++| PRS51    LDC    PFPN        SET CATALOG ADDRESS
Line S01235 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01807  M01S01235.242l642 ---|          RJM    SCA
Line S00187 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01808  M01S00187.242l642 +++|          RJM    GCA
01809  M00S01236.pfm     +++|          MJP    PRS21       IF DEVICE NOT FOUND
01810  M00S01237.pfm     +++|
01811  M00S01238.pfm     +++|*         PRESERVE CATALOG ADDRESS PARAMETERS.
01812  M00S01239.pfm     +++|
01813  M00S01240.pfm     +++|          STM    MSTA        MST ADDRESS/10B
01814  M00S01241.pfm     +++|          SHN    3
01815  M00S01242.pfm     +++|          ADK    DILL        CHECK FOR BUFFERED DEVICE
01816  M00S01243.pfm     +++|          CRD    T0
01817  M00S01244.pfm     +++|          LDD    T0+3
01818  M00S01245.pfm     +++|          SHN    21-12
01819  M00S01246.pfm     +++|          PJN    PRS52       IF NOT BUFFERED DEVICE
01820  M00S01247.pfm     +++|          LDC    STBD        SET *BUFFERED DEVICE* FLAG
01821  M00S01248.pfm     +++|          RAM    STAT
01822  M00S01249.pfm     +++| PRS52    LDD    T5          SAVE EST ORDINAL OF MASTER DEVICE
01823  M00S01250.pfm     +++|          STD    EQ
01824  M00S01251.pfm     +++|          STM    SDAA
01825  M00S01252.pfm     +++|          LDD    T6          SAVE CATALOG TRACK
01826  M00S01253.pfm     +++|          STM    CCIA
01827  M00S01254.pfm     +++|
01828  M00S01255.pfm     +++|*         PROCESS LOCAL FILE AS REQUIRED IN *TCTL*.
01829  M00S01256.pfm     +++|
01830  M00S01257.pfm     +++|          LDM    TCTL,CC
01831  M00S01258.pfm     +++|          SHN    21-11
01832  M00S01259.pfm     +++|          MJN    PRS53       IF LOCAL FILE PROCESSING REQUIRED
01833  M00S01260.pfm     +++|          RJM    SPN         SET PERMANENT FILE NAME
01834  M00S01261.pfm     +++|          EXECUTE 3PC        EXIT TO COMMAND PROCESSOR
01835  M00S01262.pfm     +++|
01836  M00S01263.pfm     +++| PRS53    EXECUTE  3PA       EXIT TO LOCAL FILE PROCESSOR
01837  M00S01264.pfm     +++|          SPACE  4,10
01838  M00S01265.pfm     +++| PRSB     DATA   2H,         MESSAGE SEPARATOR
01839  M00S01266.pfm     +++|          CON    0           END OF STRING
01840  M00S01267.pfm     +++| PRSC     DATA   1L.         MESSAGE TERMINATOR
Line S01268 Modification History
M01 (Removed by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
01841  M01S01268.ns2599  ---| PRSD     CON    0           EP AND UP STATUS
01842  M00S01269.pfm     +++|
01843  M00S01270.pfm     +++|*         ACCOUNTING MESSAGE ASSEMBLY AREA.
01844  M00S01271.pfm     +++|
01845  M00S01272.pfm     +++| PRSF     DATA   6HSPXX,     MESSAGE CODE
01846  M00S01273.pfm     +++|
01847  M00S01274.pfm     +++|*         ACCOUNTING CODES.
01848  M00S01275.pfm     +++|
01849  M00S01276.pfm     +++| PRSH     CON    0           (ZERO WORD REQUIRED FOR *COMPACS* CALL)
01850  M00S01277.pfm     +++|          LOC    1
01851  M00S01278.pfm     +++|
01852  M00S01279.pfm     +++|          DATA   2HSV        SAVE
01853  M00S01280.pfm     +++|          DATA   2HGT        GET
01854  M00S01281.pfm     +++|          DATA   2HPG        PURGE
01855  M00S01282.pfm     +++|          DATA   2HCT        CATLIST
01856  M00S01283.pfm     +++|          DATA   2HPM        PERMIT
01857  M00S01284.pfm     +++|          DATA   2HRP        REPLACE
01858  M00S01285.pfm     +++|          DATA   2HAP        APPEND
01859  M00S01286.pfm     +++|          DATA   2HDF        DEFINE
01860  M00S01287.pfm     +++|          DATA   2HAT        ATTACH
01861  M00S01288.pfm     +++|          DATA   2HCG        CHANGE
01862  M00S01289.pfm     +++|          DATA   2HUA        UATTACH
01863  M00S01290.pfm     +++|          DATA   2HSA        SETASA
01864  M00S01291.pfm     +++|          DATA   2HSF        SETAF
01865  M00S01292.pfm     +++|          DATA   2HSD        SETDA
01866  M00S01293.pfm     +++|          DATA   2HDD        DROPDS
01867  M00S01294.pfm     +++|          DATA   2HAS        ASSIGNPF
01868  M00S01295.pfm     +++|          DATA   2HGT        OLD
01869  M00S01296.pfm     +++|          DATA   2HAC        SETPFAC
01870  M00S01297.pfm     +++|          DATA   2HAL        SETPFAL
01871  M00S01298.pfm     +++|          DATA   2HUG        UGET
01872  M00S01299.pfm     +++|          DATA   2HUR        UREPLACE
01873  M00S01300.pfm     +++|          DATA   2HDI        DROPIDS
01874  M00S01301.pfm     +++|          DATA   2HDP        DELPFC
01875  M00S01302.pfm     +++|          DATA   2HRS        RPFSTAT
Line S01303 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01876  M01S01303.253l688 ---|
Line S00016 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01877  M01S00016.253l688 +++|          DATA   2HSP        STAGEPF
01878  M00S01304.pfm     +++|          LOC    *O
01879  M00S01305.pfm     +++|
01880  M00S01306.pfm     +++| .1       MAX    *,PRSF+20   DAYFILE MESSAGE AREA
01881  M00S01307.pfm     +++|          ORG    .1
01882  M00S01308.pfm     +++| PRSJ     CON    0,0         USER INDEX
01883  M00S01309.pfm     +++| TCTL     SPACE  4,30
01884  M00S01310.pfm     +++|**        TCTL - TABLE OF COMMAND CODE CONTROLS.
01885  M00S01311.pfm     +++|*
Line S01312 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01886  M01S01312.241l630 ---|*T        1/0,1/K,1/J,1/I,1/H,1/G,1/F,1/E,1/D,1/C,1/B,1/A
Figure

01234567891011ABCDEFGHIJK0


Line S00001 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01887  M01S00001.241l630 +++|*T        1/L,1/K,1/J,1/I,1/H,1/G,1/F,1/E,1/D,1/C,1/B,1/A
Figure

01234567891011ABCDEFGHIJKL

01888  M00S01313.pfm     +++|*
01889  M00S01314.pfm     +++|*                A           PREVENT ALTERNATE CATALOG ACCESS.
01890  M00S01315.pfm     +++|*                B           PREVENT SET OF UI FOR ALTERNATE CATALOG
01891  M00S01316.pfm     +++|*                C           CREATE DA FILE
01892  M00S01317.pfm     +++|*                D           CREATE IDA FILE
01893  M00S01318.pfm     +++|*                E           SET USER CONTROLS
01894  M00S01319.pfm     +++|*                F           DA REQUEST
01895  M00S01320.pfm     +++|*                G           ISSUE *A* TYPE ACCOUNTING MESSAGE
01896  M00S01321.pfm     +++|*                H           FNT POTENTIALLY REQUIRED
01897  M00S01322.pfm     +++|*                I           ALLOW EXPIRATION DATE
01898  M00S01323.pfm     +++|*                J           LOCAL FILE PROCESSING REQUIRED
01899  M00S01324.pfm     +++|*                K           SPECIAL REQUEST BLOCK FUNCTIONS.
Line S00002 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01900  M01S00002.241l630 +++|*                L           CALL WITHOUT AUTO RECALL (EP/UP REQUEST)
01901  M00S01325.pfm     +++|
01902  M00S01326.pfm     +++|
01903  M00S01327.pfm     +++| TCTL     EQU    *-1         FWA OF COMMAND CODE CONTROLS
01904  M00S01328.pfm     +++|          LOC    1
01905  M00S01329.pfm     +++|
01906  M00S01330.pfm     +++|          CON    1431        SAVE
01907  M00S01331.pfm     +++|          CON    1200        GET
Line S01332 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01908  M01S01332.253l688 ---|          CON    0000        PURGE
Line S00017 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01909  M01S00017.253l688 +++|          CON    2000        PURGE
01910  M00S01333.pfm     +++|          CON    0000        CATLIST
01911  M00S01334.pfm     +++|          CON    0402        PERMIT
01912  M00S01335.pfm     +++|          CON    1420        REPLACE
01913  M00S01336.pfm     +++|          CON    1020        APPEND
01914  M00S01337.pfm     +++|          CON    1665        DEFINE
01915  M00S01338.pfm     +++|          CON    1260        ATTACH
01916  M00S01339.pfm     +++|          CON    0401        CHANGE
Line S01340 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01917  M01S01340.253l688 ---|          CON    3260        UATTACH
Line S00018 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01918  M01S00018.253l688 +++|          CON    3261        UATTACH
01919  M00S01341.pfm     +++|          CON    3000        SETASA
01920  M00S01342.pfm     +++|          CON    2000        SETAF
01921  M00S01343.pfm     +++|          CON    3060        SETDA
Line S01344 Modification History
M01 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
01922  M01S01344.ns2414  ---|          CON    2000        DROPDS
Line S00005 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
01923  M01S00005.ns2414  +++|          CON    2001        DROPDS
Line S01345 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01924  M01S01345.253l688 ---|          CON    3264        ASSIGNPF
Line S00019 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01925  M01S00019.253l688 +++|          CON    3265        ASSIGNPF
01926  M00S01346.pfm     +++|          CON    1200        OLD
01927  M00S01347.pfm     +++|          CON    0001        SETPFAC
01928  M00S01348.pfm     +++|          CON    0001        SETPFAL
Line S01349 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01929  M01S01349.241l630 ---|          CON    3200        UGET
01930  M01S01350.241l630 ---|          CON    3020        UREPLACE
Line S00003 Modification History
M01 (Added by) 241l630
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01931  M02S00003.253l688 ---|          CON    7200        UGET
Line S00020 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01932  M01S00020.253l688 +++|          CON    7201        UGET
Line S00004 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01933  M01S00004.241l630 +++|          CON    7020        UREPLACE
Line S01351 Modification History
M01 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
01934  M01S01351.ns2414  ---|          CON    2000        DROPIDS
Line S00006 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
01935  M01S00006.ns2414  +++|          CON    2001        DROPIDS
01936  M00S01352.pfm     +++|          CON    3000        DELPFC
01937  M00S01353.pfm     +++|          CON    0000        RPFSTAT
Line S00021 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01938  M01S00021.253l688 +++|          CON    2000        STAGEPF
01939  M00S01354.pfm     +++|
01940  M00S01355.pfm     +++|          LOC    *O
01941  M00S01356.pfm     +++| TPFI     SPACE  4,20
01942  M00S01357.pfm     +++|**        TPFI - TABLE OF PF INCREMENT VALUES BY FUNCTION.
01943  M00S01358.pfm     +++|
01944  M00S01359.pfm     +++|
01945  M00S01360.pfm     +++| TPFI     EQU    *-1         FWA OF PF INCREMENT VALUES BY FUNCTION
01946  M00S01361.pfm     +++|          LOC    1
01947  M00S01362.pfm     +++|
01948  M00S01363.pfm     +++|          CON    IPSV        SAVE
01949  M00S01364.pfm     +++|          CON    IPGT        GET
01950  M00S01365.pfm     +++|          CON    IPPG        PURGE
01951  M00S01366.pfm     +++|          CON    IPCT        CATLIST
01952  M00S01367.pfm     +++|          CON    IPPM        PERMIT
01953  M00S01368.pfm     +++|          CON    IPRP        REPLACE
01954  M00S01369.pfm     +++|          CON    IPAP        APPEND
01955  M00S01370.pfm     +++|          CON    IPDF        DEFINE
01956  M00S01371.pfm     +++|          CON    IPAT        ATTACH
01957  M00S01372.pfm     +++|          CON    IPCG        CHANGE
01958  M00S01373.pfm     +++|          CON    IPUA        UATTACH
01959  M00S01374.pfm     +++|          CON    IPSA        SETASA
01960  M00S01375.pfm     +++|          CON    IPAF        SETAF
01961  M00S01376.pfm     +++|          CON    IPSD        SETDA
01962  M00S01377.pfm     +++|          CON    IPDD        DROPDS
01963  M00S01378.pfm     +++|          CON    IPAN        ASSIGNPF
01964  M00S01379.pfm     +++|          CON    IPGT        OLD
01965  M00S01380.pfm     +++|          CON    IPAC        SETPFAC
01966  M00S01381.pfm     +++|          CON    IPAL        SETPFAL
01967  M00S01382.pfm     +++|          CON    IPUG        UGET
01968  M00S01383.pfm     +++|          CON    IPUR        UREPLACE
01969  M00S01384.pfm     +++|          CON    IPDI        DROPIDS
01970  M00S01385.pfm     +++|          CON    IPDP        DELPFC
01971  M00S01386.pfm     +++|          CON    IPRS        RPFSTAT
Line S00022 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01972  M01S00022.253l688 +++|          CON    IPSP        STAGEPF
01973  M00S01387.pfm     +++|
01974  M00S01388.pfm     +++|          LOC    *O
01975  M00S01389.pfm     +++|          TITLE  PRESET SUBROUTINES.
01976  M00S01390.pfm     +++| CCA      SPACE  4,60
01977  M00S01391.pfm     +++|**        CCA - CHECK CATALOG ACCESSABILITY.
01978  M00S01392.pfm     +++|*
Line S01393 Modification History
M01 (Removed by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
01979  M01S01393.ns2729  ---|*         CHECK PF UTILITY INTERLOCK, ERROR IDLE STATUS, AND CATALOG
01980  M01S01394.ns2729  ---|*         TRACK INTERLOCK.  NONE OF THESE ARE CHECKED FOR FORCED
Line S01395 Modification History
M01 (Removed by) pfm52
M02 (Removed by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
01981  M02S01395.ns2729  ---|*         *FAST-ATTACH*.  FOR *ASSIGNPF* AND *CATLIST*, CATALOG TRACK
01982  M02S01396.ns2729  ---|*         INTERLOCK STATUS IS NOT CHECKED.  ERROR IDLE STATUS IS
01983  M02S01397.ns2729  ---|*         IGNORED FOR *UATTACH*/*UGET*, AND/OR IF THE *IE*
Line S00001 Modification History
M01 (Added by) pfm52
M02 (Removed by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
01984  M02S00001.ns2729  ---|*         *FAST-ATTACH*.  FOR *ASSIGNPF*, *CATLIST* AND *DELPFC*,
01985  M02S00002.ns2729  ---|*         CATALOG TRACK INTERLOCK STATUS IS NOT CHECKED.  ERROR IDLE
01986  M02S00003.ns2729  ---|*         IS IGNORED FOR *UATTACH*/*UGET*, AND/OR IF THE *IE*
Line S01398 Modification History
M01 (Removed by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
01987  M01S01398.ns2729  ---|*         SPECIAL REQUEST SUBFUNCTION IS SPECIFIED.
Line S00001 Modification History
M01 (Added by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
01988  M01S00001.ns2729  +++|*         CHECK CATALOG TRACK INTERLOCK, PF UTILITY INTERLOCK AND
01989  M01S00002.ns2729  +++|*         ERROR IDLE STATUS; INCREMENT PF ACTIVITY COUNT.  NONE OF
01990  M01S00003.ns2729  +++|*         THIS IS DONE FOR *ATTACH* WITH *FA* SPECIAL REQUEST.  FOR
01991  M01S00004.ns2729  +++|*         *ATTACH* WITH *MA* SPECIAL REQUEST, OR FOR ANY REQUEST FROM
01992  M01S00005.ns2729  +++|*         A SUBSYSTEM WITH EP/UP SET, OR FOR ANY REQUEST FROM ANYONE
01993  M01S00006.ns2729  +++|*         WITH EP/IP SET, CATALOG TRACK INTERLOCK STATUS IS NOT
01994  M01S00007.ns2729  +++|*         CHECKED.  FOR *ASSIGNPF*, *CATLIST*, AND *DELPFC*, CATALOG
01995  M01S00008.ns2729  +++|*         TRACK INTERLOCK STATUS AND PF UTILITY INTERLOCK STATUS ARE
01996  M01S00009.ns2729  +++|*         NOT CHECKED AND PF ACTIVITY COUNT IS NOT INCREMENTED.
01997  M01S00010.ns2729  +++|*         ERROR IDLE IS IGNORED FOR *UATTACH*/*UGET*, AND FOR ANY
01998  M01S00011.ns2729  +++|*         REQUEST WITH THE *IE* SPECIAL REQUEST SPECIFIED.
01999  M00S01399.pfm     +++|*
Line S01400 Modification History
M01 (Removed by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
02000  M01S01400.ns2599  ---|*         ENTRY  (CC) = COMMAND CODE
Line S00011 Modification History
M01 (Added by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
02001  M01S00011.ns2599  +++|*         ENTRY  (CC) = COMMAND CODE.
02002  M01S00012.ns2599  +++|*                (EPOP) = ERROR PROCESSING OPTIONS.
02003  M00S01401.pfm     +++|*                (MSTA) = MST ADDRESS/10B.
02004  M00S01402.pfm     +++|*                (PFSR) = SPECIAL REQUEST FROM *FET*.
Line S01403 Modification History
M01 (Removed by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
02005  M01S01403.ns2599  ---|*                (PRSD) = EXIT PROCESSING MODE.
Line S01404 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02006  M01S01404.253l688 ---|*                (PRSI) = *SSJ=* STATUS.
Line S00023 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02007  M01S00023.253l688 +++|*                (SSJS) = *SSJ=* STATUS.
02008  M00S01405.pfm     +++|*                (T5) = MASTER DEVICE EST ORDINAL.
02009  M00S01406.pfm     +++|*
Line S01407 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02010  M01S01407.242l642 ---|*         EXIT   (EQ) = MASTER DEVICE EST ORDINAL.
Line S00188 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02011  M01S00188.242l642 +++|*         EXIT   (EPFA) = EST ORDINAL IF PF ACTIVITY COUNT SET.
02012  M01S00189.242l642 +++|*                (EQ) = MASTER DEVICE EST ORDINAL.
02013  M00S01408.pfm     +++|*
02014  M00S01409.pfm     +++|*                TO *ERR* IF ERROR IDLE SET ON THE DEVICE.
Line S01410 Modification History
M01 (Removed by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02015  M01S01410.ns2426  ---|*                TO *RCL* IF CATALOG TRACK INTERLOCKED AND EP AND UP
02016  M01S01411.ns2426  ---|*                ARE NOT SET.
02017  M01S01412.ns2426  ---|*                TO *ERR* IF CATALOG TRACK INTERLOCKED AND EP AND UP
02018  M01S01413.ns2426  ---|*                ARE SET.
Line S00004 Modification History
M01 (Added by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02019  M01S00004.ns2426  +++|*                TO *ERR* IF PF UTILITY ACTIVE.
Line S00005 Modification History
M01 (Added by) ns2426
M02 (Removed by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02020  M02S00005.pfm52   ---|*                TO *ERR* IF CATALOG TRACK INTERLOCK NOT AVAILABLE
02021  M02S00006.pfm52   ---|*                  AND CALLER IS SUBSYSTEM, WITH EP AND UP BOTH SET.
Line S00007 Modification History
M01 (Added by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02022  M01S00007.ns2426  +++|*                TO *RCL* IF CATALOG TRACK INTERLOCK NOT AVAILABLE
Line S00008 Modification History
M01 (Added by) ns2426
M02 (Removed by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02023  M02S00008.pfm52   ---|*                  IN ALL OTHER CASES.
Line S00004 Modification History
M01 (Added by) pfm52
M02 (Removed by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
02024  M02S00004.ns2599  ---|*                (UNLESS CALLER IS SUBSYSTEM, WITH EP AND UP BOTH SET).
Line S00013 Modification History
M01 (Added by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
02025  M01S00013.ns2599  +++|*                (UNLESS CALLER HAS *EP* AND *IP* SET, OR UNLESS
02026  M01S00014.ns2599  +++|*                 CALLER IS SUBSYSTEM, WITH *EP* AND *UP* SET).
02027  M00S01414.pfm     +++|*
02028  M00S01415.pfm     +++|*                THE FOLLOWING CELLS ARE SETUP FOR EXITS WHICH MAY
02029  M00S01416.pfm     +++|*                CAUSE THE JOB TO BE ROLLED.
02030  M00S01417.pfm     +++|*                (ERRC) = SET FOR ROLLOUT EVENT.
02031  M00S01418.pfm     +++|*                (ERRD) = SET FOR EVENT TIME.
02032  M00S01419.pfm     +++|*                (ERRE) = SET FOR EVENT TYPE.
02033  M00S01420.pfm     +++|*
Line S01421 Modification History
M01 (Removed by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
02034  M01S01421.ns2729  ---|*         USES   CM - CM+4.
Line S00012 Modification History
M01 (Added by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
02035  M01S00012.ns2729  +++|*         USES   EQ, CM - CM+4.
02036  M00S01422.pfm     +++|*
Line S01423 Modification History
M01 (Removed by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
02037  M01S01423.ns2729  ---|*         CALLS  DTS, RCL.
Line S00013 Modification History
M01 (Added by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
02038  M01S00013.ns2729  +++|*         CALLS  DTS.
02039  M00S01424.pfm     +++|*
02040  M00S01425.pfm     +++|*         MACROS MONITOR, ERROR, EXIT, SFA.
02041  M00S01426.pfm     +++|
02042  M00S01427.pfm     +++|
02043  M00S01428.pfm     +++| CCA      SUBR               ENTRY/EXIT
02044  M00S01429.pfm     +++|          LDD    T5          SET EST ORDINAL
02045  M00S01430.pfm     +++|          STD    EQ
02046  M00S01431.pfm     +++|          STD    CM+1
02047  M00S01432.pfm     +++|
Line S01433 Modification History
M01 (Removed by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
02048  M01S01433.ns2729  ---|*         CHECK FOR VALID FORCED MODE *ATTACH* OF A FAST ATTACH FILE.
Line S00014 Modification History
M01 (Added by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
02049  M01S00014.ns2729  +++|*         CHECK FOR *ATTACH* WITH *FA* OR *MA* SPECIAL REQUEST.
02050  M00S01434.pfm     +++|
02051  M00S01435.pfm     +++|          LDD    CC          CHECK COMMAND CODE
02052  M00S01436.pfm     +++|          LMN    CCAT
Line S01437 Modification History
M01 (Removed by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
02053  M01S01437.ns2729  ---|          NJN    CCA1        IF NOT ATTACH REQUEST
02054  M01S01438.ns2729  ---|          LDM    PFSR        CHECK FOR FORCE FAST ATTACH
Line S00015 Modification History
M01 (Added by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
02055  M01S00015.ns2729  +++|          NJN    CCA1        IF NOT *ATTACH* REQUEST
02056  M01S00016.ns2729  +++|          LDM    PFSR        CHECK FOR SPECIAL REQUEST
02057  M00S01439.pfm     +++|          LPN    77
02058  M00S01440.pfm     +++|          LMN    SRFA
Line S01441 Modification History
M01 (Removed by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
02059  M01S01441.ns2729  ---|          NJN    CCA1        IF NOT FORCE FAST ATTACH
02060  M01S01442.ns2729  ---|          LDM    SSJS
02061  M01S01443.ns2729  ---|          NJN    CCAX        IF SSJ= JOB
02062  M01S01444.ns2729  ---|          ERROR  IUA,CH,IW   * USER ACCESS NOT VALID.*
Line S00017 Modification History
M01 (Added by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
02063  M01S00017.ns2729  +++|          ZJN    CCAX        IF *FA* SPECIAL REQUEST
02064  M01S00018.ns2729  +++|          LMN    SRMA&SRFA
Line S00019 Modification History
M01 (Added by) ns2729
M02 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02065  M02S00019.ns2776  ---|          NJN    CCA1        IF NOT *MA* SPECIAL REQUEST
02066  M02S00020.ns2776  ---|          LJM    CCA4        BYPASS CATALOG TRACK INTERLOCK CHECK
Line S00031 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02067  M01S00031.ns2776  +++|          ZJN    CCA2.1      IF *MA* SPECIAL REQUEST
02068  M00S01445.pfm     +++|
02069  M00S01446.pfm     +++|*         CHECK CATALOG TRACK INTERLOCK AVAILABILITY.
02070  M00S01447.pfm     +++|
02071  M00S01448.pfm     +++| CCA1     LDD    CC          CHECK FOR *ASSIGNPF*
02072  M00S01449.pfm     +++|          LMN    CCAN
02073  M00S01450.pfm     +++|          ZJN    CCA2        IF INTERLOCK NOT NEEDED
02074  M00S01451.pfm     +++|          LMN    CCCT&CCAN   CHECK FOR *CATLIST*
02075  M00S01452.pfm     +++|          ZJN    CCA2        IF INTERLOCK NOT NEEDED
02076  M00S01453.pfm     +++|          LMN    CCDP&CCCT   CHECK FOR *DELPFC*
Line S00024 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02077  M01S00024.253l688 +++|          ZJN    CCA2        IF INTERLOCK NOT NEEDED
02078  M01S00025.253l688 +++|          LMN    CCSP&CCDP   CHECK FOR *STAGEPF*
Line S01454 Modification History
M01 (Removed by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02079  M01S01454.pfm52   ---| CCA2     ZJN    CCA4        IF INTERLOCK NOT NEEDED
Line S00005 Modification History
M01 (Added by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02080  M01S00005.pfm52   +++| CCA2     ZJP    CCA6        IF INTERLOCK NOT NEEDED
02081  M00S01455.pfm     +++|          RJM    DTS         DETERMINE TRACK INTERLOCK STATUS
Line S01456 Modification History
M01 (Removed by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02082  M01S01456.pfm52   ---|          MJP    CCA6        IF CATALOG TRACK ALREADY INTERLOCKED
02083  M01S01457.pfm52   ---|          LDD    T5          EST ORDINAL
Line S00006 Modification History
M01 (Added by) pfm52
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02084  M02S00006.253l688 ---|          PJN    CCA4        IF CATALOG TRACK NOT ALREADY INTERLOCKED
Line S00026 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02085  M01S00026.253l688 +++|          PJN    CCA3.1      IF CATALOG TRACK NOT ALREADY INTERLOCKED
Line S00007 Modification History
M01 (Added by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02086  M01S00007.pfm52   +++|
02087  M01S00008.pfm52   +++|*         PROCESS CATALOG TRACK ALREADY INTERLOCKED.  IF THE CALLER
Line S00009 Modification History
M01 (Added by) pfm52
M02 (Removed by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
02088  M02S00009.ns2599  ---|*         IS A SUBSYSTEM WITH EP/UP SET, CONTINUE TO PROCESS REQUEST.
02089  M02S00010.ns2599  ---|*         OTHERWISE, RECALL *PFM* IMMEDIATELY.
Line S00015 Modification History
M01 (Added by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
02090  M01S00015.ns2599  +++|*         HAS EP/IP SET, OR IF CALLER IS A SUBSYSTEM WITH EP/UP SET,
02091  M01S00016.ns2599  +++|*         CONTINUE TO PROCESS REQUEST.  OTHERWISE, RECALL *PFM*
02092  M01S00017.ns2599  +++|*         IMMEDIATELY.
Line S00011 Modification History
M01 (Added by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02093  M01S00011.pfm52   +++|
Line S00012 Modification History
M01 (Added by) pfm52
M02 (Removed by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
02094  M02S00012.ns2599  ---|          LDM    PRSD        CHECK ERROR PROCESSING OPTION
02095  M02S00013.ns2599  ---|          LMN    3
Line S00018 Modification History
M01 (Added by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
02096  M01S00018.ns2599  +++|          LDM    EPOP        CHECK ERROR PROCESSING OPTIONS
02097  M01S00019.ns2599  +++|          LPN    5
02098  M01S00020.ns2599  +++|          LMN    5
Line S00021 Modification History
M01 (Added by) ns2599
M02 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02099  M02S00021.ns2776  ---|          ZJN    CCA4        IF *EP* AND *IP* SET
Line S00032 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02100  M01S00032.ns2776  +++| CCA2.1   ZJN    CCA4        IF *EP* AND *IP* SET
Line S00022 Modification History
M01 (Added by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
02101  M01S00022.ns2599  +++|          LDM    EPOP        CHECK ERROR PROCESSING OPTION
02102  M01S00023.ns2599  +++|          LPN    14
02103  M01S00024.ns2599  +++|          LMN    14
Line S00014 Modification History
M01 (Added by) pfm52
M02 (Removed by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
02104  M02S00014.ns2729  ---|          NJN    CCA3        IF EITHER EP OR UP IS NOT SET
Line S00021 Modification History
M01 (Added by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
02105  M01S00021.ns2729  +++|          NJN    CCA3        IF EITHER *EP* OR *UP* IS NOT SET
Line S00015 Modification History
M01 (Added by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02106  M01S00015.pfm52   +++|          LDM    SSID
02107  M01S00016.pfm52   +++|          NJN    CCA4        IF SUBSYSTEM
02108  M01S00017.pfm52   +++| CCA3     LDK    /ERRMSG/INA * INTERLOCK NOT AVAILABLE*
02109  M01S00018.pfm52   +++|          LJM    RCL         RECALL PFM
Line S00027 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02110  M01S00027.253l688 +++|
02111  M01S00028.253l688 +++|*         CHECK DEVICE ACCESSIBILITY.
02112  M01S00029.253l688 +++|
02113  M01S00030.253l688 +++| CCA3.1   NJN    CCA4        IF NOT INACCESSIBLE DEVICE
02114  M01S00031.253l688 +++|          ERROR  WID,CH,IW,T5,EC6
Line S00019 Modification History
M01 (Added by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02115  M01S00019.pfm52   +++|
02116  M01S00020.pfm52   +++|*         INCREMENT PF ACTIVITY.
02117  M01S00021.pfm52   +++|
02118  M01S00022.pfm52   +++| CCA4     LDD    T5          EST ORDINAL
02119  M00S01458.pfm     +++|          STD    CM+1
02120  M00S01459.pfm     +++|          LDN    IPAS        INCREMENT PF ACTIVITY
02121  M00S01460.pfm     +++|          STD    CM+3
02122  M00S01461.pfm     +++|          MONITOR  STBM
02123  M00S01462.pfm     +++|          LDD    CM+1
Line S01463 Modification History
M01 (Removed by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02124  M01S01463.pfm52   ---|          ZJN    CCA3        IF ACTIVITY INCREMENTED
Line S00023 Modification History
M01 (Added by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02125  M01S00023.pfm52   +++|          ZJN    CCA5        IF ACTIVITY INCREMENTED
02126  M00S01464.pfm     +++|          LDM    MSTA        CHECK MST
02127  M00S01465.pfm     +++|          SHN    3
02128  M00S01466.pfm     +++|          ADK    TDGL
02129  M00S01467.pfm     +++|          CRD    CM
02130  M00S01468.pfm     +++|          LDD    CM+1
02131  M00S01469.pfm     +++|          SHN    21-6
Line S01470 Modification History
M01 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02132  M01S01470.ns2776  ---|          MJP    CCA10       IF PF UTILITY INTERLOCK SET
Line S00033 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02133  M01S00033.ns2776  +++|          MJN    CCA4.1      IF PF UTILITY INTERLOCK SET
02134  M00S01471.pfm     +++|          EXIT   PEA,CH,IW,,EC4  * PFM EXCESS ACTIVITY.*
Line S00034 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02135  M01S00034.ns2776  +++|
02136  M01S00035.ns2776  +++|*         PROCESS PF UTILITY INTERLOCK SET.
02137  M01S00036.ns2776  +++|
02138  M01S00037.ns2776  +++| CCA4.1   LDN    PFUE        SET EVENT FOR ROLLOUT
02139  M01S00038.ns2776  +++|          STM    ERRC
02140  M01S00039.ns2776  +++|          LDC    UIRT        SET USER INTERLOCK ROLLOUT TIME
02141  M01S00040.ns2776  +++|          STM    ERRD
02142  M01S00041.ns2776  +++|          EXIT   PFA,CH,IW,,EC2  * PF UTILITY ACTIVE.*
02143  M00S01472.pfm     +++|
Line S01473 Modification History
M01 (Removed by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02144  M01S01473.pfm52   ---| CCA3     LDD    T5          SET EST ORDINAL FOR PF ACTIVITY INCREMENT
Line S00024 Modification History
M01 (Added by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02145  M01S00024.pfm52   +++| CCA5     LDD    T5          SET EST ORDINAL FOR PF ACTIVITY INCREMENT
Line S01474 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02146  M01S01474.242l642 ---|          STM    DPPG
Line S00190 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02147  M01S00190.242l642 +++|          STM    EPFA
Line S01475 Modification History
M01 (Removed by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02148  M01S01475.pfm52   ---| CCA4     SFA    EST,T5
Line S00025 Modification History
M01 (Added by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02149  M01S00025.pfm52   +++|
02150  M01S00026.pfm52   +++|*         CHECK FOR ERROR IDLE.
02151  M01S00027.pfm52   +++|
02152  M01S00028.pfm52   +++| CCA6     SFA    EST,T5
02153  M00S01476.pfm     +++|          ADK    EQDE
02154  M00S01477.pfm     +++|          CRD    CM
02155  M00S01478.pfm     +++|          LDD    CC
02156  M00S01479.pfm     +++|          LMN    CCUA
Line S01480 Modification History
M01 (Removed by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02157  M01S01480.pfm52   ---|          ZJN    CCA5        IF *UATTACH*, IGNORE ERROR IDLE
Line S00029 Modification History
M01 (Added by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02158  M01S00029.pfm52   +++|          ZJN    CCA7        IF *UATTACH*, IGNORE ERROR IDLE
02159  M00S01481.pfm     +++|          LMN    CCUG&CCUA
Line S01482 Modification History
M01 (Removed by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02160  M01S01482.pfm52   ---|          ZJN    CCA5        IF *UGET*, IGNORE ERROR IDLE
Line S00030 Modification History
M01 (Added by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02161  M01S00030.pfm52   +++|          ZJN    CCA7        IF *UGET*, IGNORE ERROR IDLE
02162  M00S01483.pfm     +++|          LDD    CM+4        CHECK FOR ERROR IDLE
02163  M00S01484.pfm     +++|          SHN    3
02164  M00S01485.pfm     +++|          ADN    ACGL
02165  M00S01486.pfm     +++|          CRD    CM
02166  M00S01487.pfm     +++|          LDD    CM+4
02167  M00S01488.pfm     +++|          LPN    20
02168  M00S01489.pfm     +++|          NJN    CCA8        IF ERROR IDLE
Line S01490 Modification History
M01 (Removed by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02169  M01S01490.pfm52   ---| CCA5     LJM    CCAX        RETURN
02170  M01S01491.pfm52   ---|
Line S01492 Modification History
M01 (Removed by) ns2426
M02 (Removed by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02171  M02S01492.pfm52   ---| CCA6     EXIT   INA,CH,IW,,EC4  * INTERLOCK NOT AVAILABLE.*
Line S00009 Modification History
M01 (Added by) ns2426
M02 (Removed by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02172  M02S00009.pfm52   ---| CCA6     LDM    PRSD        CHECK ERROR PROCESSING OPTION
02173  M02S00010.pfm52   ---|          LMN    3
02174  M02S00011.pfm52   ---|          NJN    CCA7        IF EITHER EP OR UP IS NOT SET
02175  M02S00012.pfm52   ---|          LDM    SSID
02176  M02S00013.pfm52   ---|          ZJN    CCA7        IF NOT SUBSYSTEM
02177  M02S00014.pfm52   ---|          EXIT   INA,CH,IW,,EC4  * INTERLOCK NOT AVAILABLE.*
02178  M02S00015.pfm52   ---|
02179  M02S00016.pfm52   ---| CCA7     LDK    /ERRMSG/INA * INTERLOCK NOT AVAILABLE*
02180  M02S00017.pfm52   ---|          LJM    RCL         RECALL PFM
Line S01493 Modification History
M01 (Removed by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02181  M01S01493.pfm52   ---|
02182  M01S01494.pfm52   ---|*         PROCESS ERROR IDLE.
Line S00031 Modification History
M01 (Added by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02183  M01S00031.pfm52   +++| CCA7     LJM    CCAX        RETURN
02184  M00S01495.pfm     +++|
02185  M00S01496.pfm     +++| CCA8     LDM    SSJS
02186  M00S01497.pfm     +++|          ZJN    CCA9        IF NOT *SSJ=* JOB
02187  M00S01498.pfm     +++|          LDM    PFSR
02188  M00S01499.pfm     +++|          LPN    77
02189  M00S01500.pfm     +++|          LMN    SRIE
Line S01501 Modification History
M01 (Removed by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02190  M01S01501.pfm52   ---|          ZJN    CCA5        IF *IGNORE ERROR IDLE* SPECIAL REQUEST
Line S00032 Modification History
M01 (Added by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
02191  M01S00032.pfm52   +++|          ZJN    CCA7        IF *IGNORE ERROR IDLE* SPECIAL REQUEST
02192  M00S01502.pfm     +++|          LDN    VSNE/10000  SET EVENT TYPE
02193  M00S01503.pfm     +++| CCA9     ERROR  PFN,CH,IW   * DEVICE UNAVAILABLE.*
Line S01504 Modification History
M01 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02194  M01S01504.ns2776  ---|
Line S01505 Modification History
M01 (Removed by) pfm52
M02 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02195  M02S01505.ns2776  ---|*         ROLL OR RECALL THE JOB UNTIL THE UTILITY INTERLOCK IS CLEAR.
Line S00033 Modification History
M01 (Added by) pfm52
M02 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02196  M02S00033.ns2776  ---|*         PROCESS PF UTILITY INTERLOCK SET.
Line S01506 Modification History
M01 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02197  M01S01506.ns2776  ---|
02198  M01S01507.ns2776  ---| CCA10    LDN    PFUE        SET EVENT FOR ROLLOUT
02199  M01S01508.ns2776  ---|          STM    ERRC
02200  M01S01509.ns2776  ---|          LDC    UIRT        SET USER INTERLOCK ROLLOUT TIME
02201  M01S01510.ns2776  ---|          STM    ERRD
02202  M01S01511.ns2776  ---|          EXIT   PFA,CH,IW,,EC2  * PF UTILITY ACTIVE.*
02203  M00S01512.pfm     +++| CRF      SPACE  4,15
02204  M00S01513.pfm     +++|**        CRF - CALL *0RF*.
02205  M00S01514.pfm     +++|*
02206  M00S01515.pfm     +++|*         ENTRY  (EQ) = REMOVABLE DEVICE EST ORDINAL.
02207  M00S01516.pfm     +++|*                     = 0, IF DEVICE UNAVAILABLE.
02208  M00S01517.pfm     +++|*                (FN - FN+4) = PACK NAME, IF DEVICE UNAVAILABLE.
02209  M00S01518.pfm     +++|*
Line S01519 Modification History
M01 (Removed by) ns2362
Seq #  *Modification Id* Act 
----------------------------+
02210  M01S01519.ns2362  ---|*         EXIT   *0RF* CALLED TO RETURN RESOURCE.
02211  M01S01520.ns2362  ---|*
Line S01521 Modification History
M01 (Removed by) ns2358
M02 (Removed by) ns2362
Seq #  *Modification Id* Act 
----------------------------+
02212  M02S01521.ns2362  ---|*         USES   CM - CM+4.
Line S00004 Modification History
M01 (Added by) ns2358
M02 (Removed by) ns2362
Seq #  *Modification Id* Act 
----------------------------+
02213  M02S00004.ns2362  ---|*         USES   FS - FS+1.
Line S01522 Modification History
M01 (Removed by) ns2362
Seq #  *Modification Id* Act 
----------------------------+
02214  M01S01522.ns2362  ---|*
02215  M01S01523.ns2362  ---|*         CALLS  *0RF*.
02216  M01S01524.ns2362  ---|*
02217  M01S01525.ns2362  ---|*         MACROS EXECUTE.
Line S00001 Modification History
M01 (Added by) ns2362
Seq #  *Modification Id* Act 
----------------------------+
02218  M01S00001.ns2362  +++|*         EXIT   (FA) = 0.
02219  M01S00002.ns2362  +++|*
02220  M01S00003.ns2362  +++|*         USES   FS - FS+4.
02221  M01S00004.ns2362  +++|*
02222  M01S00005.ns2362  +++|*         CALLS  PES, *0RF*.
02223  M01S00006.ns2362  +++|*
02224  M01S00007.ns2362  +++|*         MACROS EXECUTE, NFA.
02225  M00S01526.pfm     +++|
02226  M00S01527.pfm     +++|
02227  M00S01528.pfm     +++| CRF      SUBR               ENTRY/EXIT
02228  M00S01529.pfm     +++|          LDM    STAT        CHECK *RESEX* STATUS
02229  M00S01530.pfm     +++|          LPN    STRX
Line S01531 Modification History
M01 (Removed by) ns2362
Seq #  *Modification Id* Act 
----------------------------+
02230  M01S01531.ns2362  ---|          ZJN    CRFX        IF *RESEX* NOT ACTIVATED
Line S00008 Modification History
M01 (Added by) ns2362
Seq #  *Modification Id* Act 
----------------------------+
02231  M01S00008.ns2362  +++|          ZJN    CRF2        IF *RESEX* NOT ACTIVATED
02232  M01S00009.ns2362  +++|          LDK    RFCN+FSTL
02233  M01S00010.ns2362  +++|          STD    FA          SET FNT POINTER
02234  M01S00011.ns2362  +++|          NFA    FA,R
02235  M01S00012.ns2362  +++|          ADN    FSTL        FETCH RESOURCE FILE STATUS
02236  M01S00013.ns2362  +++|          CRD    FS
02237  M01S00014.ns2362  +++|          LDD    FS+1        CHECK ERROR ON PREVIOUS UPDATE
02238  M01S00015.ns2362  +++|          SCN    1
02239  M01S00016.ns2362  +++|          NJN    CRF1        IF PROCESSING ERROR
Line S01532 Modification History
M01 (Removed by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
02240  M01S01532.ns2358  ---|          LDD    CP          SET RESOURCE FILE RANDOM INDEX
02241  M01S01533.ns2358  ---|          ADN    RFCW
02242  M01S01534.ns2358  ---|          CRD    CM
02243  M01S01535.ns2358  ---|          LDD    CM+4
02244  M01S01536.ns2358  ---|          STM    LOCF-2
02245  M01S01537.ns2358  ---|          LDD    CM+3
02246  M01S01538.ns2358  ---|          LPN    77
02247  M01S01539.ns2358  ---|          LMC    1100        SET *0RF* PARAMETERS
02248  M01S01540.ns2358  ---|          STM    LOCF-3
02249  M01S01541.ns2358  ---|          LDD    EQ          SET EST ORDINAL
02250  M01S01542.ns2358  ---|          STM    LOCF-1
Line S00005 Modification History
M01 (Added by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
02251  M01S00005.ns2358  +++|          LDD    EQ
02252  M01S00006.ns2358  +++|          STD    FS          SET EST ORDINAL
02253  M01S00007.ns2358  +++|          LDN    5
02254  M01S00008.ns2358  +++|          STD    FS+1        SET *0RF* OPTION
Line S00009 Modification History
M01 (Added by) ns2358
M02 (Removed by) ns2362
Seq #  *Modification Id* Act 
----------------------------+
02255  M02S00009.ns2362  ---|          LDN    1
Line S00017 Modification History
M01 (Added by) ns2362
Seq #  *Modification Id* Act 
----------------------------+
02256  M01S00017.ns2362  +++| CRF1     LDN    1
Line S00010 Modification History
M01 (Added by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
02257  M01S00010.ns2358  +++|          STM    LOCF-1      SET RESOURCE UPDATE CONTROL
02258  M00S01543.pfm     +++|          EXECUTE  0RF,LOCF
Line S01544 Modification History
M01 (Removed by) ns2362
Seq #  *Modification Id* Act 
----------------------------+
02259  M01S01544.ns2362  ---|          UJN    CRFX        RETURN
Line S00018 Modification History
M01 (Added by) ns2362
Seq #  *Modification Id* Act 
----------------------------+
02260  M01S00018.ns2362  +++|          LPC    1S17        CLEAR FNT POINTER
02261  M01S00019.ns2362  +++| CRF2     STD    FA
02262  M01S00020.ns2362  +++|          PJN    CRF3        IF RESOURCE FILE UPDATED
02263  M01S00021.ns2362  +++|          RJM    PES         PROCESS ERROR STATUS
02264  M01S00022.ns2362  +++| CRF3     LJM    CRFX        RETURN
02265  M00S01545.pfm     +++| CRR      SPACE  4,10
02266  M00S01546.pfm     +++|**        CRR - CHECK AUXILIARY DEVICE REQUEST.
02267  M00S01547.pfm     +++|*
02268  M00S01548.pfm     +++|*         ENTRY  (T5) = EST ORDINAL OF DEVICE TO BE ACCESSED.
02269  M00S01549.pfm     +++|*
02270  M00S01550.pfm     +++|*         EXIT   (A) = 0 IF FIRST ACCESS TO PACK.
02271  M00S01551.pfm     +++|*
Line S01552 Modification History
M01 (Removed by) pfm53
Seq #  *Modification Id* Act 
----------------------------+
02272  M01S01552.pfm53   ---|*         USES   CM - CM+4, FN - FN+4.
Line S00001 Modification History
M01 (Added by) pfm53
Seq #  *Modification Id* Act 
----------------------------+
02273  M01S00001.pfm53   +++|*         USES   T1, T2, CM - CM+4, FN - FN+4.
02274  M00S01553.pfm     +++|
02275  M00S01554.pfm     +++|
Line S01555 Modification History
M01 (Removed by) pfm53
Seq #  *Modification Id* Act 
----------------------------+
02276  M01S01555.pfm53   ---| CRR2     LCN    1           INDICATE EQUIPMENT ASSIGNED
Line S00002 Modification History
M01 (Added by) pfm53
Seq #  *Modification Id* Act 
----------------------------+
02277  M01S00002.pfm53   +++| CRR3     LCN    1           INDICATE EQUIPMENT ASSIGNED
02278  M00S01556.pfm     +++|
02279  M00S01557.pfm     +++| CRR      SUBR               ENTRY/EXIT
02280  M00S01558.pfm     +++|
02281  M00S01559.pfm     +++|*         SEARCH FNT FOR ANOTHER FILE ASSIGNED TO DEVICE.
02282  M00S01560.pfm     +++|
02283  M00S01561.pfm     +++|          LDD    CP          SET NFL SIZE
02284  M00S01562.pfm     +++|          ADN    FLSW
02285  M00S01563.pfm     +++|          CRD    FN
02286  M00S01564.pfm     +++|          LDD    FN
02287  M00S01565.pfm     +++|          SHN    6
02288  M00S01566.pfm     +++|          ADN    1
Line S01567 Modification History
M01 (Removed by) pfm53
Seq #  *Modification Id* Act 
----------------------------+
02289  M01S01567.pfm53   ---|          STD    FN
Line S00003 Modification History
M01 (Added by) pfm53
Seq #  *Modification Id* Act 
----------------------------+
02290  M01S00003.pfm53   +++|          STD    T1
02291  M00S01568.pfm     +++|          LDC    FNTN        SET FIRST FNT ENTRY ADDRESS
Line S01569 Modification History
M01 (Removed by) pfm53
Seq #  *Modification Id* Act 
----------------------------+
02292  M01S01569.pfm53   ---|          STD    FN+1
02293  M01S01570.pfm53   ---| CRR1     NFA    FN+1,R
02294  M01S01571.pfm53   ---|          ADN    FSTL
Line S00004 Modification History
M01 (Added by) pfm53
Seq #  *Modification Id* Act 
----------------------------+
02295  M01S00004.pfm53   +++|          STD    T2
02296  M01S00005.pfm53   +++| CRR1     NFA    T2,R
02297  M01S00006.pfm53   +++|          ADK    FNTL
02298  M01S00007.pfm53   +++|          CRD    FN
02299  M01S00008.pfm53   +++|          ADN    FSTL-FNTL
02300  M00S01572.pfm     +++|          CRD    CM
02301  M00S01573.pfm     +++|          LDD    CM          CHECK EQUIPMENT ASSIGNMENT
02302  M00S01574.pfm     +++|          LMD    T5
Line S01575 Modification History
M01 (Removed by) pfm53
Seq #  *Modification Id* Act 
----------------------------+
02303  M01S01575.pfm53   ---|          ZJN    CRR2        IF MATCH ON EST ORDINAL
02304  M01S01576.pfm53   ---|          LDN    LENF        ADVANCE FNT ADDRESS
02305  M01S01577.pfm53   ---|          RAD    FN+1
02306  M01S01578.pfm53   ---|          SBD    FN
Line S00009 Modification History
M01 (Added by) pfm53
Seq #  *Modification Id* Act 
----------------------------+
02307  M01S00009.pfm53   +++|          NJN    CRR2        IF NO MATCH ON EST ORDINAL
02308  M01S00010.pfm53   +++|          LDD    FN+4        CHECK FILE TYPE
02309  M01S00011.pfm53   +++|          SHN    -6
02310  M01S00012.pfm53   +++|          LMN    PMFT
02311  M01S00013.pfm53   +++|          ZJN    CRR3        IF *PMFT* FILE ON CORRECT EQUIPMENT
02312  M01S00014.pfm53   +++| CRR2     LDN    LENF        ADVANCE FNT ADDRESS
02313  M01S00015.pfm53   +++|          RAD    T2
02314  M01S00016.pfm53   +++|          SBD    T1
02315  M00S01579.pfm     +++|          MJN    CRR1        IF NOT END OF NFL
02316  M00S01580.pfm     +++|          LDN    0
02317  M00S01581.pfm     +++|          UJN    CRRX
02318  M00S01582.pfm     +++| CRX      SPACE  4,30
02319  M00S01583.pfm     +++|**        CRX - CHECK *CPUPFM*/*RESEX* RETURN STATUS.
02320  M00S01584.pfm     +++|*
02321  M00S01585.pfm     +++|*         ENTRY  (CP) = CP ADDRESS.
02322  M00S01586.pfm     +++|*
02323  M00S01587.pfm     +++|*         EXIT   (A) = (CM+2) = RETURN STATUS.
02324  M00S01588.pfm     +++|*T,       3/ PI,9/ RS
Figure

08911 RS PI

02325  M00S01589.pfm     +++|*                PI = PROCESSOR INDEX (0 = *RESEX*,  1 = *CPUPFM*).
02326  M00S01590.pfm     +++|*                RS = RETURN STATUS.
Line S00191 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02327  M01S00191.242l642 +++|*                (CM - CM+4) = CP WORD *SPCW*.
02328  M00S01591.pfm     +++|*
02329  M00S01592.pfm     +++|*         *RESEX* RETURN STATUS -
02330  M00S01593.pfm     +++|*T,       3/ 0,3/ ST,2/ 0,1/ P,1/ O,1/ E,1/ C
Figure

01234568911 C E O P 0 ST 0

02331  M00S01594.pfm     +++|*                ST = ERROR CODE.
02332  M00S01595.pfm     +++|*                            0 = *RESEX* FAILURE - SYSTEM ERROR.
02333  M00S01596.pfm     +++|*                            1 = INCORRECT DEVICE REQUEST.
02334  M00S01597.pfm     +++|*                            2 = UNRECOGNIZED EQUIPMENT TYPE.
02335  M00S01598.pfm     +++|*                            3 = INCORRECT USER REQUEST.
02336  M00S01599.pfm     +++|*
02337  M00S01600.pfm     +++|*                P = 0 IF PACK AVAILABLE.
02338  M00S01601.pfm     +++|*                E = 1 IF ERROR.
02339  M00S01602.pfm     +++|*                O = 1 IF ASSIGNMENT WILL OVERCOMMIT.
02340  M00S01603.pfm     +++|*                C = 1 IF OPERATION ALLOWED.
02341  M00S01604.pfm     +++|*
02342  M00S01605.pfm     +++|*                TO *ERR* IF *RESEX* ERROR STATUS DETECTED.
02343  M00S01606.pfm     +++|*
02344  M00S01607.pfm     +++|*         *CPUPFM* RETURN STATUS -
02345  M00S01608.pfm     +++|*T,       3/ 1,9/ EC
Figure

08911 EC 1

02346  M00S01609.pfm     +++|*                EC = *PFM* ERROR CODE.
02347  M00S01610.pfm     +++|*                EC = 0 IF NORMAL COMPLETION.
02348  M00S01611.pfm     +++|
02349  M00S01612.pfm     +++|
02350  M00S01613.pfm     +++| CRX2     LDN    0           SET *CPUPFM*/*RESEX* NOT ACTIVATED
02351  M00S01614.pfm     +++|
02352  M00S01615.pfm     +++| CRX      SUBR
02353  M00S01616.pfm     +++|          LDD    CP          READ RETURN STATUS
02354  M00S01617.pfm     +++|          ADC    SPCW
02355  M00S01618.pfm     +++|          CRD    CM
02356  M00S01619.pfm     +++|          LDD    CM
02357  M00S01620.pfm     +++|          NJN    CRX2        IF *DMP=* PROGRAM IN PROGRESS
02358  M00S01621.pfm     +++|          LDD    CM+2        CHECK RETURN STATUS
02359  M00S01622.pfm     +++|          ZJN    CRX2        IF *DMP=* PROGRAM NOT ACTIVATED
02360  M00S01623.pfm     +++|          SHN    -11
02361  M00S01624.pfm     +++|          NJN    CRX1        IF NOT *RESEX*
02362  M00S01625.pfm     +++|          LDD    CM+2
02363  M00S01626.pfm     +++|          LPN    /STATUS/FE  CHECK RESEX STATUS
02364  M00S01627.pfm     +++|          ZJN    CRX1        IF NOT FATAL ERROR
02365  M00S01628.pfm     +++|          ERROR  NEM,CH,IW   ABORT WITH NO MESSAGE
02366  M00S01629.pfm     +++|
02367  M00S01630.pfm     +++| CRX1     LDM    STAT        SET *CPUPFM*/*RESEX* ACTIVATED STATUS
02368  M00S01631.pfm     +++|          SCN    STRX
02369  M00S01632.pfm     +++|          LMN    STRX
02370  M00S01633.pfm     +++|          STM    STAT
02371  M00S01634.pfm     +++|          LDD    CM+2        SET RETURN STATUS
02372  M00S01635.pfm     +++|          UJN    CRXX        RETURN
02373  M00S01636.pfm     +++| CUN      SPACE  4,15
02374  M00S01637.pfm     +++|**        CUN - COMPARE USER NAMES.
02375  M00S01638.pfm     +++|*
02376  M00S01639.pfm     +++|*         ENTRY  (PFOU) = USER NAME SPECIFIED IN FET.
02377  M00S01640.pfm     +++|*                (PFAC) = USER NAME OF CALLING JOB.
02378  M00S01641.pfm     +++|*
02379  M00S01642.pfm     +++|*         EXIT   (A) = 0 IF USER NAMES MATCH.
02380  M00S01643.pfm     +++|*                (A) .NE. 0 IF USER NAMES DO NOT MATCH.
02381  M00S01644.pfm     +++|*
02382  M00S01645.pfm     +++|*         USES   T1, T2, CM - CM+4.
02383  M00S01646.pfm     +++|*
02384  M00S01647.pfm     +++|*         CALLS  SFN.
02385  M00S01648.pfm     +++|
02386  M00S01649.pfm     +++|
02387  M00S01650.pfm     +++| CUN      SUBR               ENTRY/EXIT
02388  M00S01651.pfm     +++|          LDC    PFOU        SET USER NAME
02389  M00S01652.pfm     +++|          RJM    SFN
02390  M00S01653.pfm     +++|          LDD    MA          TRANSFER USER NAME
02391  M00S01654.pfm     +++|          CWM    PFAC,ON
02392  M00S01655.pfm     +++|          SBN    1
02393  M00S01656.pfm     +++|          CRD    CM
02394  M00S01657.pfm     +++|          LDD    CM+3        CLEAR LOWER CHARACTER OF USER NAME
02395  M00S01658.pfm     +++|          SCN    77
02396  M00S01659.pfm     +++|          STD    CM+3
02397  M00S01660.pfm     +++|          LDN    0           INITIALIZE COUNT
02398  M00S01661.pfm     +++|          STD    T1
02399  M00S01662.pfm     +++|
02400  M00S01663.pfm     +++|*         COMPARE USER NAMES ALLOWING A (*) IN (CM) TO MATCH ANY
02401  M00S01664.pfm     +++|*         CORRESPONDING CHARACTER IN THE USER NAME IN (FN).
02402  M00S01665.pfm     +++|
02403  M00S01666.pfm     +++| CUN1     AOD    T1          TEST FOR END OF LOOP
02404  M00S01667.pfm     +++|          LMN    5
02405  M00S01668.pfm     +++|          ZJN    CUNX        IF USER NAMES MATCH
02406  M00S01669.pfm     +++|          LDM    CM-1,T1     USER NAME OF THE REQUESTOR JOB
02407  M00S01670.pfm     +++|          STD    T2
02408  M00S01671.pfm     +++|          LMC    2R**
02409  M00S01672.pfm     +++|          ZJN    CUN1        IF (**), SKIP CHARACTER COMPARE
02410  M00S01673.pfm     +++|          SCN    77
02411  M00S01674.pfm     +++|          ZJN    CUN3        IF UPPER CHARACTER = (*)
02412  M00S01675.pfm     +++|          LDD    T2          COMPARE UPPER CHARACTER
02413  M00S01676.pfm     +++|          LMM    FN-1,T1
02414  M00S01677.pfm     +++|          SCN    77
02415  M00S01678.pfm     +++| CUN2     NJN    CUNX        IF USER NAME DOES NOT MATCH
02416  M00S01679.pfm     +++|          LDD    T2          CHECK LOWER CHARACTER FOR (*)
02417  M00S01680.pfm     +++|          LMN    1R*
02418  M00S01681.pfm     +++|          LPN    77
02419  M00S01682.pfm     +++|          ZJN    CUN1        IF LOWER CHARACTER = (*)
02420  M00S01683.pfm     +++| CUN3     LDD    T2          COMPARE LOWER CHARACTER
02421  M00S01684.pfm     +++|          LMM    FN-1,T1
02422  M00S01685.pfm     +++|          LPN    77
02423  M00S01686.pfm     +++|          ZJN    CUN1        IF LOWER CHARACTER MATCHES
02424  M00S01687.pfm     +++|          UJN    CUN2        RETURN, USER NAMES DO NOT MATCH
Line S01688 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02425  M01S01688.242l642 ---| FIF      SPACE  4,20
Line S00192 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02426  M01S00192.242l642 +++| FIF      SPACE  4,10
02427  M00S01689.pfm     +++|**        FIF - FIND INTERLOCK FILES.
02428  M00S01690.pfm     +++|*
Line S01691 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02429  M01S01691.242l642 ---|*         ENTRY  (P1) = *CPUPFM* ERROR CODE, IF ANY.
02430  M01S01692.242l642 ---|*
02431  M01S01693.242l642 ---|*         EXIT   (EQ) = MASTER DEVICE EST ORDINAL.
02432  M01S01694.242l642 ---|*                (FNTB - FNTD) = FNT ADDRESSES, IF FILES PRESENT.
02433  M01S01695.242l642 ---|*                TO *ERR*, IF /PFM*ILK/ NOT PRESENT AND ERROR CODE SET.
Line S00193 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02434  M01S00193.242l642 +++|*         EXIT   (FNTB, FNTC, FNTD) = FNT ADDRESSES, IF FILES PRESENT.
02435  M00S01696.pfm     +++|*
Line S01697 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02436  M01S01697.242l642 ---|*         USES   EQ, FS - FS+4.
02437  M01S01698.242l642 ---|*
02438  M00S01699.pfm     +++|*         CALLS  SAF, SFN.
Line S01700 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02439  M01S01700.242l642 ---|*
02440  M01S01701.242l642 ---|*         MACROS ERROR, NFA.
02441  M00S01702.pfm     +++|
02442  M00S01703.pfm     +++|
02443  M00S01704.pfm     +++| FIF      SUBR               ENTRY/EXIT
02444  M00S01705.pfm     +++|          LDC    FIFA        SEARCH FOR /PFM*ILK/
02445  M00S01706.pfm     +++|          RJM    SFN
02446  M00S01707.pfm     +++|          RJM    SAF
Line S01708 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02447  M01S01708.242l642 ---|          NJN    FIF1        IF FILE FOUND
02448  M01S01709.242l642 ---|          LDD    P1
02449  M01S01710.242l642 ---|          ZJN    FIF2        IF NO ERROR CODE SET
02450  M01S01711.242l642 ---|          ERROR  FNF,CH,IW   *FILE NOT FOUND.*
02451  M01S01712.242l642 ---|
02452  M01S01713.242l642 ---| FIF1     LDD    FA          SAVE FNT ADDRESS
Line S00194 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02453  M01S00194.242l642 +++|          ZJN    FIF2        IF NOT FOUND
02454  M01S00195.242l642 +++|          LDD    FA          SAVE FNT ADDRESS
02455  M00S01714.pfm     +++|          STM    FNTC
Line S01715 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02456  M01S01715.242l642 ---|          NFA    FA,R        READ FST
02457  M01S01716.242l642 ---|          ADN    FSTL
02458  M01S01717.242l642 ---|          CRD    FS
02459  M01S01718.242l642 ---|          LDD    FS          SET MASTER DEVICE EST ORDINAL
02460  M01S01719.242l642 ---|          STD    EQ
02461  M00S01720.pfm     +++| FIF2     LDC    FIFB        SEARCH FOR /PFM*PFN/
02462  M00S01721.pfm     +++|          RJM    SFN
02463  M00S01722.pfm     +++|          RJM    SAF
02464  M00S01723.pfm     +++|          ZJN    FIF3        IF NOT FOUND
02465  M00S01724.pfm     +++|          LDD    FA          SAVE FNT ADDRESS
02466  M00S01725.pfm     +++|          STM    FNTB
Line S01726 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02467  M01S01726.242l642 ---|
02468  M00S01727.pfm     +++| FIF3     LDC    FIFC        SEARCH FOR /PFM*APF/
02469  M00S01728.pfm     +++|          RJM    SFN
02470  M00S01729.pfm     +++|          RJM    SAF
02471  M00S01730.pfm     +++|          ZJN    FIF4        IF NOT FOUND
02472  M00S01731.pfm     +++|          LDD    FA          SAVE FNT ADDRESS
02473  M00S01732.pfm     +++|          STM    FNTD
02474  M00S01733.pfm     +++| FIF4     UJP    FIFX        RETURN
02475  M00S01734.pfm     +++|
02476  M00S01735.pfm     +++|
02477  M00S01736.pfm     +++| FIFA     VFD    60/7L"ILK"
02478  M00S01737.pfm     +++| FIFB     VFD    60/7L"PFN"
02479  M00S01738.pfm     +++| FIFC     VFD    60/7L"APF"
02480  M00S01739.pfm     +++| FMS      SPACE  4,15
02481  M00S01740.pfm     +++|**        FMS - FORM MASK FOR FILE RESIDENCE CHECK.
02482  M00S01741.pfm     +++|*
02483  M00S01742.pfm     +++|*         ENTRY  (UI - UI+1) = USER INDEX.
02484  M00S01743.pfm     +++|*                (JORG) = JOB ORIGIN.
02485  M00S01744.pfm     +++|*
02486  M00S01745.pfm     +++|*         EXIT   (FRSM) = MASK FOR FILE RESIDENCE CHECK.
02487  M00S01746.pfm     +++|
02488  M00S01747.pfm     +++|
02489  M00S01748.pfm     +++| FMS      SUBR               ENTRY/EXIT
02490  M00S01749.pfm     +++|          LDD    UI+1        FORM MASK FOR ACCESS CHECK
02491  M00S01750.pfm     +++|          LPN    7
02492  M00S01751.pfm     +++|          LMC    SHNI
02493  M00S01752.pfm     +++|          STM    FMSA
02494  M00S01753.pfm     +++|          LDN    1           POSITION MASK
02495  M00S01754.pfm     +++| FMSA     PSN    0
02496  M00S01755.pfm     +++|*         SHN    N           N = SHIFT COUNT TO POSITION MASK
02497  M00S01756.pfm     +++|          STM    FRSM        SAVE MASK
02498  M00S01757.pfm     +++|          LDD    UI          CHECK FOR SPECIAL USER INDEX
02499  M00S01758.pfm     +++|          SHN    14
02500  M00S01759.pfm     +++|          LMD    UI+1
02501  M00S01760.pfm     +++|          ADC    -AUIMX
02502  M00S01761.pfm     +++|          MJN    FMS1        IF NOT SPECIAL USER INDEX
02503  M00S01762.pfm     +++|          LDC    4000        SET SPECIAL USER INDEX
02504  M00S01763.pfm     +++|          RAM    FRSM
02505  M00S01764.pfm     +++| FMS1     LDM    JORG        CHECK JOB ORIGIN
02506  M00S01765.pfm     +++|          LMK    SYOT
02507  M00S01766.pfm     +++|          NJN    FMS2        IF NOT SYSTEM ORIGIN
02508  M00S01767.pfm     +++|          LDM    SSJS
02509  M00S01768.pfm     +++|          ZJN    FMS2        IF NOT SSJ= PROCESS
02510  M00S01769.pfm     +++|          LDC    2000        SET *LIFT* FILE ALLOWED FOR DEFINE
02511  M00S01770.pfm     +++|          RAM    FRSM
02512  M00S01771.pfm     +++| FMS2     LJM    FMSX        RETURN
Line S00196 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02513  M01S00196.242l642 +++| GCA      SPACE  4,20
02514  M01S00197.242l642 +++|**        GCA - GET CATALOG ADDRESS.
02515  M01S00198.242l642 +++|*
02516  M01S00199.242l642 +++|*         ENTRY  (A) = ADDRESS OF PERMANENT FILE DEVICE DESCRIPTION.
02517  M01S00200.242l642 +++|*                (UI - UI+1) = USER INDEX.
02518  M01S00201.242l642 +++|*                (FERT) = REAL-TIME PROCESSING FLAG.
02519  M01S00202.242l642 +++|*                (SSYS) = SUBSYSTEM FLAG.
02520  M01S00203.242l642 +++|*
02521  M01S00204.242l642 +++|*         EXIT   (A) = ADDRESS OF MST/10B IF DEVICE FOUND.
02522  M01S00205.242l642 +++|*                (A) .LT. 0 IF CATALOG NOT AVAILABLE.
02523  M01S00206.242l642 +++|*                (T5) = EST ORDINAL.
02524  M01S00207.242l642 +++|*                (T6) = CATALOG TRACK.
02525  M01S00208.242l642 +++|*
02526  M01S00209.242l642 +++|*                TO *ERR* IF CATALOG NOT AVAILABLE AT THIS TIME
02527  M01S00210.242l642 +++|*                AND CALLER HAS REAL-TIME PROCESSING SET IN FET
02528  M01S00211.242l642 +++|*                OR IS NOT A SUBSYSTEM.
02529  M01S00212.242l642 +++|*
02530  M01S00213.242l642 +++|*         CALLS  SCA.
02531  M01S00214.242l642 +++|*
02532  M01S00215.242l642 +++|*         MACROS ERROR.
02533  M01S00216.242l642 +++|
02534  M01S00217.242l642 +++|
02535  M01S00218.242l642 +++| GCA2     LCN    0           RETURN WITH (A) .LT. 0
02536  M01S00219.242l642 +++|
02537  M01S00220.242l642 +++| GCA      SUBR               ENTRY/EXIT
02538  M01S00221.242l642 +++|          RJM    SCA         SET CATALOG ADDRESS
02539  M01S00222.242l642 +++|          PJN    GCAX        IF DEVICE AVAILABLE
02540  M01S00223.242l642 +++|          ADN    1
02541  M01S00224.242l642 +++|          NJN    GCA2        IF DEVICE NOT FOUND
02542  M01S00225.242l642 +++|          LDM    FERT
02543  M01S00226.242l642 +++|          NJN    GCA1        IF REAL-TIME PROCESSING SELECTED
02544  M01S00227.242l642 +++|          LDM    SSYS
02545  M01S00228.242l642 +++|          NJN    GCA2        IF SUBSYSTEM
02546  M01S00229.242l642 +++| GCA1     ERROR  WID,CH,IW,T5,EC6  * WAITING - INACCESSIBLE DEVICE.*
Line S01772 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02547  M01S01772.242l642 ---| POA      SPACE  4,15
Line S00230 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02548  M01S00230.242l642 +++| POA      SPACE  4,25
02549  M00S01773.pfm     +++|**        POA - PROCESS OPTIONAL USER NAME.
02550  M00S01774.pfm     +++|*
02551  M00S01775.pfm     +++|*         ENTRY  (CC) = COMMAND CODE
02552  M00S01776.pfm     +++|*                (UI - UI+1) = CALLING USER INDEX.
Line S00231 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02553  M01S00231.242l642 +++|*                (FERT) = REAL-TIME PROCESSING FLAG.
02554  M01S00232.242l642 +++|*                (RDCT) = DRIVER STATUS.
02555  M01S00233.242l642 +++|*                (SSYS) = SUBSYSTEM FLAG.
02556  M00S01777.pfm     +++|*
02557  M00S01778.pfm     +++|*         EXIT   (A) .LT. 0 IF INCORRECT REQUEST.
02558  M00S01779.pfm     +++|*                (UI - UI+1) = USER INDEX OF CATALOG TO BE ACCESSED.
02559  M00S01780.pfm     +++|*                (PI - PI+1) = USER INDEX OF OPTIONAL USER.
02560  M00S01781.pfm     +++|*                (PFUC) = USER CONTROLS.
02561  M00S01782.pfm     +++|*
Line S01783 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02562  M01S01783.242l642 ---|*         ERROR  TO *DPP* IF USER NAME NOT VALID ON *CATLIST* REQUEST
Line S00234 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02563  M01S00234.242l642 +++|*         ERROR  (STAU) = *STDP* BIT SET TO DROP PP.
Line S00235 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
02564  M02S00235.ns2414  ---|*                TO *3PT* IF USER NAME NOT VALID ON *CATLIST* REQUEST
Line S00007 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
02565  M01S00007.ns2414  +++|*                TO *3PU* IF USER NAME NOT VALID ON *CATLIST* REQUEST
02566  M00S01784.pfm     +++|*                AND NO FILE NAME WAS SPECIFIED.
Line S00236 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02567  M01S00236.242l642 +++|*
02568  M01S00237.242l642 +++|*                TO *ERR* IF UNRECOVERABLE ERROR ON VALIDUS FILE
02569  M01S00238.242l642 +++|*                OR DEVICE INACCESSIBLE.
02570  M00S01785.pfm     +++|*
Line S01786 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02571  M01S01786.242l642 ---|*         CALLS  *0AV*, SFN, SLT, SFA, SPN.
02572  M01S01787.242l642 ---|*
02573  M00S01788.pfm     +++|*         USES   FN+3, FN+4, T4, T6, T7, CM - CM+4, CN - CN+4.
Line S00239 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02574  M01S00239.242l642 +++|*
Line S00240 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02575  M02S00240.ns2426  ---|*         CALLS  SFA, SFN, SLT, SPN, *0AV*.
Line S00018 Modification History
M01 (Added by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02576  M01S00018.ns2426  +++|*         CALLS  CPN, SFA, SFN, SLT, SPN, *0AV*.
02577  M00S01789.pfm     +++|*
Line S01790 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02578  M01S01790.271l750 ---|*         MACROS ERROR, EXECUTE, SFA.
Line S00003 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02579  M01S00003.271l750 +++|*         MACROS ERROR, EXECUTE, NFA, SFA.
02580  M00S01791.pfm     +++|
02581  M00S01792.pfm     +++|
02582  M00S01793.pfm     +++| POA14    LCN    1           SET INCORRECT REQUEST
02583  M00S01794.pfm     +++|
02584  M00S01795.pfm     +++| POA      SUBR               ENTRY/EXIT
02585  M00S01796.pfm     +++|          LDN    0
02586  M00S01797.pfm     +++|          STD    PI          CLEAR OPTIONAL USER INDEX
02587  M00S01798.pfm     +++|          STD    PI+1
02588  M00S01799.pfm     +++|          LDD    CC
02589  M00S01800.pfm     +++|          LMN    CCPM
Line S01801 Modification History
M01 (Removed by) pfm23
Seq #  *Modification Id* Act 
----------------------------+
02590  M01S01801.pfm23   ---|          ZJN    POA2        IF *PERMIT* REQUEST
Line S00001 Modification History
M01 (Added by) pfm23
Seq #  *Modification Id* Act 
----------------------------+
02591  M01S00001.pfm23   +++|          ZJN    POAX        IF *PERMIT* REQUEST
02592  M00S01802.pfm     +++|          LDM    PFOU        OPTIONAL USER
Line S01803 Modification History
M01 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02593  M01S01803.ns2776  ---|          ZJN    POAX        IF NO OPTIONAL USER NAME
Line S00042 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02594  M01S00042.ns2776  +++| POA0     ZJN    POAX        IF NO OPTIONAL USER NAME
02595  M00S01804.pfm     +++|          LMM    PFAC        JOB USER NAME
02596  M00S01805.pfm     +++|          NJN    POA2        IF USER NAMES DO NOT MATCH
02597  M00S01806.pfm     +++|          LDM    PFOU+1
02598  M00S01807.pfm     +++|          LMM    PFAC+1
02599  M00S01808.pfm     +++|          NJN    POA2        IF USER NAMES DO NOT MATCH
02600  M00S01809.pfm     +++|          LDM    PFOU+2
02601  M00S01810.pfm     +++|          LMM    PFAC+2
02602  M00S01811.pfm     +++|          NJN    POA2        IF USER NAMES DO NOT MATCH
02603  M00S01812.pfm     +++|          LDM    PFOU+3
02604  M00S01813.pfm     +++|          LMM    PFAC+3
02605  M00S01814.pfm     +++|          SHN    -6
02606  M00S01815.pfm     +++|          NJN    POA2        IF USER NAMES DO NOT MATCH
02607  M00S01816.pfm     +++|          STM    PFOU        CLEAR OPTIONAL USER NAME
Line S01817 Modification History
M01 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02608  M01S01817.ns2776  ---| POA1     LJM    POAX        RETURN
Line S00043 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02609  M01S00043.ns2776  +++| POA1     UJN    POA0        RETURN
02610  M00S01818.pfm     +++|
Line S01819 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02611  M01S01819.253l688 ---| POA2     LDM    TCTL,CC     CHECK FOR SPECIAL REQUEST
02612  M01S01820.253l688 ---|          SHN    21-12
02613  M01S01821.253l688 ---|          PJN    POA3        IF NOT SPECIAL REQUEST
02614  M01S01822.253l688 ---|          LDN    0
Line S00032 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02615  M01S00032.253l688 +++| POA2     LDM    PFRB        CHECK FOR SPECIAL REQUEST BLOCK
02616  M01S00033.253l688 +++|          LPN    37
02617  M01S00034.253l688 +++|          ADM    PFRB+1
02618  M01S00035.253l688 +++|          ZJN    POA3        IF NO SPECIAL REQUEST BLOCK
02619  M01S00036.253l688 +++| POA2.1   LDN    0           IGNORE OPTIONAL USER NAME
02620  M00S01823.pfm     +++|          UJN    POA1        RETURN
02621  M00S01824.pfm     +++|
Line S01825 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02622  M01S01825.253l688 ---| POA3     LDD    CP          CHECK FOR *SSJ=* PROGRAM
02623  M01S01826.253l688 ---|          ADC    SEPW
02624  M01S01827.253l688 ---|          CRD    CM
02625  M01S01828.253l688 ---|          LDD    CM
02626  M01S01829.253l688 ---|          SHN    21-2
02627  M01S01830.253l688 ---|          PJN    POA4        IF NOT *SSJ=*
Line S00037 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02628  M01S00037.253l688 +++| POA3     LDM    TCTL,CC     CHECK ALTERNATE CATALOG ACCESS LEGAL
02629  M01S00038.253l688 +++|          SHN    21-0
02630  M01S00039.253l688 +++|          PJN    POA3.1      IF ALTERNATE CATALOG ACCESS VALID
02631  M01S00040.253l688 +++|          SHN    21-12-21+0+22
02632  M01S00041.253l688 +++|          MJN    POA2.1      IF SRB-TYPE FUNCTION WITH NO SRB
02633  M01S00042.253l688 +++|          AOM    POAC        INDICATE NONVALID ALTERNATE CATALOG ACCESS
02634  M01S00043.253l688 +++| POA3.1   LDM    SSJS
02635  M01S00044.253l688 +++|          ZJN    POA4        IF NOT *SSJ=*
02636  M00S01831.pfm     +++|          LDM    JORG        CHECK JOB ORIGIN
02637  M00S01832.pfm     +++|          LMK    SYOT
02638  M00S01833.pfm     +++|          ZJN    POA6        IF SYSTEM ORIGIN
Line S01834 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02639  M01S01834.253l688 ---| POA4     LDM    TCTL,CC     CHECK ALTERNATE CATALOG ACCESS LEGAL
02640  M01S01835.253l688 ---|          SHN    21-0
02641  M01S01836.253l688 ---|          MJN    POA1        IF ALTERNATE CATALOG ACCESS NOT VALID
Line S00045 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02642  M01S00045.253l688 +++| POA4     LDN    0
02643  M01S00046.253l688 +++|*         LDN    1           (ALTERNATE CATALOG ACCESS NOT VALID)
02644  M01S00047.253l688 +++| POAC     EQU    *-1
02645  M01S00048.253l688 +++|          NJN    POA4.1      IF ALTERNATE CATALOG ACCESS NOT ALLOWED
02646  M00S01837.pfm     +++|          LDD    CC
02647  M00S01838.pfm     +++|          LMN    CCCT
02648  M00S01839.pfm     +++|          NJN    POA6        IF NOT *CATLIST* REQUEST
02649  M00S01840.pfm     +++|          LDM    PFFN+4
02650  M00S01841.pfm     +++|          ZJN    POA6        IF NOT PERMIT LIST
02651  M00S01842.pfm     +++|          LDM    PFFN
02652  M00S01843.pfm     +++|          NJN    POA5        IF FILE NAME SPECIFIED
Line S01844 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02653  M01S01844.253l688 ---|          LJM    POA14       RETURN INCORRECT REQUEST STATUS
Line S00049 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02654  M01S00049.253l688 +++| POA4.1   LJM    POA14       RETURN INCORRECT REQUEST STATUS
02655  M00S01845.pfm     +++|
02656  M00S01846.pfm     +++| POA5     LDN    2           SET TO BYPASS PRESET OF USER INDEX
Line S01847 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02657  M01S01847.253l688 ---|          STM    TCTL,CC
Line S00050 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02658  M01S00050.253l688 +++|          RAM    TCTL,CC
02659  M00S01848.pfm     +++|
Line S01849 Modification History
M01 (Removed by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02660  M01S01849.ns2426  ---| POA6     SFA    EST,PFPN+4  SET FAMILY NAME
Line S00019 Modification History
M01 (Added by) ns2426
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02661  M02S00019.271l750 ---|*         CHECK USER NAME CACHE IN CPA.
Line S00004 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02662  M01S00004.271l750 +++|*         CHECK USER NAME CACHE IN NFL/CPA.
Line S00020 Modification History
M01 (Added by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02663  M01S00020.ns2426  +++|
02664  M01S00021.ns2426  +++| POA6     LDC    PFOU        SET USER NAME
02665  M01S00022.ns2426  +++|          RJM    SFN
02666  M01S00023.ns2426  +++|          LDD    CP          CHECK USER NAME CACHE IN CPA
02667  M01S00024.ns2426  +++|          ADK    PFCW
02668  M01S00025.ns2426  +++|          CRD    CN
Line S00026 Modification History
M01 (Added by) ns2426
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02669  M02S00026.271l750 ---|          ADK    PUCW-PFCW
Line S00005 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02670  M01S00005.271l750 +++|          NFA    PUCN
Line S00027 Modification History
M01 (Added by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02671  M01S00027.ns2426  +++|          CRD    CM
02672  M01S00028.ns2426  +++|          LDN    FN
02673  M01S00029.ns2426  +++|          RJM    CPN         COMPARE USER NAMES
02674  M01S00030.ns2426  +++|          NJN    POA6.0      IF NO MATCH
02675  M01S00031.ns2426  +++|          LDD    CM+4        SET USER INDEX
02676  M01S00032.ns2426  +++|          STD    T2
02677  M01S00033.ns2426  +++|          LDD    CM+3
02678  M01S00034.ns2426  +++|          LPN    37
02679  M01S00035.ns2426  +++|          STD    T1
02680  M01S00036.ns2426  +++|          LDD    CN+2        SET VALIDATIONS
02681  M01S00037.ns2426  +++|          STM    PFUC
02682  M01S00038.ns2426  +++|          LJM    POA7        CONTINUE
02683  M01S00039.ns2426  +++|
02684  M01S00040.ns2426  +++|*         CHECK COMMON LIBRARY TABLE IN CMR.
02685  M01S00041.ns2426  +++|
02686  M01S00042.ns2426  +++| POA6.0   SFA    EST,PFPN+4  SET FAMILY NAME
02687  M00S01850.pfm     +++|          ADK    EQDE
02688  M00S01851.pfm     +++|          CRD    CM
02689  M00S01852.pfm     +++|          LDD    CM+4        READ FAMILY NAME
02690  M00S01853.pfm     +++|          SHN    3
02691  M00S01854.pfm     +++|          ADN    PFGL
02692  M00S01855.pfm     +++|          CRD    CN
Line S01856 Modification History
M01 (Removed by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02693  M01S01856.ns2426  ---|          LDC    PFOU        SET USER NAME
02694  M01S01857.ns2426  ---|          RJM    SFN
02695  M00S01858.pfm     +++|          RJM    SLT         CHECK COMMON LIBRARY TABLE
02696  M00S01859.pfm     +++|          STM    POAA        SAVE SEARCH RESULT
Line S01860 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02697  M01S01860.242l642 ---|          ZJN    POA7        IF VALIDATION NOT REQUIRED
Line S00241 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02698  M01S00241.242l642 +++|          ZJP    POA7        IF VALIDATION NOT REQUIRED
Line S00043 Modification History
M01 (Added by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02699  M01S00043.ns2426  +++|
02700  M01S00044.ns2426  +++|*         CALL *0AV* TO VALIDATE USER.
02701  M01S00045.ns2426  +++|
02702  M00S01861.pfm     +++|          LDN    0           SET VALIDATION FUNCTION
02703  M00S01862.pfm     +++|          STD    FN+4
02704  M00S01863.pfm     +++|          EXECUTE 0AV,LOCF   VALIDATE USER NAME
Line S01864 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02705  M01S01864.242l642 ---|          LDM    AHFC*5,T3   SAVE USER LIMIT INDICES
Line S00242 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02706  M01S00242.242l642 +++|          PJN    POA6.3      IF NO ERROR
02707  M01S00243.242l642 +++|          LDM    RDCT        DRIVER STATUS
02708  M01S00244.242l642 +++|          SHN    21-12
02709  M01S00245.242l642 +++|          MJN    POA6.2      IF UNRECOVERABLE ERROR
02710  M01S00246.242l642 +++|          LDM    SSYS
02711  M01S00247.242l642 +++|          ZJN    POA6.1      IF NOT A SUBSYSTEM
02712  M01S00248.242l642 +++|          LDM    FERT
02713  M01S00249.242l642 +++|          ZJN    POA6.2      IF REAL-TIME PROCESSING NOT SELECTED
02714  M01S00250.242l642 +++| POA6.1   ERROR  WID,CH,IW,T5,EC6  * WAITING - INACCESSIBLE DEVICE.*
02715  M01S00251.242l642 +++|
02716  M01S00252.242l642 +++| POA6.2   ERROR  MSE,CH,IW,T5  *EQXXX,DNYY, MASS STORAGE ERROR.*
02717  M01S00253.242l642 +++|
Line S00046 Modification History
M01 (Added by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02718  M01S00046.ns2426  +++|*         CHECK FOR VALID USER NAME.
02719  M01S00047.ns2426  +++|
Line S00254 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02720  M01S00254.242l642 +++| POA6.3   LDM    AHFC*5,T3   SAVE USER LIMIT INDICES
02721  M00S01865.pfm     +++|          STM    PFUC
02722  M00S01866.pfm     +++| POA7     LDD    T1
02723  M00S01867.pfm     +++|          STD    PI
02724  M00S01868.pfm     +++|          RAD    FN+3
02725  M00S01869.pfm     +++|          LPN    77          SAVE ONLY USER INDEX PORTION OF BYTE
02726  M00S01870.pfm     +++|          SHN    14
02727  M00S01871.pfm     +++|          ADD    T2
02728  M00S01872.pfm     +++|          STD    PI+1
02729  M00S01873.pfm     +++|          STD    FN+4
02730  M00S01874.pfm     +++|          ZJN    POA8        IF USER NAME NOT VALID
02731  M00S01875.pfm     +++|          LMC    IFUI
02732  M00S01876.pfm     +++|          ZJN    POA8        IF INDIRECT FLAW USER INDEX SPECIFIED
02733  M00S01877.pfm     +++|          LJM    POA10       PROCESS VALID USER NAME
02734  M00S01878.pfm     +++|
Line S01879 Modification History
M01 (Removed by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02735  M01S01879.ns2426  ---|*         DETERMINE PROPER ERROR PROCEDURE.
Line S00048 Modification History
M01 (Added by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02736  M01S00048.ns2426  +++|*         PROCESS NON-VALID USER NAME.
02737  M00S01880.pfm     +++|
02738  M00S01881.pfm     +++| POA8     LDD    CC          CHECK COMMAND CODE
Line S01882 Modification History
M01 (Removed by) pfm23
Seq #  *Modification Id* Act 
----------------------------+
02739  M01S01882.pfm23   ---|          LMN    CCPM
02740  M01S01883.pfm23   ---|          ZJN    POA10       IF PERMIT COMMAND
02741  M01S01884.pfm23   ---|          LMN    CCCT&CCPM
Line S00002 Modification History
M01 (Added by) pfm23
Seq #  *Modification Id* Act 
----------------------------+
02742  M01S00002.pfm23   +++|          LMN    CCCT
02743  M00S01885.pfm     +++|          NJN    POA9        IF NOT *CATLIST* REQUEST
02744  M00S01886.pfm     +++|          LDM    PFFN+4
02745  M00S01887.pfm     +++|          NJN    POA10       IF PERMIT CATLIST
02746  M00S01888.pfm     +++|          LDM    PFFN
02747  M00S01889.pfm     +++|          NJN    POA9        IF FILE NAME SPECIFIED
02748  M00S01890.pfm     +++|          RJM    SFA         SET EOI STATUS TO INDICATE EMPTY CATALOG
02749  M00S01891.pfm     +++|          CRD    CM
02750  M00S01892.pfm     +++|          LDD    CM+3
02751  M00S01893.pfm     +++|          SCN    77
02752  M00S01894.pfm     +++|          STD    CM+3
02753  M00S01895.pfm     +++|          LDD    CM+4
02754  M00S01896.pfm     +++|          LPN    2
02755  M00S01897.pfm     +++|          ADC    1031
02756  M00S01898.pfm     +++|          STD    CM+4
02757  M00S01899.pfm     +++|          RJM    SFA
02758  M00S01900.pfm     +++|          CWD    CM
Line S01901 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02759  M01S01901.242l642 ---|          LJM    DPP         EXIT
Line S00255 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02760  M01S00255.242l642 +++|          LDK    STDP        SET *DROP PP* STATUS BIT
02761  M01S00256.242l642 +++|          RAM    STAU
Line S00257 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
02762  M02S00257.ns2414  ---|          EXECUTE  3PT       DROP PP
Line S00008 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
02763  M01S00008.ns2414  +++|          EXECUTE  3PU       DROP PP
02764  M00S01902.pfm     +++|
02765  M00S01903.pfm     +++| POA9     RJM    SPN         SET PERMANENT FILE NAME
02766  M00S01904.pfm     +++|          ERROR  FNF,CH,IW   *(FILENAME) NOT FOUND.*
02767  M00S01905.pfm     +++|
Line S00049 Modification History
M01 (Added by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02768  M01S00049.ns2426  +++|*         PROCESS VALID USER NAME.
02769  M01S00050.ns2426  +++|
02770  M00S01906.pfm     +++| POA10    LDM    TCTL,CC
02771  M00S01907.pfm     +++|          LPN    2
02772  M00S01908.pfm     +++|          NJN    POA11       IF NOT ALTERNATE USER ACCESS
02773  M00S01909.pfm     +++|          LDD    PI          SET CATALOG TO BE ACCESSED
02774  M00S01910.pfm     +++|          STD    UI
02775  M00S01911.pfm     +++|          LDD    PI+1
02776  M00S01912.pfm     +++|          STD    UI+1
Line S01913 Modification History
M01 (Removed by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02777  M01S01913.ns2426  ---| POA11    LDC    0
Line S00051 Modification History
M01 (Added by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02778  M01S00051.ns2426  +++| POA11    LDC    7776
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/pfm.001.txt ยท Last modified: by 127.0.0.1