User Tools

Site Tools


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

Deck PFM Part 016

95 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
18649  M01S00004.ns2773  +++| SPFB     LDC    /MTX/PFTB   SET ADDRESS OF *MAGNET* *TDAM* BUFFER
18650  M01S00779.253l688 +++|*         LDC    MIRE        SET ADDRESS OF *MSS*/MSE* *TDAM* BUFFER
18651  M01S00780.253l688 +++|          STD    CM+4
18652  M01S00781.253l688 +++|          MONITOR  TDAM      ISSUE *TDAM* REQUEST
18653  M01S00782.253l688 +++|          LJM    SPFC,CM+1   PROCESS ACCORDING TO *TDAM* REQUEST STATUS
18654  M01S00783.253l688 +++|
18655  M01S00784.253l688 +++| SPFC     BSS    0           *TDAM* STATUS PROCESSOR TABLE
18656  M01S00785.253l688 +++|          UJN    SPF10       (ST=0) *TDAM* REQUEST ACCEPTED
18657  M01S00786.253l688 +++|          UJN    SPF12       (ST=1) STORAGE MOVE IN PROGRESS
18658  M01S00787.253l688 +++|          UJN    SPF13       (ST=2) NOT READY FOR DATA
18659  M01S00788.253l688 +++|          UJN    SPF12       (ST=3) REJECT (NONZERO FIRST WORD)
18660  M01S00789.253l688 +++|          UJN    SPF13       (ST=4) INACTIVE
18661  M01S00790.253l688 +++|
18662  M01S00791.253l688 +++|*         PROCESS THE (ST=0) NORMAL STATUS CASE OF ACCEPTED REQUEST.
18663  M01S00792.253l688 +++|
Line S00793 Modification History
M01 (Added by) 253l688
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
18664  M02S00793.ns2673  ---| SPF10    LDD    CC
18665  M01S00007.ns2673  +++| SPF10    RJM    ISM         ISSUE REQUEST STAGE MESSAGE
18666  M01S00008.ns2673  +++|          LDD    CC
18667  M01S00794.253l688 +++|          LMN    CCSP
18668  M01S00795.253l688 +++|          ZJN    SPF11       IF *STAGEPF* REQUEST
18669  M01S00796.253l688 +++|          EXIT   PSI,CH,IW,,EC2  *(PFN) STAGE INITIATED.*
18670  M01S00797.253l688 +++|
18671  M01S00798.253l688 +++| SPF11    EXECUTE  3PU       TERMINATE *PFM* WITH NO ERROR STATUS
18672  M01S00799.253l688 +++|
18673  M01S00800.253l688 +++|*         PROCESS THE (ST=1)/(ST=3) STATUS CASES.
18674  M01S00801.253l688 +++|
18675  M01S00802.253l688 +++| SPF12    AOD    P0          TRY *TDAM* *MXRL* TIMES
18676  M01S00803.253l688 +++|          SBN    MXRL
18677  M01S00804.253l688 +++|          ZJN    SPF13       IF TIME TO GIVE UP
18678  M01S00805.253l688 +++|          PAUSE  NE
18679  M01S00806.253l688 +++|          LDC    370001+SBNI DELAY
18680  M01S00807.253l688 +++|          NJN    *-1         IF DELAY NOT EXHAUSTED
18681  M01S00808.253l688 +++|          UJP    SPF6        CONTINUE REQUEST LOOP
18682  M01S00809.253l688 +++|
18683  M01S00810.253l688 +++|*         PROCESS THE (ST=2)/(ST=4) STATUS CASES.
18684  M01S00811.253l688 +++|
18685  M01S00812.253l688 +++| SPF13    LDN    0           SET EST ORDINAL FOR EVENT
18686  M01S00813.253l688 +++|          STM    ERRE
18687  M01S00814.253l688 +++| SPFD     LDC    MTXE        SET WAITING FOR *MAGNET* EVENT
18688  M01S00815.253l688 +++|*         LDC    MSXE        (SET WAITING FOR *MSS* EVENT)
18689  M01S00816.253l688 +++|*         LDC    ASXE        (SET WAITING FOR *MSE* EVENT)
18690  M01S00817.253l688 +++|          STM    ERRC
Line S00818 Modification History
M01 (Added by) 253l688
M02 (Updated by) ns2722
Seq #  *Modification Id* Act 
----------------------------+
18691  M02S00818.ns2722  ---|          EXIT   PWE,CH,IW,,EC1 *(PFN) WAITING ALTERNATE STORAGE EXEC.*
18692  M01S00012.ns2722  +++|          EXIT   PWE,CH,IW,,EC1 *(PFN) WAITING FOR SUBSYSTEM.*
18693  M01S00819.253l688 +++|          TITLE  SUBROUTINES.
18694  M01S00820.253l688 +++| CCC      SPACE  4,20
18695  M01S00821.253l688 +++|***       CCC - CHECK FOR CARTRIDGE ALTERNATE STORAGE COPY OF FILE.
18696  M01S00822.253l688 +++|*
18697  M01S00034.pfm73   +++|*         ENTRY  (CI) = ADDRESS OF PFC ENTRY IN BUFFER.
18698  M01S00035.pfm73   +++|*
18699  M01S00823.253l688 +++|*         EXIT   (A) = 0 IF CARTRIDGE COPY AVAILABLE.
18700  M01S00824.253l688 +++|*                    = 1 IF NO CARTRIDGE COPY EXISTS.
18701  M01S00825.253l688 +++|*                    = 2 IF COPY EXISTS BUT CARTRIDGE STAGING DISABLED.
18702  M01S00826.253l688 +++|*                    = 3 IF COPY EXISTS BUT TEMPORARY ERROR FLAG SET.
18703  M01S00827.253l688 +++|*                    = 4 IF COPY EXISTS BUT PERMANENT ERROR FLAG SET.
18704  M01S00828.253l688 +++|*                *AFTMP* ERROR FLAG CLEARED IN PFC, IF PRESENT.
Line S00829 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18705  M02S00829.pfm73   ---|*                CATALOG ENTRY REWRITTEN, IF *AFTMP* CLEARED.
Line S00830 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18706  M02S00830.pfm73   ---|*                *ENDMS* PERFORMED.
Line S00831 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18707  M02S00831.pfm73   ---|*                CATALOG INTERLOCK CLEARED.
18708  M01S00832.253l688 +++|*
18709  M01S00833.253l688 +++|*         USES   CM - CM+4.
Line S00834 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18710  M02S00834.pfm73   ---|*
Line S00835 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18711  M02S00835.pfm73   ---|*         CALLS  CCI, WBI.
Line S00836 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18712  M02S00836.pfm73   ---|*
Line S00837 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18713  M02S00837.pfm73   ---|*         MACROS ENDMS.
18714  M01S00838.253l688 +++|
18715  M01S00839.253l688 +++|
18716  M01S00036.pfm73   +++| CCC4     LDN    1           SET *NO CARTRIDGE COPY EXISTS* STATUS
18717  M01S00840.253l688 +++|
18718  M01S00841.253l688 +++| CCC      SUBR               ENTRY/EXIT
18719  M01S00842.253l688 +++|          LDM    FCAA,CI
18720  M01S00843.253l688 +++|          ADM    FCAA+1,CI
18721  M01S00844.253l688 +++|          ADM    FCAA+2,CI
Line S00845 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18722  M02S00845.pfm73   ---|          ZJN    CCC1        IF NO CARTRIDGE ALTERNATE STORAGE COPY
18723  M01S00037.pfm73   +++|          ZJN    CCC4        IF NO CARTRIDGE ALTERNATE STORAGE COPY
18724  M01S00846.253l688 +++|          LDM    FCAF,CI
18725  M01S00847.253l688 +++|          LPK    AFOBSM
Line S00848 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18726  M02S00848.pfm73   ---|          NJN    CCC1        IF CARTRIDGE COPY OBSOLETE
18727  M01S00038.pfm73   +++|          NJN    CCC4        IF CARTRIDGE COPY OBSOLETE
18728  M01S00849.253l688 +++|          LDK    SSTL        CHECK IF CARTRIDGE STAGING ENABLED
18729  M01S00850.253l688 +++|          CRD    CM
18730  M01S00851.253l688 +++|          LDD    CM
Line S00852 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm72
Seq #  *Modification Id* Act 
----------------------------+
18731  M02S00852.pfm72   ---|          SHN    21-3
18732  M01S00001.pfm72   +++|          SHN    21-6
Line S00853 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18733  M02S00853.pfm73   ---|          PJN    CCC3        IF CARTRIDGE PF STAGING ENABLED
18734  M01S00039.pfm73   +++|          PJN    CCC2        IF CARTRIDGE PF STAGING ENABLED
18735  M01S00854.253l688 +++|          LDN    2           SET *STAGING DISABLED* STATUS
Line S00855 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18736  M02S00855.pfm73   ---|          RAM    CCCA
Line S00856 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18737  M02S00856.pfm73   ---|          UJN    CCC2        RETURN
Line S00857 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18738  M02S00857.pfm73   ---|
Line S00858 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18739  M02S00858.pfm73   ---| CCC1     LDN    1           SET *NO CARTRIDGE COPY EXISTS* STATUS
Line S00859 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18740  M02S00859.pfm73   ---|          RAM    CCCA
Line S00860 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18741  M02S00860.pfm73   ---| CCC2     ENDMS
Line S00861 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18742  M02S00861.pfm73   ---|          RJM    CCI         CLEAR CATALOG INTERLOCK
Line S00862 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18743  M02S00862.pfm73   ---| CCCA     LDN    0           RETURN *CARTRIDGE COPY AVAILABLE* STATUS
Line S00863 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18744  M02S00863.pfm73   ---|*         LDN    1           (*NO CARTRIDGE COPY EXISTS*)
Line S00864 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18745  M02S00864.pfm73   ---|*         LDN    2           (*STAGING DISABLED*)
Line S00865 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18746  M02S00865.pfm73   ---|*         LDN    3           (*TEMPORARY ERROR FLAG*)
Line S00866 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18747  M02S00866.pfm73   ---|*         LDN    4           (*PERMANENT ERROR FLAG*)
Line S00867 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18748  M02S00867.pfm73   ---|          UJN    CCCX        RETURN
18749  M01S00040.pfm73   +++| CCC1     UJN    CCCX        RETURN
18750  M01S00868.253l688 +++|
18751  M01S00869.253l688 +++|*         CLEAR CARTRIDGE TEMPORARY ERROR FLAG, IF PRESENT.
18752  M01S00870.253l688 +++|
Line S00871 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18753  M02S00871.pfm73   ---| CCC3     LDD    CC
18754  M01S00041.pfm73   +++| CCC2     LDD    CC
18755  M01S00872.253l688 +++|          LMN    CCSP
Line S00873 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18756  M02S00873.pfm73   ---|          ZJN    CCC4        IF *STAGEPF* REQUEST
18757  M01S00042.pfm73   +++|          ZJN    CCC3        IF *STAGEPF* REQUEST
18758  M01S00874.253l688 +++|          LDM    FCAF,CI
18759  M01S13209.pfm     +++|          LPN    AFTMPM
Line S13210 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18760  M02S13210.253l688 ---|          ZJN    MAT2        IF NO TEMPORARY ERROR
Line S13211 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18761  M02S13211.253l688 ---|          LMD    T1          CLEAR TEMPORARY ERROR FLAG
Line S00875 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18762  M02S00875.pfm73   ---|          ZJN    CCC4        IF NO TEMPORARY ERROR
18763  M01S00043.pfm73   +++|          ZJN    CCC3        IF NO TEMPORARY ERROR
18764  M01S00876.253l688 +++|          LMM    FCAF,CI     CLEAR TEMPORARY ERROR FLAG
18765  M01S13212.pfm     +++|          STM    FCAF,CI
Line S13213 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18766  M02S13213.pfm73   ---|          LDD    CB          REWRITE CATALOG
Line S13214 Modification History
M01 (Added by) pfm
M02 (Updated by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18767  M02S13214.pfm73   ---|          RJM    WBI
Line S13215 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18768  M02S13215.253l688 ---|          ERROR  TPE         *(NAME) TEMPORARY ERROR, TRY LATER.*
18769  M01S00877.253l688 +++|          LDN    3           SET *TEMPORARY ERROR FLAG* STATUS
Line S00878 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18770  M02S00878.pfm73   ---|          RAM    CCCA
Line S00879 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18771  M02S00879.pfm73   ---|          UJN    CCC2        RETURN
18772  M01S00044.pfm73   +++|          UJN    CCC1        RETURN
18773  M01S13216.pfm     +++|
Line S13217 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18774  M02S13217.253l688 ---| MAT2     RJM    CCI         CLEAR CATALOG TRACK INTERLOCK
Line S13218 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18775  M02S13218.253l688 ---|          RJM    STR         SET UP TDAM REQUEST
Line S13219 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18776  M02S13219.253l688 ---|          LDC    ART         SET ROLLOUT TIME LIMIT
Line S13220 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18777  M02S13220.253l688 ---|          STM    ERRD
Line S13221 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18778  M02S13221.253l688 ---|          LDN    0           INITIALIZE FOR LOOP
Line S13222 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18779  M02S13222.253l688 ---|          STD    P1
Line S00880 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18780  M02S00880.pfm73   ---| CCC4     LDM    FCAF,CI     CHECK FOR CARTRIDGE ERROR FLAGS
18781  M01S00045.pfm73   +++| CCC3     LDM    FCAF,CI     CHECK FOR CARTRIDGE ERROR FLAGS
18782  M01S00881.253l688 +++|          LPN    AFPSEM+AFPDEM
Line S00882 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18783  M02S00882.pfm73   ---|          ZJN    CCC2        IF NO PERMANENT ERRORS, RETURN *AVAILABLE*
18784  M01S00046.pfm73   +++|          ZJN    CCC1        IF NO PERMANENT ERRORS, RETURN *AVAILABLE*
18785  M01S00883.253l688 +++|          LDN    4           SET *PERMANENT ERROR FLAG* STATUS
Line S13223 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18786  M02S13223.253l688 ---|
Line S13224 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18787  M02S13224.253l688 ---|*         LOOP *MXRL* TIMES ISSUEING TDAM REQUESTS TO THE EXECUTIVE.
Line S00884 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18788  M02S00884.pfm73   ---|          RAM    CCCA
Line S00885 Modification History
M01 (Added by) 253l688
M02 (Updated by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18789  M02S00885.pfm73   ---|          UJN    CCC2        RETURN
18790  M01S00047.pfm73   +++|          UJN    CCC1        RETURN
18791  M01S00886.253l688 +++| CTC      SPACE  4,15
18792  M01S00887.253l688 +++|**        CTC - CHECK FOR TAPE ALTERNATE STORAGE COPY OF FILE.
18793  M01S00048.pfm73   +++|*
18794  M01S00049.pfm73   +++|*         ENTRY  (CI) = ADDRESS OF PFC ENTRY IN BUFFER.
18795  M01S00888.253l688 +++|*
18796  M01S00889.253l688 +++|*         EXIT   (A) = 0 IF TAPE COPY AVAILABLE.
18797  M01S00890.253l688 +++|*                    = 1 IF NO TAPE COPY EXISTS.
18798  M01S00891.253l688 +++|*                    = 2 IF COPY EXISTS BUT TAPE STAGING DISABLED.
18799  M01S00892.253l688 +++|*                    = 3 IF COPY EXISTS BUT *VSN MISSING* FLAG SET.
18800  M01S00893.253l688 +++|*                    = 4 IF COPY EXISTS BUT *DATA ERROR* FLAG SET.
18801  M01S00894.253l688 +++|*
18802  M01S00895.253l688 +++|*         USES   T1, CM - CM+4.
18803  M01S00896.253l688 +++|*
18804  M01S00897.253l688 +++|*         CALLS  STT.
18805  M01S13225.pfm     +++|
Line S13226 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18806  M02S13226.253l688 ---| MAT3     LDN    SSTL        CHECK ALTERNATE STORAGE STAGING DISABLED
18807  M01S00898.253l688 +++|
18808  M01S00899.253l688 +++| CTC6     LDN    1           SET *NO COPY EXISTS* STATUS
18809  M01S00900.253l688 +++|
18810  M01S00901.253l688 +++| CTC      SUBR               ENTRY/EXIT
18811  M01S00902.253l688 +++|          LDM    FCTV,CI
18812  M01S00903.253l688 +++|          ADM    FCTV+1,CI
18813  M01S00904.253l688 +++|          ZJN    CTC6        IF NO TAPE ALTERNATE STORAGE COPY OF FILE
18814  M01S00905.253l688 +++|          LDK    SSTL        CHECK IF TAPE STAGING IS ENABLED
18815  M01S13227.pfm     +++|          CRD    CM
Line S13228 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18816  M02S13228.253l688 ---|          LDD    CM
Line S13229 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18817  M02S13229.253l688 ---|          SHN    21-6
Line S13230 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18818  M02S13230.253l688 ---|          PJN    MAT4        IF STAGING OF ARCHIVED FILES ENABLED
Line S13231 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18819  M02S13231.253l688 ---|          ERROR  SGD,CH,IW   *STAGING DISABLED.*
Line S00906 Modification History
M01 (Added by) 253l688
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
18820  M02S00906.274l797 ---|          LDD    CM+1
18821  M01S00081.274l797 +++|          LDM    FCTF,CI
18822  M01S00082.274l797 +++|          STD    T1          SAVE (FCTF)
18823  M01S00083.274l797 +++|          SHN    21-TFACS
18824  M01S00084.274l797 +++|          MJN    CTC0.1      IF FILE ON ACS CARTRIDGE TAPE
18825  M01S00085.274l797 +++|          LDD    CM+1        CHECK FOR *TAPE PF STAGING* ENABLED
18826  M01S00907.253l688 +++|          SHN    21-7
18827  M01S00908.253l688 +++|          PJN    CTC1        IF TAPE STAGING IS ENABLED
Line S00909 Modification History
M01 (Added by) 253l688
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
18828  M02S00909.274l797 ---|          LDN    2           SET *STAGING DISABLED* STATUS
18829  M01S00086.274l797 +++| CTC0     LDN    2           SET *STAGING DISABLED* STATUS
18830  M01S00910.253l688 +++|          UJN    CTCX        RETURN
18831  M01S13232.pfm     +++|
Line S13233 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18832  M02S13233.253l688 ---| MAT4     RJM    ITR         ISSUE TDAM REQUEST
Line S13234 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18833  M02S13234.253l688 ---|          STD    T1
Line S13235 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18834  M02S13235.253l688 ---|          LJM    MATA,T1     PROCESS ACCORDING TO TDAM REQUEST STATUS
Line S13236 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18835  M02S13236.253l688 ---| MATA     UJN    MAT5        (S=0) TDAM REQUEST ACCEPTED
Line S13237 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18836  M02S13237.253l688 ---|          UJN    MAT6        (S=1) STORAGE MOVE IN PROGRESS
Line S13238 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18837  M02S13238.253l688 ---|          UJN    MAT7        (S=2) NOT READY FOR DATA
Line S13239 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18838  M02S13239.253l688 ---|          UJN    MAT6        (S=3) REJECT (NONZERO FIRST WORD)
Line S13240 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18839  M02S13240.253l688 ---|          UJN    MAT7        (S=4) INACTIVE
Line S00911 Modification History
M01 (Added by) 253l688
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
18840  M02S00911.274l797 ---| CTC1     LDM    FCTF,CI
Line S00912 Modification History
M01 (Added by) 253l688
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
18841  M02S00912.274l797 ---|          STD    T1          SAVE (FCTF)
18842  M01S00087.274l797 +++| CTC0.1   LDD    CM+1        CHECK FOR *ACS TAPE PF STAGING* ENABLED
18843  M01S00088.274l797 +++|          SHN    21-11
18844  M01S00089.274l797 +++|          MJN    CTC0        IF ACS TAPE STAGING IS DISABLED
18845  M01S00090.274l797 +++| CTC1     LDD    T1
18846  M01S00913.253l688 +++|          LPK    TFPVNM+TFEPVM
18847  M01S00914.253l688 +++|          ZJN    CTC5        IF NO ERRORS ON PRIMARY VSN
18848  M01S00915.253l688 +++|          LDD    T1
18849  M01S00916.253l688 +++|          LPK    TFSVSM
18850  M01S00917.253l688 +++|          NJN    CTC4        IF SECONDARY VSN EXISTS
18851  M01S00918.253l688 +++| CTC2     LDD    T1
18852  M01S00919.253l688 +++|          LPK    TFPVNM
18853  M01S00920.253l688 +++|          ZJN    CTC3        IF PRIMARY VSN AVAILABLE
18854  M01S00921.253l688 +++|          LDN    3           SET *VSN NOT AVAILABLE* STATUS
Line S00922 Modification History
M01 (Added by) 253l688
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
18855  M02S00922.274l797 ---|          UJN    CTCX        RETURN
18856  M01S00091.274l797 +++|          UJN    CTC5.1      RETURN
18857  M01S13241.pfm     +++|
Line S13242 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18858  M02S13242.253l688 ---|*         PROCESS THE (S=0) NORMAL STATUS CASE OF ACCEPTED REQUEST.
18859  M01S00923.253l688 +++| CTC3     LDN    4           SET *DATA ERROR* STATUS
Line S00924 Modification History
M01 (Added by) 253l688
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
18860  M02S00924.274l797 ---|          UJN    CTCX        RETURN
18861  M01S00092.274l797 +++|          UJN    CTC5.1      RETURN
18862  M01S13243.pfm     +++|
Line S13244 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18863  M02S13244.253l688 ---| MAT5     EXIT   PSI,CH,IW,,EC2  *(PFN) STAGE INITIATED.*
18864  M01S00925.253l688 +++| CTC4     LDD    T1
18865  M01S00926.253l688 +++|          LPK    TFSVNM+TFESVM
18866  M01S00927.253l688 +++|          ZJN    CTC5        IF NO ERRORS ON SECONDARY VSN
18867  M01S00928.253l688 +++|          LPK    TFSVNM
18868  M01S00929.253l688 +++|          NJN    CTC2        IF SECONDARY VSN NOT AVAILABLE
18869  M01S00930.253l688 +++|          UJN    CTC3        SET *DATA ERROR* STATUS
18870  M01S13245.pfm     +++|
Line S13246 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18871  M02S13246.253l688 ---|*         PROCESS THE (S=1)/(S=3) STATUS CASES.
18872  M01S00931.253l688 +++| CTC5     LDN    0           SET *COPY AVAILABLE* STATUS
Line S00932 Modification History
M01 (Added by) 253l688
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
18873  M02S00932.274l797 ---|          UJP    CTCX        RETURN
18874  M01S00093.274l797 +++| CTC5.1   LJM    CTCX        RETURN
18875  M01S00933.253l688 +++| GEE      SPACE  4,15
18876  M01S00934.253l688 +++|**        GEE - GET EST ORDINAL FOR EVENT.
18877  M01S00935.253l688 +++|*
18878  M01S00936.253l688 +++|*         ENTRY  (P1) .NE. 0 IF TAPE STAGE REQUEST.
18879  M01S00937.253l688 +++|*                (GEEA) PRESET WITH CORRECT EQUIPMENT MNEMONIC.
18880  M01S00938.253l688 +++|*
18881  M01S00939.253l688 +++|*         EXIT   (T5) = EST ORDINAL FOR EVENT.
18882  M01S00940.253l688 +++|*                       FOR *MSS* STAGE, ORDINAL OF FIRST *CS* EST.
18883  M01S00941.253l688 +++|*                       FOR *MSE* STAGE, ORDINAL OF FIRST *SS* EST.
18884  M01S00942.253l688 +++|*                       FOR TAPE STAGE, ORDINAL OF FIRST *MT*/*NT* EST.
18885  M01S00943.253l688 +++|*
18886  M01S00944.253l688 +++|*         USES   T5, T6, T0 - T0+4.
18887  M01S00945.253l688 +++|*
18888  M01S00946.253l688 +++|*         MACROS ERROR, SFA.
18889  M01S13247.pfm     +++|
Line S13248 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18890  M02S13248.253l688 ---| MAT6     AOD    P1          CHECK FOR END OF LOOP
Line S13249 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18891  M02S13249.253l688 ---|          SBN    MXRL
Line S13250 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18892  M02S13250.253l688 ---|          ZJN    MAT7        IF AT LOOP END
Line S13251 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18893  M02S13251.253l688 ---|          PAUSE  NE
Line S13252 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18894  M02S13252.253l688 ---|          LDC    370001+SBNI DELAY
Line S13253 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18895  M02S13253.253l688 ---|          NJN    *-1         IF DELAY NOT EXHAUSTED
Line S13254 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18896  M02S13254.253l688 ---|          UJP    MAT3        CONTINUE REQUEST LOOP
18897  M01S13255.pfm     +++|
Line S13256 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18898  M02S13256.253l688 ---|*         PROCESS THE (S=2)/(S=4) STATUS CASES.
18899  M01S00947.253l688 +++| GEE      SUBR               ENTRY/EXIT
18900  M01S13257.pfm     +++|
Line S13258 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18901  M02S13258.253l688 ---| MAT7     LDN    0           SET EST ORDINAL FOR EVENT
Line S13259 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18902  M02S13259.253l688 ---|          STM    ERRE
18903  M01S00948.253l688 +++|*         INITIALIZE FOR EST SEARCH.
18904  M01S00949.253l688 +++|
18905  M01S00950.253l688 +++|          LDN    ESTP        CALCULATE NUMBER OF EST ENTRIES
18906  M01S00951.253l688 +++|          CRD    T0
18907  M01S00952.253l688 +++|          LDN    NOPE        INITIALIZE EST ORDINAL FOR SEARCH
18908  M01S00953.253l688 +++|          STD    T5
18909  M01S00954.253l688 +++|          LDD    T0+2        SAVE LAST EST ORDINAL + 1
18910  M01S00955.253l688 +++|          STD    T6
18911  M01S00956.253l688 +++|
18912  M01S00957.253l688 +++|*         SEARCH FOR ALTERNATE STORAGE EQUIPMENT.
18913  M01S00958.253l688 +++|
18914  M01S00959.253l688 +++| GEE1     SFA    EST,T5      READ EST ENTRY
18915  M01S00960.253l688 +++|          ADK    EQDE
18916  M01S00961.253l688 +++|          CRD    T0
18917  M01S00962.253l688 +++|          LDD    T0+3        CHECK EQUIPMENT MNEMONIC
18918  M01S00963.253l688 +++| GEEA     LMC    2RMT        EQUIPMENT MNEMONIC FOR TAPE STAGE
18919  M01S00964.253l688 +++|*         LMC    2RCS        (EQUIPMENT MNEMONIC FOR *MSS* STAGE)
18920  M01S00965.253l688 +++|*         LMC    2RSS        (EQUIPMENT MNEMONIC FOR *MSE* STAGE)
18921  M01S00966.253l688 +++|          ZJN    GEEX        IF CORRECT EQUIPMENT MNEMONIC
18922  M01S00967.253l688 +++|          LDD    P1
18923  M01S00968.253l688 +++|          ZJN    GEE2        IF NOT TAPE STAGE REQUEST
18924  M01S00969.253l688 +++|          LDD    T0+3        CHECK EQUIPMENT MNEMONIC AGAIN
18925  M01S00970.253l688 +++|          LMC    2RNT        OTHER EQUIPMENT MNEMONIC FOR TAPE STAGE
18926  M01S00971.253l688 +++|          ZJN    GEEX        IF CORRECT EQUIPMENT MNEMONIC
18927  M01S00972.253l688 +++| GEE2     AOD    T5          ADVANCE EST ORDINAL
18928  M01S00973.253l688 +++|          LMD    T6
18929  M01S00974.253l688 +++|          NJN    GEE1        IF NOT END OF EST
18930  M01S00975.253l688 +++|          ERROR  PFN,CH,IW   *DEVICE UNAVAILABLE.*
18931  M01S00009.ns2673  +++| ISM      SPACE  4,15
18932  M01S00010.ns2673  +++|**        ISM - ISSUE REQUEST STAGE MESSAGE.
18933  M01S00011.ns2673  +++|*
18934  M01S00012.ns2673  +++|*         ISSUES AN *STRS* ACCOUNT FILE MESSAGE TO INDICATE THAT THE
18935  M01S00013.ns2673  +++|*         REQUEST FOR STAGE WAS SENT TO *MAGNET*.
18936  M01S00014.ns2673  +++|*
18937  M01S00015.ns2673  +++|*         ENTRY  (CI) = CATALOG INDEX POINTER TO CATALOG ENTRY.
18938  M01S00016.ns2673  +++|*                (P1) .NE. 0 IF TAPE STAGE REQUEST.
18939  M01S00017.ns2673  +++|*                (MSTA) = MST ADDRESS/10.
18940  M01S00018.ns2673  +++|*
18941  M01S00019.ns2673  +++|*         EXIT   ACCOUNT FILE MESSAGE ISSUED.
18942  M01S00020.ns2673  +++|*
18943  M01S00021.ns2673  +++|*         USES   T1, CM - CM+4.
18944  M01S00022.ns2673  +++|*
18945  M01S00023.ns2673  +++|*         CALLS  ACS, C2D, DFM.
18946  M01S00024.ns2673  +++|
18947  M01S00025.ns2673  +++|
18948  M01S00026.ns2673  +++| ISM      SUBR               ENTRY/EXIT
18949  M01S00027.ns2673  +++|          LDD    P1
Line S00028 Modification History
M01 (Added by) ns2673
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
18950  M02S00028.274l797 ---|          ZJN    ISMX        IF NOT TAPE PF STAGE REQUEST
18951  M01S00094.274l797 +++| ISME     ZJN    ISMX        IF NOT TAPE PF STAGE REQUEST
18952  M01S00095.274l797 +++|*         PSN                (IF OPTICAL DISK REQUEST)
18953  M01S00029.ns2673  +++|          LDC    ISMB+3      INITIALIZE POINTER FOR *ACS* CALLS
18954  M01S00030.ns2673  +++|          STD    T1
18955  M01S00031.ns2673  +++|
18956  M01S00032.ns2673  +++|*         SET FILENAME INTO MESSAGE.
18957  M01S00033.ns2673  +++|
18958  M01S00034.ns2673  +++|          LDD    CI          SET ADDRESS OF CATALOG ENTRY
18959  M01S00035.ns2673  +++|          RAM    ISMA+1
18960  M01S00036.ns2673  +++|          LDD    MA
18961  M01S00037.ns2673  +++| ISMA     CWM    FCFN,ON     PFN AND UI
18962  M01S00038.ns2673  +++|          SBN    1           READ PFN
18963  M01S00039.ns2673  +++|          CRD    CM
18964  M01S00040.ns2673  +++|          LDD    CM+3
18965  M01S00041.ns2673  +++|          SCN    77
18966  M01S00042.ns2673  +++|          STD    CM+3        CLEAR UI BITS FROM PFN
18967  M01S00043.ns2673  +++|          LDN    CM          INSERT FILE NAME IN BUFFER
18968  M01S00044.ns2673  +++|          RJM    ACS
18969  M01S00045.ns2673  +++|          LDC    ISMC        APPEND COMMA
18970  M01S00046.ns2673  +++|          RJM    ACS
18971  M01S00047.ns2673  +++|
18972  M01S00048.ns2673  +++|*         CONVERT USER INDEX TO DISPLAY CODE.
18973  M01S00049.ns2673  +++|
18974  M01S00050.ns2673  +++|          LDD    MA          READ UI
18975  M01S00051.ns2673  +++|          CRD    CM
18976  M01S00052.ns2673  +++|          LDD    CM+3
18977  M01S00053.ns2673  +++|          RJM    C2D         CONVERT 2 OCTAL DIGITS TO DISPLAY CODE
18978  M01S00054.ns2673  +++|          STD    CM
18979  M01S00055.ns2673  +++|          LDD    CM+4
18980  M01S00056.ns2673  +++|          SHN    -6
18981  M01S00057.ns2673  +++|          RJM    C2D         CONVERT 2 OCTAL DIGITS TO DISPLAY CODE
18982  M01S00058.ns2673  +++|          STD    CM+1
18983  M01S00059.ns2673  +++|          LDD    CM+4
18984  M01S00060.ns2673  +++|          RJM    C2D         CONVERT 2 OCTAL DIGITS TO DISPLAY CODE
18985  M01S00061.ns2673  +++|          STD    CM+2
18986  M01S00062.ns2673  +++|
18987  M01S00063.ns2673  +++|*         SUPPRESS LEADING ZEROS ON USER INDEX.
18988  M01S00064.ns2673  +++|
18989  M01S00065.ns2673  +++|          LDN    0           TERMINATE STRING BUFFER
18990  M01S00066.ns2673  +++|          STD    CM+3
18991  M01S00067.ns2673  +++|          STD    CM+4        CLEAR STARTING BYTE OFFSET
18992  M01S00068.ns2673  +++| ISM1     LDM    CM,CM+4
18993  M01S00069.ns2673  +++|          ADC    -2R00
18994  M01S00070.ns2673  +++|          STD    T0
18995  M01S00071.ns2673  +++|          SCN    77
18996  M01S00072.ns2673  +++|          NJN    ISM3        IF UPPER DIGIT IS NON-ZERO
18997  M01S00073.ns2673  +++|          LDD    T0
18998  M01S00074.ns2673  +++|          LPN    77
18999  M01S00075.ns2673  +++|          NJN    ISM2        IF LOWER DIGIT IS NON-ZERO
19000  M01S00076.ns2673  +++|          AOD    CM+4        INCREMENT OFFSET
19001  M01S00077.ns2673  +++|          SBN    3
19002  M01S00078.ns2673  +++|          MJN    ISM1        IF ALL BYTES NOT EXAMINED
19003  M01S00079.ns2673  +++|          SOD    CM+4        CORRECT OFFSET
19004  M01S00080.ns2673  +++|
19005  M01S00081.ns2673  +++|*         SET USER INDEX INTO MESSAGE.
19006  M01S00082.ns2673  +++|
19007  M01S00083.ns2673  +++| ISM2     LDM    CM,CM+4     LOWER DIGIT OF BYTE IS FIRST DIGIT
19008  M01S00084.ns2673  +++|          SHN    6
19009  M01S00085.ns2673  +++|          SCN    77
19010  M01S00086.ns2673  +++|          STM    CM,CM+4
19011  M01S00087.ns2673  +++|          LDN    CM
19012  M01S00088.ns2673  +++|          ADD    CM+4
19013  M01S00089.ns2673  +++|          RJM    ACS         APPEND CHARACTERS TO STRING
19014  M01S00090.ns2673  +++|          AOD    CM+4
19015  M01S00091.ns2673  +++|          SBN    3
19016  M01S00092.ns2673  +++|          PJN    ISM4        IF LAST BYTE WAS SENT
19017  M01S00093.ns2673  +++| ISM3     LDN    CM
19018  M01S00094.ns2673  +++|          ADD    CM+4
19019  M01S00095.ns2673  +++|          RJM    ACS         APPEND CHARACTERS TO STRING
19020  M01S00096.ns2673  +++| ISM4     LDC    ISMC        APPEND COMMA
19021  M01S00097.ns2673  +++|          RJM    ACS
19022  M01S00098.ns2673  +++|
19023  M01S00099.ns2673  +++|*         SET FAMILY/PACK NAME INTO MESSAGE.
19024  M01S00100.ns2673  +++|
19025  M01S00101.ns2673  +++|          LDM    MSTA        READ FAMILY/PACK NAME
19026  M01S00102.ns2673  +++|          SHN    3
19027  M01S00103.ns2673  +++|          ADN    PFGL
19028  M01S00104.ns2673  +++|          CRD    CM
19029  M01S00105.ns2673  +++|          LDD    CM+3        CLEAR RESERVED FIELD
19030  M01S00106.ns2673  +++|          SCN    77
19031  M01S00107.ns2673  +++|          STD    CM+3
19032  M01S00108.ns2673  +++|          LDN    CM          INSERT FAMILY IN BUFFER
19033  M01S00109.ns2673  +++|          RJM    ACS
19034  M01S00110.ns2673  +++|          LDC    ISMD        APPEND TERMINATOR
19035  M01S00111.ns2673  +++|          RJM    ACS
19036  M01S00112.ns2673  +++|
19037  M01S00113.ns2673  +++|*         ISSUE MESSAGE.
19038  M01S00114.ns2673  +++|
19039  M01S00115.ns2673  +++|          LDC    ISMB+ACFN   ISSUE MESSAGE TO ACCOUNT FILE
19040  M01S00116.ns2673  +++|          RJM    DFM
19041  M01S00117.ns2673  +++|          LJM    ISMX        RETURN
19042  M01S00118.ns2673  +++|
19043  M01S00119.ns2673  +++|
19044  M01S00120.ns2673  +++| ISMB     DATA   C*STRS, *   ACCOUNT FILE MESSAGE BUFFER
19045  M01S00121.ns2673  +++|          BSSZ   14D
19046  M01S00122.ns2673  +++| ISMC     DATA   2H,         MESSAGE SEPARATOR
19047  M01S00123.ns2673  +++|          CON    0           END OF STRING
19048  M01S00124.ns2673  +++| ISMD     DATA   2H.         MESSAGE TERMINATOR
19049  M01S00125.ns2673  +++|          CON    0           END OF STRING
19050  M01S00976.253l688 +++| STR      SPACE  4,25
19051  M01S00977.253l688 +++|**        STR - SETUP *TDAM* REQUEST.
19052  M01S00978.253l688 +++|*
19053  M01S00979.253l688 +++|*         ENTRY  (CB) = CATALOG BUFFER.
19054  M01S00980.253l688 +++|*                (CB-1) = CATALOG SECTOR.
19055  M01S00981.253l688 +++|*                (CB-2) = CATALOG TRACK.
19056  M01S00982.253l688 +++|*                (CI) = CATALOG INDEX POINTER TO CATALOG ENTRY.
19057  M01S00126.ns2673  +++|*                (EQ) = MASTER DEVICE EST ORDINAL.
19058  M01S00983.253l688 +++|*                (FN - FN+4) = FILE NAME.
19059  M01S00984.253l688 +++|*                (MSEQ) = ALTERNATE STORAGE EST ORDINAL.
19060  M01S00985.253l688 +++|*                (MSTA) = MST ADDRESS/10.
19061  M01S00986.253l688 +++|*                (PFPN - PFPN+4) = PERMANENT FILE CONTROL WORD.
19062  M01S00987.253l688 +++|*                (PFUI - PFUI+1) = USER INDEX.
19063  M01S00988.253l688 +++|*                (P1) .NE. 0 IF TAPE STAGE REQUEST.
19064  M01S00989.253l688 +++|*                (UI - UI+1) = USER INDEX.
19065  M01S00990.253l688 +++|*
19066  M01S00991.253l688 +++|*         EXIT   MESSAGE BUFFER SETUP FOR *TDAM* REQUEST.
19067  M01S00992.253l688 +++|*                (ERRE), (ERRC) SET WITH EVENT TO ROLL JOB OUT WITH.
19068  M01S00993.253l688 +++|*                (SPFA), (SPFD) SET WITH SUBSYSTEM ID, EVENT.
19069  M01S00994.253l688 +++|*                (SPFB) SET WITH SUBSYSTEM *TDAM* BUFFER ADDRESS.
19070  M01S00995.253l688 +++|*
19071  M01S00996.253l688 +++|*         USES   CM - CM+4, FN - FN+4, T0 - T0+4.
19072  M01S00997.253l688 +++|*
19073  M01S00998.253l688 +++|*         CALLS  GEE.
19074  M01S00999.253l688 +++|
19075  M01S01000.253l688 +++|
19076  M01S01001.253l688 +++| STR      SUBR               ENTRY/EXIT
19077  M01S01002.253l688 +++|
Line S01003 Modification History
M01 (Added by) 253l688
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19078  M02S01003.274l797 ---|*         SET SUBSYSTEM ID AND SUBSYSTEM EVENT.
19079  M01S00096.274l797 +++|*         SET FILE ACCESS LEVEL AND FUNCTION CODE.
19080  M01S01004.253l688 +++|
19081  M01S00097.274l797 +++|          LDM    FCAL,CI     SET FILE ACCESS LEVEL
19082  M01S00098.274l797 +++|          LPN    7
19083  M01S00099.274l797 +++|          SHN    3
19084  M01S00100.274l797 +++|          LMD    HN          SET FUNCTION CODE = 1 (TAPE/*MSS*/*MSE*)
19085  M01S00101.274l797 +++|          STD    CM
19086  M01S00102.274l797 +++|          LDN    0
19087  M01S00103.274l797 +++|          STD    CM+1
19088  M01S01005.253l688 +++|          LDD    P1
Line S01006 Modification History
M01 (Added by) 253l688
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19089  M02S01006.274l797 ---|          NJN    STR1        IF TAPE STAGE REQUEST
19090  M01S00104.274l797 +++|          NJP    STR1.2      IF TAPE STAGE REQUEST
19091  M01S13260.pfm     +++|          LDM    FCAT,CI     GET ALTERNATE STORAGE TYPE
19092  M01S13261.pfm     +++|          LPN    77B
19093  M01S13262.pfm     +++|          STD    T1
Line S13263 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19094  M02S13263.253l688 ---|          LDM    MATB,T1     SET WAITING FOR ALTERNATE STORAGE EVENT
Line S13264 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19095  M02S13264.253l688 ---|          STM    ERRC
Line S13265 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19096  M02S13265.253l688 ---|          EXIT   PWE,CH,IW,,EC1 *(PFN) WAITING ALTERNATE STORAGE EXEC.*
Line S01007 Modification History
M01 (Added by) 253l688
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19097  M02S01007.274l797 ---|          LDM    STRC,T1     SET ALTERNATE STORAGE SUBSYSTEM ID
19098  M01S00105.274l797 +++|          SBN    ATOD
19099  M01S00106.274l797 +++|          NJN    STR1        IF NOT OPTICAL STORAGE
19100  M01S00107.274l797 +++|          LDD    HN          SET FUNCTION CODE = 2  (OPTICAL DISK)
19101  M01S00108.274l797 +++|          RAD    CM
19102  M01S00109.274l797 +++|          ISTORE ISME,(PSN)  SET *ISM* TO ISSUE OPTICAL STAGE MESSAGE
19103  M01S00110.274l797 +++|          LDC    2RSO
19104  M01S00111.274l797 +++|          STM    ISMB
19105  M01S00112.274l797 +++|          UJN    STR1.1      SET SUBSYSTEM INFORMATION
19106  M01S00113.274l797 +++|
19107  M01S00114.274l797 +++| STR1     LDC    MIRE        SET *MSS*/*MSE* *TDAM* BUFFER ADDRESS
19108  M01S00115.274l797 +++|          STM    SPFB+1
19109  M01S00116.274l797 +++|          ERRPL  MIRE-10000B CODE DEPENDS ON VALUE
19110  M01S00117.274l797 +++|
19111  M01S00118.274l797 +++|*         SET SUBSYSTEM ID AND SUBSYSTEM EVENT.
19112  M01S00119.274l797 +++|
19113  M01S00120.274l797 +++| STR1.1   LDM    STRC,T1     SET ALTERNATE STORAGE SUBSYSTEM ID
19114  M01S01008.253l688 +++|          STM    SPFA+1
19115  M01S01009.253l688 +++|          LDM    STRD,T1     SET ALTERNATE STORAGE SUBSYSTEM EVENT
19116  M01S01010.253l688 +++|          STM    SPFD+1
Line S01011 Modification History
M01 (Added by) 253l688
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19117  M02S01011.274l797 ---|          LDC    MIRE        SET *MSS*/*MSE* *TDAM* BUFFER ADDRESS
Line S01012 Modification History
M01 (Added by) 253l688
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19118  M02S01012.274l797 ---|          STM    SPFB+1
Line S01013 Modification History
M01 (Added by) 253l688
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19119  M02S01013.274l797 ---|          ERRPL  MIRE-10000B CODE DEPENDS ON VALUE
19120  M01S01014.253l688 +++|          LDM    STRE,T1     SET ALTERNATE STORAGE EQUIPMENT TYPE
19121  M01S01015.253l688 +++|          STM    GEEA+1
Line S13266 Modification History
M01 (Added by) pfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19122  M02S13266.274l797 ---|
Line S01016 Modification History
M01 (Added by) 253l688
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19123  M02S01016.274l797 ---|*         SET FILE ACCESS LEVEL AND FUNCTION CODE.
Line S13267 Modification History
M01 (Added by) pfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19124  M02S13267.274l797 ---|
Line S13268 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19125  M03S13268.274l797 ---| MATB     INDEX              ALTERNATE STORAGE EXECUTIVE EVENT TABLE
Line S13269 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19126  M03S13269.274l797 ---|          INDEX  ATMS,MSXE   *MSS*
Line S13270 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
M03 (Updated by) 253l688
M04 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19127  M04S13270.274l797 ---|          INDEX  ATAS,ASXE   *MAS*
Line S01612 Modification History
M01 (Added by) 242l642
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19128  M03S01612.274l797 ---|          INDEX  ATAS,ASXE   *MSE*
Line S13271 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19129  M03S13271.274l797 ---|          INDEX  ATMAX+1
Line S13272 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19130  M03S13272.274l797 ---|
Line S13273 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19131  M03S13273.274l797 ---|          TITLE  SUBROUTINES.
Line S13274 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19132  M03S13274.274l797 ---| ITR      SPACE  4,15
Line S13275 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19133  M03S13275.274l797 ---|**        ITR - ISSUE TDAM REQUEST.
Line S13276 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19134  M03S13276.274l797 ---|*
Line S13277 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19135  M03S13277.274l797 ---|*         ENTRY  TDAM BUFFER SETUP IN PP MESSAGE BUFFER.
Line S13278 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19136  M03S13278.274l797 ---|*
Line S13279 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19137  M03S13279.274l797 ---|*         EXIT   (A) = TDAM COMPLETION STATUS.
Line S13280 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19138  M03S13280.274l797 ---|*
Line S13281 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19139  M03S13281.274l797 ---|*         USES   CM - CM+4.
Line S13282 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19140  M03S13282.274l797 ---|*
Line S13283 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19141  M03S13283.274l797 ---|*         MACROS MONITOR.
Line S13284 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19142  M03S13284.274l797 ---|
Line S13285 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19143  M03S13285.274l797 ---|
Line S13286 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19144  M03S13286.274l797 ---| ITR      SUBR               ENTRY/EXIT
Line S13287 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19145  M03S13287.274l797 ---|          LDN    1           SET WRITE FUNCTION
Line S13288 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19146  M03S13288.274l797 ---|          STD    CM+1
Line S13289 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19147  M03S13289.274l797 ---|          LDM    FCAT,CI     GET ALTERNATE STORAGE TYPE
Line S13290 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19148  M03S13290.274l797 ---|          LPN    77B
Line S13291 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19149  M03S13291.274l797 ---|          STD    T1
Line S13292 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19150  M03S13292.274l797 ---|          LDM    ITRA,T1     SET ALTERNATE STORAGE SUBSYSTEM ID
Line S13293 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19151  M03S13293.274l797 ---|          STD    CM+2
Line S13294 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19152  M03S13294.274l797 ---|          LDC    6*100+MIRE/10000  MESSAGE LENGTH AND MSB OF ADDRESS
Line S13295 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19153  M03S13295.274l797 ---|          STD    CM+3
Line S13296 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19154  M03S13296.274l797 ---|          LDK    MIRE        SET LSB OF RECEIVING BUFFER ADDRESS
Line S13297 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19155  M03S13297.274l797 ---|          STD    CM+4
Line S13298 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19156  M03S13298.274l797 ---|          MONITOR TDAM       ISSUE TDAM REQUEST
Line S13299 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19157  M03S13299.274l797 ---|          LDD    CM+1
Line S13300 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19158  M03S13300.274l797 ---|          UJN    ITRX        RETURN
Line S13301 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19159  M03S13301.274l797 ---|
Line S13302 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19160  M03S13302.274l797 ---|
Line S13303 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19161  M03S13303.274l797 ---| ITRA     INDEX              ALTERNATE STORAGE SUBSYSTEM ID TABLE
Line S13304 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19162  M03S13304.274l797 ---|          INDEX  ATMS,MFSI   *MSS*
Line S13305 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
M03 (Updated by) 253l688
M04 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19163  M04S13305.274l797 ---|          INDEX  ATAS,ASSI   *MAS*
Line S01613 Modification History
M01 (Added by) 242l642
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19164  M03S01613.274l797 ---|          INDEX  ATAS,ASSI   *MSE*
Line S13306 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19165  M03S13306.274l797 ---|          INDEX  ATMAX+1
Line S13307 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19166  M03S13307.274l797 ---| OFN      SPACE  4,15
Line S13308 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19167  M03S13308.274l797 ---|**        OFN - OBTAIN FAMILY NAME AND DEVICE NUMBER (DN).
Line S13309 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19168  M03S13309.274l797 ---|*
Line S13310 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19169  M03S13310.274l797 ---|*         ENTRY  (MSTA) = MST ADDRESS/1000.
Line S13311 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19170  M03S13311.274l797 ---|*
Line S13312 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19171  M03S13312.274l797 ---|*         EXIT   (A) = FAMILY DEVICE NUMBER (DN).
Line S13313 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19172  M03S13313.274l797 ---|*                (CN - CN+4) = FAMILY NAME FORMATTED FOR TDAM REQUEST.
Line S13314 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19173  M03S13314.274l797 ---|*                (T2) = FAMILY DEVICE NUMBER.
Line S13315 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19174  M03S13315.274l797 ---|*
Line S13316 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19175  M03S13316.274l797 ---|*         USES   T2.
Line S13317 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19176  M03S13317.274l797 ---|
Line S13318 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19177  M03S13318.274l797 ---|
Line S13319 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19178  M03S13319.274l797 ---| OFN      SUBR               ENTRY/EXIT
Line S13320 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19179  M03S13320.274l797 ---|          LDM    MSTA        GET FAMILY NAME AND *DN* FROM MST
Line S13321 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19180  M03S13321.274l797 ---|          SHN    3
Line S13322 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19181  M03S13322.274l797 ---|          ADN    PFGL
Line S13323 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19182  M03S13323.274l797 ---|          CRD    CN
Line S13324 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19183  M03S13324.274l797 ---|          LDN    0           FORMAT FOR TDAM REQUEST
Line S13325 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19184  M03S13325.274l797 ---|          STD    CN+4
Line S13326 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19185  M03S13326.274l797 ---|          LDD    CN+3        SET FAMILY DN
Line S13327 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19186  M03S13327.274l797 ---|          LPN    77
Line S13328 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19187  M03S13328.274l797 ---|          STD    T2
Line S13329 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19188  M03S13329.274l797 ---|          LMD    CN+3
Line S13330 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19189  M03S13330.274l797 ---|          STD    CN+3
Line S13331 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19190  M03S13331.274l797 ---|          LDD    T2
Line S13332 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19191  M03S13332.274l797 ---|          UJN    OFNX        RETURN
Line S13333 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19192  M03S13333.274l797 ---| OMO      SPACE  4,15
Line S13334 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19193  M03S13334.274l797 ---|**        OMO - OBTAIN EST ORDINAL FOR ALTERNATE STORAGE EQUIPMENT.
Line S13335 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19194  M03S13335.274l797 ---|*
Line S13336 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19195  M03S13336.274l797 ---|*         EXIT   (A) = EST ORDINAL OF LAST CSU IN EST.
Line S13337 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19196  M03S13337.274l797 ---|*
Line S13338 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19197  M03S13338.274l797 ---|*         USES   T5, T6, T7, T0 - T0+4.
Line S13339 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19198  M03S13339.274l797 ---|*
Line S13340 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19199  M03S13340.274l797 ---|*         MACROS ERROR, SFA.
Line S13341 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19200  M03S13341.274l797 ---|
Line S13342 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19201  M03S13342.274l797 ---|
Line S13343 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19202  M03S13343.274l797 ---| OMO      SUBR               ENTRY/EXIT
Line S13344 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19203  M03S13344.274l797 ---|
Line S13345 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19204  M03S13345.274l797 ---|*         INITIALIZE FOR EST SEARCH.
Line S13346 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19205  M03S13346.274l797 ---|
Line S13347 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19206  M03S13347.274l797 ---| OMO0     LDM    FCAT,CI     GET ALTERNATE STORAGE TYPE
Line S13348 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19207  M03S13348.274l797 ---|          LPN    77B
Line S13349 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19208  M03S13349.274l797 ---|          STD    T7
Line S13350 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19209  M03S13350.274l797 ---|          LDN    ESTP        CALCULATE NUMBER OF EST ENTRIES
Line S13351 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19210  M03S13351.274l797 ---|          CRD    T0
Line S13352 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19211  M03S13352.274l797 ---|          LDN    NOPE-1      INITIALIZE EST ORDINAL FOR SEARCH
Line S13353 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19212  M03S13353.274l797 ---|          STD    T5
Line S13354 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19213  M03S13354.274l797 ---|          LDD    T0+2        SAVE LAST EST ORDINAL + 1
Line S13355 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19214  M03S13355.274l797 ---|          STD    T6
Line S13356 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19215  M03S13356.274l797 ---|
Line S13357 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19216  M03S13357.274l797 ---|*         SEARCH FOR ALTERNATE STORAGE EQUIPMENT.
Line S13358 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19217  M03S13358.274l797 ---|
Line S13359 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19218  M03S13359.274l797 ---| OMO1     AOD    T5          ADVANCE EST ORDINAL
Line S13360 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19219  M03S13360.274l797 ---|          LMD    T6
Line S13361 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19220  M03S13361.274l797 ---|          NJN    OMO2        IF NOT END OF EST
Line S13362 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19221  M03S13362.274l797 ---|          ERROR  PFN,CH,IW   *DEVICE UNAVAILABLE.*
Line S13363 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19222  M03S13363.274l797 ---|
Line S13364 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19223  M03S13364.274l797 ---| OMO2     SFA    EST,T5      READ EST ENTRY
Line S13365 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19224  M03S13365.274l797 ---|          ADK    EQDE
Line S13366 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19225  M03S13366.274l797 ---|          CRD    T0
Line S13367 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19226  M03S13367.274l797 ---|          LDD    T0+3        CHECK FOR ALTERNATE STORAGE EST ENTRY
Line S13368 Modification History
M01 (Added by) pfm
M02 (Updated by) 252l678
M03 (Updated by) 253l688
M04 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19227  M04S13368.274l797 ---|          LPC    3777
Line S13369 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19228  M03S13369.274l797 ---|          LMM    OMOA,T7     ALTERNATE STORAGE EQUIPMENT DEVICE TYPE
Line S13370 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19229  M03S13370.274l797 ---|          NJN    OMO1        IF NOT ALTERNATE STORAGE EST ENTRY
Line S13371 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19230  M03S13371.274l797 ---|          LDD    T5          RETURN EST ORDINAL
Line S13372 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19231  M03S13372.274l797 ---|          LJM    OMOX        RETURN
Line S13373 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19232  M03S13373.274l797 ---|
Line S13374 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19233  M03S13374.274l797 ---|
Line S13375 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19234  M03S13375.274l797 ---| OMOA     INDEX              ALTERNATE STORAGE EQUIPMENT TABLE
Line S13376 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19235  M03S13376.274l797 ---|          INDEX  ATMS,2RCS   *MSS*
Line S13377 Modification History
M01 (Added by) pfm
M02 (Updated by) 242l642
M03 (Updated by) 253l688
M04 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19236  M04S13377.274l797 ---|          INDEX  ATAS,2RSS   *MAS*
Line S01614 Modification History
M01 (Added by) 242l642
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19237  M03S01614.274l797 ---|          INDEX  ATAS,2RSS   *MSE*
Line S13378 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19238  M03S13378.274l797 ---|          INDEX  ATMAX+1
Line S13379 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19239  M03S13379.274l797 ---| STR      SPACE  4,15
Line S13380 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19240  M03S13380.274l797 ---|**        STR - SETUP TDAM REQUEST.
Line S13381 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19241  M03S13381.274l797 ---|*
Line S13382 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19242  M03S13382.274l797 ---|*         ENTRY  (CB) = CATALOG BUFFER.
Line S13383 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19243  M03S13383.274l797 ---|*                (CB-1) = CATALOG SECTOR.
Line S13384 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19244  M03S13384.274l797 ---|*                (CB-2) = CATALOG TRACK.
Line S13385 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19245  M03S13385.274l797 ---|*                (CI) = CATALOG INDEX POINTER TO CATALOG ENTRY.
Line S13386 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19246  M03S13386.274l797 ---|*                (FN - FN+4) = FILE NAME.
Line S13387 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19247  M03S13387.274l797 ---|*                (MSEQ) = ALTERNATE STORAGE EST ORDINAL.
Line S13388 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19248  M03S13388.274l797 ---|*                (PFPN - PFPN+4) = PERMANENT FILE CONTROL WORD.
Line S13389 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19249  M03S13389.274l797 ---|*                (PFUI - PFUI+1) = USER INDEX.
Line S13390 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19250  M03S13390.274l797 ---|*                (UI - UI+1) = USER INDEX.
Line S13391 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19251  M03S13391.274l797 ---|*
Line S13392 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19252  M03S13392.274l797 ---|*         EXIT   MESSAGE BUFFER SETUP FOR TDAM REQUEST.
Line S13393 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19253  M03S13393.274l797 ---|*                (ERRE), (ERRC) SET WITH EVENT TO ROLL JOB OUT WITH.
Line S13394 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19254  M03S13394.274l797 ---|*
Line S13395 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19255  M03S13395.274l797 ---|*         USES   T1, T2, CM - CM+4, FN - FN+4.
Line S13396 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19256  M03S13396.274l797 ---|*
Line S13397 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19257  M03S13397.274l797 ---|*         CALLS  OFN, OMO.
Line S13398 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19258  M03S13398.274l797 ---|
Line S13399 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19259  M03S13399.274l797 ---| STR      SUBR               ENTRY/EXIT
Line S13400 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19260  M03S13400.274l797 ---|          LDM    FCAL,CI     SET FILE ACCESS LEVEL
Line S01017 Modification History
M01 (Added by) 253l688
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19261  M02S01017.274l797 ---| STR1     LDM    FCAL,CI     SET FILE ACCESS LEVEL
Line S13401 Modification History
M01 (Added by) pfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19262  M02S13401.274l797 ---|          LPN    7
Line S13402 Modification History
M01 (Added by) pfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19263  M02S13402.274l797 ---|          SHN    3
Line S13403 Modification History
M01 (Added by) pfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19264  M02S13403.274l797 ---|          LMD    HN          SET FUNCTION CODE
Line S13404 Modification History
M01 (Added by) pfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19265  M02S13404.274l797 ---|          STD    CM
Line S13405 Modification History
M01 (Added by) pfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19266  M02S13405.274l797 ---|          LDN    0
Line S13406 Modification History
M01 (Added by) pfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19267  M02S13406.274l797 ---|          STD    CM+1
19268  M01S13407.pfm     +++|
Line S13408 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19269  M02S13408.253l688 ---|*         SETUP FAMILY, *PEO*, AND *DN* VALUES.
19270  M01S01018.253l688 +++|*         SET *PEO* AND *DN*.
19271  M01S13409.pfm     +++|
Line S13410 Modification History
M01 (Added by) pfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19272  M02S13410.274l797 ---|          LDD    CI          OFFSET INTO CATALOG SECTOR
19273  M01S00121.274l797 +++| STR1.2   LDD    CI          OFFSET INTO CATALOG SECTOR
19274  M01S13411.pfm     +++|          SBD    CB
19275  M01S13412.pfm     +++|          SBN    2
19276  M01S13413.pfm     +++|          SHN    -NWCES      CALCULATE *PEO* VALUE
19277  M01S13414.pfm     +++|          LPN    1S"NWCEM"-1
19278  M01S13415.pfm     +++|          SHN    6           POSITION FOR *TDAM* REQUEST
19279  M01S13416.pfm     +++|          STD    CM+2
Line S13417 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19280  M02S13417.253l688 ---|          RJM    OFN         OBTAIN FAMILY NAME AND DN
19281  M01S01019.253l688 +++|          LDM    MSTA        GET DEVICE NUMBER
19282  M01S01020.253l688 +++|          SHN    3
19283  M01S01021.253l688 +++|          ADN    PFGL
19284  M01S01022.253l688 +++|          CRD    T0
19285  M01S01023.253l688 +++|          LDD    T0+3
19286  M01S01024.253l688 +++|          LPN    77
19287  M01S13418.pfm     +++|          RAD    CM+2        COMBINE *PEO* WITH *DN*
19288  M01S13419.pfm     +++|
Line S13420 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19289  M02S13420.253l688 ---|*         SETUP *TDAM* WITH *AFFRE*, *AFPDR*, AND *AFVER* STATUS.
Line S01025 Modification History
M01 (Added by) 253l688
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19290  M02S01025.274l797 ---|*         SET FLAGS FOR CARTRIDGE STAGE.
19291  M01S00122.274l797 +++|*         SET FLAGS FOR CARTRIDGE OR OPTICAL STAGE.
19292  M01S13421.pfm     +++|
19293  M01S01026.253l688 +++|          LDD    P1
19294  M01S01027.253l688 +++|          NJN    STR2        IF TAPE STAGE REQUEST
19295  M01S13422.pfm     +++|          LDM    FCAF,CI     GET ALTERNATE STORAGE FLAGS
19296  M01S13423.pfm     +++|          LPC    AFPDRM+AFVERM+AFFREM
Line S13424 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19297  M02S13424.253l688 ---|          SHN    13-6
Line S13425 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19298  M02S13425.253l688 ---|          LMD    CM+2        COMBINE WITH PEO AND DN VALUES
Line S13426 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19299  M02S13426.253l688 ---|          STD    CM+2
19300  M01S01028.253l688 +++|          SHN    13-6        COMBINE WITH PEO AND DN
19301  M01S01029.253l688 +++|          RAD    CM+2
19302  M01S13427.pfm     +++|
Line S13428 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19303  M02S13428.253l688 ---|*         SETUP CATALOG TRACK AND SECTOR VALUES.
19304  M01S01030.253l688 +++|*         SET CATALOG TRACK AND SECTOR.
19305  M01S13429.pfm     +++|
Line S13430 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19306  M02S13430.253l688 ---|          LDM    -2,CB       SET CATALOG TRACK ADDRESS
19307  M01S01031.253l688 +++| STR2     LDM    -2,CB       SET CATALOG TRACK ADDRESS
19308  M01S13431.pfm     +++|          STD    CM+3
19309  M01S13432.pfm     +++|          LDM    -1,CB       SET CATALOG SECTOR ADDRESS
19310  M01S13433.pfm     +++|          STD    CM+4
19311  M01S13434.pfm     +++|          LDD    MA          TDAM+0 INTO MESSAGE BUFFER
19312  M01S13435.pfm     +++|          CWD    CM
19313  M01S13436.pfm     +++|
Line S13437 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19314  M02S13437.253l688 ---|*         SETUP *AT* AND ALTERNATE STORAGE ADDRESS FOR TDAM.
Line S01032 Modification History
M01 (Added by) 253l688
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19315  M02S01032.274l797 ---|*         SET *AT* AND *ASA* FOR CARTRIDGE STAGE.
19316  M01S00123.274l797 +++|*         SET *AT* AND *ASA* FOR CARTRIDGE OR OPTICAL DISK STAGE.
19317  M01S13438.pfm     +++|
19318  M01S01033.253l688 +++|          LDD    P1
19319  M01S01034.253l688 +++|          NJN    STR3        IF TAPE STAGE REQUEST
19320  M01S13439.pfm     +++|          LDN    0           CLEAR RESERVED FIELD
19321  M01S13440.pfm     +++|          STD    CM
19322  M01S13441.pfm     +++|          LDM    FCAT,CI     SET ALTERNATE STORAGE TYPE
19323  M01S13442.pfm     +++|          LPN    77
19324  M01S13443.pfm     +++|          STD    CM+1
19325  M01S13444.pfm     +++|          LDM    FCAA,CI     SET ALTERNATE STORAGE ADDRESS (ASA)
19326  M01S13445.pfm     +++|          STD    CM+2
19327  M01S13446.pfm     +++|          LDM    FCAA+1,CI
19328  M01S13447.pfm     +++|          STD    CM+3
19329  M01S13448.pfm     +++|          LDM    FCAA+2,CI
19330  M01S13449.pfm     +++|          STD    CM+4
19331  M01S13450.pfm     +++|          LDD    MA          TDAM+1 INTO MESSAGE BUFFER
19332  M01S13451.pfm     +++|          ADN    1
19333  M01S13452.pfm     +++|          CWD    CM
19334  M01S01035.253l688 +++|          UJN    STR4        PROCESS NEXT WORD
19335  M01S13453.pfm     +++|
Line S13454 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19336  M02S13454.253l688 ---|*         SETUP PERMANENT FILE NAME AND USER INDEX FOR TDAM.
19337  M01S01036.253l688 +++|*         SET FLAGS, FILE SEQUENCE NUMBER AND VSN FOR TAPE STAGE.
19338  M01S13455.pfm     +++|
Line S13456 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19339  M02S13456.253l688 ---|          LDD    FN+3        COMBINE USER INDEX WITH PFN
Line S13457 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19340  M02S13457.253l688 ---|          SCN    77
Line S13458 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19341  M02S13458.253l688 ---|          LMD    UI
Line S13459 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19342  M02S13459.253l688 ---|          STD    FN+3
Line S13460 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19343  M02S13460.253l688 ---|          LDD    UI+1
Line S13461 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19344  M02S13461.253l688 ---|          STD    FN+4
19345  M01S01037.253l688 +++| STR3     LDD    CI          SET ADDRESS OF CATALOG ENTRY
19346  M01S01038.253l688 +++|          RAM    STRA+1
19347  M01S01039.253l688 +++|          LDD    MA          TDAM+1 INTO MESSAGE BUFFER
19348  M01S01040.253l688 +++|          ADN    1
19349  M01S01041.253l688 +++| STRA     CWM    FCTF,ON
19350  M01S01042.253l688 +++|
19351  M01S01043.253l688 +++|*         SET PERMANENT FILE NAME AND USER INDEX.
19352  M01S01044.253l688 +++|
19353  M01S01045.253l688 +++| STR4     LDD    CI          SET ADDRESS OF CATALOG ENTRY
19354  M01S01046.253l688 +++|          RAM    STRB+1
19355  M01S13462.pfm     +++|          LDD    MA          TDAM+2 INTO MESSAGE BUFFER
19356  M01S13463.pfm     +++|          ADN    2
Line S13464 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19357  M02S13464.253l688 ---|          CWD    FN
19358  M01S01047.253l688 +++| STRB     CWM    FCFN,ON
19359  M01S13465.pfm     +++|
Line S13466 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19360  M02S13466.253l688 ---|*         SET UP JSN AND EVENT FOR *TDAM*.
19361  M01S01048.253l688 +++|*         SET JSN.
19362  M01S13467.pfm     +++|
19363  M01S13468.pfm     +++|          LDD    CP          FETCH EJT ORDINAL
19364  M01S13469.pfm     +++|          ADN    TFSW
19365  M01S13470.pfm     +++|          CRD    CM
19366  M01S13471.pfm     +++|          SFA    EJT,CM      READ JOB SEQUENCE NUMBER
19367  M01S13472.pfm     +++|          ADK    JSNE
19368  M01S13473.pfm     +++|          CRD    CM
19369  M01S13474.pfm     +++|          LDN    0
19370  M01S13475.pfm     +++|          STD    CM+2
Line S13476 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19371  M02S13476.253l688 ---|          RJM    OMO         OBTAIN ALTERNATE STORAGE EST ORDINAL
Line S13477 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19372  M02S13477.253l688 ---|          STD    CM+3        SET EST ORDINAL IN EVENT
19373  M01S01049.253l688 +++|
19374  M01S01050.253l688 +++|*         SET EVENT FOR CARTRIDGE STAGE.
19375  M01S01051.253l688 +++|
19376  M01S01052.253l688 +++|          RJM    GEE         GET EST ORDINAL FOR EVENT
19377  M01S01053.253l688 +++|          LDD    T5
19378  M01S01054.253l688 +++|          STD    CM+3
19379  M01S13478.pfm     +++|          STM    ERRE
19380  M01S01055.253l688 +++|          LDD    P1
19381  M01S01056.253l688 +++|          NJN    STR5        IF TAPE STAGE REQUEST
19382  M01S13479.pfm     +++|          LDM    FCAA,CI     SET FOLDED ASA IN EVENT
19383  M01S13480.pfm     +++|          LMM    FCAA+1,CI
19384  M01S13481.pfm     +++|          LMM    FCAA+2,CI
Line S13482 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19385  M02S13482.253l688 ---|          STD    CM+4
19386  M01S01057.253l688 +++|          UJN    STR6        SET EVENT
19387  M01S01058.253l688 +++|
19388  M01S01059.253l688 +++|*         SET EVENT FOR TAPE STAGE.
19389  M01S01060.253l688 +++|
19390  M01S01061.253l688 +++| STR5     LDM    -2,CB       FOLD CATALOG TRACK AND SECTOR FOR EVENT
19391  M01S01062.253l688 +++|          SHN    6
19392  M01S01063.253l688 +++|          LMM    -1,CB
19393  M01S01064.253l688 +++| STR6     STD    CM+4        SET EVENT
19394  M01S13483.pfm     +++|          STM    ERRC
19395  M01S13484.pfm     +++|          LDD    MA          TDAM+3 INTO MESSAGE BUFFER
19396  M01S13485.pfm     +++|          ADN    3
19397  M01S13486.pfm     +++|          CWD    CM
19398  M01S13487.pfm     +++|
Line S13488 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19399  M02S13488.253l688 ---|*         SETUP FAMILY NAME FOR THE TDAM REQUEST.
Line S01065 Modification History
M01 (Added by) 253l688
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
19400  M02S01065.ns2673  ---|*         SET FAMILY/PACK NAME.
19401  M01S00127.ns2673  +++|*         SET FAMILY/PACK NAME AND MASTER DEVICE EST ORDINAL.
19402  M01S13489.pfm     +++|
Line S01066 Modification History
M01 (Added by) 253l688
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
19403  M02S01066.ns2673  ---|          LDM    MSTA        READ FAMILY/PACK NAME
19404  M01S00128.ns2673  +++|          LDD    P1
19405  M01S00129.ns2673  +++|          NJN    STR7        IF TAPE STAGE REQUEST
19406  M01S00130.ns2673  +++|          LDC    LDNI+0      PREVENT EST ORDINAL STORE
19407  M01S00131.ns2673  +++|          STM    STRF
19408  M01S00132.ns2673  +++| STR7     LDM    MSTA        READ FAMILY/PACK NAME
19409  M01S01067.253l688 +++|          SHN    3
19410  M01S01068.253l688 +++|          ADN    PFGL
19411  M01S01069.253l688 +++|          CRD    CM
19412  M01S01070.253l688 +++|          LDD    CM+3        CLEAR RESERVED FIELD
19413  M01S01071.253l688 +++|          SCN    77
19414  M01S01072.253l688 +++|          STD    CM+3
Line S01073 Modification History
M01 (Added by) 253l688
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
19415  M02S01073.ns2673  ---|          LDN    0
19416  M01S00133.ns2673  +++| STRF     LDD    EQ          SET MASTER DEVICE EST ORDINAL
19417  M01S00134.ns2673  +++|*         LDN    0           (CARTRIDGE STAGE REQUEST)
19418  M01S01074.253l688 +++|          STD    CM+4
19419  M01S01075.253l688 +++|          LDD    MA          TDAM+4 INTO MESSAGE BUFFER
19420  M01S01076.253l688 +++|          ADN    4
19421  M01S01077.253l688 +++|          CWD    CM
19422  M01S13490.pfm     +++|
Line S13491 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19423  M02S13491.253l688 ---|          ADN    4-3         TDAM+4 INTO MESSAGE BUFFER
Line S13492 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19424  M02S13492.253l688 ---|          CWD    CN
Line S13493 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19425  M02S13493.253l688 ---|
Line S13494 Modification History
M01 (Added by) pfm
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19426  M02S13494.253l688 ---|*         SETUP FILE LENGTH, CREATION DATE AND TIME FOR TDAM REQUEST.
Proceed to Part 17
cdc/nos2.source/opl.opl871/deck/pfm.016.txt ยท Last modified: by 127.0.0.1