User Tools

Site Tools


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

Deck PFM Part 008

95 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S08323 Modification History
M01 (Removed by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
11613  M01S08323.pfm59   ---|          LMD    HB
11614  M01S08324.pfm59   ---|          ZJN    REP6        IF CATALOG ENTRY IN SAME BUFFER AS HOLE
11615  M01S08325.pfm59   ---|          LDD    EB
11616  M01S08326.pfm59   ---|          LMD    HB
11617  M01S08327.pfm59   ---|          ZJN    REP5        IF END BUFFER SAME AS HOLE BUFFER OR
11618  M01S08328.pfm59   ---|*                            END BUFFER NOT REWRITTEN
11619  M01S08329.pfm59   ---|          LDD    EB
11620  M01S08330.pfm59   ---|          LMD    CB
11621  M01S08331.pfm59   ---|          ZJN    REP6        IF CATALOG ENTRY IN SAME BUFFER AS END
11622  M01S08332.pfm59   ---| REP5     LDD    CB          WRITE CATALOG ENTRY
Line S00024 Modification History
M01 (Added by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
11623  M01S00024.pfm59   +++|          LDD    CB          REWRITE CATALOG ENTRY
11624  M00S08333.pfm     +++|          RJM    WBI
Line S08334 Modification History
M01 (Removed by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
11625  M01S08334.pfm54   ---| REP6     ENDMS
Line S08335 Modification History
M01 (Removed by) 242l642
M02 (Removed by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
11626  M02S08335.pfm54   ---|          UJN    SAV2        TRANSFER FILE
Line S00995 Modification History
M01 (Added by) 242l642
M02 (Removed by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
11627  M02S00995.pfm54   ---| REP7     UJN    SAV2        TRANSFER FILE
Line S00146 Modification History
M01 (Added by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
11628  M01S00146.pfm54   +++|          ENDMS
11629  M01S00147.pfm54   +++| REP6     LJM    SAV2        TRANSFER FILE
11630  M00S08336.pfm     +++| SAV      SPACE  4,10
11631  M00S08337.pfm     +++|***       PROCESS *SAVE* REQUEST.
11632  M00S08338.pfm     +++|*
11633  M00S08339.pfm     +++|*         GENERATE COPY OF FILE *FILE NAME* AS INDIRECT ACCESS FILE
11634  M00S08340.pfm     +++|*         *PF NAME*.  IF *PF NAME* EXISTS REQUEST IS ABORTED.
11635  M00S08341.pfm     +++|
11636  M00S08342.pfm     +++|
11637  M00S08343.pfm     +++| SAV      BSS    0           ENTRY
11638  M00S08344.pfm     +++|          LDM    LFAL
11639  M00S08345.pfm     +++|          STD    CM+4
11640  M00S08346.pfm     +++|          LDD    EQ          CHECK MASTER DEVICE ACCESS LEVEL
11641  M00S08347.pfm     +++|          STD    CM+2
11642  M00S08348.pfm     +++|          LDN    VAES
11643  M00S08349.pfm     +++|          STD    CM+1
11644  M00S08350.pfm     +++|          MONITOR  VSAM
11645  M00S08351.pfm     +++|          LDD    CM+1
11646  M00S08352.pfm     +++|          ZJN    SAV1        IF FILE ACCESS VALID FOR DEVICE
11647  M00S08353.pfm     +++|          ERROR  LNP,,,,SVE  * ACCESS LEVEL NOT VALID ON PF DEVICE.*
11648  M00S08354.pfm     +++|
11649  M00S08355.pfm     +++| SAV1     RJM    CUC         CHECK USER CONTROLS
Line S00148 Modification History
M01 (Added by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
11650  M01S00148.pfm54   +++|          EXECUTE  3PD       LOAD CATALOG UPDATE ROUTINES
11651  M01S00149.pfm54   +++|          RJM    IIA         INTERLOCK INDIRECT ALLOCATION
Line S00996 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11652  M01S00996.242l642 +++|          LDK    STNS        SET *NO JOB SUSPENSION* AFTER THIS POINT
11653  M01S00997.242l642 +++|          RAM    STAT
Line S00998 Modification History
M01 (Added by) 242l642
M02 (Removed by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
11654  M02S00998.pfm54   ---|          EXECUTE  3PD       LOAD CATALOG UPDATE ROUTINES
11655  M00S08356.pfm     +++|          RJM    CCS         CREATE CATALOG SECTOR
Line S08357 Modification History
M01 (Removed by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
11656  M01S08357.pfm54   ---|          ENDMS
Line S00150 Modification History
M01 (Added by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
11657  M01S00150.pfm54   +++|          RJM    CIA         CLEAR INDIRECT ALLOCATION INTERLOCK
11658  M00S08358.pfm     +++|
11659  M00S08359.pfm     +++|*         ENTER HERE ON *REPLACE* OR *UREPLAC* REQUEST.
11660  M00S08360.pfm     +++|
11661  M00S08361.pfm     +++| SAV2     LDM    CPTF
11662  M00S08362.pfm     +++|          ZJN    SAV3        IF FILE NOT TO BE TRANSFERRED VIA CPU
Line S08363 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11663  M01S08363.242l642 ---| SAVA     BSS    0           (OVERFLOW POINT FOR *3PQ* LOAD)
11664  M01S08364.242l642 ---|          EXECUTE  3PQ       TRANSFER FILE VIA CPU
Line S00999 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
11665  M02S00999.ns2414  ---| SAVA     BSS    0           (OVERFLOW POINT FOR *3PR* LOAD)
11666  M02S01000.ns2414  ---|          EXECUTE  3PR       TRANSFER FILE VIA CPU
Line S00106 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
11667  M01S00106.ns2414  +++| SAVA     BSS    0           (OVERFLOW POINT FOR *3PS* LOAD)
11668  M01S00107.ns2414  +++|          EXECUTE  3PS       TRANSFER FILE VIA CPU
11669  M00S08365.pfm     +++|
Line S08366 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11670  M01S08366.242l642 ---| SAV3     EXECUTE 3PN        LOAD DEVICE TRANSFER
Line S01001 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
11671  M02S01001.ns2414  ---| SAV3     EXECUTE  3PO       LOAD DEVICE TO DEVICE TRANSFER OVERLAY
Line S00108 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
11672  M01S00108.ns2414  +++| SAV3     EXECUTE  3PP       LOAD DEVICE TO DEVICE TRANSFER OVERLAY
11673  M00S08367.pfm     +++|
11674  M00S08368.pfm     +++|          LDD    FS          SET EST ORDINAL
11675  M00S08369.pfm     +++|          STD    T5
11676  M00S08370.pfm     +++|          LDD    FS+1        SET FIRST TRACK
11677  M00S08371.pfm     +++|          STD    T6
11678  M00S08372.pfm     +++|          LDN    FSMS        SET FIRST SECTOR
11679  M00S08373.pfm     +++|          STD    T7
Line S08374 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11680  M01S08374.242l642 ---|          SETMS  READ
Line S01002 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
11681  M02S01002.ns2645  ---|          SETMS  IO
Line S00014 Modification History
M01 (Added by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
11682  M01S00014.ns2645  +++|          SETMS  READSTR,NS
Line S01003 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11683  M01S01003.242l642 +++|          RJM    PDV         PROCESS DEVICE STATUS
11684  M00S08375.pfm     +++|          LDC    BUF         SET STARTING BUFFER ADDRESS
11685  M00S08376.pfm     +++|          STD    BB
11686  M00S08377.pfm     +++|          AOD    LF+1        ADJUST FILE LENGTH FOR SYSTEM SECTOR
11687  M00S08378.pfm     +++|          SHN    -14
11688  M00S08379.pfm     +++|          RAD    LF
11689  M00S08380.pfm     +++|
11690  M00S08381.pfm     +++|          ERRNG  *-BUF-502   SYSTEM SECTOR BUFFER OVERFLOWS CODE
11691  M00S08382.pfm     +++|
11692  M00S08383.pfm     +++|          RJM    CSS         CREATE SYSTEM SECTOR IN BUFFER
11693  M00S08384.pfm     +++|          RJM    IBA         INCREMENT BUFFER ADDRESS
Line S08385 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11694  M01S08385.242l642 ---|          LDN    0           DO NOT VERIFY FILE NAME
11695  M01S08386.242l642 ---|          RJM    RSS         READ LOCAL FILE SYSTEM SECTOR
11696  M01S08387.242l642 ---|          NJN    SAV4        IF BAD SYSTEM SECTOR
11697  M00S08388.pfm     +++|          LJM    DTD         ENTER DEVICE TO DEVICE TRANSFER LOOP
Line S08389 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11698  M01S08389.242l642 ---|
11699  M01S08390.242l642 ---| SAV4     ERROR  SSE,,,T5    *EQXXX,DNYY, SYSTEM SECTOR ERROR.*
11700  M00S08391.pfm     +++| URE      SPACE  4,20
11701  M00S08392.pfm     +++|***       PROCESS *UREPLAC* REQUEST.
11702  M00S08393.pfm     +++|*
11703  M00S08394.pfm     +++|*         MAKE ALTERNATE STORAGE RESIDENT FILE DISK RESIDENT
11704  M00S08395.pfm     +++|*         BY CREATING A PERMANENT COPY OF THE DATA TO BE
11705  M00S08396.pfm     +++|*         ASSOCIATED WITH THE EXISTING PFC ENTRY.
11706  M00S08397.pfm     +++|*
11707  M00S08398.pfm     +++|*         THE DATA WILL EITHER BE PLACED IN A PREVIOUSLY
11708  M00S08399.pfm     +++|*         EXISTING IAPF HOLE OR SPACE WILL BE ALLOCATED
11709  M00S08400.pfm     +++|*         AT THE END OF THE INDIRECT CHAIN.  IF A HOLE IS
11710  M00S08401.pfm     +++|*         FOUND THE TRACK AND SECTOR FROM THE HOLE WILL BE
11711  M00S08402.pfm     +++|*         PLACED IN THE EXISTING PFC AND THE HOLE WILL BE
11712  M00S08403.pfm     +++|*         CONVERTED TO A DAPF HOLE.  THIS IS DONE SO THAT
11713  M00S08404.pfm     +++|*         THE POSITION OF THE ORIGINAL PFC DOES NOT CHANGE,
11714  M00S08405.pfm     +++|*         SINCE THE RESCAN CODE IN *PFDUMP* REQUIRES THAT
11715  M00S08406.pfm     +++|*         THE POSITION OF THE PFC REMAIN CONSTANT.
11716  M00S08407.pfm     +++|
11717  M00S08408.pfm     +++|
11718  M00S08409.pfm     +++| URE      BSS    0           ENTRY
Line S01004 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11719  M01S01004.242l642 +++|          EXECUTE  3PD       LOAD CATALOG UPDATE ROUTINES
11720  M00S08410.pfm     +++|          LDC    LJMI        BYPASS HOLE CHECK IN *CCS*
11721  M00S08411.pfm     +++|          STM    CCSE
11722  M00S08412.pfm     +++|          LDC    CCS5.1
11723  M00S08413.pfm     +++|          STM    CCSE+1
Line S00151 Modification History
M01 (Added by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
11724  M01S00151.pfm54   +++|          RJM    IIA         INTERLOCK INDIRECT ALLOCATION
11725  M01S00152.pfm54   +++|          LDK    STNS        SET *NO JOB SUSPENSION* AFTER THIS POINT
11726  M01S00153.pfm54   +++|          RAM    STAT
11727  M00S08414.pfm     +++|          LDD    HP          HOLE POINTER
11728  M00S08415.pfm     +++|          NJN    URE1        IF HOLE AVAILABLE
11729  M00S08416.pfm     +++|          RJM    AFS         ALLOCATE FILE SPACE
11730  M00S08417.pfm     +++|          LDD    LF+1
11731  M00S08418.pfm     +++|          STD    HL          SIMULATE EXACT FIT HOLE (FOR *CCS*)
11732  M00S08419.pfm     +++|          LDD    CB
11733  M00S08420.pfm     +++|          STD    HB
11734  M00S08421.pfm     +++|          UJN    URE2        SET DISK ADDRESS IN ORIGINAL PFC
11735  M00S08422.pfm     +++|
11736  M00S08423.pfm     +++|*         PROCESS HOLE ENTRY.
11737  M00S08424.pfm     +++|
11738  M00S08425.pfm     +++| URE1     LDM    FCBT,HP     SAVE FIRST TRACK FROM HOLE ENTRY
11739  M00S08426.pfm     +++|          STM    SDAB
11740  M00S08427.pfm     +++|          LDM    FCBS,HP     SAVE FIRST SECTOR FROM HOLE ENTRY
11741  M00S08428.pfm     +++|          STM    SDAC
11742  M00S08429.pfm     +++|          LDC    4000        MARK HOLE AS DAPF HOLE
11743  M00S08430.pfm     +++|          STM    FCBS,HP
11744  M00S08431.pfm     +++|          LDN    0
11745  M00S08432.pfm     +++|          STM    FCBT,HP     CLEAR TRACK IN HOLE ENTRY
11746  M00S08433.pfm     +++|          STM    FCLF,HP     CLEAR HOLE ENTRY LENGTH
11747  M00S08434.pfm     +++|          STM    FCLF+1,HP
11748  M00S08435.pfm     +++|          LDD    CI          SET HOLE POINTER TO POINT TO PFC FOR *FHE*
11749  M00S08436.pfm     +++|          STD    HP
11750  M00S08437.pfm     +++|
11751  M00S08438.pfm     +++|*         SET NEW VALUES IN ORIGINAL PFC ENTRY.
11752  M00S08439.pfm     +++|
11753  M00S08440.pfm     +++| URE2     LDM    SDAB
11754  M00S08441.pfm     +++|          STM    FCBT,CI     FIRST TRACK
11755  M00S08442.pfm     +++|          LDM    SDAC
11756  M00S08443.pfm     +++|          STM    FCBS,CI     FIRST SECTOR
11757  M00S08444.pfm     +++|          LDD    LF          SET NEW FILE LENGTH
11758  M00S08445.pfm     +++|          STM    FCLF,CI
11759  M00S08446.pfm     +++|          LDD    LF+1
11760  M00S08447.pfm     +++|          STM    FCLF+1,CI
Line S08448 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
11761  M01S08448.253l688 ---|          LDM    FCAF,CI     CLEAR *AFVER* AND *AFPDR* FLAGS
11762  M01S08449.253l688 ---|          SCN    AFPDRM+AFVERM
Line S00363 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
11763  M01S00363.253l688 +++|          LDM    STAT
11764  M01S00364.253l688 +++|          LPK    STTA
11765  M01S00365.253l688 +++|          NJN    URE3        IF TAPE ALTERNATE STORAGE REQUEST
11766  M01S00366.253l688 +++|          LDM    FCAF,CI     CLEAR *AFVER*, *AFPDR* AND *AFTMP* FLAGS
11767  M01S00367.253l688 +++|          SCN    AFPDRM+AFTMPM+AFVERM
11768  M00S08450.pfm     +++|          STM    FCAF,CI
Line S01005 Modification History
M01 (Added by) 242l642
M02 (Removed by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
11769  M02S01005.pfm54   ---|          LDK    STNS        SET *NO JOB SUSPENSION* AFTER THIS POINT
11770  M02S01006.pfm54   ---|          RAM    STAT
Line S08451 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
11771  M01S08451.253l688 ---|          RJM    CCS         CREATE CATALOG SECTOR
Line S00368 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
11772  M01S00368.253l688 +++|          UJN    URE4        UPDATE CATALOG ENTRY
11773  M01S00369.253l688 +++|
11774  M01S00370.253l688 +++| URE3     LDM    FCTF,CI     CLEAR *TFVER* FLAG
11775  M01S00371.253l688 +++|          SCN    TFVERM
11776  M01S00372.253l688 +++|          STM    FCTF,CI
11777  M01S00373.253l688 +++| URE4     RJM    CCS         CREATE CATALOG SECTOR
11778  M00S08452.pfm     +++|          LJM    REP4        PROCESS FILE TRANSFER
11779  M00S08453.pfm     +++| RSS      SPACE  4,10
Line S08454 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11780  M01S08454.242l642 ---|*CALL     COMPRSS
11781  M01S08455.242l642 ---| MSS      SPACE  4,10
11782  M01S08456.242l642 ---|**        MSS - SYSTEM SECTOR READ ERROR PROCESSOR.
11783  M01S08457.242l642 ---|
11784  M01S08458.242l642 ---|
11785  M01S08459.242l642 ---| MSS      SUBR               ENTRY/EXIT
11786  M01S08460.242l642 ---|          ERROR  MSE,,,T5    *EQXXX,DNYY, MASS STORAGE ERROR.*
11787  M00S08461.pfm     +++|          TITLE  SUBROUTINES.
11788  M00S08462.pfm     +++| CSS      SPACE  4,10
11789  M00S08463.pfm     +++|**        CSS - CREATE SYSTEM SECTOR IN BUFFER.
11790  M00S08464.pfm     +++|*
11791  M00S08465.pfm     +++|*         ENTRY  (FA) = FNT OFFSET FOR LOCAL FILE.
11792  M00S08466.pfm     +++|*                (PFCA) = ADDRESS OF NEW CATALOG ENTRY.
11793  M00S08467.pfm     +++|*
11794  M00S08468.pfm     +++|*         EXIT   (BUF - BUF+502) = INITIALIZED SYSTEM SECTOR.
11795  M00S08469.pfm     +++|*
11796  M00S08470.pfm     +++|*         USES   T1, T2, T3.
11797  M00S08471.pfm     +++|
11798  M00S08472.pfm     +++|
11799  M00S08473.pfm     +++| CSS      SUBR               ENTRY/EXIT
11800  M00S08474.pfm     +++|          LDC    77*5-1      CLEAR SYSTEM SECTOR
11801  M00S08475.pfm     +++|          STD    T1
11802  M00S08476.pfm     +++| CSS1     LDN    0
11803  M00S08477.pfm     +++|          STM    BUF+2,T1
11804  M00S08478.pfm     +++|          SOD    T1
11805  M00S08479.pfm     +++|          PJN    CSS1        IF NOT END OF SECTOR
11806  M00S08480.pfm     +++|          LDC    3777        SET CONTROL BYTES
11807  M00S08481.pfm     +++|          STM    BUF
11808  M00S08482.pfm     +++|          LDN    77
11809  M00S08483.pfm     +++|          STM    BUF+1
11810  M00S08484.pfm     +++|          NFA    FA,R        COPY FNT TO BUFFER
11811  M00S08485.pfm     +++|          ADK    FNTL
11812  M00S08486.pfm     +++|          CRM    FNSS+BUF-BFMS,ON
11813  M00S08487.pfm     +++|          LDM    FNSS+3+BUF-BFMS
11814  M00S08488.pfm     +++|          SCN    77
11815  M00S08489.pfm     +++|          STM    FNSS+3+BUF-BFMS
11816  M00S08490.pfm     +++|          LDC    PMFT*100    SET FILE TYPE
11817  M00S08491.pfm     +++|          STM    FNSS+4+BUF-BFMS
11818  M00S08492.pfm     +++|          LDM    SDAA        SET EST ORDINAL
11819  M00S08493.pfm     +++|          STM    EQSS+BUF-BFMS
11820  M00S08494.pfm     +++|          LDM    SDAA+1      SET FIRST TRACK
11821  M00S08495.pfm     +++|          STM    FTSS+BUF-BFMS
11822  M00S08496.pfm     +++|          LDN    PDTL        ENTER PACKED DATE
11823  M00S08497.pfm     +++|          CRM    DTSS+BUF-BFMS,ON
11824  M00S08498.pfm     +++|
11825  M00S08499.pfm     +++|*         COPY CATALOG ENTRY INTO SYSTEM SECTOR.
11826  M00S08500.pfm     +++|
11827  M00S08501.pfm     +++|          LDM    PFCA        ADDRESS OF CATALOG ENTRY
11828  M00S08502.pfm     +++|          STD    T1
11829  M00S08503.pfm     +++|          LDC    CTSS+BUF-BFMS  ADDRESS IN SYSTEM SECTOR
11830  M00S08504.pfm     +++|          STD    T2
11831  M00S08505.pfm     +++|          ADC    NWCE*5      NUMBER OF BYTES TO COPY
11832  M00S08506.pfm     +++|          STD    T3
11833  M00S08507.pfm     +++| CSS2     LDI    T1          TRANSFER ENTRY
11834  M00S08508.pfm     +++|          STI    T2
11835  M00S08509.pfm     +++|          AOD    T1
11836  M00S08510.pfm     +++|          AOD    T2
11837  M00S08511.pfm     +++|          LMD    T3
11838  M00S08512.pfm     +++|          NJN    CSS2        IF MORE BYTES TO TRANSFER
11839  M00S08513.pfm     +++|          LJM    CSSX        RETURN
11840  M00S08514.pfm     +++| CUC      SPACE  4,20
11841  M00S08515.pfm     +++|**        CUC - CHECK USER CONTROLS.
11842  M00S08516.pfm     +++|*
11843  M00S08517.pfm     +++|*         CHECK NUMBER OF FILES.
11844  M00S08518.pfm     +++|*         CHECK CUMULATIVE SIZE OF INDIRECT ACCESS FILES.
11845  M00S08519.pfm     +++|*
11846  M00S08520.pfm     +++|*         ENTRY  (ACNF - ACFN+1) = NUMBER OF FILES IN CATALOG.
11847  M00S08521.pfm     +++|*                (CIFS - CIFS+1) = CUMULATIVE SIZE OF INDIRECT FILES.
11848  M00S08522.pfm     +++|*                (MXCS - MXCS+1) = CUMULATIVE SIZE OF INDIRECTS ALLOWED.
11849  M00S08523.pfm     +++|*                (MXNF) = MAXIMUM NUMBER OF FILES.
11850  M00S08524.pfm     +++|*                (LF - LF+1) = LENGTH OF NEW FILE.
11851  M00S08525.pfm     +++|*                (CI) = INDEX TO EXISTING CATALOG ENTRY OF FILE REPLACED
11852  M00S08526.pfm     +++|*
11853  M00S08527.pfm     +++|*         USES   CM - CM+4.
11854  M00S08528.pfm     +++|*
11855  M00S08529.pfm     +++|*         MACROS ERROR.
11856  M00S08530.pfm     +++|
11857  M00S08531.pfm     +++|
11858  M00S08532.pfm     +++| CUC      SUBR               ENTRY/EXIT
11859  M00S08533.pfm     +++|          LDD    MA          SET CUMULATED TOTALS
11860  M00S08534.pfm     +++|          CWM    ACNF,ON
11861  M00S08535.pfm     +++|          SBN    1
11862  M00S08536.pfm     +++|          CRD    CM
11863  M00S08537.pfm     +++|
11864  M00S08538.pfm     +++|*         CHECK  NUMBER OF FILES ALLOWED.
11865  M00S08539.pfm     +++|
11866  M00S08540.pfm     +++|          LDM    MXNF
11867  M00S08541.pfm     +++|          ZJN    CUC1        IF NO LIMIT ON  NUMBER OF FILES
11868  M00S08542.pfm     +++|          LDD    CM
11869  M00S08543.pfm     +++|          SHN    14
11870  M00S08544.pfm     +++|          ADD    CM+1
11871  M00S08545.pfm     +++|          ADN    7           ROUND UP
11872  M00S08546.pfm     +++|          SHN    -3
11873  M00S08547.pfm     +++|          SBM    MXNF
11874  M00S08548.pfm     +++|          MJN    CUC1        IF NUMBER OF FILES ALLOWED NOT EXCEEDED
11875  M00S08549.pfm     +++|          ZJN    CUC1        IF NUMBER OF FILES ALLOWED NOT EXCEEDED
11876  M00S08550.pfm     +++|          ERROR  COF         * TOO MANY PERMANENT FILES.*
11877  M00S08551.pfm     +++|
11878  M00S08552.pfm     +++|*         CHECK CUMULATIVE SIZE OF INDIRECT FILES.
11879  M00S08553.pfm     +++|
11880  M00S08554.pfm     +++| CUC1     LDM    MXCS
11881  M00S08555.pfm     +++|          NJN    CUC2        IF SIZE CONTROL SET
11882  M00S08556.pfm     +++|          LDM    MXCS+1
11883  M00S08557.pfm     +++|          ZJN    CUCX        IF NO SIZE CONTROL SET
11884  M00S08558.pfm     +++|
11885  M00S08559.pfm     +++|*         DECREMENT ACCUMULATED SIZE BY SIZE OF FILE REPLACED.
11886  M00S08560.pfm     +++|
11887  M00S08561.pfm     +++| CUC2     LDD    CI
11888  M00S08562.pfm     +++|          ZJN    CUC4        IF NO PREVIOUS FILE
11889  M00S08563.pfm     +++|          LDD    CM+3
11890  M00S08564.pfm     +++|          SBM    FCLF+1,CI
11891  M00S08565.pfm     +++|          STD    CM+3
11892  M00S08566.pfm     +++|          PJN    CUC3        IF NO 12 BIT OVERFLOW
11893  M00S08567.pfm     +++|          AOD    CM+3
11894  M00S08568.pfm     +++|          SOD    CM+2
11895  M00S08569.pfm     +++| CUC3     LDD    CM+2
11896  M00S08570.pfm     +++|          SBM    FCLF,CI
11897  M00S08571.pfm     +++|          STD    CM+2
11898  M00S08572.pfm     +++|
11899  M00S08573.pfm     +++|*         INCREMENT CUMULATIVE SIZE FOR NEW FILE.
11900  M00S08574.pfm     +++|
11901  M00S08575.pfm     +++| CUC4     LDD    LF+1
11902  M00S08576.pfm     +++|          RAD    CM+3
11903  M00S08577.pfm     +++|          SHN    -14
11904  M00S08578.pfm     +++|          ADD    LF
11905  M00S08579.pfm     +++|          RAD    CM+2
11906  M00S08580.pfm     +++|          SHN    -14
11907  M00S08581.pfm     +++|          ZJN    CUC6        IF NO OVERFLOW
11908  M00S08582.pfm     +++| CUC5     ERROR  COS         * TOO MUCH INDIRECT ACCESS FILE SPACE.*
11909  M00S08583.pfm     +++|
11910  M00S08584.pfm     +++| CUC6     LDD    CM+2        CHECK SIZE AGAINST THAT ALLOWED
11911  M00S08585.pfm     +++|          SBM    MXCS
11912  M00S08586.pfm     +++|          MJN    CUC7        IF NO OVERFLOW
11913  M00S08587.pfm     +++|          NJN    CUC5        IF OVERFLOW
11914  M00S08588.pfm     +++|          LDD    CM+3
11915  M00S08589.pfm     +++|          SBM    MXCS+1
11916  M00S08590.pfm     +++|          MJN    CUC7        IF NO OVERFLOW
11917  M00S08591.pfm     +++|          NJN    CUC5        IF OVERFLOW
11918  M00S08592.pfm     +++| CUC7     LJM    CUCX
11919  M00S08593.pfm     +++|          SPACE  4,10
11920  M00S08594.pfm     +++|*         CHECK FOR OVERFLOW.
11921  M00S08595.pfm     +++|
11922  M00S08596.pfm     +++|
11923  M00S08597.pfm     +++|          OVERFLOW  OVLC,BUF2-2  OVERFLOW INTO CATALOG BUFFER
11924  M00S08598.pfm     +++|          SPACE  4,10
11925  M00S08599.pfm     +++|*         EQUIVALENCE EXTERNALLY REFERENCED TAGS.
11926  M00S08600.pfm     +++|
11927  M00S08601.pfm     +++|
11928  M00S08602.pfm     +++|          QUAL   *
11929  M00S08603.pfm     +++|
11930  M00S08604.pfm     +++| SAVA     EQU    /".O"/SAVA
11931  M00S08605.pfm     +++|          OVERLAY  (APPEND PROCESSING.)
11932  M00S08606.pfm     +++| APP      SPACE  4,10
11933  M00S08607.pfm     +++|**        THIS OVERLAY PROCESSES THE INDIRECT ACCESS FILE
11934  M00S08608.pfm     +++|*         COMMAND *APPEND*.
11935  M00S08609.pfm     +++|
11936  M00S08610.pfm     +++|
11937  M00S08611.pfm     +++| OVL      BSS    0           ENTRY
Line S08612 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11938  M01S08612.242l642 ---|          RJM    RMD         RESET TO MASTER DEVICE
11939  M00S08613.pfm     +++|*         LJM    0,P0        PROCESS REQUEST
11940  M00S08614.pfm     +++|          TITLE  COMMAND PROCESSING.
11941  M00S08615.pfm     +++|          SPACE  4,10
11942  M00S08616.pfm     +++|***       PROCESS *APPEND* REQUEST.
11943  M00S08617.pfm     +++|*
11944  M00S08618.pfm     +++|*         APPEND LOCAL FILE *FILE NAME* AT EOI OF INDIRECT ACCESS
11945  M00S08619.pfm     +++|*         PERMANENT FILE *PF NAME*.
11946  M00S08620.pfm     +++|
11947  M00S08621.pfm     +++|
11948  M00S08622.pfm     +++| APP      BSS    0           ENTRY
Line S08623 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
11949  M01S08623.242l642 ---|          LDC    STMI+CI     FORCE UPDATE OF FCUD/FCMD IN *UCE*
11950  M01S08624.242l642 ---|          STM    UCEA
11951  M01S08625.242l642 ---|          LDN    PSNI        FORCE SPECIAL *APPEND* PROCESSING IN *DCE*
11952  M01S08626.242l642 ---|          STM    DCEC
11953  M01S08627.242l642 ---|          STM    DCED
11954  M01S08628.242l642 ---|          STM    DCEE
11955  M00S08629.pfm     +++|          LDD    CI          CLEAR ALTERNATE STORAGE INFORMATION IN PFC
Line S08630 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
11956  M01S08630.253l688 ---|          RAM    APPA
Line S00374 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
11957  M01S00374.253l688 +++|          RAM    APPA+1
11958  M00S08631.pfm     +++|          LDN    ZERL
Line S08632 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
11959  M01S08632.253l688 ---|          CRM    FCAF,ON
11960  M01S08633.253l688 ---| APPA     EQU    *-1
Line S00375 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
11961  M01S00375.253l688 +++| APPA     CRM    FCAF,ON
11962  M01S00376.253l688 +++|          LDD    CI          CLEAR TAPE ALTERNATE STORAGE INFORMATION
11963  M01S00377.253l688 +++|          RAM    APPI+1
11964  M01S00378.253l688 +++|          LDN    ZERL
11965  M01S00379.253l688 +++| APPI     CRM    FCTF,ON
11966  M00S08634.pfm     +++|
11967  M00S08635.pfm     +++|*         CHECK LOCAL FILE ACCESS LEVEL AGAINST *PFC*.
11968  M00S08636.pfm     +++|
11969  M00S08637.pfm     +++|          LDM    SSOM        CHECK SYSTEM SECURITY MODE
11970  M00S08638.pfm     +++|          ZJN    APP1        IF SYSTEM OPERATING IN UNSECURED MODE
11971  M00S08639.pfm     +++|          LDM    FCAL,CI
11972  M00S08640.pfm     +++|          SBM    LFAL
11973  M00S08641.pfm     +++|          PJN    APP1        IF ACCESS LEVEL ACCEPTABLE
11974  M00S08642.pfm     +++|          LDM    SVAL
11975  M00S08643.pfm     +++|          LPN    40
11976  M00S08644.pfm     +++|          NJN    APP1        IF WRITE-DOWN ALLOWED
11977  M00S08645.pfm     +++|          LDM    SSID        CHECK SUBSYSTEM ID
11978  M00S08646.pfm     +++|          SBK    LSSI+1
11979  M00S08647.pfm     +++|          PJN    APP1        IF SUBSYSTEM
11980  M00S08648.pfm     +++|          ERROR  WDP,,,,SVE  * WRITE-DOWN OF DATA PROHIBITED.*
11981  M00S08649.pfm     +++|
Line S08650 Modification History
M01 (Removed by) pfm62
Seq #  *Modification Id* Act 
----------------------------+
11982  M01S08650.pfm62   ---| APP1     LDM    FCBS,CI
11983  M01S08651.pfm62   ---|          SHN    21-13
11984  M01S08652.pfm62   ---|          PJN    APP2        IF FILE NOT DIRECT ACCESS
11985  M01S08653.pfm62   ---|          ERROR  FDA         * FILE IS DIRECT ACCESS.*
11986  M01S08654.pfm62   ---|
11987  M01S08655.pfm62   ---| APP2     LDM    FCEC,CI     CHECK CATALOG ERROR STATUS
Line S00019 Modification History
M01 (Added by) pfm62
Seq #  *Modification Id* Act 
----------------------------+
11988  M01S00019.pfm62   +++| APP1     LDM    FCEC,CI     CHECK CATALOG ERROR STATUS
11989  M00S08656.pfm     +++|          SHN    -4
11990  M00S08657.pfm     +++|          LPN    34
11991  M00S08658.pfm     +++|          ZJN    APP3        IF NO ERRORS
11992  M00S08659.pfm     +++|          SBN    4
11993  M00S08660.pfm     +++|          RAM    APPH        MODIFY ERROR CODE
11994  M00S08661.pfm     +++| APPH     EQU    *+2
11995  M00S08662.pfm     +++|          ERROR  EDA         * ERROR IN FILE DATA.*
11996  M00S08663.pfm     +++|*         ERROR  EPT         * ERROR IN PERMIT DATA.*
11997  M00S08664.pfm     +++|*         ERROR  EDP         * DATA/PERMIT ERRORS.*
11998  M00S08665.pfm     +++|
11999  M00S08666.pfm     +++|          ERRNZ  /ERRMSG/EPT-/ERRMSG/EDA-1  ERRORS MUST BE CONTIGUOUS
12000  M00S08667.pfm     +++|          ERRNZ  /ERRMSG/EDP-/ERRMSG/EPT-1  ERRORS MUST BE CONTIGUOUS
12001  M00S08668.pfm     +++|
12002  M00S08669.pfm     +++| APP3     LDM    STAT        CHECK FOR PREVIOUS ERROR
12003  M00S08670.pfm     +++|          LPN    STAB
12004  M00S08671.pfm     +++|          ZJN    APP4        IF NO PREVIOUS ERROR
12005  M00S08672.pfm     +++|          ERROR  FTL         *FILE TOO LONG.*
12006  M00S08673.pfm     +++|
Line S00025 Modification History
M01 (Added by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
12007  M01S00025.pfm59   +++|*         UPDATE PERMITS.
12008  M01S00026.pfm59   +++|
12009  M00S08674.pfm     +++| APP4     RJM    CUC         CHECK USER CONTROLS
Line S01007 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12010  M01S01007.242l642 +++|          LDD    PB
12011  M01S01008.242l642 +++|          ZJN    APP4.1      IF NO PERMIT BUFFER
12012  M01S01009.242l642 +++|          EXECUTE  3PE       LOAD PERMIT UPDATE ROUTINES
12013  M00S08675.pfm     +++|          RJM    UPI         UPDATE PERMISSION INFORMATION
Line S01010 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12014  M01S01010.242l642 +++|          ENDMS
Line S00027 Modification History
M01 (Added by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
12015  M01S00027.pfm59   +++|
12016  M01S00028.pfm59   +++|*         UPDATE CATALOG.
12017  M01S00029.pfm59   +++|
Line S01011 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12018  M01S01011.242l642 +++| APP4.1   EXECUTE  3PD       LOAD CATALOG UPDATE ROUTINES
Line S00030 Modification History
M01 (Added by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
12019  M01S00030.pfm59   +++|          LDD    CI          SAVE CURRENT VALUE OF (FCKD)
12020  M01S00031.pfm59   +++|          RAM    APPG
12021  M01S00032.pfm59   +++|          LDD    MA
12022  M01S00033.pfm59   +++|          CWM    FCKD,ON
12023  M01S00034.pfm59   +++| APPG     EQU    *-1
12024  M01S00035.pfm59   +++|          SBN    1
12025  M01S00036.pfm59   +++|          CRM    APPF,ON
Line S01012 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12026  M01S01012.242l642 +++|          LDN    PSNI        FORCE SPECIAL *APPEND* PROCESSING IN *DCE*
12027  M01S01013.242l642 +++|          STM    DCEC
12028  M01S01014.242l642 +++|          STM    DCED
12029  M01S01015.242l642 +++|          STM    DCEE
Line S00154 Modification History
M01 (Added by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
12030  M01S00154.pfm54   +++|          RJM    IIA         INTERLOCK INDIRECT ALLOCATION
12031  M01S00155.pfm54   +++|          LDK    STNS        SET *NO JOB SUSPENSION* AFTER THIS POINT
12032  M01S00156.pfm54   +++|          RAM    STAT
12033  M00S08676.pfm     +++|          RJM    DCE         DELETE CATALOG ENTRY
12034  M00S08677.pfm     +++|          LMN    2
12035  M00S08678.pfm     +++|          ZJP    APP9        IF FILE AT END OF CHAIN
12036  M00S08679.pfm     +++|
12037  M00S08680.pfm     +++|*         PROCESS FILE WITHIN CHAIN.
12038  M00S08681.pfm     +++|
12039  M00S08682.pfm     +++|          AOM    FCAC+1,CI   INCREMENT ACCESS COUNT
12040  M00S08683.pfm     +++|          SHN    -14
12041  M00S08684.pfm     +++|          RAM    FCAC,CI
Line S01016 Modification History
M01 (Added by) 242l642
M02 (Removed by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
12042  M02S01016.pfm54   ---|          LDK    STNS        SET *NO JOB SUSPENSION* AFTER THIS POINT
12043  M02S01017.pfm54   ---|          RAM    STAT
12044  M00S08685.pfm     +++|          RJM    CCS         CREATE CATALOG SECTOR
Line S00157 Modification History
M01 (Added by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
12045  M01S00157.pfm54   +++|          LDM    APDK+1
12046  M01S00158.pfm54   +++|          NJN    APP4.2      IF DELAYED DELINK PENDING
12047  M01S00159.pfm54   +++|          RJM    CIA         CLEAR INDIRECT ALLOCATION INTERLOCK
12048  M00S08686.pfm     +++|
Line S08687 Modification History
M01 (Removed by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
12049  M01S08687.pfm59   ---|*         DETERMINE IF OLD FILES CATALOG SECTOR HAS BEEN REWRITTEN.
Line S00037 Modification History
M01 (Added by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
12050  M01S00037.pfm59   +++|*         REWRITE OLD FILE-S CATALOG ENTRY.
12051  M00S08688.pfm     +++|
Line S08689 Modification History
M01 (Removed by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
12052  M01S08689.pfm54   ---|          LDD    CB
Line S00160 Modification History
M01 (Added by) pfm54
M02 (Removed by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
12053  M02S00160.pfm59   ---| APP4.2   LDD    CB
Line S08690 Modification History
M01 (Removed by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
12054  M01S08690.pfm59   ---|          LMD    HB
12055  M01S08691.pfm59   ---|          ZJN    APP6        IF CATALOG ENTRY IN SAME BUFFER AS HOLE
12056  M01S08692.pfm59   ---|          LDD    EB
12057  M01S08693.pfm59   ---|          LMD    HB
12058  M01S08694.pfm59   ---|          ZJN    APP5        IF END BUFFER SAME AS HOLE BUFFER
12059  M01S08695.pfm59   ---|*                            OR END BUFFER NOT REWRITTEN.
12060  M01S08696.pfm59   ---|          LDD    EB
12061  M01S08697.pfm59   ---|          LMD    CB
12062  M01S08698.pfm59   ---|          ZJN    APP6        IF CATALOG ENTRY IN SAME BUFFER AS END
12063  M01S08699.pfm59   ---| APP5     LDD    CB          WRITE OLD FILES CATALOG SECTOR
Line S00038 Modification History
M01 (Added by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
12064  M01S00038.pfm59   +++| APP4.2   LDD    CB          REWRITE OLD FILE-S CATALOG SECTOR
12065  M00S08700.pfm     +++|          RJM    WBI
Line S08701 Modification History
M01 (Removed by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
12066  M01S08701.pfm59   ---| APP6     ENDMS
Line S00039 Modification History
M01 (Added by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
12067  M01S00039.pfm59   +++|          ENDMS
12068  M00S08702.pfm     +++|          LDM    CPTF
12069  M00S08703.pfm     +++|          ZJN    APP7        IF FILE NOT TO BE TRANSFERRED VIA CPU
Line S00036 Modification History
M01 (Added by) pfm55
Seq #  *Modification Id* Act 
----------------------------+
12070  M01S00036.pfm55   +++|          RJM    VSS         VERIFY SYSTEM SECTOR
12071  M01S00037.pfm55   +++|          ENDMS
Line S08704 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12072  M01S08704.242l642 ---| APPB     BSS    0           (OVERFLOW POINT FOR *3PQ* LOAD)
12073  M01S08705.242l642 ---|          EXECUTE  3PQ       TRANSFER FILE VIA CPU
Line S01018 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
12074  M02S01018.ns2414  ---| APPB     BSS    0           (OVERFLOW POINT FOR *3PR* LOAD)
12075  M02S01019.ns2414  ---|          EXECUTE  3PR       TRANSFER FILE VIA CPU
Line S00109 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
12076  M01S00109.ns2414  +++| APPB     BSS    0           (OVERFLOW POINT FOR *3PS* LOAD)
12077  M01S00110.ns2414  +++|          EXECUTE  3PS       TRANSFER FILE VIA CPU
12078  M00S08706.pfm     +++|
12079  M00S08707.pfm     +++|          ERRNG  *-BUFA-502  SYSTEM SECTOR BUFFER OVERFLOWS CODE
12080  M00S08708.pfm     +++|
Line S08709 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12081  M01S08709.242l642 ---| APP7     EXECUTE  3PN       LOAD DEVICE TO DEVICE TRANSFER OVERLAY
12082  M01S08710.242l642 ---|          EXECUTE  3PO       LOAD TRANSFER ORIGINAL FILE OVERLAY
Line S01020 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
12083  M02S01020.ns2414  ---| APP7     EXECUTE  3PO       LOAD DEVICE TO DEVICE TRANSFER OVERLAY
12084  M02S01021.ns2414  ---|          EXECUTE  3PP       LOAD TRANSFER ORIGINAL FILE OVERLAY
Line S00111 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
12085  M01S00111.ns2414  +++| APP7     EXECUTE  3PP       LOAD DEVICE TO DEVICE TRANSFER OVERLAY
12086  M01S00112.ns2414  +++|          EXECUTE  3PQ       LOAD TRANSFER ORIGINAL FILE OVERLAY
12087  M00S08711.pfm     +++|          AOM    DPCA        DISABLE SRU ACCUMULATION
Line S01022 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12088  M01S01022.242l642 +++|          LDC    BUFA        SET BUFFER ADDRESS
12089  M01S01023.242l642 +++|          STD    BB
12090  M01S01024.242l642 +++|          STM    SDPA
12091  M01S01025.242l642 +++|          RJM    CSS         CREATE SYSTEM SECTOR IN *BUFA*
12092  M01S01026.242l642 +++|          RJM    IBA         INCREMENT BUFFER ADDRESS
12093  M01S01027.242l642 +++|          AOD    LF+1        ADJUST LENGTH TO ACCOUNT FOR SYSTEM SECTOR
12094  M01S01028.242l642 +++|          SHN    -14
12095  M01S01029.242l642 +++|          RAD    LF
Line S08712 Modification History
M01 (Removed by) pfm55
Seq #  *Modification Id* Act 
----------------------------+
12096  M01S08712.pfm55   ---|          LDD    EQ          SET EST ORDINAL
12097  M01S08713.pfm55   ---|          STD    T5
12098  M01S08714.pfm55   ---|          LDM    APTK        SET BEGINNING TRACK
12099  M01S08715.pfm55   ---|          STD    T6
12100  M01S08716.pfm55   ---|          LDM    APSC        SET BEGINNING SECTOR
12101  M01S08717.pfm55   ---|          STD    T7
Line S08718 Modification History
M01 (Removed by) 242l642
M02 (Removed by) pfm55
Seq #  *Modification Id* Act 
----------------------------+
12102  M02S08718.pfm55   ---|          SETMS  READ
Line S01030 Modification History
M01 (Added by) 242l642
M02 (Removed by) pfm55
Seq #  *Modification Id* Act 
----------------------------+
12103  M02S01030.pfm55   ---|          SETMS  IO
12104  M02S01031.pfm55   ---|          RJM    PDV         PROCESS DEVICE STATUS
Line S08719 Modification History
M01 (Removed by) pfm55
Seq #  *Modification Id* Act 
----------------------------+
12105  M01S08719.pfm55   ---|          LDN    0           DO NOT VALIDATE FILE NAME
12106  M01S08720.pfm55   ---|          RJM    RSS         READ SYSTEM SECTOR
12107  M01S08721.pfm55   ---|          ZJN    APP8        IF VALID SYSTEM SECTOR
Line S08722 Modification History
M01 (Removed by) 242l642
M02 (Removed by) pfm55
Seq #  *Modification Id* Act 
----------------------------+
12108  M02S08722.pfm55   ---|          ERROR  SSE,,,T5    *EQXXX,DNYY, SYSTEM SECTOR ERROR.*
Line S01032 Modification History
M01 (Added by) 242l642
M02 (Removed by) pfm55
Seq #  *Modification Id* Act 
----------------------------+
12109  M02S01032.pfm55   ---|          MJN    APP7.1      IF READ ERROR
12110  M02S01033.pfm55   ---|          ERROR  SSE,,,T5,,EI  *EQXXX,DNYY, SYSTEM SECTOR ERROR.*
12111  M02S01034.pfm55   ---|
12112  M02S01035.pfm55   ---| APP7.1   RJM    PES         PROCESS ERROR STATUS
12113  M02S01036.pfm55   ---|          ERROR  MSE,CH,,T5,,EI  *EQXXX,DNYY, MASS STORAGE ERROR.*
Line S08723 Modification History
M01 (Removed by) pfm55
Seq #  *Modification Id* Act 
----------------------------+
12114  M01S08723.pfm55   ---|
Line S08724 Modification History
M01 (Removed by) 242l642
M02 (Removed by) pfm55
Seq #  *Modification Id* Act 
----------------------------+
12115  M02S08724.pfm55   ---| APP8     LDC    BUFA        SET BUFFER ADDRESS
12116  M02S08725.pfm55   ---|          STD    BB
12117  M02S08726.pfm55   ---|          STM    SDPA
12118  M02S08727.pfm55   ---|          RJM    CSS         CREATE SYSTEM SECTOR IN *BUFA*
12119  M02S08728.pfm55   ---|          RJM    IBA         INCREMENT BUFFER ADDRESS
12120  M02S08729.pfm55   ---|          AOD    LF+1        ADJUST LENGTH TO ACCOUNT FOR SYSTEM SECTOR
12121  M02S08730.pfm55   ---|          SHN    -14
12122  M02S08731.pfm55   ---|          RAD    LF
12123  M02S08732.pfm55   ---|          LJM    ADT         TRANSFER ORIGINAL FILE AND LOCAL FILE
Line S01037 Modification History
M01 (Added by) 242l642
M02 (Removed by) pfm55
Seq #  *Modification Id* Act 
----------------------------+
12124  M02S01037.pfm55   ---| APP8     LJM    ADT         TRANSFER ORIGINAL FILE AND LOCAL FILE
Line S00038 Modification History
M01 (Added by) pfm55
Seq #  *Modification Id* Act 
----------------------------+
12125  M01S00038.pfm55   +++|          RJM    VSS         VERIFY SYSTEM SECTOR
12126  M01S00039.pfm55   +++|          LJM    ADT         TRANSFER ORIGINAL FILE AND LOCAL FILE
12127  M00S08733.pfm     +++|
12128  M00S08734.pfm     +++|*         PROCESS APPEND TO FILE AT END OF DATA CHAIN AS A *SAVE*
12129  M00S08735.pfm     +++|*         OF THE APPENDAGE.
12130  M00S08736.pfm     +++|
12131  M00S08737.pfm     +++| APP9     LDC    STEC        SET *APPEND TO END OF CHAIN* FLAG
12132  M00S08738.pfm     +++|          RAM    STAT
12133  M00S08739.pfm     +++|          LDD    CI          SAVE CATALOG ADDRESS
12134  M00S08740.pfm     +++|          STM    PFCA
12135  M00S08741.pfm     +++|          LDD    T6          SAVE CURRENT EOI OF DATA CHAIN (TRACK)
12136  M00S08742.pfm     +++|          STM    APPD
12137  M00S08743.pfm     +++|          LDM    FCBT,CI
12138  M00S08744.pfm     +++|          STD    T6
12139  M00S08745.pfm     +++|          LDD    T1          SAVE CURRENT EOI SECTOR
12140  M00S08746.pfm     +++|          STM    APPE
12141  M00S08747.pfm     +++|          LDD    LF          SET LENGTH OF NEW FILE IN CATALOG
12142  M00S08748.pfm     +++|          STM    FCLF,CI
12143  M00S08749.pfm     +++|          LDD    LF+1
12144  M00S08750.pfm     +++|          STM    FCLF+1,CI
12145  M00S08751.pfm     +++|          LDM    APLF        SET LENGTH OF APPENDAGE
12146  M00S08752.pfm     +++|          STD    LF
12147  M00S08753.pfm     +++|          LDM    APLF+1
12148  M00S08754.pfm     +++|          STD    LF+1
12149  M00S08755.pfm     +++|          ISTORE AFSB,(PSN)  DO NOT ALLOCATE FOR SYSTEM SECTOR OR EOI
12150  M00S08756.pfm     +++|          RJM    AFS         ALLOCATE SPACE FOR APPENDAGE
Line S00161 Modification History
M01 (Added by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
12151  M01S00161.pfm54   +++|          RJM    CIA         CLEAR INDIRECT ALLOCATION INTERLOCK
Line S08757 Modification History
M01 (Removed by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
12152  M01S08757.pfm59   ---|          LDD    UI
Line S00040 Modification History
M01 (Added by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
12153  M01S00040.pfm59   +++|          LDD    UI          RESET USER INDEX IN DELETED PFC
12154  M00S08758.pfm     +++|          RAM    FCUI,CI
12155  M00S08759.pfm     +++|          LDD    UI+1
12156  M00S08760.pfm     +++|          STM    FCUI+1,CI
Line S00041 Modification History
M01 (Added by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
12157  M01S00041.pfm59   +++|          LDD    CI          RESTORE PREVIOUS VALUE OF *FCKD*
12158  M01S00042.pfm59   +++|          RAM    APPC
12159  M01S00043.pfm59   +++|          LDD    MA
12160  M01S00044.pfm59   +++|          CWM    APPF,ON
12161  M01S00045.pfm59   +++|          SBN    1
12162  M01S00046.pfm59   +++|          CRM    FCKD,ON
12163  M01S00047.pfm59   +++| APPC     EQU    *-1
Line S01038 Modification History
M01 (Added by) 242l642
M02 (Removed by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
12164  M02S01038.pfm54   ---|          LDK    STNS        SET *NO JOB SUSPENSION* AFTER THIS POINT
12165  M02S01039.pfm54   ---|          RAM    STAT
Line S01040 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12166  M01S01040.242l642 +++|          LDC    STMI+CI     FORCE UPDATE OF FCUD/FCMD IN *UCE*
12167  M01S01041.242l642 +++|          STM    UCEA
12168  M00S08761.pfm     +++|          RJM    UCE         UPDATE CATALOG ENTRY
12169  M00S08762.pfm     +++|          LDC    **          SET FIRST TRACK TO PLACE APPENDAGE
12170  M00S08763.pfm     +++| APPD     EQU    *-1
12171  M00S08764.pfm     +++|          STM    SDAB
12172  M00S08765.pfm     +++|          LDC    **
12173  M00S08766.pfm     +++| APPE     EQU    *-1
12174  M00S08767.pfm     +++|          STM    SDAC
12175  M00S08768.pfm     +++|          ENDMS
12176  M00S08769.pfm     +++|          LDM    CPTF
12177  M00S08770.pfm     +++|          ZJN    APP10       IF FILE NOT TO BE TRANSFERRED VIA CPU
Line S08771 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12178  M01S08771.242l642 ---|          EXECUTE  3PQ       TRANSFER FILE VIA CPU
Line S01042 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
12179  M02S01042.ns2414  ---|          EXECUTE  3PR       TRANSFER FILE VIA CPU
Line S00113 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
12180  M01S00113.ns2414  +++|          EXECUTE  3PS       TRANSFER FILE VIA CPU
12181  M00S08772.pfm     +++|
Line S08773 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12182  M01S08773.242l642 ---| APP10    EXECUTE  3PN       LOAD DEVICE TRANSFER
Line S01043 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
12183  M02S01043.ns2414  ---| APP10    EXECUTE  3PO       LOAD DEVICE TO DEVICE TRANSFER OVERLAY
Line S00114 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
12184  M01S00114.ns2414  +++| APP10    EXECUTE  3PP       LOAD DEVICE TO DEVICE TRANSFER OVERLAY
12185  M00S08774.pfm     +++|
12186  M00S08775.pfm     +++|          LDD    FS          SET LOCAL FILE EST ORDINAL
12187  M00S08776.pfm     +++|          STD    T5
12188  M00S08777.pfm     +++|          LDD    FS+1        SET FIRST TRACK
12189  M00S08778.pfm     +++|          STD    T6
12190  M00S08779.pfm     +++|          LDN    FSMS        SET FIRST SECTOR
12191  M00S08780.pfm     +++|          STD    T7
Line S08781 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12192  M01S08781.242l642 ---|          SETMS  READ
Line S01044 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
12193  M02S01044.ns2645  ---|          SETMS  IO
Line S00015 Modification History
M01 (Added by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
12194  M01S00015.ns2645  +++|          SETMS  READSTR,NS
Line S01045 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12195  M01S01045.242l642 +++|          RJM    PDV         PROCESS DEVICE STATUS
12196  M00S08782.pfm     +++|          LDC    BUF         SET STARTING BUFFER ADDRESS
12197  M00S08783.pfm     +++|          STD    BB
12198  M00S08784.pfm     +++|          LJM    DTD         ENTER DEVICE TO DEVICE TRANSFER LOOP
Line S00048 Modification History
M01 (Added by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
12199  M01S00048.pfm59   +++|
12200  M01S00049.pfm59   +++| APPF     BSS    5           BUFFER TO SAVE (FCKD)
12201  M00S08785.pfm     +++|          TITLE  SUBROUTINES.
12202  M00S08786.pfm     +++| CSS      SPACE  4,10
12203  M00S08787.pfm     +++|**        CSS - CREATE SYSTEM SECTOR IN BUFFER.
12204  M00S08788.pfm     +++|*
12205  M00S08789.pfm     +++|*         ENTRY  (PFCA) = ADDRESS OF NEW CATALOG ENTRY.
12206  M00S08790.pfm     +++|*
12207  M00S08791.pfm     +++|*         EXIT   (BUFA - BUFA+502) = INITIALIZED SYSTEM SECTOR.
12208  M00S08792.pfm     +++|*
12209  M00S08793.pfm     +++|*         USES   T1, T2, T3.
12210  M00S08794.pfm     +++|
12211  M00S08795.pfm     +++|
12212  M00S08796.pfm     +++| CSS      SUBR               ENTRY/EXIT
12213  M00S08797.pfm     +++|          LDC    77*5-1      CLEAR SYSTEM SECTOR
12214  M00S08798.pfm     +++|          STD    T1
12215  M00S08799.pfm     +++| CSS1     LDN    0
12216  M00S08800.pfm     +++|          STM    BUFA+2,T1
12217  M00S08801.pfm     +++|          SOD    T1
12218  M00S08802.pfm     +++|          PJN    CSS1        IF NOT END OF SECTOR
12219  M00S08803.pfm     +++|          LDC    3777        SET CONTROL BYTES
12220  M00S08804.pfm     +++|          STM    BUFA
12221  M00S08805.pfm     +++|          LDN    77
12222  M00S08806.pfm     +++|          STM    BUFA+1
12223  M00S08807.pfm     +++|          LDD    CI+FCFN*    SET PERMANENT FILE NAME
12224  M00S08808.pfm     +++|          STM    CSSA
12225  M00S08809.pfm     +++|          LDD    MA          COPY FILE NAME TO BUFFER
12226  M00S08810.pfm     +++|          CWM    *,ON
12227  M00S08811.pfm     +++| CSSA     EQU    *-1
12228  M00S08812.pfm     +++|          SBN    1
12229  M00S08813.pfm     +++|          CRM    FNSS+BUFA-BFMS,ON
12230  M00S08814.pfm     +++|          LDM    FNSS+3+BUFA-BFMS
12231  M00S08815.pfm     +++|          SCN    77
12232  M00S08816.pfm     +++|          STM    FNSS+3+BUFA-BFMS
12233  M00S08817.pfm     +++|          LDC    PMFT*100    SET FILE TYPE
12234  M00S08818.pfm     +++|          STM    FNSS+4+BUFA-BFMS
12235  M00S08819.pfm     +++|          LDM    SDAA        SET EST ORDINAL
12236  M00S08820.pfm     +++|          STM    EQSS+BUFA-BFMS
12237  M00S08821.pfm     +++|          LDM    SDAA+1      SET FIRST TRACK
12238  M00S08822.pfm     +++|          STM    FTSS+BUFA-BFMS
12239  M00S08823.pfm     +++|          LDN    PDTL        ENTER PACKED DATE
12240  M00S08824.pfm     +++|          CRM    DTSS+BUFA-BFMS,ON
12241  M00S08825.pfm     +++|
12242  M00S08826.pfm     +++|*         COPY CATALOG ENTRY INTO SYSTEM SECTOR.
12243  M00S08827.pfm     +++|
12244  M00S08828.pfm     +++|          LDM    PFCA        ADDRESS OF CATALOG ENTRY
12245  M00S08829.pfm     +++|          STD    T1
12246  M00S08830.pfm     +++|          LDC    CTSS+BUFA-BFMS  ADDRESS IN SYSTEM SECTOR
12247  M00S08831.pfm     +++|          STD    T2
12248  M00S08832.pfm     +++|          ADC    NWCE*5      NUMBER OF BYTES TO COPY
12249  M00S08833.pfm     +++|          STD    T3
12250  M00S08834.pfm     +++| CSS2     LDI    T1          TRANSFER ENTRY
12251  M00S08835.pfm     +++|          STI    T2
12252  M00S08836.pfm     +++|          AOD    T1
12253  M00S08837.pfm     +++|          AOD    T2
12254  M00S08838.pfm     +++|          LMD    T3
12255  M00S08839.pfm     +++|          NJN    CSS2        IF MORE BYTES TO TRANSFER
12256  M00S08840.pfm     +++|          LJM    CSSX        RETURN
12257  M00S08841.pfm     +++| CUC      SPACE  4,21
12258  M00S08842.pfm     +++|**        CUC - CHECK USER CONTROLS.
12259  M00S08843.pfm     +++|*
12260  M00S08844.pfm     +++|*         CHECK NUMBER OF FILES.
12261  M00S08845.pfm     +++|*         CHECK CUMULATIVE SIZE OF INDIRECT ACCESS FILES.
12262  M00S08846.pfm     +++|*
12263  M00S08847.pfm     +++|*         ENTRY  (ACNF - ACFN+1) = NUMBER OF FILES IN CATALOG.
12264  M00S08848.pfm     +++|*                (MXNF) = MAXIMUM NUMBER OF FILES.
12265  M00S08849.pfm     +++|*                (CIFS - CIFS+1) = CUMULATIVE SIZE OF INDIRECT FILES.
12266  M00S08850.pfm     +++|*                (MXCS - MXCS+1) = CUMULATIVE SIZE OF INDIRECTS ALLOWED.
12267  M00S08851.pfm     +++|*                (LF - LF+1) = LENGTH OF NEW FILE.
12268  M00S08852.pfm     +++|*                (CI) = INDEX TO EXISTING CATALOG ENTRY
12269  M00S08853.pfm     +++|*                            OF FILE REPLACED.
12270  M00S08854.pfm     +++|*
12271  M00S08855.pfm     +++|*         USES   CM - CM+4.
12272  M00S08856.pfm     +++|*
12273  M00S08857.pfm     +++|*         MACROS ERROR.
12274  M00S08858.pfm     +++|
12275  M00S08859.pfm     +++|
12276  M00S08860.pfm     +++| CUC      SUBR               ENTRY/EXIT
12277  M00S08861.pfm     +++|          LDD    MA          SET CUMULATED TOTALS
12278  M00S08862.pfm     +++|          CWM    ACNF,ON
12279  M00S08863.pfm     +++|          SBN    1
12280  M00S08864.pfm     +++|          CRD    CM
12281  M00S08865.pfm     +++|
12282  M00S08866.pfm     +++|*         CHECK  NUMBER OF FILES ALLOWED.
12283  M00S08867.pfm     +++|
12284  M00S08868.pfm     +++|          LDM    MXNF
12285  M00S08869.pfm     +++|          ZJN    CUC1        IF NO LIMIT ON  NUMBER OF FILES
12286  M00S08870.pfm     +++|          LDD    CM
12287  M00S08871.pfm     +++|          SHN    14
12288  M00S08872.pfm     +++|          ADD    CM+1
12289  M00S08873.pfm     +++|          ADN    7           ROUND UP
12290  M00S08874.pfm     +++|          SHN    -3
12291  M00S08875.pfm     +++|          SBM    MXNF
12292  M00S08876.pfm     +++|          MJN    CUC1        IF NUMBER OF FILES ALLOWED NOT EXCEEDED
12293  M00S08877.pfm     +++|          ZJN    CUC1        IF NUMBER OF FILES ALLOWED NOT EXCEEDED
12294  M00S08878.pfm     +++|          ERROR  COF         * TOO MANY PERMANENT FILES.*
12295  M00S08879.pfm     +++|
12296  M00S08880.pfm     +++|*         CHECK CUMULATIVE SIZE OF INDIRECT FILES.
12297  M00S08881.pfm     +++|
12298  M00S08882.pfm     +++| CUC1     LDM    MXCS
12299  M00S08883.pfm     +++|          NJN    CUC2        IF SIZE CONTROL SET
12300  M00S08884.pfm     +++|          LDM    MXCS+1
12301  M00S08885.pfm     +++|          ZJN    CUCX        IF NO SIZE CONTROL SET
12302  M00S08886.pfm     +++|
12303  M00S08887.pfm     +++|*         DECREMENT ACCUMULATED SIZE BY SIZE OF FILE REPLACED.
12304  M00S08888.pfm     +++|
12305  M00S08889.pfm     +++| CUC2     LDD    CI
12306  M00S08890.pfm     +++|          ZJN    CUC4        IF NO PREVIOUS FILE
12307  M00S08891.pfm     +++|          LDD    CM+3
12308  M00S08892.pfm     +++|          SBM    FCLF+1,CI
12309  M00S08893.pfm     +++|          STD    CM+3
12310  M00S08894.pfm     +++|          PJN    CUC3        IF NO 12 BIT OVERFLOW
12311  M00S08895.pfm     +++|          AOD    CM+3
12312  M00S08896.pfm     +++|          SOD    CM+2
12313  M00S08897.pfm     +++| CUC3     LDD    CM+2
12314  M00S08898.pfm     +++|          SBM    FCLF,CI
12315  M00S08899.pfm     +++|          STD    CM+2
12316  M00S08900.pfm     +++|
12317  M00S08901.pfm     +++|*         INCREMENT CUMULATIVE SIZE FOR NEW FILE.
12318  M00S08902.pfm     +++|
12319  M00S08903.pfm     +++| CUC4     LDD    LF+1
12320  M00S08904.pfm     +++|          RAD    CM+3
12321  M00S08905.pfm     +++|          SHN    -14
12322  M00S08906.pfm     +++|          ADD    LF
12323  M00S08907.pfm     +++|          RAD    CM+2
12324  M00S08908.pfm     +++|          SHN    -14
12325  M00S08909.pfm     +++|          ZJN    CUC6        IF NO OVERFLOW
12326  M00S08910.pfm     +++| CUC5     ERROR  COS         * TOO MUCH INDIRECT ACCESS FILE SPACE.*
12327  M00S08911.pfm     +++|
12328  M00S08912.pfm     +++| CUC6     LDD    CM+2        CHECK SIZE AGAINST THAT ALLOWED
12329  M00S08913.pfm     +++|          SBM    MXCS
12330  M00S08914.pfm     +++|          MJN    CUC7        IF NO OVERFLOW
12331  M00S08915.pfm     +++|          NJN    CUC5        IF OVERFLOW
12332  M00S08916.pfm     +++|          LDD    CM+3
12333  M00S08917.pfm     +++|          SBM    MXCS+1
12334  M00S08918.pfm     +++|          MJN    CUC7        IF NO OVERFLOW
12335  M00S08919.pfm     +++|          NJN    CUC5        IF OVERFLOW
12336  M00S08920.pfm     +++| CUC7     LJM    CUCX        EXIT
Line S00040 Modification History
M01 (Added by) pfm55
Seq #  *Modification Id* Act 
----------------------------+
12337  M01S00040.pfm55   +++| VSS      SPACE  4,10
12338  M01S00041.pfm55   +++|**        VSS - VERIFY SYSTEM SECTOR.
12339  M01S00042.pfm55   +++|*
12340  M01S00043.pfm55   +++|*         ENTRY  (APTK - APSC) = SYSTEM SECTOR DISK ADDRESS.
12341  M01S00044.pfm55   +++|*
12342  M01S00045.pfm55   +++|*         EXIT   SYSTEM SECTOR READ.
12343  M01S00046.pfm55   +++|*                TO *ERR* IF BAD SYSTEM SECTOR OR READ ERROR.
12344  M01S00047.pfm55   +++|*                ERROR IDLE SET IF BAD SYSTEM SECTOR OR READ ERROR.
12345  M01S00048.pfm55   +++|*
12346  M01S00049.pfm55   +++|*         CALLS  PDV, PES, RSS.
12347  M01S00050.pfm55   +++|*
12348  M01S00051.pfm55   +++|*         MACROS ERROR.
12349  M01S00052.pfm55   +++|
12350  M01S00053.pfm55   +++|
12351  M01S00054.pfm55   +++| VSS      SUBR               ENTRY/EXIT
12352  M01S00055.pfm55   +++|          LDD    EQ          SET EST ORDINAL
12353  M01S00056.pfm55   +++|          STD    T5
12354  M01S00057.pfm55   +++|          LDM    APTK        SET BEGINNING TRACK
12355  M01S00058.pfm55   +++|          STD    T6
12356  M01S00059.pfm55   +++|          LDM    APSC        SET BEGINNING SECTOR
12357  M01S00060.pfm55   +++|          STD    T7
Line S00061 Modification History
M01 (Added by) pfm55
M02 (Removed by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
12358  M02S00061.ns2645  ---|          SETMS  IO
Line S00016 Modification History
M01 (Added by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
12359  M01S00016.ns2645  +++|          SETMS  READSTR,NS
Line S00062 Modification History
M01 (Added by) pfm55
Seq #  *Modification Id* Act 
----------------------------+
12360  M01S00062.pfm55   +++|          RJM    PDV         PROCESS DEVICE STATUS
12361  M01S00063.pfm55   +++|          LDN    0           DO NOT VALIDATE FILE NAME
12362  M01S00064.pfm55   +++|          RJM    RSS         READ SYSTEM SECTOR
12363  M01S00065.pfm55   +++|          MJN    VSS1        IF READ ERROR
12364  M01S00066.pfm55   +++|          ZJN    VSSX        IF VALID SYSTEM SECTOR
12365  M01S00067.pfm55   +++|          ERROR  SSE,CH,,T5,,EI  *EQXXX,DNYY, SYSTEM SECTOR ERROR.*
12366  M01S00068.pfm55   +++|
12367  M01S00069.pfm55   +++| VSS1     RJM    PES         PROCESS ERROR STATUS
12368  M01S00070.pfm55   +++|          ERROR  MSE,CH,,T5,,EI  *EQXXX,DNYY, MASS STORAGE ERROR.*
Line S08921 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12369  M01S08921.242l642 ---| MSS      SPACE  4,10
12370  M01S08922.242l642 ---|**        MSS - SYSTEM SECTOR READ ERROR PROCESSOR.
12371  M01S08923.242l642 ---|
12372  M01S08924.242l642 ---|
12373  M01S08925.242l642 ---| MSS      SUBR               ENTRY/EXIT
12374  M01S08926.242l642 ---|          ERROR  MSE,,,T5    *EQXXX,DNYY, MASS STORAGE ERROR.*
12375  M00S08927.pfm     +++|          SPACE  4,10
12376  M00S08928.pfm     +++|*         COMMON DECKS.
12377  M00S08929.pfm     +++|
12378  M00S08930.pfm     +++|
12379  M00S08931.pfm     +++| RIS$     SET    1           READ INDIRECT-ACCESS FILE SYSTEM SECTOR
12380  M00S08932.pfm     +++|*CALL     COMPRSS
12381  M00S08933.pfm     +++|          SPACE  4,10
12382  M00S08934.pfm     +++|*         CHECK FOR OVERFLOW.
12383  M00S08935.pfm     +++|
12384  M00S08936.pfm     +++|
12385  M00S08937.pfm     +++|          OVERFLOW  OVLC,BUF2-2  OVERFLOW INTO CATALOG BUFFER
12386  M00S08938.pfm     +++|          SPACE  4,10
12387  M00S08939.pfm     +++|*         EQUIVALENCE EXTERNALLY REFERENCED TAGS.
12388  M00S08940.pfm     +++|
12389  M00S08941.pfm     +++|
12390  M00S08942.pfm     +++|          QUAL   *
12391  M00S08943.pfm     +++|
12392  M00S08944.pfm     +++| APPB     EQU    /".O"/APPB
12393  M00S08945.pfm     +++|          OVERLAY  (ATTACH/UATTACH PROCESSING.)
12394  M00S08946.pfm     +++|          SPACE  4,10
12395  M00S08947.pfm     +++|**        THIS OVERLAY PROCESSES THE DIRECT ACCESS FILE
12396  M00S08948.pfm     +++|*         COMMANDS *ATTACH* AND *UATTACH*.
12397  M00S08949.pfm     +++|
12398  M00S08950.pfm     +++|
12399  M00S08951.pfm     +++| OVL      BSS    0           ENTRY
Line S08952 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12400  M01S08952.242l642 ---|          RJM    RMD         RESET TO MASTER DEVICE
Line S01046 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12401  M01S01046.242l642 +++|          LDD    EQ          RESET MASTER DEVICE EST ORDINAL
12402  M01S01047.242l642 +++|          STD    T5
12403  M00S08953.pfm     +++|          LJM    0,P0        CALL FUNCTION PROCESSOR
12404  M00S08954.pfm     +++|          TITLE  COMMAND PROCESSING.
12405  M00S08955.pfm     +++| UAT      SPACE  4,10
12406  M00S08956.pfm     +++|***       PROCESS *UATTACH* REQUEST.
12407  M00S08957.pfm     +++|*
12408  M00S08958.pfm     +++|*         ATTACH DIRECT ACCESS FILE SPECIFIED BY *PFID* TO JOB,
12409  M00S08959.pfm     +++|*         WITH LOCAL FILE NAME *FILE NAME*.  DO NOT UPDATE ANY
12410  M00S08960.pfm     +++|*         ACCESS COUNTS OR DATES, SINCE THIS IS NOT A USER ACCESS.
12411  M00S08961.pfm     +++|
12412  M00S08962.pfm     +++|
12413  M00S08963.pfm     +++| UAT      BSS    0
Line S08964 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12414  M01S08964.242l642 ---|          ISTORE UCEB,(UJN UCE3)  FORCE BYPASS OF FCMD, FCAD UPDATE
12415  M01S08965.242l642 ---|          ISTORE UCEC,(UJN UCE4)  FORCE BYPASS OF FCAC UPDATE
Line S00004 Modification History
M01 (Added by) pfm26
Seq #  *Modification Id* Act 
----------------------------+
12416  M01S00004.pfm26   +++|          LDM    FNMD
12417  M01S00005.pfm26   +++|          SHN    21-1
12418  M01S00006.pfm26   +++|          MJN    ATT         IF WRITEABLE MODE ACCESS
12419  M01S00007.pfm26   +++|          ISTORE  UCEA,(UJN UCE3)  FORCE BYPASS OF DATE/TIME UPDATES
12420  M00S08966.pfm     +++|*         UJN    ATT         ATTACH FILE
12421  M00S08967.pfm     +++| ATT      SPACE  4,10
12422  M00S08968.pfm     +++|***       PROCESS *ATTACH* REQUEST.
12423  M00S08969.pfm     +++|*
12424  M00S08970.pfm     +++|*         ATTACH DIRECT ACCESS FILE *PF NAME* TO JOB, WITH LOCAL
12425  M00S08971.pfm     +++|*         FILE NAME *FILE NAME*.
12426  M00S08972.pfm     +++|
12427  M00S08973.pfm     +++|
12428  M00S08974.pfm     +++| ATT      BSS    0           ENTRY
Line S08975 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12429  M01S08975.242l642 ---|          LDM    FNMD
12430  M01S08976.242l642 ---|          SHN    21-1
12431  M01S08977.242l642 ---|          PJN    ATT1        IF NOT WRITEABLE MODE ACCESS
12432  M01S08978.242l642 ---|          LDC    STMI+CI     FORCE FCUD UPDATE (ALSO FCMD ON *ATTACH*)
12433  M01S08979.242l642 ---|          STM    UCEA
12434  M01S08980.242l642 ---| ATT1     LDM    FCDN,CI     CHECK DEVICE NUMBER
Line S01048 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12435  M01S01048.242l642 +++|          LDM    FCDN,CI     CHECK DEVICE NUMBER
12436  M00S08981.pfm     +++|          LPN    77
12437  M00S08982.pfm     +++|          ZJN    ATT3        IF FILE ON MASTER DEVICE
12438  M00S08983.pfm     +++|
12439  M00S08984.pfm     +++|*         PROCESS ALTERNATE DEVICE ACCESS.
12440  M00S08985.pfm     +++|
12441  M00S08986.pfm     +++|          STD    CM
12442  M00S08987.pfm     +++|          LDM    PFPN+4      SET FAMILY EST ORDINAL
12443  M00S08988.pfm     +++|          RJM    SDN         SEARCH FOR DEVICE NUMBER
12444  M00S08989.pfm     +++|          PJN    ATT2        IF DEVICE FOUND
Line S08990 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12445  M01S08990.242l642 ---|          ERROR  DAD,CH      *DIRECT ACCESS DEVICE ERROR.*
Line S01049 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12446  M01S01049.242l642 +++|          ADN    1
Line S01050 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
12447  M02S01050.ns2776  ---|          ZJN    ATT1        IF DEVICE NOT FOUND
12448  M02S01051.ns2776  ---|          RJM    PDV         PROCESS DEVICE STATUS
Line S00075 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
12449  M01S00075.ns2776  +++|          RJM    PDA         PROCESS DEVICE AVAILABILITY
Line S01052 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12450  M01S01052.242l642 +++| ATT1     ERROR  DAD,CH      * DIRECT ACCESS DEVICE ERROR.*
12451  M00S08991.pfm     +++|
Line S08992 Modification History
M01 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
12452  M01S08992.pfm78   ---| ATT2     LDD    CC
Line S00001 Modification History
M01 (Added by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
12453  M01S00001.pfm78   +++| ATT2     RJM    IRA         PRESET COMMON DECKS FOR FILE DEVICE
12454  M01S00002.pfm78   +++|          LDD    CC
12455  M00S08993.pfm     +++|          LMN    CCUA
12456  M00S08994.pfm     +++| ATT3     ZJN    ATT5        IF *UATTACH* REQUEST
12457  M00S08995.pfm     +++|          SFA    EST,T5      CHECK ERROR IDLE
12458  M00S08996.pfm     +++|          ADK    EQDE
12459  M00S08997.pfm     +++|          CRD    CM
12460  M00S08998.pfm     +++|          LDD    CM+4
12461  M00S08999.pfm     +++|          SHN    3
12462  M00S09000.pfm     +++|          ADN    ACGL
12463  M00S09001.pfm     +++|          CRD    CM
12464  M00S09002.pfm     +++|          LDD    CM+4
12465  M00S09003.pfm     +++|          LPN    20
12466  M00S09004.pfm     +++|          ZJN    ATT5        IF NO ERROR IDLE ON EQUIPMENT
12467  M00S09005.pfm     +++|          LDM    SSJS
12468  M00S09006.pfm     +++|          ZJN    ATT4        IF NOT *SSJ=* JOB
12469  M00S09007.pfm     +++|          LDM    PFSR
12470  M00S09008.pfm     +++|          LPN    77
12471  M00S09009.pfm     +++|          LMN    SRIE
12472  M00S09010.pfm     +++|          ZJN    ATT5        IF *IGNORE ERROR IDLE* SPECIAL REQUEST
12473  M00S09011.pfm     +++| ATT4     ERROR  PFN,CH      * DEVICE UNAVAILABLE.*
12474  M00S09012.pfm     +++|
Line S00115 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
12475  M01S00115.ns2415  +++| ATT4.1   ERROR  TNR,CH,,T5  * EQXXX,DNYY,TRACK NOT RESERVED.*
12476  M01S00116.ns2415  +++|
Line S09013 Modification History
M01 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
12477  M01S09013.pfm78   ---|*         INITIALIZE FOR SYSTEM SECTOR PROCESSING
Line S00003 Modification History
M01 (Added by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
12478  M01S00003.pfm78   +++|*         INITIALIZE FOR SYSTEM SECTOR PROCESSING.
12479  M00S09014.pfm     +++|
12480  M00S09015.pfm     +++| ATT5     LDM    FCBT,CI     SET FILE FIRST TRACK
12481  M00S09016.pfm     +++|          STD    P2
12482  M00S09017.pfm     +++|          STD    T6
12483  M00S09018.pfm     +++|          STM    PFFT
Line S09019 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12484  M01S09019.242l642 ---|          RJM    ITF         INTERLOCK TRACK CHAIN FOR FILE
Line S01053 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12485  M01S01053.242l642 +++|          RJM    ITC         INTERLOCK TRACK CHAIN FOR FILE
Line S00117 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
12486  M01S00117.ns2415  +++|          NJN    ATT4.1      IF TRACK NOT RESERVED
12487  M00S09020.pfm     +++|          LDD    T5          SAVE THE FILES EST ORDINAL
12488  M00S09021.pfm     +++|          STD    FS
12489  M00S09022.pfm     +++|          STM    PFEQ
Line S01054 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12490  M01S01054.242l642 +++|          AOM    DAIF        SET INTERLOCK FLAG
12491  M00S09023.pfm     +++|          RJM    CSL         CHECK SIZE LIMITS
Line S09024 Modification History
M01 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
12492  M01S09024.pfm78   ---|          LDN    SSTL        CHECK BOI/EOI VALIDATION ENABLED
12493  M01S09025.pfm78   ---|          CRD    CM
12494  M01S09026.pfm78   ---|          LDD    CM
12495  M01S09027.pfm78   ---|          SHN    21-4
12496  M01S09028.pfm78   ---|          MJN    ATT6        IF VALIDATION NOT ENABLED
12497  M01S09029.pfm78   ---|          RJM    IMS         INITIALIZE FOR *EOI* READ
Line S09030 Modification History
M01 (Removed by) 242l642
M02 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
12498  M02S09030.pfm78   ---|          SETMS  READ
Line S01055 Modification History
M01 (Added by) 242l642
M02 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
12499  M02S01055.pfm78   ---|          SETMS  IO
12500  M02S01056.pfm78   ---|          RJM    PDV         PROCESS DEVICE STATUS
Line S09031 Modification History
M01 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
12501  M01S09031.pfm78   ---|          LDC    BFMS        PERFORM BOI/EOI VALIDATION
12502  M01S09032.pfm78   ---|          RJM    RDS         READ EOI SECTOR
12503  M01S09033.pfm78   ---|          MJN    ATT7        IF READ ERROR
Line S09034 Modification History
M01 (Removed by) ns2460
M02 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
12504  M02S09034.pfm78   ---|          LDM    BFMS+FTEI   GET FIRST TRACK POINTER
Line S00001 Modification History
M01 (Added by) ns2460
M02 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
12505  M02S00001.pfm78   ---|          LDM    BFMS+FTEI   CHECK FIRST TRACK POINTER
Line S09035 Modification History
M01 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
12506  M01S09035.pfm78   ---|          LMD    P2
Line S09036 Modification History
M01 (Removed by) ns2460
M02 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
12507  M02S09036.pfm78   ---|          ZJN    ATT6        IF *BOI* MATCHES
Line S00002 Modification History
M01 (Added by) ns2460
M02 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
12508  M02S00002.pfm78   ---|          ADM    BFMS        CHECK LINKAGE BYTES
12509  M02S00003.pfm78   ---|          ADM    BFMS+1
12510  M02S00004.pfm78   ---|          ZJN    ATT6        IF EOI SECTOR AND IF BOI POINTER MATCHES
Line S09037 Modification History
M01 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
12511  M01S09037.pfm78   ---|          AOM    ATTB        FLAG BOI/EOI MISMATCH
12512  M01S09038.pfm78   ---|
12513  M01S09039.pfm78   ---| ATT6     LDD    P2          RESET FIRST TRACK
Line S00004 Modification History
M01 (Added by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
12514  M01S00004.pfm78   +++|          LDD    P2          RESET FIRST TRACK
12515  M00S09040.pfm     +++|          STD    T6
Line S09041 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12516  M01S09041.242l642 ---|          SETMS  READ
12517  M01S09042.242l642 ---|          AOM    UPIB        INDICATE THAT *BFMS* WAS USED
Line S01057 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12518  M01S01057.242l642 +++|          SETMS  IO
12519  M01S01058.242l642 +++|          RJM    PDV         PROCESS DEVICE STATUS
12520  M00S09043.pfm     +++|          LDN    0           DONT VERIFY FILE NAME IN SYSTEM SECTOR
12521  M00S09044.pfm     +++|          RJM    RSS         READ SYSTEM SECTOR
12522  M00S09045.pfm     +++|          ZJN    ATT8        IF LEGAL SYSTEM SECTOR
Line S09046 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12523  M01S09046.242l642 ---| ATT7     LDC    /ERRMSG/DAF*4  *EQXXX,DNYY, DIRECT ACCESS FILE ERROR.*
Line S01059 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12524  M01S01059.242l642 +++|          MJN    ATT7        IF READ ERROR
12525  M01S01060.242l642 +++|          LDC    /ERRMSG/DAF*4  *EQXXX,DNYY, DIRECT ACCESS FILE ERROR.*
12526  M01S01061.242l642 +++|          UJN    ATT9        PROCESS FILE ERROR
12527  M01S01062.242l642 +++|
12528  M01S01063.242l642 +++| ATT7     RJM    PES         PROCESS ERROR STATUS
12529  M01S01064.242l642 +++|          LDC    /ERRMSG/MSE*4  *EQXXX,DNYY, MASS STORAGE ERROR.*
12530  M00S09047.pfm     +++|          UJN    ATT9        PROCESS FILE ERROR
12531  M00S09048.pfm     +++|
12532  M00S09049.pfm     +++|*         CHECK FOR AN EXISTING UTILITY ACTIVE FILE CONDITION.
12533  M00S09050.pfm     +++|
12534  M00S09051.pfm     +++| ATT8     LDM    CASS        CHECK CURRENT ACCESS MODE
12535  M00S09052.pfm     +++|          SHN    21-6
12536  M00S09053.pfm     +++|          PJN    ATT11       IF UTILITY MODE NOT SET
12537  M00S09054.pfm     +++|          LDD    CC          CHECK FOR ANOTHER UTILITY ATTACH REQUEST
12538  M00S09055.pfm     +++|          LMN    CCUA
12539  M00S09056.pfm     +++|          NJN    ATT11       IF NOT UTILITY ATTACH
12540  M00S09057.pfm     +++|          LDN    /ERRMSG/FBS*4  * FILE BUSY.*
12541  M00S09058.pfm     +++| ATT9     LJM    PFE         PROCESS FILE ERROR
12542  M00S09059.pfm     +++|
12543  M00S09060.pfm     +++| ATT10    LDC    /ERRMSG/FSE*4  * FILE BOI/EOI/UI MISMATCH.*
12544  M00S09061.pfm     +++|          UJN    ATT9        PROCESS FILE ERROR
12545  M00S09062.pfm     +++|
12546  M00S09063.pfm     +++|*         PROCESS USER INDEX/CREATION DATE VALIDATION.
12547  M00S09064.pfm     +++|
12548  M00S09065.pfm     +++| ATT11    LDM    FCUI,CI     COMPARE USER INDEX FIELDS
12549  M00S09066.pfm     +++|          LMM    CTSS+FCUI
12550  M00S09067.pfm     +++|          LPN    77
12551  M00S09068.pfm     +++|          NJN    ATT10       IF MISMATCH ON USER INDEX
12552  M00S09069.pfm     +++|          LDM    FCUI+1,CI
12553  M00S09070.pfm     +++|          LMM    CTSS+FCUI+1
12554  M00S09071.pfm     +++|          NJN    ATT10       IF MISMATCH ON USER INDEX
12555  M00S09072.pfm     +++|          LDN    2           SET UP CHECK ON CREATION DATE
12556  M00S09073.pfm     +++|          STD    P0
12557  M00S09074.pfm     +++| ATT12    LDM    FCCD+2,CI
12558  M00S09075.pfm     +++| ATTA     EQU    *-1
12559  M00S09076.pfm     +++|          LMM    CTSS+FCCD,P0
12560  M00S09077.pfm     +++|          NJN    ATT10       IF NO MATCH ON CREATION DATE
12561  M00S09078.pfm     +++|          SOM    ATTA
12562  M00S09079.pfm     +++|          SOD    P0
12563  M00S09080.pfm     +++|          PJN    ATT12       IF MORE DATA TO CHECK
12564  M00S09081.pfm     +++|
Line S09082 Modification History
M01 (Removed by) ns2649
Seq #  *Modification Id* Act 
----------------------------+
12565  M01S09082.ns2649  ---|*         PROCESS RECOVERY ERRORS.
Line S00003 Modification History
M01 (Added by) ns2649
Seq #  *Modification Id* Act 
----------------------------+
12566  M01S00003.ns2649  +++|*         PROCESS ERROR STATUS FIELDS.
12567  M00S09083.pfm     +++|
Line S09084 Modification History
M01 (Removed by) ns2649
Seq #  *Modification Id* Act 
----------------------------+
12568  M01S09084.ns2649  ---|          LDM    CTSS+FCEC   CHECK ERROR STATUS
12569  M01S09085.ns2649  ---|          SCN    77
Line S00004 Modification History
M01 (Added by) ns2649
Seq #  *Modification Id* Act 
----------------------------+
12570  M01S00004.ns2649  +++|          LDM    FCEC,CI     GET ERROR STATUS FROM PFC
12571  M01S00005.ns2649  +++|          SHN    -6
12572  M01S00006.ns2649  +++|          STD    T1
12573  M01S00007.ns2649  +++|          RAM    ATTC
12574  M01S00008.ns2649  +++|          LDM    CTSS+FCEC   GET ERROR STATUS FROM SYSTEM SECTOR
12575  M01S00009.ns2649  +++|          SHN    -6
12576  M00S09086.pfm     +++|          STD    P0
Line S09087 Modification History
M01 (Removed by) ns2649
Seq #  *Modification Id* Act 
----------------------------+
12577  M01S09087.ns2649  ---|          ADM    FCEC,CI
12578  M01S09088.ns2649  ---|          SCN    77
12579  M01S09089.ns2649  ---|          ZJN    ATT14       IF NO ERROR STATUS SET
12580  M01S09090.ns2649  ---|          STD    T0          SAVE ERROR STATUS
12581  M01S09091.ns2649  ---|          LDD    P0
12582  M01S09092.ns2649  ---|          ZJN    ATT13       IF ERROR STATUS NOT IN SYSTEM SECTOR
12583  M01S09093.ns2649  ---|          STD    T1          COMBINE BOTH FIELDS OF STATUS
12584  M01S09094.ns2649  ---|          LDD    T0
12585  M01S09095.ns2649  ---|          LMD    P0
Line S00010 Modification History
M01 (Added by) ns2649
Seq #  *Modification Id* Act 
----------------------------+
12586  M01S00010.ns2649  +++|          NJN    ATT12.1     IF ERROR STATUS SET IN SYSTEM SECTOR
12587  M01S00011.ns2649  +++|          LDD    T1
12588  M01S00012.ns2649  +++|          NJN    ATT13       IF ERROR STATUS SET IN PFC
12589  M01S00013.ns2649  +++|          UJN    ATT14       CHECK FILE MODE
12590  M01S00014.ns2649  +++|
12591  M01S00015.ns2649  +++| ATT12.1  SCN    **          COMBINE BOTH ERROR STATUS FIELDS
12592  M01S00016.ns2649  +++|*         SCN    (T1)
12593  M01S00017.ns2649  +++| ATTC     EQU    *-1
12594  M00S09096.pfm     +++|          LMD    T1
Line S00018 Modification History
M01 (Added by) ns2649
Seq #  *Modification Id* Act 
----------------------------+
12595  M01S00018.ns2649  +++|          SHN    6
12596  M00S09097.pfm     +++|          STD    P0
12597  M00S09098.pfm     +++|          LDM    FCEC,CI
12598  M00S09099.pfm     +++|          LPN    77
12599  M00S09100.pfm     +++|          STM    CTSS+FCEC   CLEAR CODE IN SYSTEM SECTOR
12600  M00S09101.pfm     +++|          LMD    P0
12601  M00S09102.pfm     +++|          STM    FCEC,CI     SET ERROR CODE IN CATALOG
Line S01065 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12602  M01S01065.242l642 +++|          ENDMS
Line S09103 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12603  M01S09103.242l642 ---|          AOM    ATTC        FLAG CATALOG ENTRY UPDATE REQUIRED
Line S01066 Modification History
M01 (Added by) 242l642
M02 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
12604  M02S01066.pfm78   ---|          LDD    EQ          SET MASTER EST ORDINAL
Line S00005 Modification History
M01 (Added by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
12605  M01S00005.pfm78   +++|          LDD    EQ          SET MASTER DEVICE EST ORDINAL
Line S01067 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12606  M01S01067.242l642 +++|          STD    T5
12607  M01S01068.242l642 +++|          LDD    CB          REWRITE CATALOG ENTRY
12608  M01S01069.242l642 +++|          RJM    WBI
Line S00001 Modification History
M01 (Added by) pfm42
Seq #  *Modification Id* Act 
----------------------------+
12609  M01S00001.pfm42   +++|          ENDMS
Line S01070 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12610  M01S01070.242l642 +++|          LDD    FS          RESET FILE EST ORDINAL
12611  M01S01071.242l642 +++|          STD    T5
12612  M01S01072.242l642 +++|          LDD    P2
12613  M01S01073.242l642 +++|          STD    T6
Line S09104 Modification History
M01 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
12614  M01S09104.pfm78   ---| ATT13    UJN    ATT15       REWRITE SYSTEM SECTOR
Line S00006 Modification History
M01 (Added by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
12615  M01S00006.pfm78   +++| ATT13    LJM    ATT15       REWRITE SYSTEM SECTOR
12616  M00S09105.pfm     +++|
12617  M00S09106.pfm     +++|*         CHECK FILE MODE AND UPDATE FIELDS IN SYSTEM SECTOR.
12618  M00S09107.pfm     +++|
12619  M00S09108.pfm     +++| ATT14    RJM    CFM         CHECK FILE MODE
Line S09109 Modification History
M01 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
12620  M01S09109.pfm78   ---| ATTB     LDN    0           CHECK PRIOR ERROR
12621  M01S09110.pfm78   ---|*         LDN    1           (SET FOR BOI/EOI MISMATCH)
12622  M01S09111.pfm78   ---|          NJP    ATT10       IF BOI/EOI/UI MISMATCH DETECTED
12623  M00S09112.pfm     +++|
12624  M00S09113.pfm     +++|*         SAVE JSN, MAINFRAME ID, AND DATE/TIME FOR WRITEABLE ACCESS.
12625  M00S09114.pfm     +++|
12626  M00S09115.pfm     +++|          LDM    FNMD        CHECK MODE REQUESTED
12627  M00S09116.pfm     +++|          SHN    21-1
Line S09117 Modification History
M01 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
12628  M01S09117.pfm78   ---|          PJN    ATT15       IF NOT WRITEABLE MODE ACCESS
Line S00007 Modification History
M01 (Added by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
12629  M01S00007.pfm78   +++|          PJN    ATT14.1     IF NOT WRITEABLE MODE ACCESS
12630  M00S09118.pfm     +++|          LDN    PDTL        SET CURRENT DATE AND TIME
12631  M00S09119.pfm     +++|          CRM    WDSS,ON
12632  M00S09120.pfm     +++|          LDK    MMFL        GET MAINFRAME ID
12633  M00S09121.pfm     +++|          CRD    CM
12634  M00S09122.pfm     +++|          LDD    CM          SET MAINFRAME ID
12635  M00S09123.pfm     +++|          STM    WDSS
12636  M00S09124.pfm     +++|          LDD    CP          GET EJT ORDINAL
12637  M00S09125.pfm     +++|          ADN    TFSW
12638  M00S09126.pfm     +++|          CRD    CM
12639  M00S09127.pfm     +++|          SFA    EJT,CM      SET *JSNE* WORD OF EJT
12640  M00S09128.pfm     +++|          ADK    JSNE
12641  M00S09129.pfm     +++|          CRM    WJSS,ON
12642  M00S09130.pfm     +++|
Line S00008 Modification History
M01 (Added by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
12643  M01S00008.pfm78   +++|*         CHECK FOR BOI/EOI MISMATCH.  THIS IS DONE AFTER THE CALL TO
12644  M01S00009.pfm78   +++|*         *CFM*, TO AVOID THE CHECK IF THE FILE IS CURRENTLY ATTACHED
12645  M01S00010.pfm78   +++|*         IN WRITE MODE.  THE EOI MAY NOT BE VALID IN THAT CASE.
12646  M01S00011.pfm78   +++|
12647  M01S00012.pfm78   +++|*         ROUTINES RESIDENT IN *BUF2* MAY NOT BE USED AFTER THIS POINT.
12648  M01S00013.pfm78   +++|
12649  M01S00014.pfm78   +++| ATT14.1  LDN    SSTL        CHECK BOI/EOI VALIDATION ENABLED
12650  M01S00015.pfm78   +++|          CRD    CM
12651  M01S00016.pfm78   +++|          LDD    CM
12652  M01S00017.pfm78   +++|          SHN    21-4
12653  M01S00018.pfm78   +++|          MJN    ATT15       IF VALIDATION NOT ENABLED
12654  M01S00019.pfm78   +++|          LDD    P2          SET FIRST TRACK
12655  M01S00020.pfm78   +++|          STD    T6
12656  M01S00021.pfm78   +++|          RJM    SEI         SKIP TO END OF INFORMATION
12657  M01S00022.pfm78   +++|          SETMS  IO
12658  M01S00023.pfm78   +++|          RJM    PDV         PROCESS DEVICE STATUS
12659  M01S00024.pfm78   +++|          LDC    BUF2        PERFORM BOI/EOI VALIDATION
12660  M01S00025.pfm78   +++|          RJM    RDS         READ EOI SECTOR
12661  M01S00026.pfm78   +++|          MJP    ATT7        IF READ ERROR
12662  M01S00027.pfm78   +++|          LDM    BUF2+FTEI   CHECK FIRST TRACK POINTER
12663  M01S00028.pfm78   +++|          LMD    P2
12664  M01S00029.pfm78   +++|          ADM    BUF2        CHECK LINKAGE BYTES
12665  M01S00030.pfm78   +++|          ADM    BUF2+1
12666  M01S00031.pfm78   +++|          NJP    ATT10       IF BOI/EOI MISMATCH
12667  M01S00032.pfm78   +++|
12668  M00S09131.pfm     +++|*         REWRITE SYSTEM SECTOR.
12669  M00S09132.pfm     +++|
12670  M00S09133.pfm     +++| ATT15    LDD    MA          SET PROPER FILE TYPE IN SYSTEM SECTOR
12671  M00S09134.pfm     +++|          CWD    FN
12672  M00S09135.pfm     +++|          CRM    FNSS,ON
12673  M00S09136.pfm     +++|          LDC    PMFT*100
12674  M00S09137.pfm     +++|          STM    FNSS+4
Line S00033 Modification History
M01 (Added by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
12675  M01S00033.pfm78   +++|          LDD    P2          RESET FIRST TRACK
12676  M01S00034.pfm78   +++|          STD    T6
Line S09138 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12677  M01S09138.242l642 ---|          SETMS  WRITE,RW
Line S01074 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12678  M01S01074.242l642 +++|          SETMS  IO,RW
12679  M01S01075.242l642 +++|          RJM    PDV         PROCESS DEVICE STATUS
12680  M00S09139.pfm     +++|          RJM    WSS         UPDATE SYSTEM SECTOR
Line S09140 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12681  M01S09140.242l642 ---|
12682  M01S09141.242l642 ---|*         RESET TO MASTER DEVICE.
12683  M01S09142.242l642 ---|
12684  M01S09143.242l642 ---|          ENDMS
12685  M01S09144.242l642 ---|          LDD    T6          RELEASE FILE INTERLOCK
12686  M01S09145.242l642 ---|          RJM    CTI
12687  M01S09146.242l642 ---|          LDD    T5          SET FILE EST ORDINAL
12688  M01S09147.242l642 ---|          LMD    EQ
12689  M01S09148.242l642 ---|          ZJN    ATT16       IF SAME EST ORDINAL
12690  M01S09149.242l642 ---|          LDD    EQ          RESET EST ORDINAL
12691  M01S09150.242l642 ---|          STD    T5
12692  M01S09151.242l642 ---|          RJM    IRA         INITIALIZE *COMPSEI*
12693  M01S09152.242l642 ---|          SETMS  WRITE,RW
12694  M01S09153.242l642 ---|
12695  M01S09154.242l642 ---|*         UPDATE CATALOG IF RECOVERY ERROR DETECTED.
12696  M01S09155.242l642 ---|
12697  M01S09156.242l642 ---| ATT16    LDN    0
12698  M01S09157.242l642 ---|*         LDN    1           (CATALOG IMAGE UPDATE REQUIRED)
12699  M01S09158.242l642 ---| ATTC     EQU    *-1
12700  M01S09159.242l642 ---|          ZJN    ATT17       IF NO UPDATE REQUIRED
12701  M01S09160.242l642 ---|          LDD    CB          REWRITE CATALOG
12702  M01S09161.242l642 ---|          RJM    WBI
12703  M01S09162.242l642 ---| ATT17    LDM    FCEC,CI     CHECK CATALOG ERROR STATUS
Line S01076 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12704  M01S01076.242l642 +++|          PJN    ATT15.1     IF NO ERROR
12705  M01S01077.242l642 +++|          RJM    PES         PROCESS ERROR STATUS
12706  M01S01078.242l642 +++|          LDC    /ERRMSG/MSE*4  *EQXXX,DNYY, MASS STORAGE ERROR.*
12707  M01S01079.242l642 +++|          LJM    PFE         PROCESS FILE ERROR
12708  M01S01080.242l642 +++|
12709  M01S01081.242l642 +++| ATT15.1  ENDMS
12710  M01S01082.242l642 +++|          LDD    T6          RELEASE FILE INTERLOCK
12711  M01S01083.242l642 +++|          RJM    CTI
12712  M01S01084.242l642 +++|          LDN    0           CLEAR INTERLOCK FLAG
12713  M01S01085.242l642 +++|          STM    DAIF
12714  M01S01086.242l642 +++|
12715  M01S01087.242l642 +++|*         PROCESS CATALOG ERROR STATUS.
12716  M01S01088.242l642 +++|
12717  M01S01089.242l642 +++|          LDM    FCEC,CI     CHECK CATALOG ERROR STATUS
12718  M00S09163.pfm     +++|          SHN    0-4         FORM ERROR CODE
12719  M00S09164.pfm     +++|          LPN    34
Line S09165 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12720  M01S09165.242l642 ---|          ZJN    ATT18       IF NO ERROR
Line S01090 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12721  M01S01090.242l642 +++|          ZJN    ATT16       IF NO ERROR
12722  M00S09166.pfm     +++|          SBN    4
12723  M00S09167.pfm     +++|          RAM    ATTD        SET ERROR CODE FOR MESSAGE
12724  M00S09168.pfm     +++| ATTD     EQU    *+2
12725  M00S09169.pfm     +++|          ERROR  EDA         * ERROR IN FILE DATA.*
12726  M00S09170.pfm     +++|*         ERROR  EPT         * ERROR IN PERMIT DATA.*
12727  M00S09171.pfm     +++|*         ERROR  EDP         * DATA/PERMIT ERRORS.*
12728  M00S09172.pfm     +++|*         ERROR  FLC         * EOI CHANGED BY RECOVERY.*
12729  M00S09173.pfm     +++|
12730  M00S09174.pfm     +++|          ERRNZ  /ERRMSG/EPT-/ERRMSG/EDA-1  ERRORS MUST BE CONTIGUOUS
12731  M00S09175.pfm     +++|          ERRNZ  /ERRMSG/EDP-/ERRMSG/EPT-1  ERRORS MUST BE CONTIGUOUS
12732  M00S09176.pfm     +++|          ERRNZ  /ERRMSG/FLC-/ERRMSG/EDP-1  ERRORS MUST BE CONTIGUOUS
12733  M00S09177.pfm     +++|
Line S01091 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12734  M01S01091.242l642 +++|*         CREATE FNT/FST FOR FILE ATTACHED.
12735  M01S01092.242l642 +++|
12736  M01S01093.242l642 +++| ATT16    RJM    CFE         CREATE FNT/FST ENTRY
12737  M01S01094.242l642 +++|
12738  M01S01095.242l642 +++|*         RESET TO MASTER DEVICE.
12739  M01S01096.242l642 +++|
12740  M01S01097.242l642 +++|          LDD    T5          CHECK FILE EST ORDINAL
12741  M01S01098.242l642 +++|          LMD    EQ
Line S01099 Modification History
M01 (Added by) 242l642
M02 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
12742  M02S01099.pfm78   ---|          ZJN    ATT17       IF SAME EST ORDINAL
Line S00035 Modification History
M01 (Added by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
12743  M01S00035.pfm78   +++|          ZJN    ATT17       IF FILE RESIDES ON MASTER DEVICE
Line S01100 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12744  M01S01100.242l642 +++|          LDD    EQ          RESET EST ORDINAL
12745  M01S01101.242l642 +++|          STD    T5
Line S01102 Modification History
M01 (Added by) 242l642
M02 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
12746  M02S01102.pfm78   ---|          RJM    IRA         INITIALIZE *COMPSEI*
Line S00036 Modification History
M01 (Added by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
12747  M01S00036.pfm78   +++|          RJM    IRA         PRESET COMMON DECKS FOR MASTER DEVICE
Line S01103 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12748  M01S01103.242l642 +++|
12749  M00S09178.pfm     +++|*         UPDATE PERMITS AND CATALOG ENTRY.
12750  M00S09179.pfm     +++|
Line S09180 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12751  M01S09180.242l642 ---| ATT18    LDD    CC          CHECK COMMAND CODE
Line S01104 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12752  M01S01104.242l642 +++| ATT17    LDD    CC          CHECK COMMAND CODE
12753  M00S09181.pfm     +++|          LMN    CCUA
Line S09182 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12754  M01S09182.242l642 ---|          ZJN    ATT19       IF *UATTACH* REQUEST
Line S01105 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12755  M01S01105.242l642 +++|          ZJN    ATT18       IF *UATTACH* REQUEST
12756  M01S01106.242l642 +++|          LDD    PB
12757  M01S01107.242l642 +++|          ZJN    ATT19       IF NO PERMIT BUFFER
12758  M01S01108.242l642 +++|          EXECUTE  3PE       LOAD PERMIT UPDATE ROUTINES
12759  M01S01109.242l642 +++|          AOM    UPIB        INDICATE THAT *BFMS* WAS USED
12760  M00S09183.pfm     +++|          RJM    UPI         UPDATE PERMISSION INFORMATION
Line S01110 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12761  M01S01110.242l642 +++|          UJN    ATT19       CHECK ACCESS MODE
12762  M01S01111.242l642 +++|
12763  M01S01112.242l642 +++| ATT18    ISTORE UCEB,(UJN UCE3)  FORCE BYPASS OF FCMD, FCAD UPDATE
12764  M01S01113.242l642 +++|          ISTORE UCEC,(UJN UCE4)  FORCE BYPASS OF FCAC UPDATE
12765  M00S09184.pfm     +++| ATT19    LDM    FNMD        CHECK MODE REQUESTED
12766  M00S09185.pfm     +++|          SHN    21-1
12767  M00S09186.pfm     +++|          PJN    ATT20       IF NOT WRITEABLE MODE ACCESS
Line S01114 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12768  M01S01114.242l642 +++|          LDC    STMI+CI     FORCE FCUD UPDATE (ALSO FCMD ON *ATTACH*)
12769  M01S01115.242l642 +++|          STM    UCEA
12770  M00S09187.pfm     +++|          LDN    0           CLEAR FILE LENGTH
12771  M00S09188.pfm     +++|          STM    FCLF,CI
12772  M00S09189.pfm     +++|          STM    FCLF+1,CI
Line S09190 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
12773  M01S09190.253l688 ---|          LDM    FCAT,CI     CHECK ALTERNATE STORAGE ADDRESS TYPE
12774  M01S09191.253l688 ---|          LPN    77
12775  M01S09192.253l688 ---|          ZJN    ATT21       IF NO ALTERNATE STORAGE ADDRESS
12776  M01S09193.253l688 ---|          LDM    FCAF,CI     SET ALTERNATE IMAGE OBSOLETE INDICATOR
12777  M01S09194.253l688 ---|          SCN    AFOBSM
12778  M01S09195.253l688 ---|          LMN    AFOBSM
12779  M01S09196.253l688 ---|          STM    FCAF,CI
Line S00380 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
12780  M01S00380.253l688 +++|          LDD    CI          CLEAR ALTERNATE STORAGE INFORMATION IN PFC
12781  M01S00381.253l688 +++|          RAM    ATTH+1
12782  M01S00382.253l688 +++|          LDN    ZERL
12783  M01S00383.253l688 +++| ATTH     CRM    FCAF,ON
12784  M01S00384.253l688 +++|          LDD    CI          CLEAR TAPE ALTERNATE STORAGE INFORMATION
12785  M01S00385.253l688 +++|          RAM    ATTI+1
12786  M01S00386.253l688 +++|          LDN    ZERL
12787  M01S00387.253l688 +++| ATTI     CRM    FCTF,ON
12788  M00S09197.pfm     +++|          UJN    ATT21       UPDATE CATALOG ENTRY
12789  M00S09198.pfm     +++|
12790  M00S09199.pfm     +++| ATT20    LDM    MODE
12791  M00S09200.pfm     +++|          LPN    37
12792  M00S09201.pfm     +++|          LMN    PTRD
12793  M00S09202.pfm     +++|          NJN    ATT21       IF NOT READ MODE ACCESS
12794  M00S09203.pfm     +++|          LDD    LF          UPDATE FILE LENGTH IN CATALOG
12795  M00S09204.pfm     +++|          STM    FCLF,CI
12796  M00S09205.pfm     +++|          LDD    LF+1
12797  M00S09206.pfm     +++|          STM    FCLF+1,CI
12798  M00S09207.pfm     +++| ATT21    RJM    UCE         UPDATE CATALOG ENTRY
12799  M00S09208.pfm     +++|          ENDMS
12800  M00S09209.pfm     +++|          RJM    CCI         CLEAR CATALOG INTERLOCK
12801  M00S09210.pfm     +++|
12802  M00S09211.pfm     +++|*         UPDATE FET WITH PARAMETERS FROM CATALOG.
12803  M00S09212.pfm     +++|
12804  M00S09213.pfm     +++|          LDC    PFSN        SET FILE NAME
12805  M00S09214.pfm     +++|          RJM    SFN
12806  M00S09215.pfm     +++|          LDM    PFSP
12807  M00S09216.pfm     +++|          ZJN    ATT22       IF SECURITY PROCESSING BIT NOT SET
12808  M00S09217.pfm     +++|          RJM    SFA         RETURN ACCESS LEVEL TO FET
12809  M00S09218.pfm     +++|          ADN    CFAL
12810  M00S09219.pfm     +++|          CRD    CM
12811  M00S09220.pfm     +++|          LDM    FCAL,CI
12812  M00S09221.pfm     +++|          LMD    CM+1
12813  M00S09222.pfm     +++|          LPN    7
12814  M00S09223.pfm     +++|          LMD    CM+1
12815  M00S09224.pfm     +++|          STD    CM+1
12816  M00S09225.pfm     +++|          RJM    SFA
12817  M00S09226.pfm     +++|          ADN    CFAL
12818  M00S09227.pfm     +++|          CWD    CM
12819  M00S09228.pfm     +++| ATT22    LDD    CI          SET USER CONTROL WORD ADDRESS
12820  M00S09229.pfm     +++|          RAM    ATTE
12821  M00S09230.pfm     +++|          LDN    CFUC
12822  M00S09231.pfm     +++|          SBM    FETL
12823  M00S09232.pfm     +++|          PJN    ATT23       IF FET TOO SHORT
12824  M00S09233.pfm     +++|          RJM    SFA
12825  M00S09234.pfm     +++|          ADN    CFUC
12826  M00S09235.pfm     +++|          CWM    FCCW,ON     RETURN USER CONTROL WORD TO FET
12827  M00S09236.pfm     +++| ATTE     EQU    *-1
12828  M00S09237.pfm     +++|
12829  M00S09238.pfm     +++|*         IF *UATTACH* REQUEST, WRITE COPY OF THE *PFC* ENTRY.
12830  M00S09239.pfm     +++|
12831  M00S09240.pfm     +++| ATT23    LDD    CC          CHECK COMMAND CODE
12832  M00S09241.pfm     +++|          LMN    CCUA
12833  M00S09242.pfm     +++|          ZJN    ATT24       IF *UATTACH* COMMAND
Line S09243 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12834  M01S09243.242l642 ---|          LDM    FNMD        SETUP FNT MODE STATUS
12835  M01S09244.242l642 ---|          LPN    35
12836  M01S09245.242l642 ---|          STM    ATTH
12837  M01S09246.242l642 ---|          LJM    ATT26       SET UP FNT
Line S01116 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12838  M01S01116.242l642 +++|          LJM    ATT26       TERMINATE PROGRAM
12839  M00S09247.pfm     +++|
Line S09248 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12840  M01S09248.242l642 ---| ATT24    LDC    LDNI        SET FOR SYSTEM SECTOR ACCESS
12841  M01S09249.242l642 ---|          STM    ATTG
12842  M01S09250.242l642 ---|          LDC    4000
12843  M01S09251.242l642 ---|          RAM    ATTI
12844  M01S09252.242l642 ---|          RJM    SFA         READ (FET+1) *FIRST* POINTER
Line S01117 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12845  M01S01117.242l642 +++| ATT24    RJM    SFA         READ FET *FIRST* POINTER
12846  M00S09253.pfm     +++|          ADN    1
12847  M00S09254.pfm     +++|          CRD    CM
12848  M00S09255.pfm     +++|          LDD    CM+3        VERIFY *FIRST* POINTER
12849  M00S09256.pfm     +++|          LPN    77
12850  M00S09257.pfm     +++|          SHN    6
12851  M00S09258.pfm     +++|          ADD    RA
12852  M00S09259.pfm     +++|          SHN    6
12853  M00S09260.pfm     +++|          ADD    CM+4
12854  M00S09261.pfm     +++|          ADN    NWCE
12855  M00S09262.pfm     +++|          SBN    1
12856  M00S09263.pfm     +++|          SHN    -6
12857  M00S09264.pfm     +++|          SBD    RA
12858  M00S09265.pfm     +++|          SBD    FL
12859  M00S09266.pfm     +++|          MJN    ATT25       IF BUFFER WITHIN JOB FL
12860  M00S09267.pfm     +++|          ERROR  ILR,CH,IW,,EC3  * PFM INCORRECT REQUEST.*
12861  M00S09268.pfm     +++|
12862  M00S09269.pfm     +++| ATT25    LDD    CI          COPY CATALOG ENTRY TO BUFFER
12863  M00S09270.pfm     +++|          STM    ATTF
12864  M00S09271.pfm     +++|          LDN    NWCE        NUMBER OF PFC WORDS
12865  M00S09272.pfm     +++|          STD    T1
12866  M00S09273.pfm     +++|          LDD    CM+3        FORM *CM* ADDRESS
12867  M00S09274.pfm     +++|          LPN    77
12868  M00S09275.pfm     +++|          SHN    6
12869  M00S09276.pfm     +++|          ADD    RA
12870  M00S09277.pfm     +++|          SHN    6
12871  M00S09278.pfm     +++|          ADD    CM+4
12872  M00S09279.pfm     +++|          CWM    **,T1
12873  M00S09280.pfm     +++| ATTF     EQU    *-1         (CATALOG ENTRY ADDRESS)
Line S09281 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12874  M01S09281.242l642 ---|          LDM    FNMD        SETUP FNT MODE STATUS FOR *UATTACH*
12875  M01S09282.242l642 ---|          LPN    35
12876  M01S09283.242l642 ---|          LMN    2
12877  M01S09284.242l642 ---|          STM    ATTH
12878  M01S09285.242l642 ---|
12879  M01S09286.242l642 ---|*         CREATE FNT/FST FOR FILE ATTACHED.
12880  M01S09287.242l642 ---|
12881  M01S09288.242l642 ---| ATT26    LDM    FNTA        SET FNT/FST
12882  M01S09289.242l642 ---|          STD    FA
12883  M01S09290.242l642 ---|          LDM    PFEQ        SET EST ORDINAL FOR FILE
12884  M01S09291.242l642 ---|          STD    FS
12885  M01S09292.242l642 ---|          LDM    FCBT,CI     SET FIRST TRACK FOR FILE
12886  M01S09293.242l642 ---|          STD    FS+1
12887  M01S09294.242l642 ---|          STD    FS+2
12888  M01S09295.242l642 ---| ATTG     LDN    FSMS        SET SECTOR
12889  M01S09296.242l642 ---|*         LDN    0           (*UATTACH* REQUEST)
12890  M01S09297.242l642 ---|          STD    FS+3
12891  M01S09298.242l642 ---|          LDC    4           SET OPERATION COMPLETE
12892  M01S09299.242l642 ---|*         LDC    4004        (*UATTACH* REQUEST)
12893  M01S09300.242l642 ---| ATTI     EQU    *-1
12894  M01S09301.242l642 ---|          STD    FS+4
12895  M01S09302.242l642 ---|          LDC    PMFT*100    SET FILE TYPE
12896  M01S09303.242l642 ---|          RAD    FN+4
12897  M01S09304.242l642 ---|          STM    PFSN+4
12898  M01S09305.242l642 ---|          LDC    **          SET FNT STATUS MODE
12899  M01S09306.242l642 ---| ATTH     EQU    *-1
12900  M01S09307.242l642 ---|          RAM    PFSN+3
12901  M01S09308.242l642 ---|          STD    FN+3
12902  M01S09309.242l642 ---|          LDN    ZERL        SET FILE SIZE CONTROL
12903  M01S09310.242l642 ---|          CRD    CM
12904  M01S09311.242l642 ---|          LDM    PFUC        SET *FS* INDEX IN *FUTL* WORD
12905  M01S09312.242l642 ---|          SHN    -11
12906  M01S09313.242l642 ---|          SHN    6
12907  M01S09314.242l642 ---|          STD    CM+2
12908  M01S09315.242l642 ---|          LDM    FCAL,CI     SET ACCESS LEVEL IN FNT
12909  M01S09316.242l642 ---|          STM    LFAL
12910  M01S09317.242l642 ---|          RAD    CM+2
12911  M01S09318.242l642 ---|          NFA    FA,R        RESTORE FNT ENTRY
12912  M01S09319.242l642 ---|          ADK    FNTL
12913  M01S09320.242l642 ---|          CWD    FN
12914  M01S09321.242l642 ---|          ADN    FSTL-FNTL
12915  M01S09322.242l642 ---|          CWD    FS
12916  M01S09323.242l642 ---|          ADN    FUTL-FSTL
12917  M01S09324.242l642 ---|          CWD    CM
12918  M01S09325.242l642 ---|          LDM    PFEQ        INCREMENT PERMANENT FILE USER COUNT
12919  M01S09326.242l642 ---|          STD    CM+1
12920  M01S09327.242l642 ---|          LDN    IUCS
12921  M01S09328.242l642 ---|          STD    CM+3
12922  M01S09329.242l642 ---|          MONITOR  STBM
12923  M01S09330.242l642 ---|          LJM    TRP         TERMINATE PROGRAM
Line S01118 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
12924  M02S01118.ns2414  ---| ATT26    EXECUTE  3PT       TERMINATE PROGRAM
Line S00115 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
12925  M01S00115.ns2414  +++| ATT26    EXECUTE  3PU       TERMINATE PROGRAM
12926  M00S09331.pfm     +++|          TITLE  SUBROUTINES.
Line S01119 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
12927  M01S01119.242l642 +++| CFE      SPACE  4,20
12928  M01S01120.242l642 +++|**        CFE - CREATE FNT/FST ENTRY FOR ATTACHED FILE.
12929  M01S01121.242l642 +++|*
12930  M01S01122.242l642 +++|*         ENTRY  (CC) = COMMAND CODE.
12931  M01S01123.242l642 +++|*                (CI) = POINTER TO CATALOG ENTRY FOR FILE.
12932  M01S01124.242l642 +++|*                (FNMD) = FNT STATUS MODE.
12933  M01S01125.242l642 +++|*                (FNTA) = FNT ADDRESS IN NFL.
12934  M01S01126.242l642 +++|*                (PFEQ) = EST ORDINAL FOR FILE.
12935  M01S01127.242l642 +++|*                (PFSN) = SYSTEM FILE NAME.
12936  M01S01128.242l642 +++|*                (PFUC) = USER CONTROLS.
12937  M01S01129.242l642 +++|*
12938  M01S01130.242l642 +++|*         EXIT   FNT/FST WRITTEN TO CENTRAL MEMORY.
12939  M01S01131.242l642 +++|*                PERMANENT FILE USER COUNT INCREMENTED.
12940  M01S01132.242l642 +++|*
12941  M01S01133.242l642 +++|*         USES   FA, CM - CM+4, FN - FN+4, FS - FS+4.
12942  M01S01134.242l642 +++|*
12943  M01S01135.242l642 +++|*         CALLS  SFN.
12944  M01S01136.242l642 +++|*
12945  M01S01137.242l642 +++|*         MACROS MONITOR, NFA.
12946  M01S01138.242l642 +++|
12947  M01S01139.242l642 +++|
12948  M01S01140.242l642 +++| CFE      SUBR               ENTRY/EXIT
12949  M01S01141.242l642 +++|          LDC    PFSN        SET FILE NAME
12950  M01S01142.242l642 +++|          RJM    SFN
12951  M01S01143.242l642 +++|          LDC    PMFT*100    SET FILE TYPE
12952  M01S01144.242l642 +++|          RAD    FN+4
12953  M01S01145.242l642 +++|          LDM    FNTA        SET FNT ADDRESS
12954  M01S01146.242l642 +++|          STD    FA
12955  M01S01147.242l642 +++|          LDM    PFEQ        SET EST ORDINAL FOR FILE
12956  M01S01148.242l642 +++|          STD    FS
12957  M01S01149.242l642 +++|          LDM    FCBT,CI     SET FIRST TRACK FOR FILE
12958  M01S01150.242l642 +++|          STD    FS+1
12959  M01S01151.242l642 +++|          STD    FS+2
12960  M01S01152.242l642 +++|          LDD    CC          CHECK COMMAND CODE
12961  M01S01153.242l642 +++|          LMN    CCUA
12962  M01S01154.242l642 +++|          ZJN    CFE1        IF *UATTACH* COMMAND
12963  M01S01155.242l642 +++|          LDN    FSMS        SET SECTOR
12964  M01S01156.242l642 +++|          STD    FS+3
12965  M01S01157.242l642 +++|          LDN    4           SET OPERATION COMPLETE
12966  M01S01158.242l642 +++|          STD    FS+4
12967  M01S01159.242l642 +++|          LDM    FNMD
12968  M01S01160.242l642 +++|          LPN    35
12969  M01S01161.242l642 +++|          UJN    CFE2        SET STATUS MODE
12970  M01S01162.242l642 +++|
12971  M01S01163.242l642 +++| CFE1     LDN    0           SET SECTOR
12972  M01S01164.242l642 +++|          STD    FS+3
12973  M01S01165.242l642 +++|          LDC    4004        SET OPERATION COMPLETE
12974  M01S01166.242l642 +++|          STD    FS+4
12975  M01S01167.242l642 +++|          LDM    FNMD
12976  M01S01168.242l642 +++|          LPN    35
12977  M01S01169.242l642 +++|          LMN    2
12978  M01S01170.242l642 +++| CFE2     ADM    PFSN+3      SET STATUS MODE
12979  M01S01171.242l642 +++|          STD    FN+3
12980  M01S01172.242l642 +++|          LDN    ZERL        SET FILE SIZE CONTROL
12981  M01S01173.242l642 +++|          CRD    CM
12982  M01S01174.242l642 +++|          LDM    PFUC        SET *FS* INDEX IN *FUTL* WORD
12983  M01S01175.242l642 +++|          SHN    -11
12984  M01S01176.242l642 +++|          SHN    6
12985  M01S01177.242l642 +++|          STD    CM+2
12986  M01S01178.242l642 +++|          LDM    FCAL,CI     SET ACCESS LEVEL IN FNT
12987  M01S01179.242l642 +++|          RAD    CM+2
12988  M01S01180.242l642 +++|          NFA    FA,R        RESTORE FNT ENTRY
12989  M01S01181.242l642 +++|          ADK    FNTL
12990  M01S01182.242l642 +++|          CWD    FN
12991  M01S01183.242l642 +++|          ADN    FSTL-FNTL
12992  M01S01184.242l642 +++|          CWD    FS
12993  M01S01185.242l642 +++|          ADN    FUTL-FSTL
12994  M01S01186.242l642 +++|          CWD    CM
Line S00009 Modification History
M01 (Added by) pfm58
Seq #  *Modification Id* Act 
----------------------------+
12995  M01S00009.pfm58   +++|          RJM    SFA         SET FNT POINTER IN FET
12996  M01S00010.pfm58   +++|          ADN    4
12997  M01S00011.pfm58   +++|          CRD    CM
12998  M01S00012.pfm58   +++|          LDD    FA
12999  M01S00013.pfm58   +++|          STD    CM
13000  M01S00014.pfm58   +++|          RJM    SFA
13001  M01S00015.pfm58   +++|          ADN    4
13002  M01S00016.pfm58   +++|          CWD    CM
Line S01187 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
13003  M01S01187.242l642 +++|          LDM    PFEQ        INCREMENT PERMANENT FILE USER COUNT
13004  M01S01188.242l642 +++|          STD    CM+1
13005  M01S01189.242l642 +++|          LDN    IUCS
13006  M01S01190.242l642 +++|          STD    CM+3
Line S01191 Modification History
M01 (Added by) 242l642
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
13007  M02S01191.253l688 ---|          MONITOR  STBM
Line S00388 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
13008  M01S00388.253l688 +++|          MONITOR  SMDM
Line S01192 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
13009  M01S01192.242l642 +++|          UJP    CFEX        RETURN
Line S00037 Modification History
M01 (Added by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13010  M01S00037.pfm78   +++| PFE      SPACE  4,15
13011  M01S00038.pfm78   +++|**        PFE - PROCESS FILE ERROR CONDITION.
13012  M01S00039.pfm78   +++|*
13013  M01S00040.pfm78   +++|*         ENTRY  (A) = ERROR CODE AND EXIT CASE.
13014  M01S00041.pfm78   +++|*                (PFEQ) = EST ORDINAL FOR FILE.
13015  M01S00042.pfm78   +++|*                (PFFT) = FIRST TRACK FOR FILE.
13016  M01S00043.pfm78   +++|*
13017  M01S00044.pfm78   +++|*         EXIT   *TERW* UPDATED WITH TIMED/EVENT DATA.
13018  M01S00045.pfm78   +++|*
13019  M01S00046.pfm78   +++|*         USES   CM - CM+4.
13020  M01S00047.pfm78   +++|*
13021  M01S00048.pfm78   +++|*
13022  M01S00049.pfm78   +++|*         MACROS ENDMS, ERROR.
13023  M01S00050.pfm78   +++|
13024  M01S00051.pfm78   +++|
13025  M01S00052.pfm78   +++| PFE      BSS    0           ENTRY
13026  M01S00053.pfm78   +++|          STM    PFEA        SET ERROR CODE AND EXIT CASE
13027  M01S00054.pfm78   +++|          ENDMS
13028  M01S00055.pfm78   +++|          LDM    PFEQ        SET EVENT EST ORDINAL
13029  M01S00056.pfm78   +++|          STM    ERRE
13030  M01S00057.pfm78   +++|          LDM    PFFT        SET EVENT TRACK
13031  M01S00058.pfm78   +++|          STM    ERRC
13032  M01S00059.pfm78   +++|          LDC    ART         SET EVENT TIME
13033  M01S00060.pfm78   +++|          STM    ERRD
13034  M01S00061.pfm78   +++| PFEA     EQU    *+3
13035  M01S00062.pfm78   +++|          ERROR  FBS,,,FS    *(FILE NAME) BUSY.*
13036  M01S00063.pfm78   +++|*         ERROR  FSE,,,FS    * FILE BOI/EOI/UI MISMATCH.*
13037  M01S00064.pfm78   +++|*         ERROR  ILR,,,FS    * PFM INCORRECT REQUEST.*
Proceed to Part 9
cdc/nos2.source/opl.opl871/deck/pfm.008.txt ยท Last modified: by 127.0.0.1