User Tools

Site Tools


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

Deck PFM Part 011

95 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S01366 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15803  M02S01366.ns2415  ---|          ERROR  DAF,CH,IW,T5  *EQXXX,DNYY, DIRECT ACCESS FILE ERROR.*
Line S00150 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15804  M01S00150.ns2415  +++|          EXIT   DAF,CH,IW,T5,EC7  *EQXXX,DNYY,DIRECT ACCESS FILE ERROR*
Line S01367 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15805  M01S01367.242l642 +++|
Line S01368 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15806  M02S01368.ns2415  ---| DDF4     RJM    PES         PROCESS ERROR STATUS
Line S00151 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15807  M01S00151.ns2415  +++| DDF6     RJM    PES         PROCESS ERROR STATUS
Line S01369 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15808  M01S01369.242l642 +++|          RJM    WCB         REWRITE CATALOG BUFFER
Line S01370 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15809  M02S01370.ns2415  ---|          ERROR  MSE,CH,IW,T5  *EQXXX,DNYY, MASS STORAGE ERROR.*
Line S00152 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15810  M01S00152.ns2415  +++|          EXIT   MSE,CH,IW,T5,EC7  *EQXXX,DNYY, MASS STORAGE ERROR.*
Line S11551 Modification History
M01 (Removed by) ns2460
Seq #  *Modification Id* Act 
----------------------------+
15811  M01S11551.ns2460  ---|
Line S11552 Modification History
M01 (Removed by) 242l642
M02 (Removed by) ns2460
Seq #  *Modification Id* Act 
----------------------------+
15812  M02S11552.ns2460  ---| DDF5     LDM    CASS        CHECK FOR FILE IN WRITE MODE
Line S01371 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2415
M03 (Removed by) ns2460
Seq #  *Modification Id* Act 
----------------------------+
15813  M03S01371.ns2460  ---| DDF5     LDD    EQ
Line S00153 Modification History
M01 (Added by) ns2415
M02 (Removed by) ns2460
Seq #  *Modification Id* Act 
----------------------------+
15814  M02S00153.ns2460  ---| DDF7     LDD    EQ
Line S01372 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2460
Seq #  *Modification Id* Act 
----------------------------+
15815  M02S01372.ns2460  ---|          LMD    T5
Line S01373 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2415
M03 (Removed by) ns2460
Seq #  *Modification Id* Act 
----------------------------+
15816  M03S01373.ns2460  ---|          ZJN    DDF5.1      IF DIRECT ACCESS FILE ON MASTER DEVICE
Line S00154 Modification History
M01 (Added by) ns2415
M02 (Removed by) ns2460
Seq #  *Modification Id* Act 
----------------------------+
15817  M02S00154.ns2460  ---|          ZJN    DDF8        IF DIRECT ACCESS FILE ON MASTER DEVICE
Line S01374 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2460
Seq #  *Modification Id* Act 
----------------------------+
15818  M02S01374.ns2460  ---|          ENDMS
Line S01375 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15819  M02S01375.ns2415  ---| DDF5.1   LDM    CASS        CHECK FOR FILE IN WRITE MODE
Line S11553 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15820  M01S11553.ns2415  ---|          LPN    77
15821  M01S11554.ns2415  ---|          LMN    32
15822  M01S11555.ns2415  ---|          NJN    DDF6        IF FILE NOT IN WRITE MODE
15823  M01S11556.ns2415  ---|          STM    DDFD        CLEAR ERROR FLAG
15824  M00S11557.pfm     +++|
15825  M00S11558.pfm     +++|*         VALIDATE SYSTEM SECTOR.
15826  M00S11559.pfm     +++|
Line S11560 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15827  M01S11560.ns2415  ---| DDF6     LDM    CTSS+FCUI   COMPARE USER INDEX IN SYSTEM SECTOR
Line S00155 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15828  M01S00155.ns2415  +++| DDF8     LDM    CTSS+FCUI   COMPARE USER INDEX IN SYSTEM SECTOR
15829  M00S11561.pfm     +++|          LPN    77
15830  M00S11562.pfm     +++|          SHN    14
15831  M00S11563.pfm     +++|          LMM    CTSS+FCUI+1
15832  M00S11564.pfm     +++| DDFB     LMC    *
15833  M00S11565.pfm     +++|*         LMC    UI          (USER INDEX FROM CATALOG)
Line S11566 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15834  M01S11566.ns2415  ---|          NJN    DDF8        IF USER INDEX MISMATCH
Line S00156 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15835  M01S00156.ns2415  +++|          NJN    DDF10       IF USER INDEX MISMATCH
15836  M00S11567.pfm     +++|          LDN    2
15837  M00S11568.pfm     +++|          STD    P0
Line S11569 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15838  M01S11569.ns2415  ---| DDF7     LDM    FCCD+2,CI   CHECK CREATION DATE
Line S00157 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15839  M01S00157.ns2415  +++| DDF9     LDM    FCCD+2,CI   CHECK CREATION DATE
15840  M00S11570.pfm     +++| DDFC     EQU    *-1
15841  M00S11571.pfm     +++|          LMM    CTSS+FCCD,P0
Line S11572 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15842  M01S11572.ns2415  ---|          NJN    DDF8        IF MISMATCH ON CREATION DATE
Line S00158 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15843  M01S00158.ns2415  +++|          NJN    DDF10       IF MISMATCH ON CREATION DATE
15844  M00S11573.pfm     +++|          SOM    DDFC
15845  M00S11574.pfm     +++|          SOD    P0
Line S11575 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15846  M01S11575.ns2415  ---|          PJN    DDF7        IF NOT END OF DATE
15847  M01S11576.ns2415  ---|          UJN    DDF9        CHECK FOR OTHER ERRORS
Line S00159 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15848  M01S00159.ns2415  +++|          PJN    DDF9        IF NOT END OF DATE
15849  M01S00160.ns2415  +++|          UJN    DDF11       CHECK FOR ACTIVE USERS
15850  M00S11577.pfm     +++|
Line S11578 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15851  M01S11578.ns2415  ---| DDF8     AOM    DDFD        FLAG FILE ERROR
15852  M01S11579.ns2415  ---| DDF9     LDC    0           CHECK FOR FILE ERROR
15853  M01S11580.ns2415  ---| DDFD     EQU    *-1
15854  M01S11581.ns2415  ---|          ZJN    DDF10       IF NO FILE ERRORS
15855  M01S11582.ns2415  ---|          LDC    4000        SET FLAG FOR *0RP*
15856  M01S11583.ns2415  ---|          RAM    CTSS+FCEF
Line S00161 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15857  M01S00161.ns2415  +++|*         PROCESS BOI/EOI/UI MISMATCH.
15858  M00S11584.pfm     +++|
Line S00162 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15859  M01S00162.ns2415  +++| DDF10    RJM    WCB         REWRITE CATALOG BUFFER
15860  M01S00163.ns2415  +++|          EXIT   FSE,CH,IW,T5,EC7  *EQXXX,DNYY,FILE BOI/EOI/UI MISMATCH*
15861  M01S00164.ns2415  +++|
15862  M00S11585.pfm     +++|*         CHECK FOR ACTIVE USERS.
15863  M00S11586.pfm     +++|
Line S11587 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15864  M01S11587.ns2415  ---| DDF10    LDM    CASS        CHECK FOR ACTIVE USERS PRESENT
Line S00165 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15865  M01S00165.ns2415  +++| DDF11    LDM    CASS        CHECK FOR ACTIVE USERS PRESENT
15866  M00S11588.pfm     +++|          LPN    32
15867  M00S11589.pfm     +++|          ADM    UCSS+1
15868  M00S11590.pfm     +++|          ADM    UCSS+2
15869  M00S11591.pfm     +++|          ADM    UCSS+3
15870  M00S11592.pfm     +++|          ADM    UCSS+4
15871  M00S11593.pfm     +++|          ADM    FISS        CHECK FOR FAST ATTACH FILE
Line S01376 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15872  M01S01376.242l642 +++|          STD    P0
Line S00001 Modification History
M01 (Added by) ns2697
Seq #  *Modification Id* Act 
----------------------------+
15873  M01S00001.ns2697  +++|          ZJN    DDF11.1     IF NO ACTIVE USERS
15874  M01S00002.ns2697  +++|          LDM    PFSR
15875  M01S00003.ns2697  +++|          LPN    77
15876  M01S00004.ns2697  +++|          LMN    SRNB
15877  M01S00005.ns2697  +++|          NJN    DDF11.1     IF TO PURGE FILE WHEN BUSY
15878  M01S00006.ns2697  +++|          ERROR  FBS         *(FILE NAME) BUSY.*
Line S01377 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15879  M01S01377.242l642 +++|
15880  M01S01378.242l642 +++|*         RELEASE THE CATALOG ENTRY FOR THE FILE.  NO JOB SUSPENSION
15881  M01S01379.242l642 +++|*         IS PERFORMED IF THE DIRECT ACCESS DEVICE BECOMES INACCESSIBLE
15882  M01S01380.242l642 +++|*         AFTER THIS POINT.
15883  M01S01381.242l642 +++|*
15884  M01S01382.242l642 +++|*         THE CATALOG ENTRY IS RELEASED BEFORE SETTING PURGE STATUS
15885  M01S01383.242l642 +++|*         IN THE SYSTEM SECTOR OF THE FILE BECAUSE THE CATALOG AND
15886  M01S01384.242l642 +++|*         DIRECT ACCESS FILES MAY RESIDE ON DIFFERENT DEVICES.  THIS
15887  M01S01385.242l642 +++|*         ORDER ENSURES THAT THE CATALOG DOES NOT POINT TO AN OBSOLETE
15888  M01S01386.242l642 +++|*         FILE IF THE CATALOG DEVICE BECOMES INACCESSIBLE BEFORE THE
15889  M01S01387.242l642 +++|*         ENTRY IS RELEASED.
15890  M01S01388.242l642 +++|
Line S01389 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2697
Seq #  *Modification Id* Act 
----------------------------+
15891  M02S01389.ns2697  ---|          RJM    WCB         REWRITE CATALOG BUFFER
Line S00007 Modification History
M01 (Added by) ns2697
Seq #  *Modification Id* Act 
----------------------------+
15892  M01S00007.ns2697  +++| DDF11.1  RJM    WCB         REWRITE CATALOG BUFFER
Line S01390 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15893  M01S01390.242l642 +++|          LDM    PFFT        RESET FIRST TRACK OF FILE
15894  M01S01391.242l642 +++|          STD    T6
15895  M00S11594.pfm     +++|
15896  M00S11595.pfm     +++|*         REWRITE SYSTEM SECTOR (FOR FILE WITH ACTIVE USERS).
15897  M00S11596.pfm     +++|
Line S11597 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15898  M01S11597.242l642 ---|          ZJN    DDF12       IF NO ACTIVE USERS
Line S01392 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15899  M01S01392.242l642 +++|          LDD    P0
Line S01393 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15900  M02S01393.ns2415  ---|          ZJP    DDF12       IF NO ACTIVE USERS
Line S00166 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15901  M01S00166.ns2415  +++|          ZJP    DDF14       IF NO ACTIVE USERS
15902  M00S11598.pfm     +++|          LDM    CASS        SET PURGE BIT
15903  M00S11599.pfm     +++|          LMN    40
15904  M00S11600.pfm     +++|          STM    CASS
Line S11601 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15905  M01S11601.242l642 ---|          SETMS  WRITE,RW
Line S01394 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15906  M01S01394.242l642 +++|          SETMS  IO,RW
Line S01395 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15907  M02S01395.ns2415  ---|          NJN    DDF11       IF DEVICE INACCESSIBLE
Line S00167 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15908  M01S00167.ns2415  +++|          NJN    DDF13       IF DEVICE INACCESSIBLE
15909  M00S11602.pfm     +++|          RJM    WSS         WRITE SYSTEM SECTOR
Line S11603 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15910  M01S11603.242l642 ---|          ENDMS
Line S01396 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15911  M02S01396.ns2415  ---|          PJN    DDF10.1     IF NO ERROR
Line S00168 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15912  M01S00168.ns2415  +++|          PJN    DDF12       IF NO ERROR
Line S01397 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15913  M01S01397.242l642 +++|          LDM    RDCT        DEVICE STATUS
15914  M01S01398.242l642 +++|          SHN    21-12
Line S01399 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15915  M02S01399.ns2415  ---|          PJN    DDF11       IF DEVICE INACCESSIBLE
15916  M02S01400.ns2415  ---|          ERROR  MSE,CH,IW,T5  *EQXXX,DNYY, MASS STORAGE ERROR.*
Line S00169 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15917  M01S00169.ns2415  +++|          PJN    DDF13       IF DEVICE INACCESSIBLE
15918  M01S00170.ns2415  +++|          EXIT   MSE,CH,IW,T5,EC7  *EQXXX,DNYY, MASS STORAGE ERROR.*
Line S01401 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15919  M01S01401.242l642 +++|
Line S01402 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15920  M02S01402.ns2415  ---| DDF10.1  ENDMS
Line S11604 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15921  M01S11604.ns2415  ---| DDF11    LDD    T6          CLEAR TRACK INTERLOCK
Line S00171 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15922  M01S00171.ns2415  +++| DDF12    ENDMS
15923  M01S00172.ns2415  +++| DDF13    LDD    T6          CLEAR TRACK INTERLOCK
15924  M00S11605.pfm     +++|          RJM    CTI
Line S01403 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15925  M01S01403.242l642 +++|          LDN    0           CLEAR INTERLOCK FLAG
15926  M01S01404.242l642 +++|          STM    DAIF
Line S11606 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15927  M01S11606.ns2415  ---|          UJN    DDF13       COMPLETE
Line S00173 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15928  M01S00173.ns2415  +++|          UJN    DDF15       COMPLETE
15929  M00S11607.pfm     +++|
15930  M00S11608.pfm     +++|*         RELEASE FILE SPACE (FOR FILE WITH NO ACTIVE USERS).
15931  M00S11609.pfm     +++|
Line S11610 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15932  M01S11610.242l642 ---| DDF12    ENDMS
15933  M01S11611.242l642 ---|          LDM    DDFD        CHECK FOR FILE ERROR
Line S01405 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15934  M02S01405.ns2415  ---| DDF12    LDM    DDFD        CHECK FOR FILE ERROR
Line S11612 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15935  M01S11612.ns2415  ---|          NJN    DDF11       IF BOI/EOI VALIDATION ERROR
15936  M01S11613.ns2415  ---|          LDD    T5          SET EST ORDINAL
Line S00174 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15937  M01S00174.ns2415  +++| DDF14    LDD    T5          SET EST ORDINAL
15938  M00S11614.pfm     +++|          LMC    4000        SET CHECKPOINT BIT
15939  M00S11615.pfm     +++|          STD    CM+1
15940  M00S11616.pfm     +++|          LDD    T6
15941  M00S11617.pfm     +++|          STD    CM+2
15942  M00S11618.pfm     +++|          MONITOR DTKM
Line S01406 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15943  M01S01406.242l642 +++|*         LDN    0           CLEAR TRACK INTERLOCK FLAG
15944  M01S01407.242l642 +++|          STM    DAIF
15945  M00S11619.pfm     +++|
15946  M00S11620.pfm     +++|*         INCREMENT PRU LIMIT FIELD IN CONTROL POINT AREA.
15947  M00S11621.pfm     +++|*         NUMBER OF SECTORS RETURNED BY *DTKM* IS IN (CM+3 - CM+4).
15948  M00S11622.pfm     +++|
15949  M00S11623.pfm     +++|          LDN    CICS        INCREMENT CP AREA FIELD FUNCTION CODE
15950  M00S11624.pfm     +++|          STD    CM
15951  M00S11625.pfm     +++|          LDK    ACLW        ADDRESS OF MASS STORAGE PRU LIMIT
15952  M00S11626.pfm     +++|          STD    CM+1
15953  M00S11627.pfm     +++|          LDN    0D*100+18D  POSITION AND WIDTH OF LIMIT FIELD
15954  M00S11628.pfm     +++|          STD    CM+2
15955  M00S11629.pfm     +++|          LDD    MA          WRITE *UADM* PARAMETERS TO MESSAGE BUFFER
15956  M00S11630.pfm     +++|          CWD    CM
15957  M00S11631.pfm     +++|          LDN    1
15958  M00S11632.pfm     +++|          STD    CM+1        REQUEST COUNT
15959  M00S11633.pfm     +++|          STD    CM+2        DO NOT DROP PP
15960  M00S11634.pfm     +++|          MONITOR  UADM
Line S11635 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15961  M01S11635.ns2415  ---| DDF13    LDM    DDFD        CHECK FOR FILE ERROR
15962  M01S11636.ns2415  ---|          ZJN    DDF14       IF NO ERROR
15963  M01S11637.ns2415  ---|          ERROR  FSE,CH,IW,T5  *FILE BOI/EOI/UI MISMATCH.*
15964  M01S11638.ns2415  ---|
15965  M01S11639.ns2415  ---| DDF14    LJM    DDFX        RETURN
Line S00175 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
15966  M01S00175.ns2415  +++| DDF15    LJM    DDFX        RETURN
15967  M00S11640.pfm     +++| SCP      SPACE  4,10
15968  M00S11641.pfm     +++|**        SCP - SAVE CATALOG PARAMETERS.
15969  M00S11642.pfm     +++|*
15970  M00S11643.pfm     +++|*         SAVES PARAMETERS FROM THE CATALOG ENTRY FOR LATER USE.
15971  M00S11644.pfm     +++|*
Line S11645 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15972  M01S11645.242l642 ---|*         EXIT   (DDFA) = FIRST TRACK.
15973  M01S11646.242l642 ---|*                (DDFB) - (DDFB+1) = USER INDEX.
Line S01408 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15974  M01S01408.242l642 +++|*         EXIT   (DDFB, DDFB+1) = USER INDEX.
15975  M01S01409.242l642 +++|*                (PFFT) = FIRST TRACK.
15976  M00S11647.pfm     +++|
15977  M00S11648.pfm     +++|
15978  M00S11649.pfm     +++| SCP      SUBR               ENTRY/EXIT
15979  M00S11650.pfm     +++|          LDM    FCUI,CI     SAVE USER INDEX
15980  M00S11651.pfm     +++|          LPN    77
15981  M00S11652.pfm     +++|          RAM    DDFB
15982  M00S11653.pfm     +++|          LDM    FCUI+1,CI
15983  M00S11654.pfm     +++|          STM    DDFB+1
15984  M00S11655.pfm     +++|          LDM    FCBT,CI     SAVE FIRST TRACK
Line S11656 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15985  M01S11656.242l642 ---|          STM    DDFA
Line S01410 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15986  M01S01410.242l642 +++|          STM    PFFT
15987  M00S11657.pfm     +++|          UJN    SCPX        RETURN
Line S01411 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15988  M01S01411.242l642 +++| SDD      SPACE  4,15
15989  M01S01412.242l642 +++|**        SDD - SEARCH FOR DIRECT ACCESS DEVICE.
15990  M01S01413.242l642 +++|*
Line S01414 Modification History
M01 (Added by) 242l642
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
15991  M02S01414.253l688 ---|*         ENTRY  (CI) = ADDRESS OF CATALOG ENTRY FOR DIRECT ACCESS
15992  M02S01415.253l688 ---|*                       FILE.
Line S00469 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
15993  M01S00469.253l688 +++|*         ENTRY  (CI) = ADDRESS OF CATALOG ENTRY.
Line S01416 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15994  M01S01416.242l642 +++|*                (EQ) = MASTER DEVICE EST ORDINAL.
15995  M01S01417.242l642 +++|*                (PFPN - PFPN+4) = PERMANENT FILE DEVICE DESCRIPTION.
Line S00470 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
15996  M01S00470.253l688 +++|*                (SDDA) PRESET WITH DEVICE NUMBER IF *SETDA* REQUEST.
Line S01418 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
15997  M01S01418.242l642 +++|*
15998  M01S01419.242l642 +++|*         EXIT   (A) = 0 IF DEVICE FOUND.
15999  M01S01420.242l642 +++|*                (A) .GT. 0 IF DEVICE NOT FOUND OR INACCESSIBLE.
Line S01421 Modification History
M01 (Added by) 242l642
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
16000  M02S01421.253l688 ---|*                (T5) = DIRECT ACCESS DEVICE EST ORDINAL.
16001  M02S01422.253l688 ---|*                (PFEQ) = DIRECT ACCESS DEVICE EST ORDINAL.
Line S00471 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
16002  M01S00471.253l688 +++|*                (T5) = (PFEQ) = DIRECT ACCESS DEVICE EST ORDINAL.
Line S01423 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
16003  M01S01423.242l642 +++|*
16004  M01S01424.242l642 +++|*         USES   CM, T5.
16005  M01S01425.242l642 +++|*
Line S01426 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
16006  M02S01426.ns2776  ---|*         CALLS  PDV, SDN.
Line S00087 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
16007  M01S00087.ns2776  +++|*         CALLS  PDA, SDN.
Line S01427 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
16008  M01S01427.242l642 +++|
16009  M01S01428.242l642 +++|
Line S01429 Modification History
M01 (Added by) 242l642
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
16010  M02S01429.253l688 ---| SDD2     LDD    T5          SAVE DIRECT ACCESS DEVICE EST ORDINAL
Line S00472 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
16011  M01S00472.253l688 +++| SDD2     LDD    T5          SET DIRECT ACCESS DEVICE EST ORDINAL
Line S01430 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
16012  M01S01430.242l642 +++|          STM    PFEQ
16013  M01S01431.242l642 +++|          LDN    0           RETURN WITH (A) = 0
16014  M01S01432.242l642 +++|
16015  M01S01433.242l642 +++| SDD      SUBR               ENTRY/EXIT
16016  M01S01434.242l642 +++|          LDD    EQ          SET DIRECT ACCESS DEVICE EST ORDINAL
16017  M01S01435.242l642 +++|          STD    T5
16018  M01S01436.242l642 +++|          STM    PFEQ
Line S01437 Modification History
M01 (Added by) 242l642
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
16019  M02S01437.253l688 ---|          LDM    FCDN,CI     DIRECT ACCESS DEVICE NUMBER
Line S00473 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
16020  M01S00473.253l688 +++| SDDA     LDM    FCDN,CI     GET DIRECT ACCESS DEVICE NUMBER
16021  M01S00474.253l688 +++|*         LDC    (FCDN)      (*DROPDS*)
16022  M01S00475.253l688 +++|          LPN    77
Line S01438 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
16023  M01S01438.242l642 +++|          ZJN    SDDX        IF MASTER DEVICE, RETURN
16024  M01S01439.242l642 +++|          STD    CM
16025  M01S01440.242l642 +++|          LDM    PFPN+4      FAMILY EST ORDINAL
16026  M01S01441.242l642 +++|          RJM    SDN         SEARCH FOR DEVICE NUMBER
16027  M01S01442.242l642 +++|          PJN    SDD2        IF DEVICE FOUND
16028  M01S01443.242l642 +++|          ADN    1
Line S01444 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
16029  M02S01444.ns2776  ---|          ZJN    SDD1        IF DEVICE NOT FOUND
16030  M02S01445.ns2776  ---|          RJM    PDV         PROCESS DEVICE STATUS
Line S00088 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
16031  M01S00088.ns2776  +++|          RJM    PDA         PROCESS DEVICE AVAILABILITY
Line S01446 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
16032  M01S01446.242l642 +++| SDD1     LDN    1           RETURN WITH (A) .GT. 0
16033  M01S01447.242l642 +++|          UJN    SDDX        RETURN
Line S11658 Modification History
M01 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
16034  M01S11658.ns2414  ---| UEP      SPACE  4,10
16035  M01S11659.ns2414  ---|**        UEP - UPDATE EXISTING PERMIT ENTRY.
16036  M01S11660.ns2414  ---|*
16037  M01S11661.ns2414  ---|*         ENTRY  (PP) = ADDRESS OF PERMIT ENTRY TO UPDATE.
16038  M01S11662.ns2414  ---|*                (MODE) = MODE TO BE PERMITTED.
16039  M01S11663.ns2414  ---|*                (PXDT - PXDT+1) = PERMIT EXPIRATION DATE.
16040  M01S11664.ns2414  ---|*
16041  M01S11665.ns2414  ---|*         EXIT   PERMIT ENTRY UPDATED.
16042  M01S11666.ns2414  ---|*
16043  M01S11667.ns2414  ---|*         USES   CM - CM+4, T0.
16044  M01S11668.ns2414  ---|*
16045  M01S11669.ns2414  ---|*         CALLS  WBI.
16046  M01S11670.ns2414  ---|
16047  M01S11671.ns2414  ---|
16048  M01S11672.ns2414  ---| UEP      SUBR               ENTRY/EXIT
16049  M01S11673.ns2414  ---|          LDD    PP          SET PERMIT ENTRY ADDRESS
16050  M01S11674.ns2414  ---|          ADN    FPAC
16051  M01S11675.ns2414  ---|          STM    UEPA
16052  M01S11676.ns2414  ---|          LDN    PDTL        SET TIME/DATE IN ENTRY
16053  M01S11677.ns2414  ---|          CRD    CM
16054  M01S11678.ns2414  ---|          LDM    MODE        SET PERMIT MODE
16055  M01S11679.ns2414  ---|          LPN    17
16056  M01S11680.ns2414  ---|          ADN    40          SET *EXPIRATION DATE PRESENT* BIT
16057  M01S11681.ns2414  ---|          STD    T0
16058  M01S11682.ns2414  ---|          LDM    FPAC+1,PP   UPDATE MODE/ACCESS COUNT
16059  M01S11683.ns2414  ---|          SCN    77
16060  M01S11684.ns2414  ---|          ADD    T0
16061  M01S11685.ns2414  ---|          STD    CM+1
16062  M01S11686.ns2414  ---|          LDM    FPAC,PP
16063  M01S11687.ns2414  ---|          STD    CM
16064  M01S11688.ns2414  ---|          LDD    MA          SET UPDATED WORD IN ENTRY
16065  M01S11689.ns2414  ---|          CWD    CM
16066  M01S11690.ns2414  ---|          CRM    *,ON
16067  M01S11691.ns2414  ---| UEPA     EQU    *-1
16068  M01S11692.ns2414  ---|          LDM    PXDT+1      SET PERMIT EXPIRATION DATE
16069  M01S11693.ns2414  ---|          STM    FPXD+1,PP
16070  M01S11694.ns2414  ---|          LDM    FPXD,PP
16071  M01S11695.ns2414  ---|          SCN    77
16072  M01S11696.ns2414  ---|          LMM    PXDT
16073  M01S11697.ns2414  ---|          STM    FPXD,PP
16074  M01S11698.ns2414  ---|          LDD    PB          REWRITE PERMIT SECTOR
16075  M01S11699.ns2414  ---|          RJM    WBI
16076  M01S11700.ns2414  ---|          LJM    UEPX        EXIT
Line S01448 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2460
Seq #  *Modification Id* Act 
----------------------------+
16077  M02S01448.ns2460  ---| WCB      SPACE  4,15
Line S00013 Modification History
M01 (Added by) ns2460
Seq #  *Modification Id* Act 
----------------------------+
16078  M01S00013.ns2460  +++| WCB      SPACE  4,20
Line S01449 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
16079  M01S01449.242l642 +++|**        WCB - REWRITE CATALOG BUFFER.
16080  M01S01450.242l642 +++|*
Line S01451 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2460
Seq #  *Modification Id* Act 
----------------------------+
16081  M02S01451.ns2460  ---|*         ENTRY  (CB) = ADDRESS OF CATALOG BUFFER.
Line S00014 Modification History
M01 (Added by) ns2460
Seq #  *Modification Id* Act 
----------------------------+
16082  M01S00014.ns2460  +++|*         ENTRY  (T5) = DIRECT ACCESS DEVICE EST ORDINAL.
16083  M01S00015.ns2460  +++|*                (CB) = ADDRESS OF CATALOG BUFFER.
Line S01452 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
16084  M01S01452.242l642 +++|*                (CC) = COMMAND CODE.
16085  M01S01453.242l642 +++|*                (EQ) = MASTER DEVICE EST ORDINAL.
16086  M01S01454.242l642 +++|*                (PFEQ) = DIRECT ACCESS DEVICE EST ORDINAL.
16087  M01S01455.242l642 +++|*
16088  M01S01456.242l642 +++|*         EXIT   (T5) = DIRECT ACCESS DEVICE EST ORDINAL.
16089  M01S01457.242l642 +++|*                CATALOG BUFFER REWRITTEN.
Line S01458 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2460
Seq #  *Modification Id* Act 
----------------------------+
16090  M02S01458.ns2460  ---|*                CATALOG AND CHANNEL INTERLOCKS RELEASED.
Line S00016 Modification History
M01 (Added by) ns2460
Seq #  *Modification Id* Act 
----------------------------+
16091  M01S00016.ns2460  +++|*                CATALOG INTERLOCK RELEASED.
16092  M01S00017.ns2460  +++|*                *ENDMS* PERFORMED.
16093  M01S00018.ns2460  +++|*
16094  M01S00019.ns2460  +++|*         USES   T5.
Line S01459 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
16095  M01S01459.242l642 +++|*
16096  M01S01460.242l642 +++|*         CALLS  CCI, WBI, WCE.
16097  M01S01461.242l642 +++|*
16098  M01S01462.242l642 +++|*         MACROS ENDMS.
16099  M01S01463.242l642 +++|
16100  M01S01464.242l642 +++|
16101  M01S01465.242l642 +++| WCB      SUBR               ENTRY/EXIT
Line S00020 Modification History
M01 (Added by) ns2460
Seq #  *Modification Id* Act 
----------------------------+
16102  M01S00020.ns2460  +++|          LDD    EQ
16103  M01S00021.ns2460  +++|          LMD    T5
16104  M01S00022.ns2460  +++|          ZJN    WCB0        IF ALREADY ON MASTER DEVICE
16105  M01S00023.ns2460  +++|          ENDMS
Line S01466 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
16106  M01S01466.242l642 +++|          LDD    EQ          SET MASTER DEVICE EST ORDINAL
16107  M01S01467.242l642 +++|          STD    T5
Line S01468 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2460
Seq #  *Modification Id* Act 
----------------------------+
16108  M02S01468.ns2460  ---|          LDD    CC          CHECK COMMAND CODE
Line S00024 Modification History
M01 (Added by) ns2460
Seq #  *Modification Id* Act 
----------------------------+
16109  M01S00024.ns2460  +++| WCB0     LDD    CC          CHECK COMMAND CODE
Line S01469 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
16110  M01S01469.242l642 +++|          LMN    CCDD
16111  M01S01470.242l642 +++|          ZJN    WCB1        IF *DROPDS* REQUEST
16112  M01S01471.242l642 +++|          RJM    WCE         UPDATE AND REWRITE CATALOG BUFFER
16113  M01S01472.242l642 +++|          UJN    WCB2        CLEAR CATALOG INTERLOCK
16114  M01S01473.242l642 +++|
16115  M01S01474.242l642 +++| WCB1     LDD    CB          REWRITE CATALOG BUFFER
16116  M01S01475.242l642 +++|          RJM    WBI
16117  M01S01476.242l642 +++|          ENDMS
16118  M01S01477.242l642 +++| WCB2     RJM    CCI         CLEAR CATALOG INTERLOCK
16119  M01S01478.242l642 +++|          LDM    PFEQ        RESET DIRECT ACCESS DEVICE EST ORDINAL
16120  M01S01479.242l642 +++|          STD    T5
16121  M01S01480.242l642 +++|          UJN    WCBX        RETURN
16122  M00S11701.pfm     +++| WCE      SPACE  4,15
16123  M00S11702.pfm     +++|**        WCE - REWRITE CATALOG ENTRY.
16124  M00S11703.pfm     +++|*
16125  M00S11704.pfm     +++|*         ENTRY  (CI) = ADDRESS OF CATALOG ENTRY.
16126  M00S11705.pfm     +++|*                (CB) = ADDRESS OF CATALOG BUFFER.
16127  M00S11706.pfm     +++|*
16128  M00S11707.pfm     +++|*         EXIT   (FCKD) UPDATED AND CATALOG SECTOR REWRITTEN.
16129  M00S11708.pfm     +++|*
16130  M00S11709.pfm     +++|*         USES   CM - CM+4.
16131  M00S11710.pfm     +++|*
16132  M00S11711.pfm     +++|*         CALLS  WBI.
16133  M00S11712.pfm     +++|*
16134  M00S11713.pfm     +++|*         MACROS ENDMS.
16135  M00S11714.pfm     +++|
16136  M00S11715.pfm     +++|
16137  M00S11716.pfm     +++| WCE      SUBR               ENTRY/EXIT
16138  M00S11717.pfm     +++|          LDN    PDTL        UPDATE CONTROL MODIFICATION DATE
16139  M00S11718.pfm     +++|          CRD    CM
16140  M00S11719.pfm     +++|          LDD    CM+2
16141  M00S11720.pfm     +++|          STM    FCKD,CI
16142  M00S11721.pfm     +++|          LDD    CM+3
16143  M00S11722.pfm     +++|          STM    FCKD+1,CI
16144  M00S11723.pfm     +++|          LDD    CM+4
16145  M00S11724.pfm     +++|          STM    FCKD+2,CI
16146  M00S11725.pfm     +++|          LDD    CB          REWRITE CATALOG BUFFER
16147  M00S11726.pfm     +++|          RJM    WBI
16148  M00S11727.pfm     +++|          ENDMS
16149  M00S11728.pfm     +++|          UJN    WCEX        RETURN
16150  M00S11729.pfm     +++|          SPACE  4,10
16151  M00S11730.pfm     +++|*         COMMON DECKS.
16152  M00S11731.pfm     +++|
16153  M00S11732.pfm     +++|
16154  M00S11733.pfm     +++|*CALL     COMPRSS
16155  M00S11734.pfm     +++|*CALL     COMPSDN
16156  M00S11735.pfm     +++|*CALL     COMPWSS
Line S11736 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
16157  M01S11736.242l642 ---| WSE      SPACE  4,10
16158  M01S11737.242l642 ---|**        WSE - WRITE SYSTEM SECTOR ERROR PROCESSING.
16159  M01S11738.242l642 ---|
16160  M01S11739.242l642 ---|
16161  M01S11740.242l642 ---| WSE      LDD    T6          RELEASE FILE INTERLOCK
16162  M01S11741.242l642 ---|          RJM    CTI
16163  M01S11742.242l642 ---|          ERROR  MSE,,IW,EQ  *EQXXX,DNYY, MASS STORAGE ERROR.*
16164  M00S11743.pfm     +++|          SPACE  4,10
16165  M00S11744.pfm     +++|*         CHECK FOR OVERFLOW.
16166  M00S11745.pfm     +++|
16167  M00S11746.pfm     +++|
Line S11747 Modification History
M01 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
16168  M01S11747.ns2414  ---|          OVERFLOW  OVLC,BUF1-2  OVERFLOW INTO CATALOG BUFFER
Line S00123 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
16169  M01S00123.ns2414  +++|          OVERFLOW  OVLC,BUF2-2  OVERFLOW INTO HOLE BUFFER
16170  M01S00124.ns2414  +++|          OVERLAY  (DELPFC/DROPIDS/PERMIT PROCESSING.)
16171  M01S00125.ns2414  +++|          SPACE  4,10
16172  M01S00126.ns2414  +++|**        THIS OVERLAY PROCESSES THE COMMANDS *DELPFC*, *DROPIDS*
16173  M01S00127.ns2414  +++|*         AND *PERMIT*.
16174  M01S00128.ns2414  +++|
16175  M01S00129.ns2414  +++|
16176  M01S00130.ns2414  +++| OVL      BSS    0           ENTRY
16177  M01S00131.ns2414  +++|          LDD    EQ          RESET MASTER DEVICE EST ORDINAL
16178  M01S00132.ns2414  +++|          STD    T5
16179  M01S00133.ns2414  +++|          LJM    0,P0        PROCESS COMMAND
16180  M01S00134.ns2414  +++|          TITLE  COMMAND PROCESSING.
16181  M01S00135.ns2414  +++| DIS      SPACE  4,10
16182  M01S00136.ns2414  +++|***       PROCESS *DROPIDS* REQUEST.
16183  M01S00137.ns2414  +++|*
16184  M01S00138.ns2414  +++|*         DROP INDIRECT ACCESS FILE DISK SPACE.
Line S00007 Modification History
M01 (Added by) pfm75
Seq #  *Modification Id* Act 
----------------------------+
16185  M01S00007.pfm75   +++|*
16186  M01S00008.pfm75   +++|*         THE TRACK AND SECTOR POINTERS IN THE EXISTING PFC WILL BE
16187  M01S00009.pfm75   +++|*         CLEARED, AND A HOLE WILL BE CREATED TO POINT TO THE DISK
16188  M01S00010.pfm75   +++|*         SPACE.  THIS HOLE WILL EITHER BE PLACED IN A PREVIOUSLY
16189  M01S00011.pfm75   +++|*         EXISTING DAPF HOLE OR A NEW HOLE WILL BE ALLOCATED AT THE
16190  M01S00012.pfm75   +++|*         END OF THE CATALOG TRACK.  THIS IS DONE SO THAT THE
16191  M01S00013.pfm75   +++|*         POSITION OF THE ORIGINAL PFC DOES NOT CHANGE; BOTH THE
16192  M01S00014.pfm75   +++|*         DESTAGE DUMP CODE AND THE PURGE AFTER DUMP CODE IN *PFDUMP*
16193  M01S00015.pfm75   +++|*         REQUIRE THAT THE POSITION OF THE PFC REMAIN CONSTANT.
Line S00139 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
16194  M01S00139.ns2414  +++|
16195  M01S00140.ns2414  +++|
16196  M01S00141.ns2414  +++| DIS      BSS    0           ENTRY
16197  M01S00142.ns2414  +++|          LDD    CI          SET CURRENT PFN FOR NEW PFC ENTRY
16198  M01S00143.ns2414  +++|          ADN    FCFN
16199  M01S00144.ns2414  +++|          RJM    SFN
Line S00145 Modification History
M01 (Added by) ns2414
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
16200  M02S00145.253l688 ---|          LDM    FCBS,CI
16201  M02S00146.253l688 ---|          SHN    21-13
16202  M02S00147.253l688 ---|          PJN    DIS1        IF INDIRECT ACCESS FILE
16203  M02S00148.253l688 ---|          ERROR  FDA         * (FILE NAME) IS DIRECT ACCESS.*
Line S00149 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
16204  M01S00149.ns2414  +++|
Line S00150 Modification History
M01 (Added by) ns2414
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
16205  M02S00150.253l688 ---| DIS1     LDM    FCAA,CI
Line S00476 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
16206  M01S00476.253l688 +++|*         CHECK FOR CARTRIDGE ALTERNATE STORAGE COPY OF FILE.
16207  M01S00477.253l688 +++|
16208  M01S00478.253l688 +++|          LDM    FCAA,CI
Line S00151 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
16209  M01S00151.ns2414  +++|          ADM    FCAA+1,CI
16210  M01S00152.ns2414  +++|          ADM    FCAA+2,CI
Line S00153 Modification History
M01 (Added by) ns2414
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
16211  M02S00153.253l688 ---|          NJN    DIS2        IF ALTERNATE STORAGE COPY OF FILE PRESENT
16212  M02S00154.253l688 ---|          ERROR  AIO         * ALTERNATE IMAGE OBSOLETE.*
Line S00479 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
16213  M01S00479.253l688 +++|          ZJN    DIS1        IF NO CARTRIDGE ALTERNATE STORAGE COPY
16214  M01S00480.253l688 +++|          LDM    FCAF,CI
16215  M01S00481.253l688 +++|          LPN    AFPDEM+AFPSEM
16216  M01S00482.253l688 +++|          ZJN    DIS4        IF NO ERROR FLAGS SET
16217  M01S00483.253l688 +++|          AOM    DISA        SET *ERROR FLAG DETECTED* FLAG
Line S00155 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
16218  M01S00155.ns2414  +++|
Line S00156 Modification History
M01 (Added by) ns2414
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
16219  M02S00156.253l688 ---| DIS2     LDM    FCAF,CI
16220  M02S00157.253l688 ---|          LPN    AFPDEM+AFPSEM
16221  M02S00158.253l688 ---|          ZJN    DIS3        IF NO ALTERNATE STORAGE ERRORS
16222  M02S00159.253l688 ---|          ERROR  ASE         * ALTERNATE STORAGE ERROR.*
Line S00484 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
16223  M01S00484.253l688 +++|*         CHECK FOR TAPE ALTERNATE STORAGE COPY OF FILE.
Line S00160 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
16224  M01S00160.ns2414  +++|
Line S00161 Modification History
M01 (Added by) ns2414
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
16225  M02S00161.253l688 ---| DIS3     LDM    FCBT,CI
16226  M02S00162.253l688 ---|          NJN    DIS4        IF FILE DISK RESIDENT
16227  M02S00163.253l688 ---|          ERROR  FND         * FILE NOT DISK RESIDENT.*
Line S00485 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
16228  M01S00485.253l688 +++| DIS1     LDM    FCTV,CI
16229  M01S00486.253l688 +++|          ADM    FCTV+1,CI
16230  M01S00487.253l688 +++|          ZJN    DIS2        IF NO TAPE ALTERNATE STORAGE COPY OF FILE
16231  M01S00488.253l688 +++|          LDM    FCTF,CI     CHECK FOR ERRORS ON PRIMARY VSN
16232  M01S00489.253l688 +++|          LPK    TFPVNM+TFEPVM
16233  M01S00490.253l688 +++|          ZJN    DIS4        IF NO ERRORS ON PRIMARY VSN
16234  M01S00491.253l688 +++|          AOM    DISA        SET *ERROR FLAG DETECTED* FLAG
16235  M01S00492.253l688 +++|          LDM    FCTF,CI
16236  M01S00493.253l688 +++|          LPK    TFSVSM
16237  M01S00494.253l688 +++|          ZJN    DIS2        IF NO SECONDARY VSN COPY OF FILE
16238  M01S00495.253l688 +++|          LDM    FCTF,CI
16239  M01S00496.253l688 +++|          LPK    TFSVNM+TFESVM
16240  M01S00497.253l688 +++|          NJN    DIS3        IF ERRORS ON SECONDARY VSN
16241  M01S00498.253l688 +++|          UJN    DIS4        CONTINUE
16242  M01S00499.253l688 +++|
16243  M01S00500.253l688 +++| DIS2     LDN    0           CHECK IF ERROR FLAG DETECTED
16244  M01S00501.253l688 +++|*         LDN    1           (ALTERNATE STORAGE ERROR FLAG DETECTED)
16245  M01S00502.253l688 +++| DISA     EQU    *-1
16246  M01S00503.253l688 +++|          NJN    DIS3        IF ALTERNATE STORAGE ERROR FLAG DETECTED
16247  M01S00504.253l688 +++|          ERROR  AIO         * NO ALTERNATE STORAGE COPY OF FILE.*
16248  M01S00505.253l688 +++|
16249  M01S00506.253l688 +++| DIS3     ERROR  ASE         * ALTERNATE STORAGE ERROR.*
Line S00164 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
16250  M01S00164.ns2414  +++|
Line S00165 Modification History
M01 (Added by) ns2414
M02 (Removed by) pfm75
Seq #  *Modification Id* Act 
----------------------------+
16251  M02S00165.pfm75   ---|*         SETUP FOR FORMATION OF NEW CATALOG ENTRY.
Line S00016 Modification History
M01 (Added by) pfm75
Seq #  *Modification Id* Act 
----------------------------+
16252  M01S00016.pfm75   +++|*         SET UP HOLE TO POINT TO DATA.
Line S00166 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
16253  M01S00166.ns2414  +++|
Line S00167 Modification History
M01 (Added by) ns2414
M02 (Removed by) pfm75
Seq #  *Modification Id* Act 
----------------------------+
16254  M02S00167.pfm75   ---| DIS4     LDN    0           SET DISK ADDRESS ZERO FOR NEW ENTRY
Line S00017 Modification History
M01 (Added by) pfm75
Seq #  *Modification Id* Act 
----------------------------+
16255  M01S00017.pfm75   +++| DIS4     LDM    FCBT,CI     SET DISK ADDRESS
Line S00168 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
16256  M01S00168.ns2414  +++|          STM    SDAB
Line S00018 Modification History
M01 (Added by) pfm75
Seq #  *Modification Id* Act 
----------------------------+
16257  M01S00018.pfm75   +++|          LDM    FCBS,CI
Line S00169 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
16258  M01S00169.ns2414  +++|          STM    SDAC
16259  M01S00170.ns2414  +++|          LDM    FCLF,CI     SET FILE LENGTH IN (LF - LF+1)
16260  M01S00171.ns2414  +++|          STD    LF
16261  M01S00172.ns2414  +++|          LDM    FCLF+1,CI
16262  M01S00173.ns2414  +++|          STD    LF+1
16263  M01S00174.ns2414  +++|          STD    HL          SIMULATE EXACT FIT HOLE, IF HOLE FOUND
Line S00175 Modification History
M01 (Added by) ns2414
M02 (Removed by) pfm75
Seq #  *Modification Id* Act 
----------------------------+
16264  M02S00175.pfm75   ---|
16265  M02S00176.pfm75   ---|*         UPDATE CATALOG ENTRY.
16266  M02S00177.pfm75   ---|
Line S00178 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
16267  M01S00178.ns2414  +++|          EXECUTE  3PD       LOAD CATALOG UPDATE ROUTINES
16268  M01S00179.ns2414  +++|          LDN    PSNI        BYPASS SPACE ALLOCATION IN *CCS*
16269  M01S00180.ns2414  +++|          STM    CCSB
16270  M01S00181.ns2414  +++|          STM    CCSB+1
Line S00182 Modification History
M01 (Added by) ns2414
M02 (Removed by) pfm75
Seq #  *Modification Id* Act 
----------------------------+
16271  M02S00182.pfm75   ---|          ISTORE FCEL,(UJN FCE7.1) BYPASS DATE/TIME UPDATES IN *FCE*
Line S00019 Modification History
M01 (Added by) pfm75
Seq #  *Modification Id* Act 
----------------------------+
16272  M01S00019.pfm75   +++|          STM    CCSC        BYPASS *WBI* CALLS IN *CCS*
16273  M01S00020.pfm75   +++|          STM    CCSF
16274  M01S00021.pfm75   +++|          STM    CCSF+1
16275  M01S00022.pfm75   +++|          STM    CCSG
16276  M01S00023.pfm75   +++|          STM    CCSG+1
16277  M01S00024.pfm75   +++|          ISTORE FCEL,(UJN FCE7.1)  BYPASS DATE/TIME UPDATES IN *FCE*
Line S00172 Modification History
M01 (Added by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
16278  M01S00172.pfm54   +++|          RJM    IIA         INTERLOCK INDIRECT ALLOCATION
16279  M01S00173.pfm54   +++|          LDK    STNS        SET *NO JOB SUSPENSION* AFTER THIS POINT
16280  M01S00174.pfm54   +++|          RAM    STAT
Line S00183 Modification History
M01 (Added by) ns2414
M02 (Removed by) pfm75
Seq #  *Modification Id* Act 
----------------------------+
16281  M02S00183.pfm75   ---|          RJM    CCS         CREATE NEW CATALOG ENTRY FOR FILE
Line S00025 Modification History
M01 (Added by) pfm75
Seq #  *Modification Id* Act 
----------------------------+
16282  M01S00025.pfm75   +++|          RJM    CCS         CREATE NEW CATALOG ENTRY FOR HOLE
16283  M01S00026.pfm75   +++|
16284  M01S00027.pfm75   +++|*         UPDATE EXISTING PFC AND RELEASE FILE SPACE.
16285  M01S00028.pfm75   +++|
16286  M01S00029.pfm75   +++|          LDN    0           CLEAR DISK ADDRESS IN EXISTING PFC
16287  M01S00030.pfm75   +++|          STM    FCBT,CI
16288  M01S00031.pfm75   +++|          STM    FCBS,CI
16289  M01S00032.pfm75   +++|          LDD    CB          REWRITE EXISTING PFC
16290  M01S00033.pfm75   +++|          RJM    WBI
16291  M01S00034.pfm75   +++|          LDD    EB          SET POINTERS TO PFC TO BE DELETED
16292  M01S00035.pfm75   +++|          STD    CB
16293  M01S00036.pfm75   +++|          LDD    EP
16294  M01S00037.pfm75   +++|          STD    CI
Line S00184 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
16295  M01S00184.ns2414  +++|          RJM    DCE         RELEASE IAPF FILE SPACE
Line S00185 Modification History
M01 (Added by) ns2414
M02 (Removed by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
16296  M02S00185.pfm54   ---|          NJN    DIS7        IF FILE DELINKED OR AT END OF CHAIN
Line S00175 Modification History
M01 (Added by) pfm54
M02 (Removed by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
16297  M02S00175.pfm59   ---|          ZJN    DIS4.1      IF FILE WITHIN CHAIN AND NO DELINK
Line S00050 Modification History
M01 (Added by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
16298  M01S00050.pfm59   +++|          ZJN    DIS5        IF FILE WITHIN CHAIN AND NO DELINK
Line S00176 Modification History
M01 (Added by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
16299  M01S00176.pfm54   +++|          RJM    CIA         CLEAR INDIRECT ALLOCATION INTERLOCK
16300  M01S00177.pfm54   +++|          UJN    DIS6        TERMINATE PROGRAM
16301  M01S00178.pfm54   +++|
Line S00179 Modification History
M01 (Added by) pfm54
M02 (Removed by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
16302  M02S00179.pfm59   ---| DIS4.1   RJM    CIA         CLEAR INDIRECT ALLOCATION INTERLOCK
Line S00186 Modification History
M01 (Added by) ns2414
M02 (Removed by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
16303  M02S00186.pfm59   ---|          LDD    EB
16304  M02S00187.pfm59   ---|          LMD    HB
16305  M02S00188.pfm59   ---|          ZJN    DIS5        IF END BUFFER SAME AS HOLE BUFFER
16306  M02S00189.pfm59   ---|*                              OR IF END BUFFER NOT REWRITTEN
16307  M02S00190.pfm59   ---|          LDD    EB
16308  M02S00191.pfm59   ---|          LMD    CB
16309  M02S00192.pfm59   ---|          ZJN    DIS6        IF CATALOG ENTRY IN SAME BUFFER AS END
16310  M02S00193.pfm59   ---| DIS5     LDD    CB
Line S00051 Modification History
M01 (Added by) pfm59
Seq #  *Modification Id* Act 
----------------------------+
16311  M01S00051.pfm59   +++| DIS5     RJM    CIA         CLEAR INDIRECT ALLOCATION INTERLOCK
16312  M01S00052.pfm59   +++|          LDD    CB
Line S00194 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
16313  M01S00194.ns2414  +++|          RJM    WBI         WRITE CATALOG ENTRY
Line S00195 Modification History
M01 (Added by) ns2414
M02 (Removed by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
16314  M02S00195.pfm54   ---| DIS6     ENDMS
16315  M02S00196.pfm54   ---| DIS7     EXECUTE  3PU       TERMINATE PROGRAM
Line S00180 Modification History
M01 (Added by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
16316  M01S00180.pfm54   +++|          ENDMS
16317  M01S00181.pfm54   +++| DIS6     EXECUTE  3PU       TERMINATE PROGRAM
Line S00197 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
16318  M01S00197.ns2414  +++| DPF      SPACE  4,10
16319  M01S00198.ns2414  +++|***       PROCESS *DELPFC* REQUEST.
16320  M01S00199.ns2414  +++|*
16321  M01S00200.ns2414  +++|*         DELETE INDIRECT ACCESS FILE PFC ENTRY, AND DROP ASSOCIATED
16322  M01S00201.ns2414  +++|*         DISK SPACE.  THIS REQUEST IS MADE ONLY TO DELETE THE ORIGINAL
16323  M01S00202.ns2414  +++|*         PFC LEFT OVER FROM AN *APPEND*, AFTER A CPU TRANSFER HAS BEEN
16324  M01S00203.ns2414  +++|*         PERFORMED ON THAT MACHINE.
16325  M01S00204.ns2414  +++|
16326  M01S00205.ns2414  +++|
16327  M01S00206.ns2414  +++| DPF      BSS    0           ENTRY
16328  M01S00207.ns2414  +++|          EXECUTE  3PD       LOAD CATALOG UPDATE ROUTINES
Line S00182 Modification History
M01 (Added by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
16329  M01S00182.pfm54   +++|          RJM    IIA         INTERLOCK INDIRECT ALLOCATION
16330  M01S00183.pfm54   +++|          LDK    STNS        SET *NO JOB SUSPENSION* AFTER THIS POINT
16331  M01S00184.pfm54   +++|          RAM    STAT
Line S00208 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
16332  M01S00208.ns2414  +++|          RJM    DCE         DELETE CATALOG ENTRY
Line S00209 Modification History
M01 (Added by) ns2414
M02 (Removed by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
16333  M02S00209.pfm54   ---|          NJN    DPF1        IF FILE DELINKED OR AT END OF CHAIN
16334  M02S00210.pfm54   ---|          LDD    CB          REWRITE CATALOG ENTRY
Line S00185 Modification History
M01 (Added by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
16335  M01S00185.pfm54   +++|          ZJN    DPF1        IF FILE WITHIN CHAIN AND NO DELINK
16336  M01S00186.pfm54   +++|          RJM    CIA         CLEAR INDIRECT ALLOCATION INTERLOCK
16337  M01S00187.pfm54   +++|          UJN    DPF2        TERMINATE PROGRAM
16338  M01S00188.pfm54   +++|
16339  M01S00189.pfm54   +++| DPF1     RJM    CIA         CLEAR INDIRECT ALLOCATION INTERLOCK
16340  M01S00190.pfm54   +++|          LDD    CB          REWRITE CATALOG BUFFER
Line S00211 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
16341  M01S00211.ns2414  +++|          RJM    WBI
16342  M01S00212.ns2414  +++|          ENDMS
Line S00213 Modification History
M01 (Added by) ns2414
M02 (Removed by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
16343  M02S00213.pfm54   ---| DPF1     EXECUTE  3PU       TERMINATE PROGRAM
Line S00191 Modification History
M01 (Added by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
16344  M01S00191.pfm54   +++| DPF2     EXECUTE  3PU       TERMINATE PROGRAM
Line S00214 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
16345  M01S00214.ns2414  +++| PER      SPACE  4,10
16346  M01S00215.ns2414  +++|***       PROCESS *PERMIT* REQUEST.
16347  M01S00216.ns2414  +++|*
16348  M01S00217.ns2414  +++|*         CREATE PERMISSION *M* FOR USER *OUAN* TO ACCESS FILE
16349  M01S00218.ns2414  +++|*         *PF NAME*.
16350  M01S00219.ns2414  +++|
16351  M01S00220.ns2414  +++|
16352  M01S00221.ns2414  +++| PER      BSS    0           ENTRY
Line S00222 Modification History
M01 (Added by) ns2414
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
16353  M02S00222.253l688 ---|          LDD    RI
Line S00507 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
16354  M01S00507.253l688 +++|
16355  M01S00508.253l688 +++|*         *PERMIT* IS NOT ALLOWED ON A FILE WITH AN ACCESS LEVEL
16356  M01S00509.253l688 +++|*         LOWER THAN THAT OF THE JOB UNLESS THE CALLER IS VALIDATED
16357  M01S00510.253l688 +++|*         FOR WRITE-DOWN PRIVILEGES OR IS A SUBSYSTEM.
16358  M01S00511.253l688 +++|
16359  M01S00512.253l688 +++|          LDM    SSOM
16360  M01S00513.253l688 +++|          ZJN    PER0        IF UNSECURED SYSTEM
16361  M01S00514.253l688 +++|          LDM    FCAL,CI
16362  M01S00515.253l688 +++|          LPN    7
16363  M01S00516.253l688 +++|          SBM    PFAL
16364  M01S00517.253l688 +++|          PJN    PER0        IF FILE NOT LOWER THAN JOB
16365  M01S00518.253l688 +++|          LDM    SVAL
16366  M01S00519.253l688 +++|          LPN    40
16367  M01S00520.253l688 +++|          NJN    PER0        IF USER VALIDATED FOR WRITE-DOWN
16368  M01S00521.253l688 +++|          LDM    SSID
16369  M01S00522.253l688 +++|          SBK    LSSI+1
16370  M01S00523.253l688 +++|          PJN    PER0        IF SUBSYSTEM
16371  M01S00524.253l688 +++|          ERROR  WDP,,,,SVE  * WRITE-DOWN OF DATA PROHIBITED.*
16372  M01S00525.253l688 +++|
16373  M01S00526.253l688 +++| PER0     LDD    RI
Line S00223 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
16374  M01S00223.ns2414  +++|          ADD    RI+1
16375  M01S00224.ns2414  +++|          ZJN    PER1        IF NO PERMIT RANDOM INDEX
16376  M01S00225.ns2414  +++|          LDD    PP
16377  M01S00226.ns2414  +++|          ZJN    PER1        IF PERMIT NOT FOUND
16378  M01S00227.ns2414  +++|          RJM    UEP         UPDATE EXISTING PERMIT
16379  M01S00228.ns2414  +++|          UJN    PER2        UPDATE CATALOG ENTRY
16380  M01S00229.ns2414  +++|
16381  M01S00230.ns2414  +++|*         CREATE PERMIT ENTRY.
16382  M01S00231.ns2414  +++|
16383  M01S00232.ns2414  +++| PER1     LDM    EXPC        GET EXPLICIT PERMIT COUNT
16384  M01S00233.ns2414  +++|          SBK    PMLM
16385  M01S00234.ns2414  +++|          PJP    PER3        IF PERMIT LIMIT EXCEEDED
16386  M01S00235.ns2414  +++|          LDN    0           SET EXPLICIT PERMIT OPTION
16387  M01S00236.ns2414  +++|          STM    SAPF
16388  M01S00237.ns2414  +++|          STM    IACP
16389  M01S00238.ns2414  +++|          EXECUTE  3PE       LOAD PERMIT UPDATE ROUTINES
16390  M01S00239.ns2414  +++|          RJM    CPE         CREATE PERMIT ENTRY
16391  M01S00240.ns2414  +++|
16392  M01S00241.ns2414  +++|*         UPDATE CATALOG ENTRY.
16393  M01S00242.ns2414  +++|
16394  M01S00243.ns2414  +++| PER2     LDN    PDTL        UPDATE CONTROL MODIFICATION DATE
16395  M01S00244.ns2414  +++|          CRD    CM
16396  M01S00245.ns2414  +++|          LDD    CM+2
16397  M01S00246.ns2414  +++|          STM    FCKD,CI
16398  M01S00247.ns2414  +++|          LDD    CM+3
16399  M01S00248.ns2414  +++|          STM    FCKD+1,CI
16400  M01S00249.ns2414  +++|          LDD    CM+4
16401  M01S00250.ns2414  +++|          STM    FCKD+2,CI
16402  M01S00251.ns2414  +++|          LDD    CB          REWRITE CATALOG BUFFER
16403  M01S00252.ns2414  +++|          RJM    WBI
16404  M01S00253.ns2414  +++|          ENDMS
16405  M01S00254.ns2414  +++|          EXECUTE  3PU       TERMINATE PROGRAM
16406  M01S00255.ns2414  +++|
16407  M01S00256.ns2414  +++|*         PROCESS PERMIT LIMIT.
16408  M01S00257.ns2414  +++|
16409  M01S00258.ns2414  +++| PER3     ERROR  PLE         * PERMIT LIMIT EXCEEDED.*
16410  M01S00259.ns2414  +++|          TITLE  SUBROUTINES.
16411  M01S00260.ns2414  +++| UEP      SPACE  4,10
16412  M01S00261.ns2414  +++|**        UEP - UPDATE EXISTING PERMIT ENTRY.
16413  M01S00262.ns2414  +++|*
16414  M01S00263.ns2414  +++|*         ENTRY  (PP) = ADDRESS OF PERMIT ENTRY TO UPDATE.
16415  M01S00264.ns2414  +++|*                (MODE) = MODE TO BE PERMITTED.
16416  M01S00265.ns2414  +++|*                (PXDT - PXDT+1) = PERMIT EXPIRATION DATE.
16417  M01S00266.ns2414  +++|*
16418  M01S00267.ns2414  +++|*         EXIT   PERMIT ENTRY UPDATED.
16419  M01S00268.ns2414  +++|*
16420  M01S00269.ns2414  +++|*         USES   CM - CM+4, T0.
16421  M01S00270.ns2414  +++|*
16422  M01S00271.ns2414  +++|*         CALLS  WBI.
16423  M01S00272.ns2414  +++|
16424  M01S00273.ns2414  +++|
16425  M01S00274.ns2414  +++| UEP      SUBR               ENTRY/EXIT
16426  M01S00275.ns2414  +++|          LDD    PP          SET PERMIT ENTRY ADDRESS
16427  M01S00276.ns2414  +++|          ADN    FPAC
16428  M01S00277.ns2414  +++|          STM    UEPA
16429  M01S00278.ns2414  +++|          LDN    PDTL        SET TIME/DATE IN ENTRY
16430  M01S00279.ns2414  +++|          CRD    CM
16431  M01S00280.ns2414  +++|          LDM    MODE        SET PERMIT MODE
16432  M01S00281.ns2414  +++|          LPN    17
16433  M01S00282.ns2414  +++|          ADN    40          SET *EXPIRATION DATE PRESENT* BIT
16434  M01S00283.ns2414  +++|          STD    T0
16435  M01S00284.ns2414  +++|          LDM    FPAC+1,PP   UPDATE MODE/ACCESS COUNT
16436  M01S00285.ns2414  +++|          SCN    77
16437  M01S00286.ns2414  +++|          ADD    T0
16438  M01S00287.ns2414  +++|          STD    CM+1
16439  M01S00288.ns2414  +++|          LDM    FPAC,PP
16440  M01S00289.ns2414  +++|          STD    CM
16441  M01S00290.ns2414  +++|          LDD    MA          SET UPDATED WORD IN ENTRY
16442  M01S00291.ns2414  +++|          CWD    CM
16443  M01S00292.ns2414  +++|          CRM    *,ON
16444  M01S00293.ns2414  +++| UEPA     EQU    *-1
16445  M01S00294.ns2414  +++|          LDM    PXDT+1      SET PERMIT EXPIRATION DATE
16446  M01S00295.ns2414  +++|          STM    FPXD+1,PP
16447  M01S00296.ns2414  +++|          LDM    FPXD,PP
16448  M01S00297.ns2414  +++|          SCN    77
16449  M01S00298.ns2414  +++|          LMM    PXDT
16450  M01S00299.ns2414  +++|          STM    FPXD,PP
16451  M01S00300.ns2414  +++|          LDD    PB          REWRITE PERMIT SECTOR
16452  M01S00301.ns2414  +++|          RJM    WBI
16453  M01S00302.ns2414  +++|          LJM    UEPX        EXIT
16454  M01S00303.ns2414  +++|          SPACE  4,10
16455  M01S00304.ns2414  +++|*         CHECK FOR OVERFLOW.
16456  M01S00305.ns2414  +++|
16457  M01S00306.ns2414  +++|
16458  M01S00307.ns2414  +++|          OVERFLOW  OVLC,BUF2-2  OVERFLOW INTO HOLE BUFFER
16459  M00S11748.pfm     +++|          OVERLAY (CHANGE/SETPFAC/SETPFAL PROCESSING.)
16460  M00S11749.pfm     +++|          SPACE  4,10
16461  M00S11750.pfm     +++|**        THIS OVERLAY PROCESSES THE PERMANENT FILE COMMANDS
16462  M00S11751.pfm     +++|*         *CHANGE*, *SETPFAC* AND *SETPFAL*.  THESE COMMANDS
16463  M00S11752.pfm     +++|*         CHANGE FIELDS IN THE CATALOG ENTRY FOR A FILE.
16464  M00S11753.pfm     +++|*         *SETPFAC* AND *SETPFAL* WILL NOT BE PERFORMED IF THE
16465  M00S11754.pfm     +++|*         FILE IS CURRENTLY ATTACHED.
16466  M00S11755.pfm     +++|
16467  M00S11756.pfm     +++|
16468  M00S11757.pfm     +++| OVL      BSS    0           ENTRY
16469  M00S11758.pfm     +++|*         LJM    CHG         PROCESS REQUEST
16470  M00S11759.pfm     +++|          TITLE  COMMAND PROCESSING.
16471  M00S11760.pfm     +++|***       PROCESS CHANGE REQUEST.
16472  M00S11761.pfm     +++|*
16473  M00S11762.pfm     +++|*         CHANGE CATALOG ENTRY FOR PERMANENT FILE.
16474  M00S11763.pfm     +++|*
16475  M00S11764.pfm     +++|*         THE PASSWORD SPECIFIED IN THE *FET* WILL BE USED UNLESS
16476  M00S11765.pfm     +++|*         IT HAS THE VALUE 7777 7777 7777 77B.  THE *MODE*, *CT*,
16477  M00S11766.pfm     +++|*         AND *SS* FIELDS SPECIFIED IN THE *FET* WILL ONLY BE
16478  M00S11767.pfm     +++|*         USED IF THEY HAVE THE 40B-BIT SET.
Line S00098 Modification History
M01 (Added by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
16479  M01S00098.pfm28   +++|*
16480  M01S00099.pfm28   +++|*         *CHANGE* AND *SETPFAC* ARE NOT ALLOWED IF THE ACCESS LEVEL
16481  M01S00100.pfm28   +++|*         OF THE FILE IS LOWER THAN THAT OF THE JOB UNLESS THE CALLER
16482  M01S00101.pfm28   +++|*         IS VALIDATED FOR WRITE-DOWN PRIVILEGES OR IS A SUBSYETM.
16483  M00S11768.pfm     +++|
16484  M00S11769.pfm     +++|
16485  M00S11770.pfm     +++| CHG      BSS    0           ENTRY
16486  M00S11771.pfm     +++|          LDM    STAT        CHECK FOR PRIVATE DEVICE
16487  M00S11772.pfm     +++|          LPK    STPD
16488  M00S11773.pfm     +++|          ZJN    CHG1        IF NOT PRIVATE DEVICE
16489  M00S11774.pfm     +++|          LDN    PSNI        SET BYPASS OF USER INDEX CHECK
16490  M00S11775.pfm     +++|          STM    SCTB
16491  M00S11776.pfm     +++| CHG1     RJM    SFL         SET PERMANENT FILE NAMES
16492  M00S11777.pfm     +++|          RJM    SCT         SEARCH CATALOG
16493  M00S11778.pfm     +++|          ZJN    CHG2        IF FILE NOT FOUND
16494  M00S11779.pfm     +++|          RJM    CCE         CHANGE CATALOG ENTRY
16495  M00S11780.pfm     +++|          LDN    PDTL        UPDATE CONTROL MODIFICATION DATE
16496  M00S11781.pfm     +++|          CRD    CM
16497  M00S11782.pfm     +++|          LDD    CM+2
16498  M00S11783.pfm     +++|          STM    FCKD,CI
16499  M00S11784.pfm     +++|          LDD    CM+3
16500  M00S11785.pfm     +++|          STM    FCKD+1,CI
16501  M00S11786.pfm     +++|          LDD    CM+4
16502  M00S11787.pfm     +++|          STM    FCKD+2,CI
16503  M00S11788.pfm     +++|          LDD    CB          REWRITE CATALOG ENTRY
16504  M00S11789.pfm     +++|          RJM    WBI
16505  M00S11790.pfm     +++|          ENDMS
Line S11791 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
16506  M01S11791.242l642 ---|          LJM    TRPX        EXIT
Line S01481 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
16507  M02S01481.ns2414  ---|          EXECUTE  3PT       TERMINATE PROGRAM
Line S00308 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
16508  M01S00308.ns2414  +++|          EXECUTE  3PU       TERMINATE PROGRAM
16509  M00S11792.pfm     +++|
16510  M00S11793.pfm     +++| CHG2     ERROR  FNF         (*FILENAME) NOT FOUND.*
16511  M00S11794.pfm     +++|          TITLE  SUBROUTINES.
16512  M00S11795.pfm     +++| CAL      SPACE  4,10
16513  M00S11796.pfm     +++|**        CAL - CHECK ACCESS LEVEL.
16514  M00S11797.pfm     +++|*
16515  M00S11798.pfm     +++|*         ENTRY  (CI) = INDEX TO ENTRY.
16516  M00S11799.pfm     +++|*                (EQ) = FAMILY EST ORDINAL.
16517  M00S11800.pfm     +++|*                (CALA) = ALTERNATE DEVICE EST ORDINAL.
16518  M00S11801.pfm     +++|*                (LFAL) = NEW ACCESS LEVEL.
16519  M00S11802.pfm     +++|*                (SVAL) = USER-S JOB SECURITY VALIDATIONS.
16520  M00S11803.pfm     +++|*
16521  M00S11804.pfm     +++|*         USES   CM - CM+4.
16522  M00S11805.pfm     +++|*
16523  M00S11806.pfm     +++|*         MACROS ERROR, MONITOR.
16524  M00S11807.pfm     +++|
16525  M00S11808.pfm     +++|
16526  M00S11809.pfm     +++| CAL3     LDM    FCAL,CI     CHECK FOR DOWNGRADE
16527  M00S11810.pfm     +++|          LPN    7
16528  M00S11811.pfm     +++|          STD    CM
16529  M00S11812.pfm     +++|          LDM    LFAL
16530  M00S11813.pfm     +++|          SBD    CM
16531  M00S11814.pfm     +++|          PJN    CALX        IF NOT DOWNGRADE
16532  M00S11815.pfm     +++|          LDM    SVAL        CHECK FOR PF DOWNGRADE VALIDATON
16533  M00S11816.pfm     +++|          SHN    21-6
16534  M00S11817.pfm     +++|          MJN    CALX        IF USER HAS DOWNGRADE VALIDATION
16535  M00S11818.pfm     +++|          LDM    SSID        CHECK SUBSYSTEM ID
16536  M00S11819.pfm     +++|          SBK    LSSI+1
16537  M00S11820.pfm     +++|          PJN    CALX        IF SUBSYSTEM
Line S11821 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
16538  M01S11821.242l642 ---|          ERROR  NVD,CH,,,SVE  * NOT VALID TO DOWNGRADE DATA.*
Line S01482 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
16539  M01S01482.242l642 +++|          ERROR  NVD,,,,SVE  * NOT VALID TO DOWNGRADE DATA.*
16540  M00S11822.pfm     +++|
16541  M00S11823.pfm     +++| CAL      SUBR               ENTRY/EXIT
16542  M00S11824.pfm     +++|          LDM    SSOM
16543  M00S11825.pfm     +++|          ZJN    CALX        IF UNSECURED SYSTEM
16544  M00S11826.pfm     +++|          LDD    EQ          CHECK IF *LFAL* VALID FOR MASTER DEVICE
16545  M00S11827.pfm     +++|          STD    CM+2
16546  M00S11828.pfm     +++|          LDN    VAES
16547  M00S11829.pfm     +++|          STD    CM+1
16548  M00S11830.pfm     +++|          LDM    LFAL
16549  M00S11831.pfm     +++|          STD    CM+4
16550  M00S11832.pfm     +++|          MONITOR  VSAM
16551  M00S11833.pfm     +++|          LDD    CM+1
16552  M00S11834.pfm     +++|          NJN    CAL2        IF FILE ACCESS NOT VALID FOR DEVICE
16553  M00S11835.pfm     +++|          LDM    FCBS,CI
16554  M00S11836.pfm     +++|          SHN    21-13
16555  M00S11837.pfm     +++| CAL1     PJP    CAL3        IF NOT DIRECT ACCESS FILE
16556  M00S11838.pfm     +++|          LDC    **
16557  M00S11839.pfm     +++| CALA     EQU    *-1
16558  M00S11840.pfm     +++|          ZJN    CAL1        IF FILE ON MASTER DEVICE
16559  M00S11841.pfm     +++|          STD    CM+2        CHECK IF ACCESS IS VALID FOR FILE DEVICE
16560  M00S11842.pfm     +++|          LDN    VAES
16561  M00S11843.pfm     +++|          STD    CM+1
16562  M00S11844.pfm     +++|          LDM    LFAL
16563  M00S11845.pfm     +++|          STD    CM+4
16564  M00S11846.pfm     +++|          MONITOR  VSAM
16565  M00S11847.pfm     +++|          LDD    CM+1
16566  M00S11848.pfm     +++|          ZJN    CAL1        IF FILE ACCESS VALID FOR DEVICE
Line S11849 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
16567  M01S11849.242l642 ---| CAL2     ERROR  LNP,CH,,,SVE  * ACCESS LEVEL NOT VALID ON PF DEVICE.*
Line S01483 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
16568  M01S01483.242l642 +++| CAL2     ERROR  LNP,,,,SVE  * ACCESS LEVEL NOT VALID ON PF DEVICE.*
16569  M00S11850.pfm     +++| CCE      SPACE  4,20
16570  M00S11851.pfm     +++|**        CCE - CHANGE CATALOG ENTRY.
16571  M00S11852.pfm     +++|*
16572  M00S11853.pfm     +++|*         ENTRY  (CI) = INDEX TO ENTRY.
16573  M00S11854.pfm     +++|*                (PI) = FILE CATEGORY.
16574  M00S11855.pfm     +++|*                (PI+1) = FILE MODE.
16575  M00S11856.pfm     +++|*                (FS - FS+3) = NEW FILE NAME.
16576  M00S11857.pfm     +++|*                (PFPW) = PASSWORD.
16577  M00S11858.pfm     +++|*                (PFCW) = USER CONTROL WORD.
16578  M00S11859.pfm     +++|*                (PXDT - PXDT+1) = PASSWORD EXPIRATION DATE.
16579  M00S11860.pfm     +++|*                (STAT) BIT 0=1 IF PASSWORD EXPIRATION DATE SPECIFIED.
16580  M00S11861.pfm     +++|*                (PFAL) = FILE ACCESS LEVEL (*SETPFAL*).
16581  M00S11862.pfm     +++|*                (PFFC - PFFC+2) = FILE CATEGORY SET (*SETPFAC*).
16582  M00S11863.pfm     +++|*
16583  M00S11864.pfm     +++|*         EXIT   CATALOG ENTRY CHANGED.
16584  M00S11865.pfm     +++|*
16585  M00S11866.pfm     +++|*         USES   CM - CM+4.
Line S00102 Modification History
M01 (Added by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
16586  M01S00102.pfm28   +++|*
16587  M01S00103.pfm28   +++|*         CALLS  CAL, CFB.
16588  M01S00104.pfm28   +++|*
16589  M01S00105.pfm28   +++|*         MACROS ERROR, NFA.
16590  M00S11867.pfm     +++|
16591  M00S11868.pfm     +++|
16592  M00S11869.pfm     +++| CCE14    RJM    CFB         CHECK FOR FILE BUSY
16593  M00S11870.pfm     +++|          RJM    CAL         CHECK ACCESS LEVEL
16594  M00S11871.pfm     +++|          LDM    LFAL        *SETPFAL* CHANGE ACCESS LEVEL
16595  M00S11872.pfm     +++|          STM    FCAL,CI
16596  M00S11873.pfm     +++|          UJN    CCEX        RETURN
16597  M00S11874.pfm     +++|
16598  M00S11875.pfm     +++| CCE15    RJM    CFB         CHECK FOR FILE BUSY
16599  M00S11876.pfm     +++|          LDM    PFFC        *SETPFAC* CHANGE ACCESS CATEGORY SET
16600  M00S11877.pfm     +++|          STM    FCFC,CI
16601  M00S11878.pfm     +++|          LDM    PFFC+1
16602  M00S11879.pfm     +++|          STM    FCFC+1,CI
16603  M00S11880.pfm     +++|          LDM    PFFC+2
16604  M00S11881.pfm     +++|          STM    FCFC+2,CI
16605  M00S11882.pfm     +++|
16606  M00S11883.pfm     +++| CCE      SUBR               ENTRY/EXIT
16607  M00S11884.pfm     +++|          LDD    CC
16608  M00S11885.pfm     +++|          LMN    CCAL
16609  M00S11886.pfm     +++|          ZJN    CCE14       IF *SETPFAL* REQUEST
Line S11887 Modification History
M01 (Removed by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
16610  M01S11887.pfm28   ---|          LMN    CCAC&CCAL
16611  M01S11888.pfm28   ---|          ZJN    CCE15       IF *SETPFAC* REQUEST
Line S00106 Modification History
M01 (Added by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
16612  M01S00106.pfm28   +++|          LDM    SSOM
16613  M01S00107.pfm28   +++|          ZJN    CCE0        IF UNSECURED SYSTEM
16614  M01S00108.pfm28   +++|          LDM    FCAL,CI
16615  M01S00109.pfm28   +++|          LPN    7
16616  M01S00110.pfm28   +++|          SBM    PFAL
16617  M01S00111.pfm28   +++|          PJN    CCE0        IF FILE NOT LOWER THAN JOB
16618  M01S00112.pfm28   +++|          LDM    SVAL
16619  M01S00113.pfm28   +++|          LPN    40
16620  M01S00114.pfm28   +++|          NJN    CCE0        IF USER VALIDATED FOR WRITE-DOWN
16621  M01S00115.pfm28   +++|          LDM    SSID
16622  M01S00116.pfm28   +++|          SBK    LSSI+1
16623  M01S00117.pfm28   +++|          PJN    CCE0        IF SUBSYSTEM
16624  M01S00118.pfm28   +++|          ERROR  WDP,,,,SVE  * WRITE-DOWN OF DATA PROHIBITED.*
16625  M01S00119.pfm28   +++|
16626  M01S00120.pfm28   +++| CCE0     LDD    CC
16627  M01S00121.pfm28   +++|          LMN    CCAC
16628  M01S00122.pfm28   +++|          ZJP    CCE15       IF *SETPFAC* REQUEST
16629  M00S11889.pfm     +++|
16630  M00S11890.pfm     +++|*         SET NEW FILE NAME.
16631  M00S11891.pfm     +++|
16632  M00S11892.pfm     +++|          LDD    FS
16633  M00S11893.pfm     +++|          ZJN    CCE1        IF NO NEW NAME
16634  M00S11894.pfm     +++|          STM    FCFN,CI     ENTER NEW FILE NAME
16635  M00S11895.pfm     +++|          LDD    FS+1
16636  M00S11896.pfm     +++|          STM    FCFN+1,CI
16637  M00S11897.pfm     +++|          LDD    FS+2
16638  M00S11898.pfm     +++|          STM    FCFN+2,CI
16639  M00S11899.pfm     +++|          LDD    FS+3
16640  M00S11900.pfm     +++|          SCN    77
16641  M00S11901.pfm     +++|          LMD    UI
16642  M00S11902.pfm     +++|          STM    FCFN+3,CI
16643  M00S11903.pfm     +++|
16644  M00S11904.pfm     +++|*         SET NEW CHARGE AND PROJECT NUMBERS INTO PFC.
16645  M00S11905.pfm     +++|
16646  M00S11906.pfm     +++| CCE1     LDM    PFSR        GET SPECIAL REQUEST FUNCTION
16647  M00S11907.pfm     +++|          LPN    77
16648  M00S11908.pfm     +++|          LMN    SRCP
16649  M00S11909.pfm     +++|          NJN    CCE2        IF *CP* PARAMETER NOT SPECIFIED
16650  M00S11910.pfm     +++|          LDD    CI
16651  M00S11911.pfm     +++|          RAM    CCEC
16652  M00S11912.pfm     +++|          NFA    CHGN        SET EXECUTING CHARGE/PROJECT FROM NFL
16653  M00S11913.pfm     +++|          CRM    FCCN,TR
16654  M00S11914.pfm     +++| CCEC     EQU    *-1
16655  M00S11915.pfm     +++|          ERRNZ  FCP1-FCCN-5 *FCP1* MUST FOLLOW *FCCN*
16656  M00S11916.pfm     +++|          ERRNZ  FCP2-FCCN-12  *FCP2* MUST FOLLOW *FCCN*/*FCP1*
16657  M00S11917.pfm     +++|          ERRNZ  PJ1N-CHGN+1 *PJ1N* MUST BE IMMEDIATELY AFTER *CHGN*
16658  M00S11918.pfm     +++|          ERRNZ  PJ2N-PJ1N+1 *PJ2N* MUST BE IMMEDIATELY AFTER *PJ1N*
16659  M00S11919.pfm     +++|
16660  M00S11920.pfm     +++|*         SET USER CONTROL WORD.
16661  M00S11921.pfm     +++|
Line S11922 Modification History
M01 (Removed by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
16662  M01S11922.ns2426  ---| CCE2     LDM    PUCW
Line S00085 Modification History
M01 (Added by) ns2426
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
16663  M02S00085.271l750 ---| CCE2     LDM    PUCN
Line S00012 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
16664  M01S00012.271l750 +++| CCE2     LDM    PUCW
16665  M00S11923.pfm     +++|          SHN    6
16666  M00S11924.pfm     +++|          PJN    CCE3        IF NOT SPECIFIED
16667  M00S11925.pfm     +++|          LDD    CI
16668  M00S11926.pfm     +++|          ADC    FCCW
16669  M00S11927.pfm     +++|          STM    CCEA        SET ADDRESS TO WRITE CONTROL WORD
16670  M00S11928.pfm     +++|          LDD    MA
Line S11929 Modification History
M01 (Removed by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
16671  M01S11929.ns2426  ---|          CWM    PUCW,ON
Line S00086 Modification History
M01 (Added by) ns2426
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
16672  M02S00086.271l750 ---|          CWM    PUCN,ON
Line S00013 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
16673  M01S00013.271l750 +++|          CWM    PUCW,ON
16674  M00S11930.pfm     +++|          SBN    1
16675  M00S11931.pfm     +++|          CRM    *,ON
16676  M00S11932.pfm     +++| CCEA     EQU    *-1
16677  M00S11933.pfm     +++|
16678  M00S11934.pfm     +++|*         SET PASSWORD.
16679  M00S11935.pfm     +++|
16680  M00S11936.pfm     +++| CCE3     LDN    CFPW
16681  M00S11937.pfm     +++|          SBM    FETL
16682  M00S11938.pfm     +++|          PJP    CCE6        IF FET NOT LONG ENOUGH FOR PASSWORD
16683  M00S11939.pfm     +++|          LDM    PFPW
16684  M00S11940.pfm     +++|          LMC    7777
16685  M00S11941.pfm     +++|          ZJN    CCE4        IF PASSWORD NOT SPECIFIED
16686  M00S11942.pfm     +++|          LDD    CI
16687  M00S11943.pfm     +++|          ADN    FCPW
16688  M00S11944.pfm     +++|          STM    CCEB        SET ADDRESS TO WRITE PASSWORD
16689  M00S11945.pfm     +++|          LDD    MA
16690  M00S11946.pfm     +++|          CWM    PFPW,ON
16691  M00S11947.pfm     +++|          SBN    1
16692  M00S11948.pfm     +++|          CRM    *,ON
16693  M00S11949.pfm     +++| CCEB     EQU    *-1
16694  M00S11950.pfm     +++|          UJN    CCE5        SET PASSWORD EXPIRATION DATE
16695  M00S11951.pfm     +++|
16696  M00S11952.pfm     +++|*         SET PASSWORD EXPIRATION DATE.
16697  M00S11953.pfm     +++|
16698  M00S11954.pfm     +++| CCE4     LDM    STAT        CHECK EXPIRATION DATE STATUS
16699  M00S11955.pfm     +++|          LPN    STXD
16700  M00S11956.pfm     +++|          ZJN    CCE6        IF EXPIRATION DATE NOT SPECIFIED
16701  M00S11957.pfm     +++|          LDM    FCPW,CI
16702  M00S11958.pfm     +++|          NJN    CCE5        IF PASSWORD EXISTS
16703  M00S11959.pfm     +++|          ERROR  PAE         * PFM ARGUMENT ERROR.*
16704  M00S11960.pfm     +++|
16705  M00S11961.pfm     +++| CCE5     LDM    FCXD,CI     SET EXPIRATION DATE
16706  M00S11962.pfm     +++|          SCN    77
16707  M00S11963.pfm     +++|          LMM    PXDT
16708  M00S11964.pfm     +++|          STM    FCXD,CI
16709  M00S11965.pfm     +++|          LDM    PXDT+1
16710  M00S11966.pfm     +++|          STM    FCXD+1,CI
16711  M00S11967.pfm     +++|
16712  M00S11968.pfm     +++|*         SET CATEGORY.
16713  M00S11969.pfm     +++|
16714  M00S11970.pfm     +++| CCE6     LDD    PI
16715  M00S11971.pfm     +++|          SHN    21-13
16716  M00S11972.pfm     +++|          PJN    CCE7        IF NOT SPECIFIED
16717  M00S11973.pfm     +++|          LDM    FCCT,CI
16718  M00S11974.pfm     +++|          LPN    37
16719  M00S11975.pfm     +++|          ADD    PI
16720  M00S11976.pfm     +++|          LPC    3777
16721  M00S11977.pfm     +++|          STM    FCCT,CI
16722  M00S11978.pfm     +++|
16723  M00S11979.pfm     +++|*         SET FILE MODE.
16724  M00S11980.pfm     +++|
16725  M00S11981.pfm     +++| CCE7     LDD    PI+1
16726  M00S11982.pfm     +++|          SHN    21-5
16727  M00S11983.pfm     +++|          PJN    CCE8        IF NOT SPECIFIED
16728  M00S11984.pfm     +++|          LDM    FCAM,CI
16729  M00S11985.pfm     +++|          SCN    37
16730  M00S11986.pfm     +++|          ADD    PI+1
16731  M00S11987.pfm     +++|          SCN    40
16732  M00S11988.pfm     +++|          STM    FCAM,CI
16733  M00S11989.pfm     +++|
16734  M00S11990.pfm     +++|*         SET FILE SUBSYSTEM.
16735  M00S11991.pfm     +++|
16736  M00S11992.pfm     +++| CCE8     LDM    PFSS
16737  M00S11993.pfm     +++|          SHN    21-5
16738  M00S11994.pfm     +++|          PJN    CCE9        IF SUBSYSTEM NOT SPECIFIED
16739  M00S11995.pfm     +++|          SHN    -21+5+22
16740  M00S11996.pfm     +++|          LMM    FCFS,CI     SAVE SUBSYSTEM IN CATALOG ENTRY
16741  M00S11997.pfm     +++|          SCN    77
16742  M00S11998.pfm     +++|          LMM    PFSS
16743  M00S11999.pfm     +++|          LMN    40
16744  M00S12000.pfm     +++|          STM    FCFS,CI
16745  M00S12001.pfm     +++|
16746  M00S12002.pfm     +++|*         CLEAR ERROR STATUS.
16747  M00S12003.pfm     +++|
16748  M00S12004.pfm     +++| CCE9     LDM    PFSR
16749  M00S12005.pfm     +++|          LPN    77
16750  M00S12006.pfm     +++|          LMN    SRCE
16751  M00S12007.pfm     +++|          NJN    CCE10       IF NOT CLEAR ERROR STATUS REQUEST
16752  M00S12008.pfm     +++|          LDM    FCEC,CI     CLEAR ERROR STATUS
16753  M00S12009.pfm     +++|          LPC    7077
16754  M00S12010.pfm     +++|          STM    FCEC,CI
16755  M00S12011.pfm     +++|          LDM    JORG
16756  M00S12012.pfm     +++|          LMK    SYOT
16757  M00S12013.pfm     +++|          NJN    CCE10       IF NOT SYSTEM ORIGIN
16758  M00S12014.pfm     +++|          LDM    FCAF,CI     CLEAR MSS RELATED ERROR FLAGS
16759  M00S12015.pfm     +++|          SCN    AFPSEM+AFPDEM+AFTMPM
16760  M00S12016.pfm     +++|          STM    FCAF,CI
16761  M00S12017.pfm     +++|
16762  M00S12018.pfm     +++|*         SET BACKUP REQUIREMENT.
16763  M00S12019.pfm     +++|
16764  M00S12020.pfm     +++| CCE10    LDM    PFBR        CHECK FOR BR PARAMETER CHANGE REQUEST
16765  M00S12021.pfm     +++|          LPC    700
16766  M00S12022.pfm     +++|          ZJN    CCE11       IF *BR* NOT SPECIFIED
16767  M00S12023.pfm     +++|          STD    CM
16768  M00S12024.pfm     +++|          LDM    FCBR,CI
16769  M00S12025.pfm     +++|          LPC    7077
16770  M00S12026.pfm     +++|          LMD    CM
16771  M00S12027.pfm     +++|          STM    FCBR,CI
16772  M00S12028.pfm     +++|
16773  M00S12029.pfm     +++|*         SET PREFERRED RESIDENCE.
16774  M00S12030.pfm     +++|
16775  M00S12031.pfm     +++| CCE11    LDM    PFRS        CHECK FOR PR PARAMETER CHANGE REQUEST
16776  M00S12032.pfm     +++|          LPC    7000
16777  M00S12033.pfm     +++|          ZJN    CCE12       IF *PR* NOT SPECIFIED
16778  M00S12034.pfm     +++|          STD    CM
16779  M00S12035.pfm     +++|          LDM    FCRS,CI
16780  M00S12036.pfm     +++|          LPC    0777
16781  M00S12037.pfm     +++|          LMD    CM
16782  M00S12038.pfm     +++|          STM    FCRS,CI
16783  M00S12039.pfm     +++|
16784  M00S12040.pfm     +++|*         SET ALTERNATE CATLIST PERMISSION.
16785  M00S12041.pfm     +++|
16786  M00S12042.pfm     +++| CCE12    LDM    PFAP
16787  M00S12043.pfm     +++|          LPC    6000
16788  M00S12044.pfm     +++|          ZJN    CCE13       IF *AC* NOT SPECIFIED
16789  M00S12045.pfm     +++|          STM    FCAP,CI
16790  M00S12046.pfm     +++| CCE13    LJM    CCEX        RETURN
16791  M00S12047.pfm     +++| CFB      SPACE  4,10
16792  M00S12048.pfm     +++|**        CFB - CHECK FOR FILE BUSY.
16793  M00S12049.pfm     +++|*
16794  M00S12050.pfm     +++|*         ENTRY  (CI) = INDEX TO ENTRY.
16795  M00S12051.pfm     +++|*                (EQ) = FAMILY EST ORDINAL.
16796  M00S12052.pfm     +++|*
16797  M00S12053.pfm     +++|*         USES   CM, T5, T6.
16798  M00S12054.pfm     +++|*
Line S12055 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
16799  M01S12055.242l642 ---|*         CALLS  CTI, ITF, RMD, RSS, SDN.
Line S01484 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
16800  M02S01484.ns2776  ---|*         CALLS  CTI, ITC, PDV, RMD, RSS, SDN.
Line S00089 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
16801  M01S00089.ns2776  +++|*         CALLS  CTI, ITC, PDA, PDV, RMD, RSS, SDN.
16802  M00S12056.pfm     +++|*
16803  M00S12057.pfm     +++|*         MACROS ENDMS, ERROR, SETMS.
16804  M00S12058.pfm     +++|
16805  M00S12059.pfm     +++|
16806  M00S12060.pfm     +++| CFB      SUBR               ENTRY/EXIT
16807  M00S12061.pfm     +++|          LDM    FCBS,CI
16808  M00S12062.pfm     +++|          SHN    21-13
16809  M00S12063.pfm     +++|          PJN    CFBX        IF NOT DIRECT ACCESS FILE
16810  M00S12064.pfm     +++|          ENDMS
Line S01485 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
16811  M01S01485.242l642 +++|          LDD    EQ          SET DIRECT ACCESS DEVICE EST ORDINAL
16812  M01S01486.242l642 +++|          STM    PFEQ
16813  M00S12065.pfm     +++|          LDM    FCDN,CI     DETERMINE EST ORDINAL OF DEVICE
16814  M00S12066.pfm     +++|          LPN    77
Line S12067 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
16815  M01S12067.ns2415  ---|          ZJN    CFB2        IF FILE ON MASTER DEVICE
Line S00176 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
16816  M01S00176.ns2415  +++|          ZJN    CFB4        IF FILE ON MASTER DEVICE
16817  M00S12068.pfm     +++|          STD    CM
16818  M00S12069.pfm     +++|          LDD    EQ
16819  M00S12070.pfm     +++|          RJM    SDN         SEARCH FOR DEVICE NUMBER
Line S12071 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
16820  M01S12071.ns2415  ---|          PJN    CFB1        IF DEVICE FOUND
Line S00177 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
16821  M01S00177.ns2415  +++|          PJN    CFB3        IF DEVICE FOUND
Line S12072 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
16822  M01S12072.242l642 ---|          ERROR  DAD,CH      * DIRECT ACCESS DEVICE ERROR*
Line S01487 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
16823  M01S01487.242l642 +++|          ADN    1
Line S01488 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
16824  M02S01488.ns2415  ---|          ZJN    CFB0.1      IF DEVICE NOT FOUND
Line S00178 Modification History
M01 (Added by) ns2415
M02 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
16825  M02S00178.ns2776  ---|          ZJN    CFB1        IF DEVICE NOT FOUND
Line S01489 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
16826  M02S01489.ns2776  ---|          RJM    PDV         PROCESS DEVICE STATUS
Line S00090 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
16827  M01S00090.ns2776  +++|          RJM    PDA         PROCESS DEVICE AVAILABILITY
Line S01490 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
16828  M02S01490.ns2415  ---| CFB0.1   ERROR  DAD,CH      * DIRECT ACCESS DEVICE ERROR.*
Line S00179 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
16829  M01S00179.ns2415  +++| CFB1     ERROR  DAD,CH      * DIRECT ACCESS DEVICE ERROR.*
16830  M00S12073.pfm     +++|
Line S12074 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
16831  M01S12074.ns2415  ---| CFB1     LDD    T5          SAVE ALTERNATE DEVICE EST ORDINAL
Line S00180 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
16832  M01S00180.ns2415  +++| CFB2     ERROR  TNR,CH,,T5  *EQXXX,DNYY, TRACK NOT RESERVED.*
16833  M01S00181.ns2415  +++|
16834  M01S00182.ns2415  +++| CFB3     LDD    T5          SAVE ALTERNATE DEVICE EST ORDINAL
16835  M00S12075.pfm     +++|          STM    CALA
Line S01491 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
16836  M01S01491.242l642 +++|          STM    PFEQ
Line S12076 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
16837  M01S12076.ns2415  ---| CFB2     LDM    FCBT,CI
16838  M01S12077.ns2415  ---|          ZJP    CFB5        IF FILE NOT DISK RESIDENT
Line S00183 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
16839  M01S00183.ns2415  +++| CFB4     LDM    FCBT,CI
16840  M01S00184.ns2415  +++|          ZJP    CFB8        IF FILE NOT DISK RESIDENT
Line S12078 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
16841  M01S12078.242l642 ---|          RJM    ITF         INTERLOCK FIRST TRACK OF FILE
16842  M01S12079.242l642 ---|          SETMS  READ
Line S01492 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
16843  M01S01492.242l642 +++|          STM    PFFT        FIRST TRACK
16844  M01S01493.242l642 +++|          RJM    ITC         INTERLOCK TRACK CHAIN FOR FILE
Line S00185 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
16845  M01S00185.ns2415  +++|          NJN    CFB2        IF TRACK NOT RESERVED
Line S01494 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
16846  M01S01494.242l642 +++|          AOM    DAIF        SET INTERLOCK FLAG
16847  M01S01495.242l642 +++|          SETMS  IO
16848  M01S01496.242l642 +++|          RJM    PDV         PROCESS DEVICE STATUS
16849  M00S12080.pfm     +++|          LDN    0           DONT VERIFY FILE NAME IN SYSTEM SECTOR
16850  M00S12081.pfm     +++|          RJM    RSS         READ SYSTEM SECTOR
Line S12082 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
16851  M01S12082.ns2415  ---|          ZJN    CFB3        IF LEGAL SYSTEM SECTOR
Line S12083 Modification History
M01 (Removed by) 242l642
M02 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
16852  M02S12083.ns2415  ---|          ENDMS
16853  M02S12084.ns2415  ---|          LDD    T6
16854  M02S12085.ns2415  ---|          RJM    CTI
16855  M02S12086.ns2415  ---|          ERROR  DAF,CH,,T5  *EQXXX,DNXX,DIRECT ACCESS FILE ERROR*
Line S01497 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
16856  M02S01497.ns2415  ---|          MJN    CFB2.1      IF READ ERROR
Line S00186 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
16857  M01S00186.ns2415  +++|          ZJN    CFB6        IF LEGAL SYSTEM SECTOR
16858  M01S00187.ns2415  +++|          MJN    CFB5        IF READ ERROR
Line S01498 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
16859  M01S01498.242l642 +++|          ERROR  DAF,,,T5    *EQXXX,DNYY, DIRECT ACCESS FILE ERROR.*
16860  M01S01499.242l642 +++|
Line S01500 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
16861  M02S01500.ns2415  ---| CFB2.1   RJM    PES         PROCESS ERROR STATUS
Line S00188 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
16862  M01S00188.ns2415  +++| CFB5     RJM    PES         PROCESS ERROR STATUS
Line S01501 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
16863  M01S01501.242l642 +++|          ERROR  MSE,CH,,T5  *EQXXX,DNYY, MASS STORAGE ERROR.*
16864  M00S12087.pfm     +++|
Line S12088 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
16865  M01S12088.ns2415  ---| CFB3     ENDMS
Line S00189 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
16866  M01S00189.ns2415  +++| CFB6     ENDMS
16867  M00S12089.pfm     +++|          LDM    CASS        CHECK IF FILE BUSY
16868  M00S12090.pfm     +++|          ADM    FISS
16869  M00S12091.pfm     +++|          ADM    UCSS+1
16870  M00S12092.pfm     +++|          ADM    UCSS+2
16871  M00S12093.pfm     +++|          ADM    UCSS+3
16872  M00S12094.pfm     +++|          ADM    UCSS+4
Line S12095 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
16873  M01S12095.ns2415  ---|          ZJN    CFB4        IF FILE NOT BUSY
Line S00190 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
16874  M01S00190.ns2415  +++|          ZJN    CFB7        IF FILE NOT BUSY
Line S12096 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
16875  M01S12096.242l642 ---|          LDD    T6
16876  M01S12097.242l642 ---|          RJM    CTI
16877  M00S12098.pfm     +++|          ERROR  FBS,CH      * FILE BUSY*
16878  M00S12099.pfm     +++|
Line S12100 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
16879  M01S12100.ns2415  ---| CFB4     LDD    T6
Line S00191 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
16880  M01S00191.ns2415  +++| CFB7     LDD    T6
16881  M00S12101.pfm     +++|          RJM    CTI         RELEASE FILE INTERLOCK
Line S01502 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
16882  M01S01502.242l642 +++|          LDN    0           CLEAR INTERLOCK FLAG
16883  M01S01503.242l642 +++|          STM    DAIF
Line S12102 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
16884  M01S12102.ns2415  ---| CFB5     RJM    RMD         RESET TO MASTER DEVICE
Line S00192 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
16885  M01S00192.ns2415  +++| CFB8     RJM    RMD         RESET TO MASTER DEVICE
16886  M00S12103.pfm     +++|          LJM    CFBX        RETURN
16887  M00S12104.pfm     +++| CFN      SPACE  4,10
16888  M00S12105.pfm     +++|**        CFN - CHECK FILE NAMES.
16889  M00S12106.pfm     +++|*
16890  M00S12107.pfm     +++|*         ENTRY  (FN - FN+3) = OLD FILE NAME.
16891  M00S12108.pfm     +++|*                (FS - FS+3) = NEW FILE NAME.
16892  M00S12109.pfm     +++|*                (P1) = 1 IF OLD ALREADY FOUND.
Line S12110 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
16893  M01S12110.ns2415  ---|*                (T3) = INDEX TO CATALOG ENTRY
Line S00193 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
16894  M01S00193.ns2415  +++|*                (T3) = INDEX TO CATALOG ENTRY.
16895  M00S12111.pfm     +++|*
16896  M00S12112.pfm     +++|*         EXIT   (A) = 0 IF OLD NOT FOUND.
16897  M00S12113.pfm     +++|
16898  M00S12114.pfm     +++|
16899  M00S12115.pfm     +++| CFN      SUBR               ENTRY/EXIT
16900  M00S12116.pfm     +++|
16901  M00S12117.pfm     +++|*         CHECK OLD FILE NAME.
16902  M00S12118.pfm     +++|
16903  M00S12119.pfm     +++| CFNA     LDN    0
16904  M00S12120.pfm     +++|*         LDN    1           (OLD FILE NAME ALREADY FOUND)
16905  M00S12121.pfm     +++|          NJN    CFN1        IF OLD FILE NAME ALREADY FOUND
16906  M00S12122.pfm     +++|          LDI    T3
16907  M00S12123.pfm     +++|          LMD    FN
16908  M00S12124.pfm     +++|          NJN    CFN1        IF NOT EQUAL
16909  M00S12125.pfm     +++|          LDM    FCFN+1,T3
16910  M00S12126.pfm     +++|          LMD    FN+1
16911  M00S12127.pfm     +++|          NJN    CFN1        IF NOT EQUAL
16912  M00S12128.pfm     +++|          LDM    FCFN+2,T3
16913  M00S12129.pfm     +++|          LMD    FN+2
16914  M00S12130.pfm     +++|          NJN    CFN1        IF NOT EQUAL
16915  M00S12131.pfm     +++|          LDM    FCFN+3,T3
16916  M00S12132.pfm     +++|          LMD    FN+3
16917  M00S12133.pfm     +++|          SHN    -6
Line S12134 Modification History
M01 (Removed by) pfm60
Seq #  *Modification Id* Act 
----------------------------+
16918  M01S12134.pfm60   ---| CFN1     NJN    CFN3        IF NOT OLD FILE
16919  M01S12135.pfm60   ---|          LDD    T3          CHECK IF JOB CAN ACCESS FILE
16920  M01S12136.pfm60   ---|          RAM    CFNB
16921  M01S12137.pfm60   ---|          LDD    MA
16922  M01S12138.pfm60   ---|          CWM    FCAL-1,ON
16923  M01S12139.pfm60   ---| CFNB     EQU    *-1
Line S00030 Modification History
M01 (Added by) pfm60
Seq #  *Modification Id* Act 
----------------------------+
16924  M01S00030.pfm60   +++| CFN1     NJP    CFN3        IF NOT OLD FILE
16925  M01S00031.pfm60   +++|          LDN    ZERL        CHECK IF JOB CAN ACCESS FILE
16926  M01S00032.pfm60   +++|          CRD    CM
16927  M01S00033.pfm60   +++|          LDM    FCAL,T3     SET ACCESS LEVEL
16928  M01S00034.pfm60   +++|          LPN    7
16929  M01S00035.pfm60   +++|          STD    CM+1
16930  M01S00036.pfm60   +++|          LDM    FCFC,T3     SET ACCESS CATEGORY
16931  M01S00037.pfm60   +++|          LPC    377
16932  M01S00038.pfm60   +++|          STD    CM+2
16933  M01S00039.pfm60   +++|          LDM    FCFC+1,T3
16934  M01S00040.pfm60   +++|          STD    CM+3
16935  M01S00041.pfm60   +++|          LDM    FCFC+2,T3
16936  M01S00042.pfm60   +++|          STD    CM+4
16937  M01S00043.pfm60   +++|          LDD    MA
16938  M01S00044.pfm60   +++|          CWD    CM
16939  M00S12140.pfm     +++|          LDN    ZERL
16940  M00S12141.pfm     +++|          CRD    CM
16941  M00S12142.pfm     +++|          LDN    VAJS        CHECK ACCESS LEVEL AND CATEGORY SET
16942  M00S12143.pfm     +++|          STD    CM+1
16943  M00S12144.pfm     +++|          ERRNZ  VAJS-3      CODE DEPENDS ON VALUE
16944  M00S12145.pfm     +++|          STD    CM+4
16945  M00S12146.pfm     +++|          MONITOR  VSAM
16946  M00S12147.pfm     +++|          LDD    CM+1
16947  M00S12148.pfm     +++|          NJN    CFN2        IF NOT VALID ACCESS
16948  M00S12149.pfm     +++|          AOM    CFNA        SET TO BYPASS COMPARE OF OLD FILENAME
16949  M00S12150.pfm     +++|          LJM    CFNX        RETURN
16950  M00S12151.pfm     +++|
16951  M00S12152.pfm     +++| CFN2     ERROR  JCA,,,,SVE  * JOB CANNOT ACCESS FILE.*
16952  M00S12153.pfm     +++|
16953  M00S12154.pfm     +++|*         CHECK NEW FILE NAME.
16954  M00S12155.pfm     +++|
16955  M00S12156.pfm     +++| CFN3     LDN    0
16956  M00S12157.pfm     +++|*         LDN    1           (NO NEW FILE NAME)
16957  M00S12158.pfm     +++| CFNC     EQU    *-1
16958  M00S12159.pfm     +++|          NJN    CFN4        IF NO NEW FILENAME SPECIFIED
16959  M00S12160.pfm     +++|          LDI    T3
16960  M00S12161.pfm     +++|          LMD    FS
16961  M00S12162.pfm     +++|          NJN    CFN4        IF NOT EQUAL
16962  M00S12163.pfm     +++|          LDM    FCFN+1,T3
16963  M00S12164.pfm     +++|          LMD    FS+1
16964  M00S12165.pfm     +++|          NJN    CFN4        IF NOT EQUAL
16965  M00S12166.pfm     +++|          LDM    FCFN+2,T3
16966  M00S12167.pfm     +++|          LMD    FS+2
16967  M00S12168.pfm     +++|          NJN    CFN4        IF NOT EQUAL
16968  M00S12169.pfm     +++|          LDM    FCFN+3,T3
16969  M00S12170.pfm     +++|          LMD    FS+3
16970  M00S12171.pfm     +++|          SHN    -6
16971  M00S12172.pfm     +++|          NJN    CFN4        IF NOT EQUAL
16972  M00S12173.pfm     +++|          LDD    MA
16973  M00S12174.pfm     +++|          CWD    FS
16974  M00S12175.pfm     +++|          CRD    FN
16975  M00S12176.pfm     +++|          ERROR  FAP         *(FILENAME) ALREADY PERMANENT.*
16976  M00S12177.pfm     +++|
16977  M00S12178.pfm     +++| CFN4     LDN    0
16978  M00S12179.pfm     +++|          LJM    CFNX        EXIT
Line S00033 Modification History
M01 (Added by) pfm36
Seq #  *Modification Id* Act 
----------------------------+
16979  M01S00033.pfm36   +++| ICT      SPACE  4,15
16980  M01S00034.pfm36   +++|**        ICT - INTERLOCK CATALOG TRACK.
16981  M01S00035.pfm36   +++|*
16982  M01S00036.pfm36   +++|*         ENTRY  (T6) = CATALOG TRACK TO BE INTERLOCKED.
16983  M01S00037.pfm36   +++|*                (T5) = EST ORDINAL.
16984  M01S00038.pfm36   +++|*
16985  M01S00039.pfm36   +++|*         EXIT   TRACK INTERLOCKED.
16986  M01S00040.pfm36   +++|*                RECALL *PFM* IF INTERLOCK NOT AVAILABLE
Line S00041 Modification History
M01 (Added by) pfm36
M02 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
16987  M02S00041.ns2415  ---|*                 AFTER TWO TRIES.
Line S00194 Modification History
M01 (Added by) ns2415
M02 (Removed by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
16988  M02S00194.pfm52   ---|*                  AFTER TWO TRIES.
Line S00045 Modification History
M01 (Added by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
16989  M01S00045.pfm52   +++|*                  AFTER FOUR TRIES.
Line S00195 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
16990  M01S00195.ns2415  +++|*                TO *HNG* IF CATALOG TRACK NOT RESERVED.
Line S00042 Modification History
M01 (Added by) pfm36
Seq #  *Modification Id* Act 
----------------------------+
16991  M01S00042.pfm36   +++|*
16992  M01S00043.pfm36   +++|*         CALLS  DPR, STI.
16993  M01S00044.pfm36   +++|
16994  M01S00045.pfm36   +++|
16995  M01S00046.pfm36   +++| ICT      SUBR               ENTRY/EXIT
Line S00047 Modification History
M01 (Added by) pfm36
M02 (Removed by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
16996  M02S00047.pfm52   ---|          RJM    STI         TRY TO INTERLOCK TRACK
Line S00046 Modification History
M01 (Added by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
16997  M01S00046.pfm52   +++|          LDN    3           SET RETRY COUNT
16998  M01S00047.pfm52   +++|          STD    T1
16999  M01S00048.pfm52   +++| ICT1     RJM    STI         TRY TO INTERLOCK TRACK
Line S00048 Modification History
M01 (Added by) pfm36
Seq #  *Modification Id* Act 
----------------------------+
17000  M01S00048.pfm36   +++|          ZJN    ICTX        IF INTERLOCK SUCCESSFUL
Line S00196 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
17001  M01S00196.ns2415  +++|          LMN    2
Line S00197 Modification History
M01 (Added by) ns2415
M02 (Removed by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
17002  M02S00197.pfm52   ---|          ZJN    ICT1        IF TRACK NOT RESERVED
Line S00049 Modification History
M01 (Added by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
17003  M01S00049.pfm52   +++|          ZJN    ICT2        IF TRACK NOT RESERVED
17004  M01S00050.pfm52   +++|          SOD    T1
17005  M01S00051.pfm52   +++|          MJN    ICT3        IF RETRY COUNT EXHAUSTED
Line S00049 Modification History
M01 (Added by) pfm36
Seq #  *Modification Id* Act 
----------------------------+
17006  M01S00049.pfm36   +++|          RJM    DPR         DELAY PRIOR TO RETRY
Line S00050 Modification History
M01 (Added by) pfm36
M02 (Removed by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
17007  M02S00050.pfm52   ---|          RJM    STI         TRY TO INTERLOCK TRACK
17008  M02S00051.pfm52   ---|          ZJN    ICTX        IF INTERLOCK SUCCESSFUL
Line S00198 Modification History
M01 (Added by) ns2415
M02 (Removed by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
17009  M02S00198.pfm52   ---|          LMN    2
17010  M02S00199.pfm52   ---|          ZJN    ICT1        IF TRACK NOT RESERVED
Line S00052 Modification History
M01 (Added by) pfm36
M02 (Removed by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
17011  M02S00052.pfm52   ---|          EXIT   INA,CH,,,EC4  * INTERLOCK NOT AVAILABLE.*
Line S00052 Modification History
M01 (Added by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
17012  M01S00052.pfm52   +++|          UJN    ICT1        RETRY
Line S00200 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
17013  M01S00200.ns2415  +++|
Line S00201 Modification History
M01 (Added by) ns2415
M02 (Removed by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
17014  M02S00201.pfm52   ---| ICT1     RJM    HNG         HANG IF CATALOG TRACK NOT RESERVED
Line S00053 Modification History
M01 (Added by) pfm52
Seq #  *Modification Id* Act 
----------------------------+
17015  M01S00053.pfm52   +++| ICT2     RJM    HNG         HANG IF CATALOG TRACK NOT RESERVED
17016  M01S00054.pfm52   +++|
17017  M01S00055.pfm52   +++| ICT3     EXIT   INA,CH,,,EC4  * INTERLOCK NOT AVAILABLE.*
Line S12180 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17018  M01S12180.242l642 ---| ISP      SPACE  4,15
Proceed to Part 12
cdc/nos2.source/opl.opl871/deck/pfm.011.txt ยท Last modified: by 127.0.0.1