User Tools

Site Tools


Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:dmrec.001

Deck DMREC Part 001

25 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
01576  M01S00001.dmrec8  +++| AAI18    BX1    X2          OCTAL VALUE OF ERROR
01577  M01S00002.dmrec8  +++|          RJ     COD         CONVERT OCTAL TO DISPLAY
01578  M01S00003.dmrec8  +++|          SB2    1RX         SUBSTITUTE CHARACTER
01579  M01S00004.dmrec8  +++|          SB5    AAIA1       ASSEMBLY AREA
01580  M01S00005.dmrec8  +++|          BX1    X4          LEFT JUSTIFIED ERROR CODE
01581  M01S00006.dmrec8  +++|          RJ     SNM         SET NAME IN MESSAGE
01582  M01S00007.dmrec8  +++|          ERROR  AAIA,,,AAIX,,E  CRM ERROR
01583  M01S01254.dmrec   +++|
01584  M01S01255.dmrec   +++| AAIA     DATA   20H0     *****
Line S01256 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec8
Seq #  *Modification Id* Act 
----------------------------+
01585  M02S01256.dmrec8  ---|          DATA   C*CRM ERROR IN UPDATE PROCESSOR.*
01586  M01S00008.dmrec8  +++| AAIA1    DATA   C*CRM ERROR XXXB IN UPDATE PROCESSING.*
01587  M01S01257.dmrec   +++| AAIAL    EQU    *-AAIA
01588  M01S01258.dmrec   +++|
01589  M01S01259.dmrec   +++| AAIB     DATA   20H0     *****
01590  M01S01260.dmrec   +++|          DATA   C*AFTER IMAGE ACCUMULATION TABLE OVERFLOW.*
01591  M01S01261.dmrec   +++| AAIBL    EQU    *-AAIB
01592  M01S01262.dmrec   +++|
01593  M01S01263.dmrec   +++| ACF      SPACE  4,25
01594  M01S01264.dmrec   +++|
01595  M01S01265.dmrec   +++|**        ACF - ATTACH *ZZDBDIR* FILE (BACKUP DIRECTORY FILE).
01596  M01S01266.dmrec   +++|*
01597  M01S01267.dmrec   +++|*         ATTACH *ZZDBDIR* FILE, IF INACCESSABLE, RECONSTRUCT
01598  M01S01268.dmrec   +++|*         *ZZDBDIR*.  IF FILE BUSY, ROLLOUT AND WAIT.  FILE
01599  M01S01269.dmrec   +++|*         IS ATTACHED IN WRITE MODE.
01600  M01S01270.dmrec   +++|*
01601  M01S01271.dmrec   +++|*         ENTRY  (XXPFN)  = DATA BASE AND PFN.
01602  M01S01272.dmrec   +++|*                (XXDEV)  = DEVICE.
01603  M01S01273.dmrec   +++|*
01604  M01S01274.dmrec   +++|*         EXIT   FILE *ZZDBDIR* ATTACHED.
01605  M01S01275.dmrec   +++|*
01606  M01S01276.dmrec   +++|*         USES   X - ALL.
01607  M01S01277.dmrec   +++|*                A - 1, 2, 3, 5, 6, 7.
01608  M01S01278.dmrec   +++|*                B - NONE.
01609  M01S01279.dmrec   +++|*
01610  M01S01280.dmrec   +++|*         CALLS  CER, FER, GXJ, RXJ.
01611  M01S01281.dmrec   +++|*
01612  M01S01282.dmrec   +++|*         MACROS ATTACH, CLOSEM, DEFINE, ERROR, FETCH, GETN,
01613  M01S01283.dmrec   +++|*                MESSAGE, OPENM, PDATE, PUT, RECALL, REWINDM,
01614  M01S01284.dmrec   +++|*                ROLLOUT, STORE.
01615  M01S01285.dmrec   +++|
01616  M01S01286.dmrec   +++|
01617  M01S01287.dmrec   +++| ACF      SUBR               ENTRY/EXIT
01618  M01S01288.dmrec   +++|          RECALL ZZDBDIR
01619  M01S01289.dmrec   +++|          MX0    12
01620  M01S01290.dmrec   +++|          SA2    XXPFN
01621  M01S01291.dmrec   +++|          BX3    X0*X2
01622  M01S01292.dmrec   +++|          BX6    X3
01623  M01S01293.dmrec   +++|          SA6    ACFC        SAVE DATA BASE NAME
01624  M01S01294.dmrec   +++|          LX3    48
01625  M01S01295.dmrec   +++|          SA2    ACFA
01626  M01S01296.dmrec   +++|          LX0    48
01627  M01S01297.dmrec   +++|          BX2    -X0*X2
01628  M01S01298.dmrec   +++|          BX6    X2+X3
01629  M01S01299.dmrec   +++|          SA6    ACFA
01630  M01S01300.dmrec   +++|          MX0    42
01631  M01S01301.dmrec   +++|          SA5    ZZDBDIR
01632  M01S01302.dmrec   +++|          BX7    -X0*X5
01633  M01S01303.dmrec   +++|          BX7    X7+X6
01634  M01S01304.dmrec   +++|          SA7    A5
01635  M01S01305.dmrec   +++|          SA1    ACFA
01636  M01S01306.dmrec   +++|          STORE  DIRR,LFN=X1
01637  M01S01307.dmrec   +++| ACF1     RECALL ZZDBDIR
01638  M01S01308.dmrec   +++|          ATTACH ZZDBDIR,,,,W
01639  M01S01309.dmrec   +++|          SX2    ZZDBDIR     SET FET ADDRESS
01640  M01S01310.dmrec   +++|          RJ     CER         CHECK ERROR STATUS
01641  M01S01311.dmrec   +++|          ZR     X1,ACF2     IF NO ERROR
01642  M01S01312.dmrec   +++|          SX1    X1-1
01643  M01S01313.dmrec   +++|          NZ     X1,ACF5     IF ATTACH ERROR ON DIRECTORY - REBUILD
01644  M01S01314.dmrec   +++|          SX6    B0
01645  M01S01315.dmrec   +++|          SA6    EVENT
01646  M01S01316.dmrec   +++|          ROLLOUT EVENT      WAIT FOR FILE NOT BUSY
01647  M01S01317.dmrec   +++|          EQ     ACF1        LOOP
01648  M01S01318.dmrec   +++|
01649  M01S01319.dmrec   +++| ACF2     OPENM  DIRR,I-O
01650  M01S01320.dmrec   +++|
01651  M01S01321.dmrec   +++|*         CHECK DATA BASE NAME
01652  M01S01322.dmrec   +++|
01653  M01S01323.dmrec   +++|          REWINDM  DIRR
01654  M01S01324.dmrec   +++|          GETN   DIRR,WSAB,,TKY1  READ DIRECTORY HEADER
01655  M01S01325.dmrec   +++|          SA2    ACFC        GET DATA BASE NAME
01656  M01S01326.dmrec   +++|          SA3    TKY1        GET ALTERNATE KEY
01657  M01S01327.dmrec   +++|          IX2    X3-X2
01658  M01S01328.dmrec   +++|          NZ     X2,ACF9.1   IF DATA BASE NAME INCORRECT
01659  M01S01329.dmrec   +++|          REWINDM  DIRR
01660  M01S01330.dmrec   +++|          EQ     ACFX        RETURN
01661  M01S01331.dmrec   +++|
01662  M01S01332.dmrec   +++|*         RECONSTRUCT FILE
01663  M01S01333.dmrec   +++|
01664  M01S01334.dmrec   +++| ACF5     DEFINE ZZDBDIR,,,,,,W
01665  M01S01335.dmrec   +++|          STORE  DIRR,ERL=0
01666  M01S01336.dmrec   +++|          STORE  DIRR,EMK=YES
01667  M01S01337.dmrec   +++|          OPENM  DIRR,NEW
01668  M01S01338.dmrec   +++|          PDATE  DATEP
01669  M01S01339.dmrec   +++|          SX7    B0
01670  M01S01340.dmrec   +++|          SX4    EXPCT
01671  M01S01341.dmrec   +++|          SX5    NCOPY
01672  M01S01342.dmrec   +++|          SA3    DATEP
01673  M01S01343.dmrec   +++|          MX0    12
01674  M01S01344.dmrec   +++|          SA2    ACFA
01675  M01S01345.dmrec   +++|          LX2    12
01676  M01S01346.dmrec   +++|          BX6    X0*X2
01677  M01S01347.dmrec   +++|          SA6    XXBUF       SET KEY FOR HEADER
01678  M01S01348.dmrec   +++|          SX6    B0
01679  M01S01349.dmrec   +++|          SA6    A6+B1
01680  M01S01350.dmrec   +++|          BX6    X3
01681  M01S01351.dmrec   +++|          SA6    A6+B1       DATE/TIME
Line S01352 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01682  M02S01352.ns2023  ---|          SA7    A6+B1       ZERO *QRF* DOWN DATE/TIME AND COUNT
Line S01353 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01683  M02S01353.ns2023  ---|          SA1    =6LZZZZZZ   SET DEFAULT FIRST *LRF* VSN
01684  M01S00014.ns2023  +++|          SA7    A6+B1       ZERO *BRF* DOWN DATE/TIME AND COUNT
01685  M01S00015.ns2023  +++|          SA1    =6LZZZZZZ   SET DEFAULT FIRST *ARF* VSN
01686  M01S01354.dmrec   +++|          BX7    X4+X1
01687  M01S01355.dmrec   +++|          SA7    A7+B1       PRE - ALLOCATION PERCENTAGE
01688  M01S01356.dmrec   +++|          BX7    X5
01689  M01S01357.dmrec   +++|          SA7    A7+B1
01690  M01S01358.dmrec   +++|          PUT    DIRR,XXBUF,60,,XXBUF
01691  M01S01359.dmrec   +++|          RJ     FER         CHECK FIT ERROR
01692  M01S01360.dmrec   +++|          NZ     X1,ACF11    IF ERROR
01693  M01S01361.dmrec   +++|          MX0    12
01694  M01S01362.dmrec   +++|          SA5    XXPFN
01695  M01S01363.dmrec   +++|          BX6    X5
01696  M01S01364.dmrec   +++|          SA6    XXPFN1
01697  M01S01365.dmrec   +++|          BX5    X0*X5       SET DATA BASE NAME FOR GXJ
01698  M01S01366.dmrec   +++|          RJ     GXJ         GET XXJ FILE
01699  M01S01367.dmrec   +++|          NZ     X1,ACF11    IF ERROR
01700  M01S01368.dmrec   +++|          SX5    B1
01701  M01S01369.dmrec   +++| ACF6     RJ     RXJ         READ XXJ FILE
01702  M01S01370.dmrec   +++|          ZR     X1,ACF7     IF NO ERROR
01703  M01S01371.dmrec   +++|          PL     X1,ACF11    IF ERROR
01704  M01S01372.dmrec   +++|          NZ     X2,ACF8     IF ONE LAST ENTRY
01705  M01S01373.dmrec   +++|          EQ     ACF9        DONE
01706  M01S01374.dmrec   +++|
01707  M01S01375.dmrec   +++| ACF7     SA2    XXPFN
01708  M01S01376.dmrec   +++|          SX3    3RAAA       DATA BASE FILE HEADER - ID
01709  M01S01377.dmrec   +++|          BX6    X2+X3
01710  M01S01378.dmrec   +++|          SA6    XXBUF
01711  M01S01379.dmrec   +++|          SX6    B0
01712  M01S01380.dmrec   +++|          SA6    A6+B1
01713  M01S01381.dmrec   +++|          SA6    A6+B1
01714  M01S01382.dmrec   +++|          SA6    A6+B1
01715  M01S01383.dmrec   +++|          SX6    EXPCT       SET DEFAULT PERCENTAGE FOR FILES
01716  M01S01384.dmrec   +++|          SA6    A6+B1
01717  M01S01385.dmrec   +++|          SX6    NCOPY
01718  M01S01386.dmrec   +++|          SA6    A6+B1
01719  M01S01387.dmrec   +++|          PUT    DIRR,XXBUF,60,,XXBUF
01720  M01S01388.dmrec   +++|          RJ     FER         CHECK FIT ERROR
01721  M01S01389.dmrec   +++|          NZ     X1,ACF11    IF ERROR
01722  M01S01390.dmrec   +++|          SX5    B0          SET NON INITIAL CALL TO RXJ
01723  M01S01391.dmrec   +++|          EQ     ACF6        LOOP
01724  M01S01392.dmrec   +++|
01725  M01S01393.dmrec   +++| ACF8     SA2    XXPFN
01726  M01S01394.dmrec   +++|          SX3    3RAAA
01727  M01S01395.dmrec   +++|          BX6    X2+X3
01728  M01S01396.dmrec   +++|          SA6    XXBUF
01729  M01S01397.dmrec   +++|          SX6    B0
01730  M01S01398.dmrec   +++|          SA6    A6+B1
01731  M01S01399.dmrec   +++|          SA6    A6+B1
01732  M01S01400.dmrec   +++|          SX7    EXPCT       SET DEFAULT PERCENTAGE FOR FILES
01733  M01S01401.dmrec   +++|          SA6    A6+B1
01734  M01S01402.dmrec   +++|          SA7    A6+B1
01735  M01S01403.dmrec   +++|          SX6    NCOPY       SET NUMBER OF DEFAULT DUMPS
01736  M01S01404.dmrec   +++|          SA6    A7+B1
01737  M01S01405.dmrec   +++|          PUT    DIRR,XXBUF,60,,XXBUF
01738  M01S01406.dmrec   +++|          FETCH  DIRR,ES,X5
01739  M01S01407.dmrec   +++|          NZ     X5,ACF11    IF ERROR IN DIRECTORY
01740  M01S01408.dmrec   +++|
01741  M01S01409.dmrec   +++| ACF9     CLOSEM DIRR,U
01742  M01S01410.dmrec   +++|          ERROR  ACFB,ACFA,,ACF10
01743  M01S01411.dmrec   +++|
01744  M01S01412.dmrec   +++| ACF9.1   CLOSEM DIRR,U
01745  M01S01413.dmrec   +++|          SA1    DIRR        GET NAME OF FILE
01746  M01S01414.dmrec   +++|          MX0    42
01747  M01S01415.dmrec   +++|          BX1    X1*X0
01748  M01S01416.dmrec   +++|          SB2    1RZ         SUBSTITUTE CHARACTER
01749  M01S01417.dmrec   +++|          SB5    -ACFDA
01750  M01S01418.dmrec   +++|          SB3    ACFDA       ADDRESS OF ASSEMBLY AREA
01751  M01S01419.dmrec   +++|          RJ     SNM         SET NAME IN MESSAGE
01752  M01S01420.dmrec   +++|          ERROR  ACFD,,,DMR3,,E  *ZZZ - DOES NOT MATCH DATA BASE NAME.*
01753  M01S01421.dmrec   +++|
01754  M01S01422.dmrec   +++| ACF10    SA5    XXPFN1
01755  M01S01423.dmrec   +++|          BX6    X5
01756  M01S01424.dmrec   +++|          SA6    XXPFN       RESTORE XXPFN
01757  M01S01425.dmrec   +++|          EQ     ACF1        RETURN TO ATTACH DIRECTORY
01758  M01S01426.dmrec   +++|
01759  M01S01427.dmrec   +++| ACF11    MESSAGE (=C* DIRECTORY UNUSABLE *)
01760  M01S01428.dmrec   +++|          EQ     DMR6        ABORT
01761  M01S01429.dmrec   +++|
01762  M01S01430.dmrec   +++| ACFB     DATA   20H0     *****
01763  M01S01431.dmrec   +++|          DATA   C*BACKUP DIRECTORY - XXXXXXX HAS BEEN RECONSTRUCTED.*
01764  M01S01432.dmrec   +++| ACFBL    EQU    *-ACFB
01765  M01S01433.dmrec   +++| ACFC     BSSZ   1
01766  M01S01434.dmrec   +++| ACFD     DATA   20H0        *****
01767  M01S01435.dmrec   +++| ACFDA    DATA   C*ZZZZZZZ DOES NOT MATCH DATA BASE NAME.*
01768  M01S01436.dmrec   +++| ACFDL    EQU    *-ACFD
01769  M01S01437.dmrec   +++|
01770  M01S01438.dmrec   +++|          TITLE  SUBROUTINES.
01771  M01S01439.dmrec   +++| ADD      SPACE  4,15
01772  M01S01440.dmrec   +++|**        ADD - ADD VSN AND CORRESPONDING DUMP ENTRIES.
01773  M01S01441.dmrec   +++|*
01774  M01S01442.dmrec   +++|*         ENTRY  (TVSN) = VSN NUMBER.
01775  M01S01443.dmrec   +++|*                (LFNC) = 0, IF ALL FILES.
01776  M01S01444.dmrec   +++|*                         1, IF SELECTIVE FILES.
01777  M01S01445.dmrec   +++|*
01778  M01S01446.dmrec   +++|*         EXIT   (X1)   = 0, IF NO ERRORS.
01779  M01S01447.dmrec   +++|*
01780  M01S01448.dmrec   +++|*         USES   X - 0, 1, 2, 4, 5, 6.
01781  M01S01449.dmrec   +++|*                A - 0, 1, 2, 6.
01782  M01S01450.dmrec   +++|*                B - 7.
01783  M01S01451.dmrec   +++|*
01784  M01S01452.dmrec   +++|*         CALLS  FER, LBL, LDH, MDI, MDS, RQT, SVK, WBL.
01785  M01S01453.dmrec   +++|*
01786  M01S01454.dmrec   +++|*         MACROS CLOSEM, ERROR, FETCH, OPENM, READ,
01787  M01S01455.dmrec   +++|*                READW, RMGET, SKIPEI, SKIPFB.
01788  M01S01456.dmrec   +++|
01789  M01S01457.dmrec   +++|
01790  M01S01458.dmrec   +++| ADD      SUBR               ENTRY/EXIT
01791  M01S01459.dmrec   +++|          SA1    TVSN        *TVSN* PARAMETER
01792  M01S01460.dmrec   +++|          SX6    A1
01793  M01S01461.dmrec   +++|          SA6    IVSN        SAVE ADDRESS FOR TAPE REQUEST
01794  M01S01462.dmrec   +++|          RJ     SVK         SET VSN KEY
01795  M01S01463.dmrec   +++|          RMGET  DIRR,WSAB,0,,VKY1  TRY TO GET VSN ENTRY
01796  M01S01464.dmrec   +++|          RJ     FER         FIT ERROR STATUS
01797  M01S01465.dmrec   +++|          NZ     X1,ADD1     IF VSN DOES NOT EXIST
01798  M01S01466.dmrec   +++|          SX1    B1
01799  M01S01467.dmrec   +++|          SA2    LFNC
01800  M01S01468.dmrec   +++|          ZR     X2,ADD6     IF ALL FILES AFFECTED
01801  M01S01469.dmrec   +++| ADD1     SX5    B0          READ MODE FOR TAPE REQUEST
01802  M01S01470.dmrec   +++|          SB7    TP          TAPE REQUEST FET
01803  M01S01471.dmrec   +++|          SA2    TVSN
01804  M01S01472.dmrec   +++|          BX6    X2
01805  M01S01473.dmrec   +++|          RJ     RQT         REQUEST TAPE
01806  M01S01474.dmrec   +++|          SA1    =6L         MASS STORAGE FILE
01807  M01S01475.dmrec   +++|          BX2    X1-X6
01808  M01S01476.dmrec   +++|          ZR     X2,ADD2     IF DISK FILE ASSIGNED
01809  M01S01477.dmrec   +++|          SA1    TVSN
01810  M01S01478.dmrec   +++|          BX2    X1-X6
01811  M01S01479.dmrec   +++|          NZ     X2,ADD7     IF NOT THE SAME VSN
01812  M01S01480.dmrec   +++|          SKIPEI TP,R
01813  M01S01481.dmrec   +++|          SKIPFB TP,,R
01814  M01S01482.dmrec   +++|          READ   TP,R
01815  M01S01483.dmrec   +++|          READW  TP,WBUF,WBUFL  DIRECTORY FILE
01816  M01S01484.dmrec   +++|          ZR     X1,LOD10    IF ERROR
01817  M01S01485.dmrec   +++|          NG     X1,LOD10    IF ERROR
01818  M01S01486.dmrec   +++|          SA1    ACFA        DIRECTORY FN
01819  M01S01487.dmrec   +++|          BX6    X1
01820  M01S01488.dmrec   +++|          SA6    XXPFN       SET XXPFN FOR *LBL* READING OF TRAILER
01821  M01S01489.dmrec   +++|          SA1    TP+B1       RESET FET
01822  M01S01490.dmrec   +++|          SX6    X1
01823  M01S01491.dmrec   +++|          SA6    A1+B1       IN
01824  M01S01492.dmrec   +++|          SA6    A6+B1       OUT
01825  M01S01493.dmrec   +++|          SX4    IF          FET ADDRESS
01826  M01S01494.dmrec   +++|          RJ     LBL         COPY FILE TO FITA
01827  M01S01495.dmrec   +++|          NZ     X1,ADDX     IF ERROR
01828  M01S01496.dmrec   +++| ADD2     OPENM  FITA,INPUT
01829  M01S01497.dmrec   +++|          FETCH  FITA,ES,X1  ERROR STATUS ON OPEN
01830  M01S01498.dmrec   +++|          NZ     X1,ADD8     IF ERROR ON OPEN
01831  M01S01499.dmrec   +++|          EQ     ADD9        PRINT OLD DIRECTORY HEADER
01832  M01S01500.dmrec   +++|
01833  M01S01501.dmrec   +++| ADD3     SA0    FITA        SET FIT ADDRESS
01834  M01S01502.dmrec   +++|          SX6    B1          ONLY DIRECTORY HEADER
01835  M01S01503.dmrec   +++|          RJ     LDH         LIST DIRECTORY HEADER
01836  M01S01504.dmrec   +++|          RJ     WBL         WRITE BLANK LINE
01837  M01S01505.dmrec   +++|          SX6    B1
01838  M01S01506.dmrec   +++|          SA6    ADDF        SET ADD FLAG
01839  M01S01507.dmrec   +++|          SA1    LFNC
01840  M01S01508.dmrec   +++|          NZ     X1,ADD4     IF SELECTIVE FILES
01841  M01S01509.dmrec   +++|          RJ     MDI         MODIFY DIRECTORY
01842  M01S01510.dmrec   +++|          EQ     ADD5        RETURN
01843  M01S01511.dmrec   +++|
01844  M01S01512.dmrec   +++| ADD4     RJ     MDS         MODIFY SELECTIVE FILES IN DIRECTORY
01845  M01S01513.dmrec   +++| ADD5     CLOSEM FITA,U
01846  M01S01514.dmrec   +++|          MX1    0
01847  M01S01515.dmrec   +++|          EQ     ADDX        RETURN
01848  M01S01516.dmrec   +++|
01849  M01S01517.dmrec   +++| ADD6     ERROR  ADDA,,,ADDX,,E  VSN ALREADY EXISTS
01850  M01S01518.dmrec   +++|
01851  M01S01519.dmrec   +++| ADD7     ERROR  ADDB,,,ADDX,,E  NOT THE SAME VSN
01852  M01S01520.dmrec   +++|
01853  M01S01521.dmrec   +++| ADD8     ERROR  ADDC,,,ADDX,,E  OPEN ERROR
01854  M01S01522.dmrec   +++|
01855  M01S01523.dmrec   +++| ADD9     ERROR  ADDD,,,ADD3  LIST DIRECTORY MESSAGE
01856  M01S01524.dmrec   +++|
01857  M01S01525.dmrec   +++| ADDA     DATA   20H0     *****
01858  M01S01526.dmrec   +++|          DATA   C*VSN ALREADY EXISTS.*
01859  M01S01527.dmrec   +++| ADDAL    EQU    *-ADDA
01860  M01S01528.dmrec   +++|
01861  M01S01529.dmrec   +++| ADDB     DATA   20H0     *****
01862  M01S01530.dmrec   +++|          DATA   C*VSN ASSIGNED DOES NOT MATCH VSN REQUESTED.*
01863  M01S01531.dmrec   +++| ADDBL    EQU    *-ADDB
01864  M01S01532.dmrec   +++|
01865  M01S01533.dmrec   +++| ADDC     DATA   20H0     *****
01866  M01S01534.dmrec   +++|          DATA   C*OPEN ERROR ON COPY OF THE DIRECTORY.*
01867  M01S01535.dmrec   +++| ADDCL    EQU    *-ADDC
01868  M01S01536.dmrec   +++|
01869  M01S01537.dmrec   +++| ADDD     DATA   20H0
01870  M01S01538.dmrec   +++|          DATA   C*DIRECTORY HEADER FROM THE COPY.*
01871  M01S01539.dmrec   +++| ADDDL    EQU    *-ADDD
01872  M01S01540.dmrec   +++| ADF      SPACE  4,50
01873  M01S01541.dmrec   +++|**        ADF - ATTACH DATA BASE FILES.
01874  M01S01542.dmrec   +++|*
01875  M01S01543.dmrec   +++|*         *ADF* ATTACHES *CRM* DATA BASE, INDEX AND OWNCODE FILES.
01876  M01S01544.dmrec   +++|*
01877  M01S01545.dmrec   +++|*         THE FOLLOWING FILE NAMES ARE USED:
01878  M01S01546.dmrec   +++|*
01879  M01S01547.dmrec   +++|*                DUMP        *CRM* DATA FILE.
01880  M01S01548.dmrec   +++|*                INDEX       *CRM* INDEX FILE.
01881  M01S01549.dmrec   +++|*                LFN         LFN OF THE OWNCODE FILE.
01882  M01S01550.dmrec   +++|*
01883  M01S01551.dmrec   +++|*         FILES *DUMP* AND *INDEX* ARE DIRECT ACCESS PERMANENT FILES.
01884  M01S01552.dmrec   +++|*         THE OWNCODE FILE IS AN INDIRECT ACCESS PERMANENT FILE.
01885  M01S01553.dmrec   +++|*         NOTE, THAT THE APPROPRIATE PERMISSIONS TO ACCESS THESE
01886  M01S01554.dmrec   +++|*         FILES VIA *DMREC* HAVE TO BE SET, IF *DMREC* IS USED VIA
Line S01555 Modification History
M01 (Added by) dmrec
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01887  M02S01555.v23l617 ---|*         *TAF-S* USER NUMBER.
01888  M01S00018.v23l617 +++|*         *TAF-S* USER NAME.
01889  M01S01556.dmrec   +++|*
01890  M01S01557.dmrec   +++|*         BOTH THE *DUMP* AND *INDEX* FILES WILL BE ATTACHED IN THE
01891  M01S01558.dmrec   +++|*         SAME MODE.  THE ATTACH MODE DEPENDS ON *XXMODE*.
01892  M01S01559.dmrec   +++|*
01893  M01S01560.dmrec   +++|*         ENTRY  (XXUSER) = USER NAME.
01894  M01S01561.dmrec   +++|*                (XXPFN)  = PERMANENT FILE NAME.
01895  M01S01562.dmrec   +++|*                (XXHASH) = OWNCODE ROUTINE NAME.
01896  M01S01563.dmrec   +++|*                (XXPACK) = PACK NAME FOR DATA FILE.
01897  M01S01564.dmrec   +++|*                (XXDEV)  = DEVICE FOR DATA FILE.
01898  M01S01565.dmrec   +++|*                (XXIXN)  = INDEX PERMANENT FILE NAME.
01899  M01S01566.dmrec   +++|*                (XXIXP)  = PACK NAME FOR INDEX FILE.
01900  M01S01567.dmrec   +++|*                (XXIDEV) = DEVICE FOR INDEX FILE.
01901  M01S01568.dmrec   +++|*                (XXMODE) = 0, WRITE MODE REQUESTED.
Line S01569 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec15
Seq #  *Modification Id* Act 
----------------------------+
01902  M02S01569.dmrec15 ---|*                (XXMODE) = 1, READ MODE REQUESTED.
Line S01570 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec15
Seq #  *Modification Id* Act 
----------------------------+
01903  M02S01570.dmrec15 ---|*                (XXMODE) = 2, THE ROUTINE TRYS AT FIRST TO
01904  M01S00001.dmrec15 +++|*                (XXMODE) = 6, READ MODIFY MODE REQUESTED.
01905  M01S00002.dmrec15 +++|*                (XXMODE) = -1, THE ROUTINE TRYS AT FIRST TO
01906  M01S01571.dmrec   +++|*                              ATTACH THE FILE IN WRITE MODE.
Line S01572 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec15
Seq #  *Modification Id* Act 
----------------------------+
01907  M02S01572.dmrec15 ---|*                              IF THIS FAILS, READ MODE WILL
Line S01573 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec15
Seq #  *Modification Id* Act 
----------------------------+
01908  M02S01573.dmrec15 ---|*                              BE USED.
01909  M01S00003.dmrec15 +++|*                             IF THIS FAILS, READ MODIFY
01910  M01S00004.dmrec15 +++|*                             MODE WILL BE USED.
01911  M01S01574.dmrec   +++|*
01912  M01S01575.dmrec   +++|*         EXIT   (X1) = 0, IF NO ERRORS ENCOUNTERED.
01913  M01S01576.dmrec   +++|*                (X1) .NE. 0, IF ERRORS ENCOUNTERED.
01914  M01S01577.dmrec   +++|*                (XXMODE) = 0, IF WRITE-ATTACHED.
Line S01578 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec15
Seq #  *Modification Id* Act 
----------------------------+
01915  M02S01578.dmrec15 ---|*                (XXMODE) = 1, IF READ-ATTACHED.
01916  M01S00005.dmrec15 +++|*                (XXMODE) = 6, IF READ MODIFY-ATTACHED.
01917  M01S01579.dmrec   +++|*
01918  M01S01580.dmrec   +++|*         USES   X - 0, 1, 2, 3, 6, 7.
01919  M01S01581.dmrec   +++|*                A - 1, 2, 6, 7.
01920  M01S01582.dmrec   +++|*                B - NONE.
01921  M01S01583.dmrec   +++|*
01922  M01S01584.dmrec   +++|*         CALLS  CER.
01923  M01S01585.dmrec   +++|*
01924  M01S01586.dmrec   +++|*         MACROS ATTACH, ERROR, GET, STATUS.
01925  M01S01587.dmrec   +++|
01926  M01S01588.dmrec   +++|
01927  M01S01589.dmrec   +++| ADF      SUBR               ENTRY/EXIT
01928  M01S01590.dmrec   +++|          SA1    XXMODE      GET REQUESTED MODE
Line S01591 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec15
Seq #  *Modification Id* Act 
----------------------------+
01929  M02S01591.dmrec15 ---|          SX2    X1-2
Line S01592 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec15
Seq #  *Modification Id* Act 
----------------------------+
01930  M02S01592.dmrec15 ---|          NZ     X2,ADF2     IF NOT NULL MODE
01931  M01S00006.dmrec15 +++|          PL     X1,ADF2     IF NOT NULL MODE
01932  M01S01593.dmrec   +++| ADF1     SX6    PTWR        WRITE MODE
01933  M01S01594.dmrec   +++|          SA6    XXMODE      FIRST TRY WRITE - ATTACH
01934  M01S01595.dmrec   +++|          ATTACH DF,XXPFN,,,XXMODE,XXPACK,XXDEV
01935  M01S01596.dmrec   +++|          SX2    DF          SET FET ADDRESS
01936  M01S01597.dmrec   +++|          RJ     CER         CHECK ERROR
01937  M01S01598.dmrec   +++|          ZR     X1,ADF3     IF NO ERROR
01938  M01S01599.dmrec   +++|          SX6    PTRM        READ MODIFY MODE
01939  M01S01600.dmrec   +++|          SA6    XXMODE      THEN TRY READ - ATTACH
01940  M01S01601.dmrec   +++| ADF2     ATTACH DF,XXPFN,,,XXMODE,XXPACK,XXDEV
01941  M01S01602.dmrec   +++|          SX2    DF          SET FET ADDRESS
01942  M01S01603.dmrec   +++|          RJ     CER         CHECK ERROR
01943  M01S01604.dmrec   +++|          NZ     X1,ADF6     IF ERROR
01944  M01S01605.dmrec   +++| ADF3     SA1    XXIXN
01945  M01S01606.dmrec   +++|          ZR     X1,ADF4     IF NO INDEX FILE SPECIFIED
01946  M01S01607.dmrec   +++|
01947  M01S01608.dmrec   +++|*         ATTACH INDEX FILE.
01948  M01S01609.dmrec   +++|
01949  M01S01610.dmrec   +++|          ATTACH IF,XXIXN,,,XXMODE,XXIXP,XXIDEV
01950  M01S01611.dmrec   +++|          SX2    IF          SET FET ADDRESS
01951  M01S01612.dmrec   +++|          RJ     CER         CHECK FOR ERRORS
01952  M01S01613.dmrec   +++|          NZ     X1,ADF6     IF STATUS ERROR
01953  M01S01614.dmrec   +++|
01954  M01S01615.dmrec   +++|*         GET OWNCODE FILE.
01955  M01S01616.dmrec   +++|
01956  M01S01617.dmrec   +++| ADF4     SA1    XXHASH
01957  M01S01618.dmrec   +++|          ZR     X1,ADFX     IF NO OWNCODE ROUTINE SPECIFIED
01958  M01S01619.dmrec   +++|          SX3    B1
01959  M01S01620.dmrec   +++|          IX7    X1+X3
01960  M01S01621.dmrec   +++|          SA7    OF
01961  M01S01622.dmrec   +++|
01962  M01S01623.dmrec   +++|*         CHECK IF OWNCODE FILE AT CONTROL POINT.
01963  M01S01624.dmrec   +++|
01964  M01S01625.dmrec   +++|          STATUS OF
01965  M01S01626.dmrec   +++|          SA1    OF
01966  M01S01627.dmrec   +++|          MX7    11
01967  M01S01628.dmrec   +++|          LX1    59-11
01968  M01S01629.dmrec   +++|          BX7    X7*X1
01969  M01S01630.dmrec   +++|          ZR     X7,ADF5     IF FILE NOT AT CONTROL POINT
01970  M01S01631.dmrec   +++|          MX1    0
01971  M01S01632.dmrec   +++|          EQ     ADFX        RETURN
01972  M01S01633.dmrec   +++|
01973  M01S01634.dmrec   +++|
01974  M01S01635.dmrec   +++| ADF5     SA2    OF
01975  M01S01636.dmrec   +++|          MX0    42
01976  M01S01637.dmrec   +++|          BX2    -X0*X2
01977  M01S01638.dmrec   +++|          SA1    XXHASH      REPLACE FN
01978  M01S01639.dmrec   +++|          BX6    X1+X2
01979  M01S01640.dmrec   +++|          SA6    A2
01980  M01S01641.dmrec   +++|          GET    OF
01981  M01S01642.dmrec   +++|          SX2    OF          SET FET ADDRESS
01982  M01S01643.dmrec   +++|
01983  M01S01644.dmrec   +++|          RJ     CER         CHECK FOR ERRORS
01984  M01S01645.dmrec   +++|          ZR     X1,ADFX     IF NO ERRORS
01985  M01S01646.dmrec   +++|
01986  M01S01647.dmrec   +++|          ERROR  ADFC,XXHASH,,ADFX,,E  GET ERROR ON FILE
01987  M01S01648.dmrec   +++|
01988  M01S01649.dmrec   +++| ADF6     ERROR  ADFB,XXPFN,,ADFX,,E  ATTACH ERROR ON FILE
01989  M01S01650.dmrec   +++|
01990  M01S01651.dmrec   +++|
01991  M01S01652.dmrec   +++| ADFB     DATA   20H0     *****
01992  M01S01653.dmrec   +++|          DATA   C*ATTACH ERROR ON PF XXXXXXX.*
01993  M01S01654.dmrec   +++| ADFBL    EQU    *-ADFB
01994  M01S01655.dmrec   +++| ADFC     DATA   20H0     *****
01995  M01S01656.dmrec   +++|          DATA   C*GET ERROR ON PF XXXXXXX.*
01996  M01S01657.dmrec   +++| ADFCL    EQU    *-ADFC
01997  M01S01658.dmrec   +++| ALC      SPACE  4,15
01998  M01S01659.dmrec   +++|**        ALC - ADVANCE LINE COUNT.
01999  M01S01660.dmrec   +++|*
02000  M01S01661.dmrec   +++|*         *ALC* ADVANCES THE LINE COUNT FOR THE OUTPUT FILE PAGE AND
02001  M01S01662.dmrec   +++|*         CHECKS FOR END-OF-PAGE.  IF END-OF-PAGE IS ENCOUNTERED,
02002  M01S01663.dmrec   +++|*         SAVE INITIAL RETURN ADDRESSES OF *ALC* AND *LPH*.
02003  M01S01664.dmrec   +++|*
02004  M01S01665.dmrec   +++|*         ENTRY  (X2) = LINE COUNT TO ADVANCE.
02005  M01S01666.dmrec   +++|*
02006  M01S01667.dmrec   +++|*         EXIT   LINE COUNT ADVANCED.
02007  M01S01668.dmrec   +++|*
02008  M01S01669.dmrec   +++|*         USES   X - 1, 2, 4, 6, 7.
02009  M01S01670.dmrec   +++|*                A - 1, 2, 6, 7.
02010  M01S01671.dmrec   +++|*                B - 2.
02011  M01S01672.dmrec   +++|*
02012  M01S01673.dmrec   +++|*         CALLS  CDD, STL.
02013  M01S01674.dmrec   +++|
02014  M01S01675.dmrec   +++|
02015  M01S01676.dmrec   +++| ALC      SUBR               ENTRY/EXIT
02016  M01S01677.dmrec   +++|          SA1    ALCA        LINE COUNT
02017  M01S01678.dmrec   +++|          IX7    X1+X2
02018  M01S01679.dmrec   +++|          SA7    A1          LINE COUNT ADVANCED
02019  M01S01680.dmrec   +++|          SB2    X1-LINP
02020  M01S01681.dmrec   +++|          NG     B2,ALCX     IF NOT AT END OF PAGE
02021  M01S01682.dmrec   +++|          SA1    ALCB
02022  M01S01683.dmrec   +++|          SX7    X1+1        ADVANCE PAGE COUNT
02023  M01S01684.dmrec   +++|          SA7    ALCB
02024  M01S01685.dmrec   +++|          RJ     CDD         CONVERT TO DISPLAY CODE
02025  M01S01686.dmrec   +++|          MX4    30
02026  M01S01687.dmrec   +++|          SA1    STLAP       HEADER PAGE WORD
02027  M01S01688.dmrec   +++|          BX2    X4*X1
02028  M01S01689.dmrec   +++|          BX6    -X4*X6
02029  M01S01690.dmrec   +++|          BX6    X6+X2
02030  M01S01691.dmrec   +++|          SA6    A1          NEW PAGE NUMBER INSERTED
02031  M01S01692.dmrec   +++|          MX7    0
02032  M01S01693.dmrec   +++|          SA7    ALCA        CLEAR LINE COUNT
02033  M01S01694.dmrec   +++|          SA1    ALC         RETURN ADDRESS
02034  M01S01695.dmrec   +++|          BX6    X1
02035  M01S01696.dmrec   +++|          SA6    ALCC        SAVE RETURN ADDRESS
02036  M01S01697.dmrec   +++|          SA2    LPH         LPH INITIAL RETURN ADDRESS
02037  M01S01698.dmrec   +++|          BX7    X2
02038  M01S01699.dmrec   +++|          SA7    ALCD        SAVE RETURN ADDRESS
02039  M01S01700.dmrec   +++|          RJ     STL         SET NEW TITLE LINE
02040  M01S01701.dmrec   +++|          SA1    ALCC        RETURN ADDRESS
02041  M01S01702.dmrec   +++|          BX6    X1
02042  M01S01703.dmrec   +++|          SA6    ALC         PUT INITIAL RETURN ADDRESS
02043  M01S01704.dmrec   +++|          SA2    ALCD        RESTORE INITIAL RETURN ADDRESS
02044  M01S01705.dmrec   +++|          BX7    X2
02045  M01S01706.dmrec   +++|          SA7    LPH         RESTORE RETURN ADDRESS
02046  M01S01707.dmrec   +++|          EQ     ALCX        RETURN
02047  M01S01708.dmrec   +++|
02048  M01S01709.dmrec   +++| ALCA     CON    3           LINE COUNT
02049  M01S01710.dmrec   +++| ALCB     CON    2           PAGE COUNT
02050  M01S01711.dmrec   +++| ALCC     BSSZ   1           ALC INITIAL RETURN ADDRESS
02051  M01S01712.dmrec   +++| ALCD     BSSZ   1           LPH INITIAL RETURN ADDRESS
02052  M01S01713.dmrec   +++| ARB      SPACE  4,15
02053  M01S01714.dmrec   +++|**        ARB - ALLOCATE BUFFER SPACE.
02054  M01S01715.dmrec   +++|*
Line S01716 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
02055  M02S01716.ns2023  ---|*         ENTRY  (B6)   = 0, TO ALLOCATE *QRF* BUFFER.
Line S01717 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
02056  M02S01717.ns2023  ---|*                       = 1, TO ALLOCATE *LRF* BUFFER.
Line S01718 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
02057  M02S01718.ns2023  ---|*                (TLRF) = FWA OF *TLRF* TABLE.
Line S01719 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
02058  M02S01719.ns2023  ---|*                (TQRF) = FWA OF *TQRF* TABLE.
02059  M01S00016.ns2023  +++|*         ENTRY  (B6)   = 0, TO ALLOCATE *BRF* BUFFER.
02060  M01S00017.ns2023  +++|*                       = 1, TO ALLOCATE *ARF* BUFFER.
02061  M01S00018.ns2023  +++|*                (TARF) = FWA OF *TARF* TABLE.
02062  M01S00019.ns2023  +++|*                (TBRF) = FWA OF *TBRF* TABLE.
02063  M01S01720.dmrec   +++|*
02064  M01S01721.dmrec   +++|*         EXIT   (X1) = 0, IF BUFFER ALLOCATED.
02065  M01S01722.dmrec   +++|*                       1, IF ERROR ENCOUNTERED.
02066  M01S01723.dmrec   +++|*
02067  M01S01724.dmrec   +++|*         USES   X - ALL.
02068  M01S01725.dmrec   +++|*                A - 1, 2, 3, 4, 6, 7.
02069  M01S01726.dmrec   +++|*                B - NONE.
02070  M01S01727.dmrec   +++|*
02071  M01S01728.dmrec   +++|*         CALLS  CTW.
02072  M01S01729.dmrec   +++|*
02073  M01S01730.dmrec   +++|*         MACROS MESSAGE.
02074  M01S01731.dmrec   +++|
02075  M01S01732.dmrec   +++|
02076  M01S01733.dmrec   +++| ARB      SUBR               ENTRY/EXIT
02077  M01S01734.dmrec   +++|          SA1    XXMKL       MAXIMUM KEY LENGTH
02078  M01S01735.dmrec   +++|          SA2    XXMRL       MAXIMUM RECORD LENGTH
02079  M01S01736.dmrec   +++|          BX7    X2
02080  M01S01737.dmrec   +++|          BX0    X1
02081  M01S01738.dmrec   +++|          RJ     CTW         CONVERT TO WORDS
02082  M01S01739.dmrec   +++|          BX3    X1          LENGTH IN WORDS
02083  M01S01740.dmrec   +++|          BX7    X0
02084  M01S01741.dmrec   +++|          RJ     CTW         CONVERT TO WORDS
02085  M01S01742.dmrec   +++|          IX3    X3+X1       (RL/10) + (KL/10)
Line S01743 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
02086  M02S01743.ns2023  ---|          SX3    X3+TQRHL    ADD *QRF*/*LRF* RECORD HEADER LENGTH
Line S00020 Modification History
M01 (Added by) ns2023
M02 (Updated by) dmrec12
Seq #  *Modification Id* Act 
----------------------------+
02087  M02S00020.dmrec12 ---|          SX3    X3+TQRHL    ADD *BRF*/*ARF* RECORD HEADER LENGTH
Line S01744 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec12
Seq #  *Modification Id* Act 
----------------------------+
02088  M02S01744.dmrec12 ---|          BX7    X3
Line S01745 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec12
Seq #  *Modification Id* Act 
----------------------------+
02089  M02S01745.dmrec12 ---|          SA7    XXMBL       SAVE MAXIMUM BLOCK LENGTH
Line S01746 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec12
Seq #  *Modification Id* Act 
----------------------------+
02090  M02S01746.dmrec12 ---|          SX3    X3+63       ROUND UP TO PRU
02091  M01S00001.dmrec12 +++|          SX7    X3+TARHL    ADD *ARF* RECORD HEADER LENGTH
02092  M01S00002.dmrec12 +++|          EQ     B6,B1,ARB0  IF *ARF* BUFFER ALLOCATION
02093  M01S00003.dmrec12 +++|          SX7    X3+TQRHL    ADD *BRF* RECORD HEADER LENGTH
02094  M01S00004.dmrec12 +++| ARB0     SA7    XXMBL       SAVE MAXIMUM BLOCK LENGTH
02095  M01S00005.dmrec12 +++|          SX3    X7+64-1     ROUND UP A PRU
02096  M01S01747.dmrec   +++|          AX3    6           NUMBER OF FULL PRU-S
02097  M01S01748.dmrec   +++|          LX3    6           LENGTH IN WORDS ROUNDED UP TO FULL PRU-S
02098  M01S01749.dmrec   +++|          SX2    FWAB        FWA OF BUFFER
02099  M01S01750.dmrec   +++|          IX5    X2+X3       LWA OF COMPUTED SPACE
02100  M01S01751.dmrec   +++|          SX4    LWAB        LWA OF AVAILABLE SPACE
02101  M01S01752.dmrec   +++|          IX4    X4-X5
Line S01753 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
02102  M02S01753.ns2023  ---|          EQ     B6,B1,ARB1  ALLOCATE *LRF* BUFFER
02103  M01S00021.ns2023  +++|          EQ     B6,B1,ARB1  ALLOCATE *ARF* BUFFER
02104  M01S01754.dmrec   +++|
Line S01755 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
02105  M02S01755.ns2023  ---|*         ALLOCATE *QRF* BUFFER AND SET FIELDS IN *TQRF* TABLE.
02106  M01S00022.ns2023  +++|*         ALLOCATE *BRF* BUFFER AND SET FIELDS IN *TBRF* TABLE.
02107  M01S01756.dmrec   +++|
Line S01757 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
02108  M02S01757.ns2023  ---|          SX6    CRMUPM      RECORDS PER *QRF* SEGMENT
02109  M01S00023.ns2023  +++|          SX6    CRMUPM      RECORDS PER *BRF* SEGMENT
02110  M01S01758.dmrec   +++|          AX3    6
Line S01759 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
02111  M02S01759.ns2023  ---|          IX6    X3*X6       PRU-S PER *QRF* SEGMENT
Line S01760 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
02112  M02S01760.ns2023  ---|          SX7    CMDM        NUMBER OF SEGMENTS PER *QRF* FILE
02113  M01S00024.ns2023  +++|          IX6    X3*X6       PRU-S PER *BRF* SEGMENT
02114  M01S00025.ns2023  +++|          SX7    CMDM        NUMBER OF SEGMENTS PER *BRF* FILE
02115  M01S01761.dmrec   +++|          BX3    X6
02116  M01S01762.dmrec   +++|          LX7    TQNPN
02117  M01S01763.dmrec   +++|          BX6    X6+X7
02118  M01S01764.dmrec   +++|          LX3    6           LENGTH IN WORDS ROUNDED UP TO FULL PRU-S
02119  M01S01765.dmrec   +++|          SX1    WBUFL
02120  M01S01766.dmrec   +++|          IX3    X3-X1
02121  M01S01767.dmrec   +++|          PL     X3,ARB2     IF BUFFER TOO SMALL
Line S01768 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
02122  M02S01768.ns2023  ---|          SA6    TQRF+TQNPW  *QRF* FILE HEADER WORD THREE
02123  M01S00026.ns2023  +++|          SA6    TQRF+TQNPW  *BRF* FILE HEADER WORD THREE
02124  M01S01769.dmrec   +++|          SX6    44B         RANDOM AND USER EP BITS IN FET+1
02125  M01S01770.dmrec   +++|          SX7    3           FET LENGTH
02126  M01S01771.dmrec   +++|          LX6    24D         POSTION
02127  M01S01772.dmrec   +++|          BX6    X6+X7
02128  M01S01773.dmrec   +++|          LX6    18
02129  M01S01774.dmrec   +++|          BX6    X6+X2       ADD *FIRST*
Line S01775 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
02130  M02S01775.ns2023  ---|          SA6    TQRF+TQFTW  STORE FET+1 IN *TQRF* TABLE
02131  M01S00027.ns2023  +++|          SA6    TQRF+TQFTW  STORE FET+1 IN *TBRF* TABLE
02132  M01S01776.dmrec   +++|          SX6    X2
02133  M01S01777.dmrec   +++|          SA6    A6+B1       STORE *IN*
02134  M01S01778.dmrec   +++|          SA6    A6+B1       STORE *OUT*
02135  M01S01779.dmrec   +++|          SX6    X5+B1       SET *LIMIT*
02136  M01S01780.dmrec   +++|          SA6    A6+B1       STORE *LIMIT*
02137  M01S01781.dmrec   +++|          BX1    X1-X1
02138  M01S01782.dmrec   +++|          EQ     ARBX        RETURN
02139  M01S01783.dmrec   +++|
Line S01784 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
02140  M02S01784.ns2023  ---|*         ALLOCATE *LRF* BUFFER AND SET FIELDS IN *TLRF* TABLE.
02141  M01S00028.ns2023  +++|*         ALLOCATE *ARF* BUFFER AND SET FIELDS IN *TARF* TABLE.
02142  M01S01785.dmrec   +++|
02143  M01S01786.dmrec   +++| ARB1     SA4    XXMBL       MAXIMUM BLOCK SIZE IN WORDS
02144  M01S01787.dmrec   +++|          SX6    CRMARB      NUMBER OF *ARF* RECORDS PER BUFFER
02145  M01S01788.dmrec   +++|          IX4    X4*X6
02146  M01S01789.dmrec   +++|          SX6    63          ROUND-UP TO PRU
02147  M01S01790.dmrec   +++|          IX4    X4+X6
02148  M01S01791.dmrec   +++|          SX1    WBUFL
02149  M01S01792.dmrec   +++|          IX6    X4-X1
02150  M01S01793.dmrec   +++|          PL     X6,ARB2     IF BUFFER TOO SMALL
02151  M01S01794.dmrec   +++|          AX4    6
02152  M01S01795.dmrec   +++|          LX4    6           BUFFER LENGTH IN MULTIPLE PRU-S
Line S01796 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
02153  M02S01796.ns2023  ---|          SA3    LENGTH      LENGTH OF *LRF* FILE IN PRU-S
02154  M01S00029.ns2023  +++|          SA3    LENGTH      LENGTH OF *ARF* FILE IN PRU-S
02155  M01S01797.dmrec   +++|          LX3    TAFLS-TAFLN+1
02156  M01S01798.dmrec   +++|          BX6    X3+X4
Line S01799 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
02157  M02S01799.ns2023  ---|          SA6    TLRF+TABLW  SET LRF FILE HEADER WORD 4
02158  M01S00030.ns2023  +++|          SA6    TARF+TABLW  SET *ARF* FILE HEADER WORD 4
02159  M01S01800.dmrec   +++|          SX6    44B         RANDOM AND USER EP BITS IN FET+1
02160  M01S01801.dmrec   +++|          SX7    3           8 WORD FET
02161  M01S01802.dmrec   +++|          LX6    24D
02162  M01S01803.dmrec   +++|          BX6    X6+X7       MERGE
02163  M01S01804.dmrec   +++|          LX6    18
02164  M01S01805.dmrec   +++|          BX6    X6+X2       ADD *FIRST*
Line S01806 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
02165  M02S01806.ns2023  ---|          SA6    TLRF+TAFTW  STORE FET+1 IN *TLRF* TABLE
02166  M01S00031.ns2023  +++|          SA6    TARF+TAFTW  STORE FET+1 IN *TARF* TABLE
02167  M01S01807.dmrec   +++|          SX6    X2
02168  M01S01808.dmrec   +++|          SA6    A6+B1       STORE *IN*
02169  M01S01809.dmrec   +++|          SA6    A6+B1       STORE *OUT*
02170  M01S01810.dmrec   +++|          SX6    X5+B1       SET *LIMIT*
02171  M01S01811.dmrec   +++|          SA6    A6+B1       STORE *LIMIT*
02172  M01S01812.dmrec   +++|          BX1    X1-X1
02173  M01S01813.dmrec   +++|          EQ     ARBX        RETURN
02174  M01S01814.dmrec   +++|
02175  M01S01815.dmrec   +++| ARB2     MESSAGE (=C* NO SPACE FOR ARF/BRF BUFFER.*)
02176  M01S01816.dmrec   +++|          SX1    1           ERROR IN ALLOCATION
02177  M01S01817.dmrec   +++|          EQ     ARBX        RETURN
02178  M01S01818.dmrec   +++|
02179  M01S01819.dmrec   +++|
02180  M01S01820.dmrec   +++| ATF      SPACE  4,15
02181  M01S01821.dmrec   +++|**        ATF -  ATTACH OR DEFINE FILE.
02182  M01S01822.dmrec   +++|*
02183  M01S01823.dmrec   +++|*         ENTRY  (X1) = FIRST WORD OF FET -
02184  M01S01824.dmrec   +++|*                       PERMANENT FILE NAME AND COMPLETION BIT.
Line S01825 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
02185  M02S01825.ns2023  ---|*                (B7) = ONE IF *LRF* OR *QRF* TO BE DEFINED.
Line S01826 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
02186  M02S01826.ns2023  ---|*                     .GT. ONE IF *LRF* OR *QRF* TO BE ATTACHED.
02187  M01S00032.ns2023  +++|*                (B7) = ONE IF *ARF* OR *BRF* TO BE DEFINED.
02188  M01S00033.ns2023  +++|*                       .GT. ONE IF *ARF* OR *BRF* TO BE ATTACHED.
02189  M01S01827.dmrec   +++|*
02190  M01S01828.dmrec   +++|*         EXIT   (X1) = ZERO IF FILE ATTACHED OR DEFINED, NO ERROR.
02191  M01S01829.dmrec   +++|*                     = ERROR CODE IF ERROR ON ATTACH OR DEFINE.
02192  M01S01830.dmrec   +++|*
02193  M01S01831.dmrec   +++|*         USES   X - 1, 4, 6, 7.
02194  M01S01832.dmrec   +++|*                A - 1, 4, 6, 7.
02195  M01S01833.dmrec   +++|*                B - NONE.
02196  M01S01834.dmrec   +++|*
02197  M01S01835.dmrec   +++|*         MACROS ATTACH, DEFINE.
02198  M01S01836.dmrec   +++|
02199  M01S01837.dmrec   +++|
02200  M01S01838.dmrec   +++| ATF      SUBR               ENTRY/EXIT
02201  M01S01839.dmrec   +++|          BX7    X1
02202  M01S01840.dmrec   +++|          SA7    RECF        PFN TO FET+0
02203  M01S01841.dmrec   +++|          MX7    12
02204  M01S01842.dmrec   +++|          SX6    ATFA        ERROR BUFFER ADDRESS
02205  M01S01843.dmrec   +++|          SA6    RECF+10
02206  M01S01844.dmrec   +++|          SA4    A7+B1
02207  M01S01845.dmrec   +++|          BX7    -X7*X4
02208  M01S01846.dmrec   +++|          SA7    A4          CLEAR DEVICE TYPE IN FET+1
02209  M01S01847.dmrec   +++|          SX7    B0          ATTACH MODE = ZERO = WRITE MODE
02210  M01S01848.dmrec   +++|          SA7    RECF+12     CLEAR PACKNAME/UNIT IN FET+12
02211  M01S01849.dmrec   +++|          SA7    RECF+7      STORE ATTACH MODE IN FET+7
02212  M01S01850.dmrec   +++|          GT     B7,B1,ATF1  IF ATTACH FILE
02213  M01S01851.dmrec   +++|          DEFINE RECF,,,,RECF+7
02214  M01S01852.dmrec   +++|          EQ     ATF2        CHECK FOR ERRORS
02215  M01S01853.dmrec   +++|
02216  M01S01854.dmrec   +++| ATF1     ATTACH RECF,,,,RECF+7
02217  M01S01855.dmrec   +++| ATF2     MX7    -8
02218  M01S01856.dmrec   +++|          SA1    RECF        FET+0
02219  M01S01857.dmrec   +++|          AX1    10
02220  M01S01858.dmrec   +++|          BX1    -X7*X1      SAVE RIGHT JUSTIFIED ERROR CODE
02221  M01S01859.dmrec   +++|          EQ     ATFX        RETURN
02222  M01S01860.dmrec   +++|
02223  M01S01861.dmrec   +++| ATFA     BSSZ   3           BUFFER FOR ERROR MESSAGE
02224  M01S01862.dmrec   +++| BBE      SPACE  4,10
02225  M01S01863.dmrec   +++|**        BBE - BUILD BACKUP DIRECTORY ENTRIES.
02226  M01S01864.dmrec   +++|*
02227  M01S01865.dmrec   +++|*         BUILD BACKUP DIRECTORY ENTRIES FROM INFORMATION
02228  M01S01866.dmrec   +++|*         IN TABLES *TDFN* AND *TVSN*.
02229  M01S01867.dmrec   +++|*
02230  M01S01868.dmrec   +++|*         ENTRY  (NUMF)   = NUMBER OF FILES ON *TDFN*
02231  M01S01869.dmrec   +++|*                (NUMV)   = NUMBER OF VSN-S ON *TVSN*
02232  M01S01870.dmrec   +++|*                TABLES *TDFN* AND *TVSN* CONSTRUCTED.
02233  M01S01871.dmrec   +++|*                (DMPFLG) = 0  IF LOG FILE DUMP.
02234  M01S01872.dmrec   +++|*                           .NE. 0 IF DATA FILE DUMP.
02235  M01S01873.dmrec   +++|*
02236  M01S01874.dmrec   +++|*         EXIT   BACKUP ENTRIES BUILT
02237  M01S01875.dmrec   +++|*                (X1) = 0 - NO ERRORS
02238  M01S01876.dmrec   +++|*
02239  M01S01877.dmrec   +++|*         USES   X - ALL.
02240  M01S01878.dmrec   +++|*                A - 1, 2, 3, 4, 5, 6, 7.
02241  M01S01879.dmrec   +++|*                B - 2, 3.
02242  M01S01880.dmrec   +++|*
02243  M01S01881.dmrec   +++|*         CALLS  CDD, FER, WFH.
02244  M01S01882.dmrec   +++|*
02245  M01S01883.dmrec   +++|*         MACROS ERROR, MOVE, PDATE, PUT, RMGET
02246  M01S01884.dmrec   +++|*                RMREP, WRITEF, WRITER, WRITEW.
02247  M01S01885.dmrec   +++|
02248  M01S01886.dmrec   +++|
02249  M01S01887.dmrec   +++| BBE      SUBR               ENTRY/EXIT
02250  M01S01888.dmrec   +++|          SA1    DMPFLG
02251  M01S01889.dmrec   +++|          ZR     X1,BBE10    IF LOG FILE
02252  M01S01890.dmrec   +++|
02253  M01S01891.dmrec   +++|*         CREATE VSN ENTRIES FOR DIRECTORY.
02254  M01S01892.dmrec   +++|
02255  M01S01893.dmrec   +++|          SX6    B0-B1
02256  M01S01894.dmrec   +++|          SA6    HOLD
02257  M01S01895.dmrec   +++| BBE1     SA1    NUMV
02258  M01S01896.dmrec   +++|          SA2    HOLD
02259  M01S01897.dmrec   +++|          SX6    X2+B1
02260  M01S01898.dmrec   +++|          SA6    A2
02261  M01S01899.dmrec   +++|          IX2    X1-X6
02262  M01S01900.dmrec   +++|          ZR     X2,BBE3     IF NO MORE TAPES
02263  M01S01901.dmrec   +++|          SA2    TVSN+X6
02264  M01S01902.dmrec   +++|          MX0    36
02265  M01S01903.dmrec   +++|          BX6    X0*X2       MASK VSN
02266  M01S01904.dmrec   +++|          LX6    36
02267  M01S01905.dmrec   +++|          SA1    FILLER      ADD ****
02268  M01S01906.dmrec   +++|          BX6    X1+X6
02269  M01S01907.dmrec   +++|          SA6    EVSN
02270  M01S01908.dmrec   +++|          SA4    A2+B1
02271  M01S01909.dmrec   +++|          BX6    X0*X4
02272  M01S01910.dmrec   +++|          SA6    A6+2
02273  M01S01911.dmrec   +++|          MX0    -18
02274  M01S01912.dmrec   +++|          BX6    -X0*X2
02275  M01S01913.dmrec   +++|          SA6    A6+B1
02276  M01S01914.dmrec   +++|          SX6    B0
02277  M01S01915.dmrec   +++|          SX7    B0
02278  M01S01916.dmrec   +++|          SA4    HOLD        CHECK FOR FIRST TAPE
02279  M01S01917.dmrec   +++|          NZ     X4,BBE2     IF NOT FIRST TAPE
02280  M01S01918.dmrec   +++|          SA3    FORD        GET FILE ORDINAL
02281  M01S01919.dmrec   +++|          BX6    X3
02282  M01S01920.dmrec   +++|          SX7    B1          SET FIRST TAPE FLAG
02283  M01S01921.dmrec   +++| BBE2     SA6    A6+B1
02284  M01S01922.dmrec   +++|          SA7    A6+B1
02285  M01S01923.dmrec   +++|          PUT    DIRR,EVSN,60,,EVSN
02286  M01S01924.dmrec   +++|          RJ     FER         CHECK FIT ERROR
02287  M01S01925.dmrec   +++|          NZ     X1,BBE20    IF ERROR
02288  M01S01926.dmrec   +++|          EQ     BBE1        PROCESS NEXT TAPE
02289  M01S01927.dmrec   +++|
02290  M01S01928.dmrec   +++|*         CREATE FILE DUMP ENTRIES FOR DIRECTORY.
02291  M01S01929.dmrec   +++|
02292  M01S01930.dmrec   +++| BBE3     SX6    B0-2
02293  M01S01931.dmrec   +++|          SA6    HOLD
02294  M01S01932.dmrec   +++| BBE4     SA1    NUMF        NUMBER OF FILES
02295  M01S01933.dmrec   +++|          SA2    HOLD
02296  M01S01934.dmrec   +++|          SX6    X2+2        INCREMENT BY 2
02297  M01S01935.dmrec   +++|          SA6    A2
02298  M01S01936.dmrec   +++|          IX2    X1-X6
02299  M01S01937.dmrec   +++|          ZR     X2,BBE9     IF NO MORE FILES
02300  M01S01938.dmrec   +++|          SB2    X6
02301  M01S01939.dmrec   +++|          MX7    42
02302  M01S01940.dmrec   +++|          SA2    TDFN+B2
02303  M01S01941.dmrec   +++|          SX3    3RBBB       DATA BASE DUMP RECORD - ID
02304  M01S01942.dmrec   +++|          BX6    X7*X2
02305  M01S01943.dmrec   +++|          BX6    X6+X3
02306  M01S01944.dmrec   +++|          SA6    EDFN
02307  M01S01945.dmrec   +++|          MX0    3           GET DUMP MODE
02308  M01S01946.dmrec   +++|          LX0    15
02309  M01S01947.dmrec   +++|          BX3    X0*X2
02310  M01S01948.dmrec   +++|          NZ     X3,BBE5     IF RECORD DUMP
02311  M01S01949.dmrec   +++|          PDATE  TEMPO
02312  M01S01950.dmrec   +++|          SA3    TEMPO
02313  M01S01951.dmrec   +++|          BX6    X3
02314  M01S01952.dmrec   +++|          SA6    EDFN+B1
02315  M01S01953.dmrec   +++|          EQ     BBE6        CONTINUE
02316  M01S01954.dmrec   +++|
02317  M01S01955.dmrec   +++| BBE5     SA3    STDTIM      RECORD DUMP - START TIME
02318  M01S01956.dmrec   +++|          BX6    X3
02319  M01S01957.dmrec   +++|          SA6    EDFN+B1
02320  M01S01958.dmrec   +++| BBE6     MX0    36
02321  M01S01959.dmrec   +++|          SA3    TVSN
02322  M01S01960.dmrec   +++|          BX6    X0*X3
Line S01961 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec15
Seq #  *Modification Id* Act 
----------------------------+
02323  M02S01961.dmrec15 ---|          SX0    B1
02324  M01S00007.dmrec15 +++|          SX0    PTRM        READ MODIFY MODE
02325  M01S01962.dmrec   +++|          SA3    HOLD
02326  M01S01963.dmrec   +++|          SB3    X3
02327  M01S01964.dmrec   +++|          SA3    TDFN+B3
02328  M01S01965.dmrec   +++|          BX2    X3
02329  M01S01966.dmrec   +++|          AX3    12
02330  M01S01967.dmrec   +++|          BX7    X0*X3
02331  M01S01968.dmrec   +++|          BX6    X7+X6
02332  M01S01969.dmrec   +++|          SA6    EDFN+2
02333  M01S01970.dmrec   +++|          MX4    48
02334  M01S01971.dmrec   +++|          BX6    -X4*X2
02335  M01S01972.dmrec   +++|          SA6    A6+2
02336  M01S01973.dmrec   +++|          SA2    A3+B1       GET INDEX FILE NAME
02337  M01S01974.dmrec   +++|          NZ     X2,BBE7     IF INDEX FILE
02338  M01S01975.dmrec   +++|          SX6    B0
02339  M01S01976.dmrec   +++|          SA6    A6-B1       INDEX FILE NAME
02340  M01S01977.dmrec   +++|          SA6    A6+2        INDEX FILE ORDINAL
02341  M01S01978.dmrec   +++|          EQ     BBE8        CONTINUE
02342  M01S01979.dmrec   +++|
02343  M01S01980.dmrec   +++| BBE7     MX0    42
02344  M01S01981.dmrec   +++|          BX6    X0*X2
02345  M01S01982.dmrec   +++|          SA6    A6-B1
02346  M01S01983.dmrec   +++|          MX0    48
02347  M01S01984.dmrec   +++|          BX6    -X0*X2
02348  M01S01985.dmrec   +++|          SA6    A6+2
02349  M01S01986.dmrec   +++| BBE8     PUT    DIRR,EDFN,60,,EDFN
02350  M01S01987.dmrec   +++|          RJ     FER         CHECK FIT ERROR
02351  M01S01988.dmrec   +++|          NZ     X1,BBE20    IF ERROR
02352  M01S01989.dmrec   +++|          EQ     BBE4        CONTINUE
02353  M01S01990.dmrec   +++|
02354  M01S01991.dmrec   +++| BBE9     SX1    B0
02355  M01S01992.dmrec   +++|          EQ     BBEX        RETURN
02356  M01S01993.dmrec   +++|
02357  M01S01994.dmrec   +++|*         CREATE LOG FILE ENTRIES IN DIRECTORY.
02358  M01S01995.dmrec   +++|
02359  M01S01996.dmrec   +++| BBE10    SX4    B0          SET BLOCK MODE
02360  M01S01997.dmrec   +++|          SA2    XXPFN       FN
02361  M01S01998.dmrec   +++|          RJ     WFH         WRITE FILE HEADER
02362  M01S01999.dmrec   +++|          NZ     X1,BBEX     IF ERROR
02363  M01S02000.dmrec   +++|          SA5    TLOG
Line S02001 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
02364  M02S02001.ns2023  ---|          ZR     X5,BBE21    IF NO LRF ENTRIES
02365  M01S00034.ns2023  +++|          ZR     X5,BBE21    IF NO *ARF* ENTRIES
02366  M01S02002.dmrec   +++|          SX6    B0
02367  M01S02003.dmrec   +++| BBE11    SA6    HOLD
02368  M01S02004.dmrec   +++|          SA2    HOLD        GET TLOG INDEX
02369  M01S02005.dmrec   +++|          SA5    TLOG+X2
02370  M01S02006.dmrec   +++|          ZR     X5,BBE13    IF SEARCH DONE
Line S02007 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
02371  M02S02007.ns2023  ---|          SA1    EXCOPY      *LRF* COPY NUMBER
02372  M01S00035.ns2023  +++|          SA1    EXCOPY      *ARF* COPY NUMBER
02373  M01S02008.dmrec   +++|          RJ     CDD         CONCERT TO DISPLAY CODE
02374  M01S02009.dmrec   +++|          MX0    42
02375  M01S02010.dmrec   +++|          BX2    -X0*X6
02376  M01S02011.dmrec   +++|          BX6    X0*X5
02377  M01S02012.dmrec   +++|          BX6    X6+X2       FN + COPY NUMBER
02378  M01S02013.dmrec   +++|          SA6    EDFN        PFN
02379  M01S02014.dmrec   +++|          SA3    A5+B1
02380  M01S02015.dmrec   +++|          BX6    X3
02381  M01S02016.dmrec   +++|          SA6    A6+B1       DATE/TIME
02382  M01S02017.dmrec   +++|          SA3    TVSN
02383  M01S02018.dmrec   +++|          BX6    X3
02384  M01S02019.dmrec   +++|          SA6    A6+B1       VSN
02385  M01S02020.dmrec   +++|          SX6    B0
02386  M01S02021.dmrec   +++|          SA6    A6+B1       ZERO
02387  M01S02022.dmrec   +++|          BX6    -X0*X5
02388  M01S02023.dmrec   +++|          SA6    A6+B1       NUMBER OF RECORDS
02389  M01S02024.dmrec   +++|          SA1    LSTTRAN
02390  M01S02025.dmrec   +++|          BX6    X1
02391  M01S02026.dmrec   +++|          SA6    A6+B1       DATE/TIME OF LAST TRANSACTION
02392  M01S02027.dmrec   +++|          PUT    DIRR,EDFN,60,,EDFN
02393  M01S02028.dmrec   +++|          RJ     FER         CHECK FIT ERROR
02394  M01S02029.dmrec   +++|          NZ     X1,BBE20    IF ERROR
02395  M01S02030.dmrec   +++|          MOVE   6,EDFN,TBUF
02396  M01S02031.dmrec   +++|          SA1    TP+B1
02397  M01S02032.dmrec   +++|          SX7    X1
02398  M01S02033.dmrec   +++|          SA7    A1+2        OUT
02399  M01S02034.dmrec   +++|          SX7    X7+6
02400  M01S02035.dmrec   +++|          SA7    A7-B1       SET ( IN ) POINTER
02401  M01S02036.dmrec   +++|          WRITER TP,R
02402  M01S02037.dmrec   +++| BBE12    SA2    HOLD
02403  M01S02038.dmrec   +++|          SX6    X2+2
02404  M01S02039.dmrec   +++|          EQ     BBE11       RETURN FOR NEXT TLOG ENTRY
02405  M01S02040.dmrec   +++|
02406  M01S02041.dmrec   +++| BBE13    SA1    XXPFN
02407  M01S02042.dmrec   +++|          LX1    48          POSITION FN
02408  M01S02043.dmrec   +++|          SX2    3REND
02409  M01S02044.dmrec   +++|          BX6    X2+X1
02410  M01S02045.dmrec   +++|          SA6    TEMPP       TRAILER WORD
02411  M01S02046.dmrec   +++|          WRITEW TP,TEMPP,B1  WRITE TRAILER RECORD
02412  M01S02047.dmrec   +++| BBE14    WRITEF TP,R
02413  M01S02048.dmrec   +++|
Line S02049 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
02414  M02S02049.ns2023  ---|*         PUT VSN OF FIRST LRF DUMP INTO DB HEADER AND/OR
Line S02050 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
02415  M02S02050.ns2023  ---|*         BUILD DIRECTORY ENTRY FOR LRF DUMP VSN.
02416  M01S00036.ns2023  +++|*         PUT VSN OF FIRST *ARF* DUMP INTO DB HEADER AND/OR
02417  M01S00037.ns2023  +++|*         BUILD DIRECTORY ENTRY FOR *ARF* DUMP VSN.
02418  M01S02051.dmrec   +++|
Line S02052 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
02419  M02S02052.ns2023  ---| BBE15    SA2    TDFN        LRF NAME
02420  M01S00038.ns2023  +++| BBE15    SA2    TDFN        *ARF* NAME
02421  M01S02053.dmrec   +++|          MX0    12
Line S02054 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
02422  M02S02054.ns2023  ---|          LX2    12          SHIFT *LRF* NAME FOR DB
02423  M01S00039.ns2023  +++|          LX2    12          SHIFT *ARF* NAME FOR DB
02424  M01S02055.dmrec   +++|          BX6    X0*X2
02425  M01S02056.dmrec   +++|          SA6    KEY2          SET KEY FOR HEADER
02426  M01S02057.dmrec   +++|          RMGET  DIRR,XXBUF,0,,KEY2  GET DB HEADER
02427  M01S02058.dmrec   +++|          RJ     FER         CHECK FIT ERROR
02428  M01S02059.dmrec   +++|          NZ     X1,BBE20    IF ERROR
Line S02060 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
02429  M02S02060.ns2023  ---|          SA1    FSTFLG      GET FIRST LRF FLAG
Line S02061 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
02430  M02S02061.ns2023  ---|          ZR     X1,BBE16    IF NOT FIRST *LRF*
02431  M01S00040.ns2023  +++|          SA1    FSTFLG      GET FIRST *ARF* FLAG
02432  M01S00041.ns2023  +++|          ZR     X1,BBE16    IF NOT FIRST *ARF*
02433  M01S02062.dmrec   +++|          SA2    EXCOPY
02434  M01S02063.dmrec   +++|          SX2    X2-1
02435  M01S02064.dmrec   +++|          NZ     X2,BBE16    IF NOT FIRST COPY
02436  M01S02065.dmrec   +++|          SA3    XXBUF+4     GET VSN FROM HEADER RECORD
02437  M01S02066.dmrec   +++|          SA4    TVSN
02438  M01S02067.dmrec   +++|          MX0    36
02439  M01S02068.dmrec   +++|          BX7    -X0*X3
02440  M01S02069.dmrec   +++|          BX6    X7+X4
02441  M01S02070.dmrec   +++|          SA6    A3          INSERT VSN IN HEADER
02442  M01S02071.dmrec   +++|          RMREP  DIRR,XXBUF,60,,KEY2  REPLACE HEADER
02443  M01S02072.dmrec   +++|          RJ     FER         CHECK FIT ERROR
02444  M01S02073.dmrec   +++|          NZ     X1,BBE20    IF ERROR
02445  M01S02074.dmrec   +++| BBE16    SX6    TVSN
02446  M01S02075.dmrec   +++|          SA6    IVSN        INITIALIZE IVSN POINTER
02447  M01S00031.dmrec7  +++|          SX7    TEOR
02448  M01S00032.dmrec7  +++|          SA7    PEOR        INITIALIZE POINTER TO *TEOR* TABLE
02449  M01S02076.dmrec   +++| BBE16.1  SA4    IVSN
02450  M01S02077.dmrec   +++|          SA3    DMTAPE
02451  M01S02078.dmrec   +++|          NG     X3,BBE18.1  IF NO MORE VSN ENTRIES
02452  M01S02079.dmrec   +++|          SX6    X3-1
02453  M01S02080.dmrec   +++|          SA6    A3          DECREMENT NUMBER OF DUMP TAPES
02454  M01S02081.dmrec   +++|          SA2    X4          GET VSN ENTRY
02455  M01S02082.dmrec   +++|          ZR     X2,BBE18.0  IF NO VSN GIVEN
02456  M01S02083.dmrec   +++|          MX0    36
02457  M01S02084.dmrec   +++|          BX6    X0*X2
02458  M01S00033.dmrec7  +++|          SA2    PEOR
02459  M01S00034.dmrec7  +++|          SA4    X2          VSN FROM *TEOR* TABLE
02460  M01S00035.dmrec7  +++|          BX5    X0*X4
02461  M01S00036.dmrec7  +++|          IX1    X5-X6       COMPARE VSN-S
02462  M01S00037.dmrec7  +++|          SX7    X2+B1
02463  M01S00038.dmrec7  +++|          NZ     X1,BBE22    IF VSN-S DO NOT MATCH
02464  M01S00039.dmrec7  +++|          SA7    A2          INCREMENT *PEOR* POINTER
02465  M01S02085.dmrec   +++|          MX7    0
02466  M01S02086.dmrec   +++|          LX6    36
02467  M01S02087.dmrec   +++|          SA1    FILLER
02468  M01S02088.dmrec   +++|          BX6    X6+X1
02469  M01S02089.dmrec   +++|          SA6    EVSN        SET KEY
02470  M01S02090.dmrec   +++|          ZR     X3,BBE16.2  IF NO MORE VSN-S
02471  M01S02091.dmrec   +++|          SA5    IVSN        GET NEXT VSN
02472  M01S02092.dmrec   +++|          SA2    X5+B1
02473  M01S02093.dmrec   +++|          BX7    X0*X2
02474  M01S02094.dmrec   +++| BBE16.2  SA7    A6+2
Line S02095 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec7
Seq #  *Modification Id* Act 
----------------------------+
02475  M02S02095.dmrec7  ---|          SA2    EVSN+B1     GET ALL ASTERICKS
Line S02096 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec7
Seq #  *Modification Id* Act 
----------------------------+
02476  M02S02096.dmrec7  ---|          BX6    X2
Line S02097 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec7
Seq #  *Modification Id* Act 
----------------------------+
02477  M02S02097.dmrec7  ---|          SA6    A7+B1
02478  M01S00040.dmrec7  +++|          BX6    -X0*X4      GET *EOR* COUNT
02479  M01S00041.dmrec7  +++|          SA6    A7+B1       STORE *EOR* COUNT
Line S02098 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
02480  M02S02098.ns2023  ---|          SA2    HOLD        GET NUMBER OF FILES ON THIS *LRF*
02481  M01S00042.ns2023  +++|          SA2    HOLD        GET NUMBER OF FILES ON THIS *ARF*
02482  M01S02099.dmrec   +++|          MX7    0
02483  M01S02100.dmrec   +++|          NZ     X2,BBE17    IF NOT ZERO COUNT
02484  M01S02101.dmrec   +++|          BX6    X2
02485  M01S02102.dmrec   +++|          EQ     BBE18       GO STORE ZERO
02486  M01S02103.dmrec   +++|
02487  M01S02104.dmrec   +++| BBE17    SX6    X2-2
02488  M01S02105.dmrec   +++| BBE18    SA6    A6+B1
02489  M01S02106.dmrec   +++|          SA7    A6+B1
02490  M01S02107.dmrec   +++|          PUT    DIRR,EVSN,60,,EVSN  ENTER VSN ENTRY
02491  M01S02108.dmrec   +++|          RJ     FER         CHECK FIT ERROR
02492  M01S02109.dmrec   +++|          NZ     X1,BBE20    IF ERROR
02493  M01S02110.dmrec   +++| BBE18.0  SA2    IVSN
02494  M01S02111.dmrec   +++|          SX7    X2+B1       INCREMENT IVSN
02495  M01S02112.dmrec   +++|          SA7    A2
02496  M01S02113.dmrec   +++|          EQ     BBE16.1     CHECK NEXT VSN
02497  M01S02114.dmrec   +++| BBE18.1  SA1    FSTFLG
02498  M01S02115.dmrec   +++|          NZ     X1,BBE9     IF FIRST ARF
02499  M01S02116.dmrec   +++|          SA2    EXCOPY
02500  M01S02117.dmrec   +++|          SX2    X2-1
02501  M01S02118.dmrec   +++|          NZ     X2,BBE9     IF NOT FIRST COPY
02502  M01S02119.dmrec   +++|          SA3    XXBUF+4
02503  M01S02120.dmrec   +++|          MX0    36
02504  M01S02121.dmrec   +++|          BX6    X0*X3
02505  M01S02122.dmrec   +++| BBE19    LX6    36
02506  M01S02123.dmrec   +++|          SA1    FILLER
02507  M01S02124.dmrec   +++|          BX6    X6+X1
02508  M01S02125.dmrec   +++|          SA6    EVSN        SET KEY
02509  M01S02126.dmrec   +++|          RMGET  DIRR,XXBUF,0,,EVSN
02510  M01S02127.dmrec   +++|          RJ     FER         CHECK FIT ERROR
02511  M01S02128.dmrec   +++|          NZ     X1,BBE20    IF ERROR
02512  M01S02129.dmrec   +++|          MX0    36
02513  M01S02130.dmrec   +++|          SA3    XXBUF+5
02514  M01S02131.dmrec   +++|          BX6    X0*X3
02515  M01S02132.dmrec   +++|          NZ     X6,BBE19    IF VSN ALREADY
02516  M01S02133.dmrec   +++|          SA4    TVSN
02517  M01S02134.dmrec   +++|          BX6    X4
02518  M01S02135.dmrec   +++|          SA6    A3
02519  M01S02136.dmrec   +++|          RMREP  DIRR,XXBUF,60,,EVSN
02520  M01S02137.dmrec   +++|          RJ     FER         CHECK FIT ERROR
02521  M01S02138.dmrec   +++|          NZ     X1,BBE20    IF ERROR
02522  M01S02139.dmrec   +++|          EQ     BBEX        RETURN NORMAL
02523  M01S02140.dmrec   +++|
02524  M01S02141.dmrec   +++| BBE20    ERROR  BBEA,,,BBEX,,E  ERROR IN BUILDING DIRECTORY ENTRIES
02525  M01S02142.dmrec   +++|
02526  M01S02143.dmrec   +++| BBE21    ERROR  BBEB,,,BBEX,,E  NO ARF DUMP ENTRIES
02527  M01S02144.dmrec   +++|
02528  M01S00042.dmrec7  +++| BBE22    ERROR  GFVD,,,BBEX,,E  ERROR IN RETRIEVING VSN
02529  M01S00043.dmrec7  +++|
02530  M01S02145.dmrec   +++| BBEA     DATA   20H0     *****
02531  M01S02146.dmrec   +++|          DATA   C*ERROR IN BUILDING DIRECTORY ENTRIES.*
02532  M01S02147.dmrec   +++| BBEAL    EQU    *-BBEA
02533  M01S02148.dmrec   +++|
02534  M01S02149.dmrec   +++| BBEB     DATA   20H0     *****
02535  M01S02150.dmrec   +++|          DATA   C*NO ARF DUMP ENTRIES - DUMP IGNORED.*
02536  M01S02151.dmrec   +++| BBEBL    EQU    *-BBEB
02537  M01S02152.dmrec   +++| BFL      SPACE  4,10
02538  M01S02153.dmrec   +++|**        BFL - BLANK FILL LINE.
02539  M01S02154.dmrec   +++|*
02540  M01S02155.dmrec   +++|*         ENTRY  (PLIN)  = FWA OF LINE.
02541  M01S02156.dmrec   +++|*                (PLINL) = LINE LENGTH.
02542  M01S02157.dmrec   +++|*
02543  M01S02158.dmrec   +++|*         EXIT   LINE BLANK FILLED.
02544  M01S02159.dmrec   +++|*
02545  M01S02160.dmrec   +++|*         USES   X - 1, 6.
02546  M01S02161.dmrec   +++|*                A - 1, 6.
02547  M01S02162.dmrec   +++|*                B - 7.
02548  M01S02163.dmrec   +++|
02549  M01S02164.dmrec   +++|
02550  M01S02165.dmrec   +++| BFL      SUBR               ENTRY/EXIT
02551  M01S02166.dmrec   +++|          SB7    PLINL
02552  M01S02167.dmrec   +++|          SA1    BKEY        BLANK FILLED WORD
02553  M01S02168.dmrec   +++|          BX6    X1
02554  M01S02169.dmrec   +++| BFL1     SA6    PLIN+B7
02555  M01S02170.dmrec   +++|          SB7    B7-B1
02556  M01S02171.dmrec   +++|          GE     B7,B0,BFL1  IF WITHIN LINE
02557  M01S02172.dmrec   +++|          EQ     BFLX        RETURN
02558  M01S02173.dmrec   +++| BIF      SPACE  4,10
02559  M01S02174.dmrec   +++|**        BIF - BUILT INDEX FILE.
02560  M01S02175.dmrec   +++|*
02561  M01S02176.dmrec   +++|*         THIS SUBROUTINE CONSTRUCTS AN INDEX FILE WITH
02562  M01S02177.dmrec   +++|*         INFORMATION EXTRACTED FROM AN EXISTING ONE.  A
02563  M01S02178.dmrec   +++|*         FILE OF *MIPGEN* DIRECTIVES IS BUILT AND IS USED
Line S02179 Modification History
M01 (Added by) dmrec
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02564  M02S02179.v23l617 ---|*         IN A SUBSEQUENT *MIPGEN* CONTROL CARD RUN.
02565  M01S00019.v23l617 +++|*         IN A SUBSEQUENT *MIPGEN* COMMAND RUN.
02566  M01S02180.dmrec   +++|*         SUBROUTINE *EXC* EFFECTS THE *MIPGEN* CALL AND
02567  M01S02181.dmrec   +++|*         FIELD LENGTH RECONSTRUCTION.
02568  M01S02182.dmrec   +++|*
02569  M01S02183.dmrec   +++|*         ENTRY  (DUMP) - FWA AND LFN OF DATA FILE.
02570  M01S02184.dmrec   +++|*
02571  M01S02185.dmrec   +++|*         EXIT   (X1) = 0 - IF NO ERRORS.
02572  M01S02186.dmrec   +++|*
02573  M01S02187.dmrec   +++|*         USES   X - ALL.
02574  M01S02188.dmrec   +++|*                A - 1, 2, 3, 4, 5, 6, 7.
02575  M01S02189.dmrec   +++|*                B - 2, 3, 4, 5, 6, 7.
02576  M01S02190.dmrec   +++|*
02577  M01S02191.dmrec   +++|*         CALLS  CDD, DER, EXC, IRP, PPS, SFN.
02578  M01S02192.dmrec   +++|*
02579  M01S02193.dmrec   +++|*         MACROS DEFINE, ERROR, PURGE, READ, READW, RETURN,
02580  M01S02194.dmrec   +++|*                REWIND, WRITEC, WRITER.
02581  M01S02195.dmrec   +++|
02582  M01S02196.dmrec   +++|
02583  M01S02197.dmrec   +++| BIF      SUBR               ENTRY/EXIT
02584  M01S02198.dmrec   +++|          PURGE  ZZINDEX,,,XXIXP,XXIDEV
02585  M01S02199.dmrec   +++|          RETURN ZZINDEX,R
02586  M01S02200.dmrec   +++|          DEFINE ZZINDEX,XXIXN,,,XXIDEV,,,XXIXP
Line S02201 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02587  M02S02201.ns2056  ---|
Line S02202 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02588  M02S02202.ns2056  ---|*         READ FSTT OF EXISTING INDEX FILE.
Line S02203 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02589  M02S02203.ns2056  ---|
Line S02204 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02590  M02S02204.ns2056  ---| BIF0.1   READ   TP,R        READ EOF
Line S02205 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02591  M02S02205.ns2056  ---|          RJ     DER         DETECT END OF REEL
Line S02206 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02592  M02S02206.ns2056  ---|          NG     X1,BIF0.1   IF END OF REEL
Line S02207 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02593  M02S02207.ns2056  ---|          NZ     X1,BIFX     IF ERROR
Line S02208 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02594  M02S02208.ns2056  ---| BIF0.2   READ   TP,R        READ HEADER
Line S02209 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02595  M02S02209.ns2056  ---|          RJ     DER         DETECT END OF REEL
Line S02210 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02596  M02S02210.ns2056  ---|          NG     X1,BIF0.2   IF END OF REEL
Line S02211 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02597  M02S02211.ns2056  ---|          NZ     X1,BIFX     IF ERROR
Line S02212 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02598  M02S02212.ns2056  ---|          SA1    TP+B1       GET FIRST
Line S02213 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02599  M02S02213.ns2056  ---|          SX6    X1
Line S02214 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02600  M02S02214.ns2056  ---|          SA6    A1+B1       UPDATE IN
Line S02215 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02601  M02S02215.ns2056  ---|          SA6    A6+B1       UPDATE OUT
Line S02216 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02602  M02S02216.ns2056  ---| BIF0.3   READ   TP,R        READ FSTT
Line S02217 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02603  M02S02217.ns2056  ---|          RJ     DER         DETECT END OF REEL
Line S02218 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02604  M02S02218.ns2056  ---|          NG     X1,BIF0.3   IF END OF REEL
Line S02219 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02605  M02S02219.ns2056  ---|          NZ     X1,BIFX     IF ERROR
02606  M01S02220.dmrec   +++|          SA1    XXTY        GET FO=
Line S02221 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02607  M02S02221.ns2056  ---|          LX1    59-11
Line S02222 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02608  M02S02222.ns2056  ---|          RJ     SFN         SET FILE NAME
Line S02223 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02609  M02S02223.ns2056  ---|          SA6    PROCC+2     STORE FO=
Line S02224 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02610  M02S02224.ns2056  ---|          SA1    ZZZZSUB+B1
Line S02225 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02611  M02S02225.ns2056  ---|          SX7    X1
Line S02226 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02612  M02S02226.ns2056  ---|          SA7    A1+2        OUT
Line S02227 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02613  M02S02227.ns2056  ---|          SX7    X7+PROCCL
Line S02228 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02614  M02S02228.ns2056  ---|          SA7    A7-B1       IN
02615  M01S00025.ns2056  +++|          SA2    PROCCFO
02616  M01S00026.ns2056  +++|          MX0    48
02617  M01S00027.ns2056  +++|          BX2    X0*X2
02618  M01S00028.ns2056  +++|          BX6    X1+X2
02619  M01S00029.ns2056  +++|          SA6    A2          STORE FILE TYPE IN PROC FILE
02620  M01S00030.ns2056  +++|          REWIND ZZZZSUB,R
02621  M01S00031.ns2056  +++|          WRITEW ZZZZSUB,PROCC,PROCCL
02622  M01S02229.dmrec   +++|          WRITER ZZZZSUB,R   WRITE PROCEDURE FILE TO *ZZZZSUB*
02623  M01S02230.dmrec   +++|          REWIND ZZZZSUB,R
Line S02231 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02624  M02S02231.ns2056  ---|          SA1    TP+1        IN
Line S02232 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02625  M02S02232.ns2056  ---|          SA2    X1+FSTT17   GET BLOCK SIZE
Line S02233 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02626  M02S02233.ns2056  ---|          MX0    -18
Line S02234 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02627  M02S02234.ns2056  ---|          BX2    -X0*X2
Line S02235 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02628  M02S02235.ns2056  ---|          SX3    64
Line S02236 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02629  M02S02236.ns2056  ---|          IX2    X2*X3
Line S02237 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02630  M02S02237.ns2056  ---|          SX2    X2-2        ACCOUNT FOR HEADER
Line S02238 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02631  M02S02238.ns2056  ---|          SX2    X2-WBUFL
Line S02239 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02632  M02S02239.ns2056  ---|          PL     X2,BIF14    IF BUFFER OVERFLOW
Line S02240 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02633  M02S02240.ns2056  ---|          SA5    X1+FSTT63   GET SPARCE KEY IF ANY
Line S02241 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02634  M02S02241.ns2056  ---|          LX5    59-21
Line S02242 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02635  M02S02242.ns2056  ---|          BX6    X5
Line S02243 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02636  M02S02243.ns2056  ---|          SA6    BIFB        SET SPARCE KEY FLAG
Line S02244 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02637  M02S02244.ns2056  ---|          PL     X5,BIF1     IF NO SPARCE KEYS
Line S02245 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02638  M02S02245.ns2056  ---|          LX5    22+34       EXTRACT WORD OFF-SET
Line S02246 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02639  M02S02246.ns2056  ---|          MX0    60-15
Line S02247 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02640  M02S02247.ns2056  ---|          BX1    -X0*X5
Line S02248 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02641  M02S02248.ns2056  ---|          RJ     CDD         CONVERT TO DISPLAY CODE
Line S02249 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02642  M02S02249.ns2056  ---|          MX0    1
Line S02250 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02643  M02S02250.ns2056  ---|          SB2    B2-B1
Line S02251 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02644  M02S02251.ns2056  ---|          AX0    B2
Line S02252 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02645  M02S02252.ns2056  ---|          BX6    X0*X4
Line S02253 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02646  M02S02253.ns2056  ---|          SA6    BIFC+2      SAVE SPACE KEY
Line S02254 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02647  M02S02254.ns2056  ---|          SA1    TP+1
Line S02255 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02648  M02S02255.ns2056  ---|          SA5    X1+FSTT63
Line S02256 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02649  M02S02256.ns2056  ---|          LX5    38
Line S02257 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02650  M02S02257.ns2056  ---|          MX0    -4
Line S02258 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02651  M02S02258.ns2056  ---|          BX1    -X0*X5
Line S02259 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02652  M02S02259.ns2056  ---|          RJ     CDD         CONVERT TO DISPLAY CODE
Line S02260 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02653  M02S02260.ns2056  ---|          MX0    1
Line S02261 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02654  M02S02261.ns2056  ---|          SB2    B2-B1
Line S02262 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02655  M02S02262.ns2056  ---|          AX0    B2
Line S02263 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02656  M02S02263.ns2056  ---|          BX6    X0*X4
Line S02264 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02657  M02S02264.ns2056  ---|          SA6    BIFC+3
Line S02265 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02658  M02S02265.ns2056  ---|          SX6    1R0
Line S02266 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02659  M02S02266.ns2056  ---|          LX6    -6
Line S02267 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02660  M02S02267.ns2056  ---|          SA6    BIFC+4      SET ZERO KL FOR SPARCE KEYS
Line S02268 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02661  M02S02268.ns2056  ---|          SX2    1R.         SET TERMINATOR
Line S02269 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02662  M02S02269.ns2056  ---|          SX3    1R,         SET DELIMITER
Line S02270 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02663  M02S02270.ns2056  ---|          SB5    5           SET NUMBER OF WORDS
Line S02271 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02664  M02S02271.ns2056  ---|          SX6    PPSA
Line S02272 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02665  M02S02272.ns2056  ---|          SA6    PPSA
Line S02273 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02666  M02S02273.ns2056  ---|          SA1    BIFC        SET PARAMETER ADDRESS
Line S02274 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02667  M02S02274.ns2056  ---|          RJ     PPS         PACK
Line S02275 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02668  M02S02275.ns2056  ---|          REWIND ZZZZZDR,R
Line S02276 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02669  M02S02276.ns2056  ---|          WRITEC ZZZZZDR,PPSA   WRITE SPARSE KEY *RMKDEF*
Line S02277 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02670  M02S02277.ns2056  ---| BIF1     SA1    TP+B1
Line S02278 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02671  M02S02278.ns2056  ---|          SX6    X1
Line S02279 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02672  M02S02279.ns2056  ---|          SA6    A1+B1
Line S02280 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02673  M02S02280.ns2056  ---|          SA6    A6+B1
Line S02281 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02674  M02S02281.ns2056  ---| BIF2     READ   TP,R
Line S02282 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02675  M02S02282.ns2056  ---|          READW  TP,WBUF,WBUFL
Line S02283 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02676  M02S02283.ns2056  ---|          BX6    X1
Line S02284 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02677  M02S02284.ns2056  ---|          SA6    HOLD1       SAVE STATUS
Line S02285 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02678  M02S02285.ns2056  ---|          RJ     DER         DETECT END OF REEL
Line S02286 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02679  M02S02286.ns2056  ---|          NG     X1,BIF2     IF END OF TAPE
Line S02287 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02680  M02S02287.ns2056  ---|          NZ     X1,BIFX     IF ERROR
Line S02288 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02681  M02S02288.ns2056  ---|          SA1    HOLD1       RESTORE STATUS
Line S02289 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02682  M02S02289.ns2056  ---|          SX6    X1-WBUF-1
Line S02290 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02683  M02S02290.ns2056  ---|          NZ     X6,BIF3     IF NOT ONE WORD RECORD
Line S02291 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02684  M02S02291.ns2056  ---|          SX6    3REND
Line S02292 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02685  M02S02292.ns2056  ---|          SA4    XXIXN
Line S02293 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02686  M02S02293.ns2056  ---|          BX6    X4+X6
Line S02294 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02687  M02S02294.ns2056  ---|          SA4    WBUF        GET ONE WORD RECORD
Line S02295 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02688  M02S02295.ns2056  ---|          BX6    X4-X6
Line S02296 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02689  M02S02296.ns2056  ---|          ZR     X6,BIF13    IF TRAILER RECORD FOUND
Line S02297 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02690  M02S02297.ns2056  ---| BIF3     ZR     X1,BIF16    IF ERROR
Line S02298 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02691  M02S02298.ns2056  ---|          NG     X1,BIF15    IF EOF/EOI - NO TRAILER
Line S02299 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02692  M02S02299.ns2056  ---|
Line S02300 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02693  M02S02300.ns2056  ---|*         HIT EOR - DATA BLOCK JUST READ.
Line S02301 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02694  M02S02301.ns2056  ---|
Line S02302 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02695  M02S02302.ns2056  ---|          BX7    X7-X7
Line S02303 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02696  M02S02303.ns2056  ---|          SA7    LRDNREC     CLEAR RECORD COUNT
Line S02304 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02697  M02S02304.ns2056  ---|          SX6    WBUF+2
Line S02305 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02698  M02S02305.ns2056  ---|          SA6    LFWA        SET FWA OF RECORD
Line S02306 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02699  M02S02306.ns2056  ---|          SA3    WBUF+B1
Line S02307 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02700  M02S02307.ns2056  ---|          SA2    X1-1
Line S02308 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02701  M02S02308.ns2056  ---|          MX0    60-13
Line S02309 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02702  M02S02309.ns2056  ---|          BX6    -X0*X2
Line S02310 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02703  M02S02310.ns2056  ---|          SA6    LLGN        SAVE RECORD LENGTH
Line S02311 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02704  M02S02311.ns2056  ---|          AX3    38
Line S02312 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02705  M02S02312.ns2056  ---|          BX6    -X0*X3
Line S02313 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02706  M02S02313.ns2056  ---|          SA6    LRDRC       NUMBER OF RECORDS
Line S02314 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02707  M02S02314.ns2056  ---| BIF4     SA1    LRDNREC
Line S02315 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02708  M02S02315.ns2056  ---|          SX7    X1+1
Line S02316 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02709  M02S02316.ns2056  ---|          SA7    A1          INCREMENT RECORD COUNT
Line S02317 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02710  M02S02317.ns2056  ---|          SA3    LRDRC
Line S02318 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02711  M02S02318.ns2056  ---|          IX4    X3-X7       RC-NREC
Line S02319 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02712  M02S02319.ns2056  ---|          NG     X4,BIF2     IF NO MORE RECORDS IN THIS BLOCK
Line S02320 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02713  M02S02320.ns2056  ---|          SA2    LFWA
Line S02321 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02714  M02S02321.ns2056  ---|          SA5    X2          GET FIRST WORD OF RECORD
Line S02322 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02715  M02S02322.ns2056  ---|          MX3    60-12
Line S02323 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02716  M02S02323.ns2056  ---|          SB5    9           SET INDEX
Line S02324 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02717  M02S02324.ns2056  ---|          RJ     IRP         INSERT KC
Line S02325 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02718  M02S02325.ns2056  ---|          AX5    12
Line S02326 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02719  M02S02326.ns2056  ---|          MX3    60-12
Line S02327 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02720  M02S02327.ns2056  ---|          SB5    8           SET INDEX
Line S02328 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02721  M02S02328.ns2056  ---|          RJ     IRP         INSERT KG
Line S02329 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02722  M02S02329.ns2056  ---|          AX5    12
Line S02330 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02723  M02S02330.ns2056  ---|          MX3    60-3
Line S02331 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02724  M02S02331.ns2056  ---|          SX6    1RU         SET FOR UNIQUE TYPE
Line S02332 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02725  M02S02332.ns2056  ---|          BX1    -X3*X5
Line S02333 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02726  M02S02333.ns2056  ---|          ZR     X1,BIF5     IF UNIQUE KS
Line S02334 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02727  M02S02334.ns2056  ---|          SX6    1RI         SET FOR INDEXED TYPE
Line S02335 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02728  M02S02335.ns2056  ---|          SX1    X1-3
Line S02336 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02729  M02S02336.ns2056  ---|          ZR     X1,BIF5     IF INDEXED KS
Line S02337 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02730  M02S02337.ns2056  ---|          SX6    1RF         SET FOR FIFO TYPE
Line S02338 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02731  M02S02338.ns2056  ---| BIF5     LX6    54          LOCATE PARAMETER
Line S02339 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02732  M02S02339.ns2056  ---|          SA6    BIFC+7      INSERT KS
Line S02340 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02733  M02S02340.ns2056  ---|          AX5    3
Line S02341 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02734  M02S02341.ns2056  ---|          MX3    60-2
Line S02342 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02735  M02S02342.ns2056  ---|          SB5    6           SET INDEX
Line S02343 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02736  M02S02343.ns2056  ---|          RJ     IRP         INSERT KT
Line S02344 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02737  M02S02344.ns2056  ---|          AX5    6
Line S02345 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02738  M02S02345.ns2056  ---|          MX3    60-8
Line S02346 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02739  M02S02346.ns2056  ---|          SB5    4           SET INDEX
Line S02347 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02740  M02S02347.ns2056  ---|          RJ     IRP         INSERT KL
Line S02348 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02741  M02S02348.ns2056  ---|          AX5    8
Line S02349 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02742  M02S02349.ns2056  ---|          MX3    60-4
Line S02350 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02743  M02S02350.ns2056  ---|          SB5    3           SET INDEX
Line S02351 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02744  M02S02351.ns2056  ---|          RJ     IRP         INSERT KP
Line S02352 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02745  M02S02352.ns2056  ---|          AX5    4
Line S02353 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02746  M02S02353.ns2056  ---|          MX3    60-15
Line S02354 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02747  M02S02354.ns2056  ---|          SB5    2           SET INDEX
Line S02355 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02748  M02S02355.ns2056  ---|          RJ     IRP         INSERT KW
Line S02356 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02749  M02S02356.ns2056  ---|          SX1    1R0
Line S02357 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02750  M02S02357.ns2056  ---|          LX1    54          LOCATE PARAMETER
Line S02358 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02751  M02S02358.ns2056  ---|          BX6    X1
Line S02359 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02752  M02S02359.ns2056  ---|          SA6    BIFC+5
Line S02360 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02753  M02S02360.ns2056  ---|          SA2    LFWA
Line S02361 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02754  M02S02361.ns2056  ---|          SA5    X2+1
Line S02362 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02755  M02S02362.ns2056  ---|          PL     X5,BIF6     IF NULL KEYS INCLUDED
Line S02363 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02756  M02S02363.ns2056  ---|          SA1    =10LN
Line S02364 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02757  M02S02364.ns2056  ---| BIF6     BX6    X1
Line S02365 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02758  M02S02365.ns2056  ---|          SA6    BIFC+10     INSERT NULL KEY FLAG
Line S02366 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02759  M02S02366.ns2056  ---|          SX2    1R.         SET TERMINATOR FOR NO SPARSE KEYS
Line S02367 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02760  M02S02367.ns2056  ---|          SB5    11          COUNT FOR NO SPARCE KEYS
Line S02368 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02761  M02S02368.ns2056  ---|          SA1    BIFB
Line S02369 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
02762  M02S02369.ns2056  ---|          PL     X1,BIF7     IF NO SPARCE KEYS
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/dmrec.001.txt ยท Last modified: by 127.0.0.1