25 Modifications

Seq #  *Modification Id* Act 
----------------------------+

Seq #  *Modification Id* Act 
----------------------------+
02763  M02S02370.ns2056  ---|          SB5    12          COUNT FOR SPARCE KEYS

Seq #  *Modification Id* Act 
----------------------------+
02764  M02S02371.ns2056  ---|          SX6    1RI

Seq #  *Modification Id* Act 
----------------------------+
02765  M02S02372.ns2056  ---|          LX6    54

Seq #  *Modification Id* Act 
----------------------------+
02766  M02S02373.ns2056  ---|          SA6    BIFC+11     INSERT IE

Seq #  *Modification Id* Act 
----------------------------+
02767  M02S02374.ns2056  ---|          SX2    1R,         SET TERMINATOR FOR SPARSE KEYS

Seq #  *Modification Id* Act 
----------------------------+
02768  M02S02375.ns2056  ---| BIF7     SX3    1R,         SET DELIMITER

Seq #  *Modification Id* Act 
----------------------------+
02769  M02S02376.ns2056  ---|          SA1    BIFC        SET PARAMETER LIST

Seq #  *Modification Id* Act 
----------------------------+
02770  M02S02377.ns2056  ---|          SX6    PPSA

Seq #  *Modification Id* Act 
----------------------------+
02771  M02S02378.ns2056  ---|          SA6    PPSA

Seq #  *Modification Id* Act 
----------------------------+
02772  M02S02379.ns2056  ---|          RJ     PPS         PACK

Seq #  *Modification Id* Act 
----------------------------+
02773  M02S02380.ns2056  ---|          SA1    BIFB

Seq #  *Modification Id* Act 
----------------------------+
02774  M02S02381.ns2056  ---|          PL     X1,BIF12    IF NO SPARCE KEYS

Seq #  *Modification Id* Act 
----------------------------+
02775  M02S02382.ns2056  ---|

Seq #  *Modification Id* Act 
----------------------------+
02776  M02S02383.ns2056  ---|*         EXTRACT SPARCE KEY CHARACTERS AND BUILD PARAMETER.

Seq #  *Modification Id* Act 
----------------------------+
02777  M02S02384.ns2056  ---|

Seq #  *Modification Id* Act 
----------------------------+
02778  M02S02385.ns2056  ---|          SB5    10

Seq #  *Modification Id* Act 
----------------------------+
02779  M02S02386.ns2056  ---|          SB5    B5-B2

Seq #  *Modification Id* Act 
----------------------------+
02780  M02S02387.ns2056  ---|          SX3    B2

Seq #  *Modification Id* Act 
----------------------------+
02781  M02S02388.ns2056  ---|          SX2    6

Seq #  *Modification Id* Act 
----------------------------+
02782  M02S02389.ns2056  ---|          IX3    X3*X2

Seq #  *Modification Id* Act 
----------------------------+
02783  M02S02390.ns2056  ---|          SX2    60

Seq #  *Modification Id* Act 
----------------------------+
02784  M02S02391.ns2056  ---|          IX4    X2-X3

Seq #  *Modification Id* Act 
----------------------------+
02785  M02S02392.ns2056  ---|          SB4    X4

Seq #  *Modification Id* Act 
----------------------------+
02786  M02S02393.ns2056  ---|          LX4    B4,X6       SHIFT FO NEXT CHARACTER

Seq #  *Modification Id* Act 
----------------------------+
02787  M02S02394.ns2056  ---|          SX6    B0

Seq #  *Modification Id* Act 
----------------------------+
02788  M02S02395.ns2056  ---| BIF8     SX6    X6+1

Seq #  *Modification Id* Act 
----------------------------+
02789  M02S02396.ns2056  ---|          LX5    1           CHECK THIS CHARACTER

Seq #  *Modification Id* Act 
----------------------------+
02790  M02S02397.ns2056  ---|          SX3    X6-37

Seq #  *Modification Id* Act 
----------------------------+
02791  M02S02398.ns2056  ---|          ZR     X3,BIF10    IF NO MORE CHARACTERS

Seq #  *Modification Id* Act 
----------------------------+
02792  M02S02399.ns2056  ---|          PL     X5,BIF8     IF NO CHARACTER HERE

Seq #  *Modification Id* Act 
----------------------------+
02793  M02S02400.ns2056  ---|          SB5    B5+B1

Seq #  *Modification Id* Act 
----------------------------+
02794  M02S02401.ns2056  ---|          SB6    B5-11

Seq #  *Modification Id* Act 
----------------------------+
02795  M02S02402.ns2056  ---|          NE     B6,B0,BIF9  IF MORE SPACE IN THIS WORD

Seq #  *Modification Id* Act 
----------------------------+
02796  M02S02403.ns2056  ---|          BX7    X4

Seq #  *Modification Id* Act 
----------------------------+
02797  M02S02404.ns2056  ---|          SA7    B7          SAVE FULL WORD

Seq #  *Modification Id* Act 
----------------------------+
02798  M02S02405.ns2056  ---|          SB7    B7+B1

Seq #  *Modification Id* Act 
----------------------------+
02799  M02S02406.ns2056  ---|          SX4    B0          START NEXT WORD

Seq #  *Modification Id* Act 
----------------------------+
02800  M02S02407.ns2056  ---|          SB5    B1

Seq #  *Modification Id* Act 
----------------------------+
02801  M02S02408.ns2056  ---| BIF9     LX4    6           SHIFT FOR NEXT CHARACTER

Seq #  *Modification Id* Act 
----------------------------+
02802  M02S02409.ns2056  ---|          BX4    X4+X6

Seq #  *Modification Id* Act 
----------------------------+
02803  M02S02410.ns2056  ---|          EQ     BIF8        NEXT

Seq #  *Modification Id* Act 
----------------------------+
02804  M02S02411.ns2056  ---|

Seq #  *Modification Id* Act 
----------------------------+
02805  M02S02412.ns2056  ---| BIF10    SB5    B5+B1

Seq #  *Modification Id* Act 
----------------------------+
02806  M02S02413.ns2056  ---|          SB6    B5-11

Seq #  *Modification Id* Act 
----------------------------+
02807  M02S02414.ns2056  ---|          NE     B6,B0,BIF11 IF NOT END OF WORD

Seq #  *Modification Id* Act 
----------------------------+
02808  M02S02415.ns2056  ---|          BX7    X4

Seq #  *Modification Id* Act 
----------------------------+
02809  M02S02416.ns2056  ---|          SA7    B7          SAVE WHOLE WORD

Seq #  *Modification Id* Act 
----------------------------+
02810  M02S02417.ns2056  ---|          SX2    1R.

Seq #  *Modification Id* Act 
----------------------------+
02811  M02S02418.ns2056  ---|          LX2    54

Seq #  *Modification Id* Act 
----------------------------+
02812  M02S02419.ns2056  ---|          BX6    X2

Seq #  *Modification Id* Act 
----------------------------+
02813  M02S02420.ns2056  ---|          SA6    A7+B1       STORE TERMINATOR

Seq #  *Modification Id* Act 
----------------------------+
02814  M02S02421.ns2056  ---|          EQ     BIF12       CONTINUE

Seq #  *Modification Id* Act 
----------------------------+
02815  M02S02422.ns2056  ---|

Seq #  *Modification Id* Act 
----------------------------+
02816  M02S02423.ns2056  ---| BIF11    SX6    1R.

Seq #  *Modification Id* Act 
----------------------------+
02817  M02S02424.ns2056  ---|          LX4    6

Seq #  *Modification Id* Act 
----------------------------+
02818  M02S02425.ns2056  ---|          BX4    X4+X6

Seq #  *Modification Id* Act 
----------------------------+
02819  M02S02426.ns2056  ---|          SX3    6

Seq #  *Modification Id* Act 
----------------------------+
02820  M02S02427.ns2056  ---|          SX7    B5

Seq #  *Modification Id* Act 
----------------------------+
02821  M02S02428.ns2056  ---|          IX3    X3*X7

Seq #  *Modification Id* Act 
----------------------------+
02822  M02S02429.ns2056  ---|          SB4    60

Seq #  *Modification Id* Act 
----------------------------+
02823  M02S02430.ns2056  ---|          SB3    X3

Seq #  *Modification Id* Act 
----------------------------+
02824  M02S02431.ns2056  ---|          SB3    B4-B3

Seq #  *Modification Id* Act 
----------------------------+
02825  M02S02432.ns2056  ---|          LX6    B3,X4

Seq #  *Modification Id* Act 
----------------------------+
02826  M02S02433.ns2056  ---|          SA6    B7          SAVE LAST WORD

Seq #  *Modification Id* Act 
----------------------------+
02827  M02S02434.ns2056  ---|          SX7    B0

Seq #  *Modification Id* Act 
----------------------------+
02828  M02S02435.ns2056  ---|          SA7    A6+B1       INSURE END OF RECORD

Seq #  *Modification Id* Act 
----------------------------+
02829  M02S02436.ns2056  ---| BIF12    WRITEC ZZZZZDR,PPSA

Seq #  *Modification Id* Act 
----------------------------+
02830  M02S02437.ns2056  ---|          SA1    LFWA

Seq #  *Modification Id* Act 
----------------------------+
02831  M02S02438.ns2056  ---|          SA2    LLGN

Seq #  *Modification Id* Act 
----------------------------+
02832  M02S02439.ns2056  ---|          IX6    X1+X2

Seq #  *Modification Id* Act 
----------------------------+
02833  M02S02440.ns2056  ---|          SA6    A1          RESET FWA

Seq #  *Modification Id* Act 
----------------------------+
02834  M02S02441.ns2056  ---|          EQ     BIF4        GET NEXT RECORD
02835  M01S00032.ns2056  +++|          RJ     GRM         GET *RMKDEF* CARDS

Seq #  *Modification Id* Act 
----------------------------+
02836  M02S02442.ns2056  ---|

Seq #  *Modification Id* Act 
----------------------------+
02837  M02S02443.ns2056  ---| BIF13    WRITER ZZZZZDR,R

Seq #  *Modification Id* Act 
----------------------------+
02838  M02S02444.ns2056  ---|          REWIND ZZZZSUB,R
02839  M01S02445.dmrec   +++|          REWIND ZZZDATA,R
02840  M01S02446.dmrec   +++|          REWIND ZZINDEX,R

Seq #  *Modification Id* Act 
----------------------------+
02841  M02S02447.ns2056  ---|          REWIND ZZZZZXD,R

Seq #  *Modification Id* Act 
----------------------------+
02842  M02S02448.ns2056  ---|          REWIND ZZZZZDR,R
02843  M01S00033.ns2056  +++|          REWIND ZZZZZG7,R
02844  M01S00034.ns2056  +++|          CLOSEM DFIT,R
02845  M01S02449.dmrec   +++|          RJ     EXC         INITIATE MIPGEN
02846  M01S02450.dmrec   +++|          SX1    B0
02847  M01S02451.dmrec   +++|          EQ     BIFX        RETURN NORMAL

Seq #  *Modification Id* Act 
----------------------------+
02848  M02S02452.ns2056  ---|

Seq #  *Modification Id* Act 
----------------------------+
02849  M02S02453.ns2056  ---| BIF14    ERROR  BRTD,,,BIFX,,E  DATA BLOCK BUFFER OVERFLOW

Seq #  *Modification Id* Act 
----------------------------+
02850  M02S02454.ns2056  ---|

Seq #  *Modification Id* Act 
----------------------------+
02851  M02S02455.ns2056  ---| BIF15    ERROR  LRDA,,,BIFX,,E  TAPE NOT READABLE

Seq #  *Modification Id* Act 
----------------------------+
02852  M02S02456.ns2056  ---|

Seq #  *Modification Id* Act 
----------------------------+
02853  M02S02457.ns2056  ---| BIF16    ERROR  LRDE,,,BIFX,,E  BLOCK BUFFER OVERFLOW

Seq #  *Modification Id* Act 
----------------------------+
02854  M02S02458.ns2056  ---|

Seq #  *Modification Id* Act 
----------------------------+
02855  M02S02459.ns2056  ---| BIFB     BSSZ   1           SPARCE KEY FLAG - NG. IF SPARCE KEYS

Seq #  *Modification Id* Act 
----------------------------+
02856  M02S02460.ns2056  ---|

Seq #  *Modification Id* Act 
----------------------------+
02857  M02S02461.ns2056  ---|

Seq #  *Modification Id* Act 
----------------------------+
02858  M02S02462.ns2056  ---| BIFC     VFD    60/6LRMKDEF

Seq #  *Modification Id* Act 
----------------------------+
02859  M02S02463.ns2056  ---|          VFD    60/7LZZZDATA

Seq #  *Modification Id* Act 
----------------------------+
02860  M02S02464.ns2056  ---|          BSSZ   12          INPUT TO PPS

Seq #  *Modification Id* Act 
----------------------------+
02861  M02S02465.ns2056  ---|
02862  M01S02466.dmrec   +++| BLT      SPACE  4,20
02863  M01S02467.dmrec   +++|**        BLT - BUILD LOG TABLE.
02864  M01S02468.dmrec   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02865  M02S02469.ns2023  ---|*         *BLT* EXTRACTS RECORDS FROM THE *LRF* (LONG RECOVERY FILE)

Seq #  *Modification Id* Act 
----------------------------+
02866  M02S02470.ns2023  ---|*         AND BUILDS A TABLE OF UNIQUE FILE NAMES.  THESE ENTRIES

Seq #  *Modification Id* Act 
----------------------------+
02867  M02S02471.ns2023  ---|*         ALSO INCLUDE A COUNT OF TRANSACTION ACCURANCES.
02868  M01S00043.ns2023  +++|*         *BLT* EXTRACTS RECORDS FROM THE *ARF* (AFTER IMAGE RECOVERY
02869  M01S00044.ns2023  +++|*         FILE) AND BUILDS A TABLE OF UNIQUE FILE NAMES.  THESE
02870  M01S00045.ns2023  +++|*         ENTRIES ALSO INCLUDE A COUNT OF TRANSACTION ACCURANCES.
02871  M01S02472.dmrec   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02872  M02S02473.ns2023  ---|*         ENTRY  *LRF* ATTACHED (FET - *LRF*)

Seq #  *Modification Id* Act 
----------------------------+
02873  M02S02474.ns2023  ---|*                LRF+8 MUST CONTAIN THE FILE PFN.
02874  M01S00046.ns2023  +++|*         ENTRY  *ARF* ATTACHED (FET - *ARF*)
02875  M01S00047.ns2023  +++|*                ARF+8 MUST CONTAIN THE FILE PFN.
02876  M01S02475.dmrec   +++|*
02877  M01S02476.dmrec   +++|*         EXIT   TLOG BUILT.
02878  M01S02477.dmrec   +++|*                (X1) = 0 - IF NO ERROR.
02879  M01S02478.dmrec   +++|*                       .NE. 0, OTHERWISE.
02880  M01S02479.dmrec   +++|*
02881  M01S02480.dmrec   +++|*         USES   X - ALL.
02882  M01S02481.dmrec   +++|*                A - 1, 2, 3, 4, 5, 6, 7.
02883  M01S02482.dmrec   +++|*                B - 2.
02884  M01S02483.dmrec   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02885  M02S02484.dmrec4  ---|*         CALLS  GNR.
02886  M01S00001.dmrec4  +++|*         CALLS  GDR.
02887  M01S02485.dmrec   +++|*
02888  M01S02486.dmrec   +++|*         MACROS ERROR.
02889  M01S02487.dmrec   +++|
02890  M01S02488.dmrec   +++|
02891  M01S02489.dmrec   +++| BLT      SUBR               ENTRY/EXIT
02892  M01S02490.dmrec   +++|          SX6    B0
02893  M01S02491.dmrec   +++|          SA6    HOLD        SET FOR INITIAL CALL

Seq #  *Modification Id* Act 
----------------------------+
02894  M02S02492.ns2023  ---|          SX4    LRF
02895  M01S00048.ns2023  +++|          SX4    ARF

Seq #  *Modification Id* Act 
----------------------------+
02896  M02S02493.dmrec4  ---|          RJ     GNR         INITIALIZE GET RECORD REQUEST
02897  M01S00002.dmrec4  +++|          RJ     GDR         GET DATA RECORD
02898  M01S02494.dmrec   +++|          NG     X1,BLT8     IF HEADER MISSING - EOF
02899  M01S02495.dmrec   +++|          NZ     X1,BLTX     IF ERROR
02900  M01S02496.dmrec   +++|          MX0    42
02901  M01S02497.dmrec   +++|          SA5    WBUF        VERIFY LOG FILE NAME
02902  M01S02498.dmrec   +++|          BX3    X0*X5       FN FROM HEADER

Seq #  *Modification Id* Act 
----------------------------+
02903  M02S02499.ns2023  ---|          SA4    LRF+8       FN FROM FET
02904  M01S00049.ns2023  +++|          SA4    ARF+8       FN FROM FET
02905  M01S02500.dmrec   +++|          BX4    X0*X4
02906  M01S02501.dmrec   +++|          BX1    X3-X4
02907  M01S02502.dmrec   +++|          NZ     X1,BLT7     IF FN MISMATCH
02908  M01S02503.dmrec   +++|          SX6    B0
02909  M01S02504.dmrec   +++|          SA2    WBUF+3

Seq #  *Modification Id* Act 
----------------------------+
02910  M02S02505.ns2023  ---|          PL     X2,BLT1     IF NOT FIRST LRF DUMP
02911  M01S00050.ns2023  +++|          PL     X2,BLT1     IF NOT FIRST *ARF* DUMP
02912  M01S02506.dmrec   +++|          BX6    X2

Seq #  *Modification Id* Act 
----------------------------+
02913  M02S02507.ns2023  ---| BLT1     SA6    FSTFLG      FIRST LRF FLAG SET
02914  M01S00051.ns2023  +++| BLT1     SA6    FSTFLG      FIRST *ARF* FLAG SET
02915  M01S02508.dmrec   +++|          SX6    TLOG
02916  M01S02509.dmrec   +++|          SA6    NXTENT

Seq #  *Modification Id* Act 
----------------------------+
02917  M02S02510.ns2023  ---| BLT2     SX4    LRF

Seq #  *Modification Id* Act 
----------------------------+
02918  M02S02511.ns2023  ---|          RJ     GNR         GET DATA RECORD FROM LRF
02919  M01S00052.ns2023  +++| BLT2     SX4    ARF

Seq #  *Modification Id* Act 
----------------------------+
02920  M02S00053.dmrec4  ---|          RJ     GNR         GET DATA RECORD FROM *ARF*
02921  M01S00003.dmrec4  +++|          RJ     GDR         GET DATA RECORD FROM *ARF*
02922  M01S02512.dmrec   +++|          NG     X1,BLT6     IF EOF
02923  M01S02513.dmrec   +++|          NZ     X1,BLTX     IF ERROR
02924  M01S02514.dmrec   +++|          SA3    X4+XLFNW
02925  M01S02515.dmrec   +++|          MX0    XLFNN
02926  M01S02516.dmrec   +++|          BX3    X0*X3
02927  M01S02517.dmrec   +++|          ZR     X3,BLT2     IF NO FILE NAME IN THIS RECORD
02928  M01S02518.dmrec   +++|          SA1    X4+XLPDW
02929  M01S02519.dmrec   +++|          BX7    X1
02930  M01S02520.dmrec   +++|          SA7    LSTTRAN     SAVE DATE/TIME OF LAST TRANSACTION
02931  M01S02521.dmrec   +++|          SX2    TLOG        INITIALIZE SEARCH OF TLOG
02932  M01S02522.dmrec   +++| BLT3     SA5    NXTENT
02933  M01S02523.dmrec   +++|          IX6    X5-X2
02934  M01S02524.dmrec   +++|          SB2    B1+B1
02935  M01S02525.dmrec   +++|          ZR     X6,BLT4     IF SEARCH OF *TLOG* DONE
02936  M01S02526.dmrec   +++|          SA5    X2
02937  M01S02527.dmrec   +++|          BX5    X0*X5
02938  M01S02528.dmrec   +++|          BX5    X5-X3
02939  M01S02529.dmrec   +++|          ZR     X5,BLT5     IF NAME MATCH - ALREADY IN TLOG.
02940  M01S02530.dmrec   +++|          SX2    X2+2
02941  M01S02531.dmrec   +++|          EQ     BLT3        LOOK AT NEXT *TLOG* ENTRY
02942  M01S02532.dmrec   +++|
02943  M01S02533.dmrec   +++| BLT4     SX7    TLOG+TLOGL
02944  M01S02534.dmrec   +++|          IX7    X7-X5
02945  M01S02535.dmrec   +++|          NG     X7,BLT9     IF NO MORE ROOM
02946  M01S02536.dmrec   +++|          SA1    LMASK       MASK
02947  M01S02537.dmrec   +++|          BX7    X1*X3
02948  M01S02538.dmrec   +++|          SA1    LWORD
02949  M01S02539.dmrec   +++|          BX7    X1-X7

Seq #  *Modification Id* Act 
----------------------------+
02950  M02S02540.ns2023  ---|          ZR     X7,BLT2     IF A *QRF* DOWN STAMP
02951  M01S00054.ns2023  +++|          ZR     X7,BLT2     IF A *BRF* DOWN STAMP
02952  M01S02541.dmrec   +++|          BX7    X3
02953  M01S02542.dmrec   +++|          SA7    X5
02954  M01S02543.dmrec   +++|          SA5    X4+XLPDW
02955  M01S02544.dmrec   +++|          BX7    X5
02956  M01S02545.dmrec   +++|          SA7    A7+B1       STORE DATE/TIME IN *TLOG*
02957  M01S02546.dmrec   +++|          SA2    NXTENT
02958  M01S02547.dmrec   +++|          SX7    X2+B2
02959  M01S02548.dmrec   +++|          SA7    A2          INCREMENT NEXT ENTRY LOCATION
02960  M01S02549.dmrec   +++| BLT5     SA5    X2
02961  M01S02550.dmrec   +++|          SX6    B1
02962  M01S02551.dmrec   +++|          IX7    X6+X5       INCREMENT FILE COUNT
02963  M01S02552.dmrec   +++|          SA7    A5
02964  M01S02553.dmrec   +++|          EQ     BLT2        RETURN FOR NEXT RECORD
02965  M01S02554.dmrec   +++|
02966  M01S02555.dmrec   +++| BLT6     SA5    NXTENT
02967  M01S02556.dmrec   +++|          SX6    B0
02968  M01S02557.dmrec   +++|          SA6    X5
02969  M01S02558.dmrec   +++|          SA6    A6+B1       ZERO LAST *TLOG* ENTRY - END
02970  M01S02559.dmrec   +++|          SX1    B0
02971  M01S02560.dmrec   +++|          EQ     BLTX        EXIT NORMAL
02972  M01S02561.dmrec   +++|
02973  M01S02562.dmrec   +++| BLT7     ERROR  BLTB,,,BLTX,,E  FILE NAME MISMATCH
02974  M01S02563.dmrec   +++|
02975  M01S02564.dmrec   +++| BLT8     ERROR  BLTC,,,BLTX,,E  ARF HEADER ERROR
02976  M01S02565.dmrec   +++|
02977  M01S02566.dmrec   +++| BLT9     ERROR  BLTA,,,BLTX,,E  LOG ENTRY TABLE OVERFLOW
02978  M01S02567.dmrec   +++|
02979  M01S02568.dmrec   +++| BLTA     DATA   20H0     *****
02980  M01S02569.dmrec   +++|          DATA   C*ARF ENTRY TABLE OVERFLOW.*
02981  M01S02570.dmrec   +++| BLTAL    EQU    *-BLTA
02982  M01S02571.dmrec   +++|
02983  M01S02572.dmrec   +++| BLTB     DATA   20H0     *****
02984  M01S02573.dmrec   +++|          DATA   C*FILE NAME MISMATCH ON TAPE HEADER RECORD.*
02985  M01S02574.dmrec   +++| BLTBL    EQU    *-BLTB
02986  M01S02575.dmrec   +++|
02987  M01S02576.dmrec   +++| BLTC     DATA   20H0     *****
02988  M01S02577.dmrec   +++|          DATA   C*ARF HEADER ERROR.*
02989  M01S02578.dmrec   +++| BLTCL    EQU    *-BLTC
02990  M01S02579.dmrec   +++|
02991  M01S02580.dmrec   +++| BRT      SPACE  4,25
02992  M01S02581.dmrec   +++|**        BRT - BUILD RECOVERY TABELS.
02993  M01S02582.dmrec   +++|*
02994  M01S02583.dmrec   +++|*         THIS SUBROUTINE BUILDS TWO TABLES.  A TABLE OF NAMES
02995  M01S02584.dmrec   +++|*         THAT ARE TARGETED FOR RECOVERY, AND THE IGNORE TABLE

Seq #  *Modification Id* Act 
----------------------------+
02996  M02S02585.ns2023  ---|*         *TTIG*.  A SCAN OF ALL *LRF-S* IN THIS SESSION IS MADE FOR
02997  M01S00055.ns2023  +++|*         *TTIG*.  A SCAN OF ALL *ARF-S* IN THIS SESSION IS MADE FOR
02998  M01S02586.dmrec   +++|*         ALL NON-COMITTED FILES.  THE *TTIG* TABLE IS BUILT BY
02999  M01S02587.dmrec   +++|*         INCLUDING AN ENTRY FOR EVERY NON-COMITTED TASK
03000  M01S02588.dmrec   +++|*         SEQUENCE NUMBER.
03001  M01S02589.dmrec   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03002  M02S02590.dmrec2  ---|*         ENTRY  (TDFN) = QRF NAME.

Seq #  *Modification Id* Act 
----------------------------+
03003  M02S00004.ns2023  ---|*         ENTRY  (QRFFLG) .LT. 0 IF BRF RECOVERY.
03004  M01S00056.ns2023  +++|*         ENTRY  (BRFFLG) .LT. 0 IF *BRF* RECOVERY.

Seq #  *Modification Id* Act 
----------------------------+
03005  M02S00005.ns2023  ---|*                         .GE. 0 IF ARF RECOVERY.
03006  M01S00057.ns2023  +++|*                         .GE. 0 IF *ARF* RECOVERY.
03007  M01S00006.dmrec2  +++|*                (X7) = DATA BASE NAME IF ARF RECOVERY.
03008  M01S02591.dmrec   +++|*
03009  M01S02592.dmrec   +++|*         EXIT   (X1) = 0 IF NO ERRORS
03010  M01S02593.dmrec   +++|*
03011  M01S02594.dmrec   +++|*         USES   X - ALL.
03012  M01S02595.dmrec   +++|*                A - 1, 2, 3, 5, 6, 7.
03013  M01S02596.dmrec   +++|*                B - 2, 3, 4, 5, 6, 7.
03014  M01S02597.dmrec   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03015  M02S02598.dmrec7  ---|*         CALLS  ACF, FER, GNR, RTF.
03016  M01S00044.dmrec7  +++|*         CALLS  ACF, FER, GNR, RRE, RTF.
03017  M01S02599.dmrec   +++|*
03018  M01S02600.dmrec   +++|*         MACROS CLOSEM, ERROR, READ, READW, RETURN,
03019  M01S02601.dmrec   +++|*                REWIND, RMGET.
03020  M01S02602.dmrec   +++|
03021  M01S02603.dmrec   +++|
03022  M01S02604.dmrec   +++| BRT      SUBR               ENTRY/EXIT
03023  M01S02605.dmrec   +++|          MX6    1
03024  M01S02606.dmrec   +++|          SA6    FTAB        INITIALIZE TABLE SEARCH
03025  M01S00045.dmrec7  +++|          SX6    TREC
03026  M01S00046.dmrec7  +++|          SA6    PREC        FWA OF *TREC* TABLE
03027  M01S00047.dmrec7  +++|          MX6    0
03028  M01S00048.dmrec7  +++|          SA6    HOLD3       INITIALIZE FLAG
03029  M01S00049.dmrec7  +++|          SA6    EORCNT      INITIALIZE EOR COUNT
03030  M01S00050.dmrec7  +++|          SX6    B1
03031  M01S00051.dmrec7  +++|          SA6    TAPERR      INITIALIZE TAPE ERROR COUNT

Seq #  *Modification Id* Act 
----------------------------+
03032  M02S02607.dmrec2  ---|          SA2    TDFN        GET QRF NAME

Seq #  *Modification Id* Act 
----------------------------+
03033  M02S02608.dmrec2  ---|          LX2    12

Seq #  *Modification Id* Act 
----------------------------+
03034  M02S02609.dmrec2  ---|          BX6    X2

Seq #  *Modification Id* Act 
----------------------------+
03035  M02S02610.dmrec2  ---|          SA6    XXPFN       NAME OF DATA BASE

Seq #  *Modification Id* Act 
----------------------------+
03036  M02S02611.dmrec2  ---|          MX0    12

Seq #  *Modification Id* Act 
----------------------------+
03037  M02S02612.dmrec2  ---|          BX7    X0*X6

Seq #  *Modification Id* Act 
----------------------------+
03038  M02S02613.dmrec2  ---|          SA7    KEY2        SET KEY FOR HEADER

Seq #  *Modification Id* Act 
----------------------------+
03039  M02S02614.dmrec2  ---|          RJ     ACF         ATTACH DIRECTORY FILE

Seq #  *Modification Id* Act 
----------------------------+
03040  M02S02615.dmrec2  ---|          RMGET  DIRR,XXBUF,0,,KEY2  GET DB HEADER

Seq #  *Modification Id* Act 
----------------------------+
03041  M02S02616.dmrec2  ---|          RJ     FER         CHECK FIT ERROR

Seq #  *Modification Id* Act 
----------------------------+
03042  M02S02617.dmrec2  ---|          NZ     X1,BRT16    IF ERROR

Seq #  *Modification Id* Act 
----------------------------+
03043  M02S02618.dmrec2  ---|          SA1    XXBUF+4

Seq #  *Modification Id* Act 
----------------------------+
03044  M02S02619.dmrec2  ---|          MX0    36

Seq #  *Modification Id* Act 
----------------------------+
03045  M02S02620.dmrec2  ---|          BX6    X0*X1

Seq #  *Modification Id* Act 
----------------------------+
03046  M02S02621.dmrec2  ---| BRT1     SX7    TVSN        VSN OF FIRST LRF OF SESSION

Seq #  *Modification Id* Act 
----------------------------+
03047  M02S00007.ns2023  ---|          SA1    QRFFLG
03048  M01S00058.ns2023  +++|          SA1    BRFFLG
03049  M01S00008.dmrec2  +++|          SX7    TVSN
03050  M01S00009.dmrec2  +++|          SA7    IVSN        INITIALIZE VSN POINTER
03051  M01S00010.dmrec2  +++|          PL     X1,BRT1     IF NOT BRF RECOVERY
03052  M01S00011.dmrec2  +++|          SA2    DATE
03053  M01S00012.dmrec2  +++|          NZ     X2,BRT0.2   IF END DATE GIVEN
03054  M01S00013.dmrec2  +++|          PDATE  TEMP10
03055  M01S00014.dmrec2  +++|          SA5    TEMP10
03056  M01S00015.dmrec2  +++|          RJ     UDT         UNPACK DATE/TIME
03057  M01S00016.dmrec2  +++|          BX2    X6
03058  M01S00017.dmrec2  +++| BRT0.2   SA3    TIME
03059  M01S00018.dmrec2  +++|          NZ     X3,BRT0.3   IF END TIME GIVEN
03060  M01S00019.dmrec2  +++|          SA3    NTIME       END TIME - 23.59.59
03061  M01S00020.dmrec2  +++| BRT0.3   RJ     PDT         PACK DATE/TIME
03062  M01S00021.dmrec2  +++|          SA6    ENPDT       SET END DATE/TIME
03063  M01S00022.dmrec2  +++|          MX6    0
03064  M01S00023.dmrec2  +++|          SA6    STPDT       SET START DATE/TIME
03065  M01S00024.dmrec2  +++|          SA2    FSTVSN
03066  M01S00025.dmrec2  +++|          BX6    X2
03067  M01S02622.dmrec   +++|          SA6    TVSN
03068  M01S00052.dmrec7  +++|          SA6    TREC

Seq #  *Modification Id* Act 
----------------------------+
03069  M02S02623.dmrec2  ---|          SA7    IVSN        SAVE ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
03070  M02S02624.dmrec2  ---|          MX5    0           READ TAPE

Seq #  *Modification Id* Act 
----------------------------+
03071  M02S00026.dmrec7  ---| BRT1     MX5    0
03072  M01S00053.dmrec7  +++| BRT1     SA1    IVSN
03073  M01S00054.dmrec7  +++|          SA2    X1          CURRENT *VSN* CANDIDATE
03074  M01S00055.dmrec7  +++|          MX0    36
03075  M01S00056.dmrec7  +++|          BX2    X0*X2
03076  M01S00057.dmrec7  +++|          SA3    PREC
03077  M01S00058.dmrec7  +++|          SA4    X3+B1       NEXT *VSN* ENTRY IN *TREC* TABLE
03078  M01S00059.dmrec7  +++|          SA5    HOLD3
03079  M01S00060.dmrec7  +++|          ZR     X5,BRT1.1   IF FIRST TIME THROUGH
03080  M01S00061.dmrec7  +++|          IX1    X2-X4       COMPARE *VSN-S*
03081  M01S00062.dmrec7  +++|          NZ     X1,BRT1.30  IF *VSN-S* DO NOT MATCH
03082  M01S00063.dmrec7  +++|          SX6    X3+B1
03083  M01S00064.dmrec7  +++|          SA6    A3          SET TO NEXT *VSN*
03084  M01S00065.dmrec7  +++|          MX6    0
03085  M01S00066.dmrec7  +++|          SA6    EORCNT      ZERO *EOR* COUNT
03086  M01S00067.dmrec7  +++|          SX6    B1+
03087  M01S00068.dmrec7  +++|          SA6    TAPERR      INITIALIZE TAPE ERROR COUNT
03088  M01S00069.dmrec7  +++| BRT1.1   MX5    0
03089  M01S00070.dmrec7  +++|          SX6    B1
03090  M01S00071.dmrec7  +++|          SA6    HOLD3       RESET FIRST THROUGH FLAG
03091  M01S02625.dmrec   +++|          BX6    X5
03092  M01S02626.dmrec   +++|          SA6    TPMODE      SAVE MODE
03093  M01S02627.dmrec   +++|          SB7    TP          FET
03094  M01S02628.dmrec   +++|          SA6    HOLD        GNR INITIAL
03095  M01S02629.dmrec   +++|          RJ     RTF         REQUEST TAPE FILE
03096  M01S02630.dmrec   +++|          NZ     X1,BRTX     IF ERROR

Seq #  *Modification Id* Act 
----------------------------+
03097  M02S02631.dmrec7  ---|          REWIND TP,R
03098  M01S00072.dmrec7  +++| BRT1.2   REWIND TP,R
03099  M01S02632.dmrec   +++|          READ   TP,R
03100  M01S02633.dmrec   +++|          READW  TP,WBUF,WBUFL

Seq #  *Modification Id* Act 
----------------------------+
03101  M02S02634.dmrec7  ---|          ZR     X1,BRT22    IF ERROR

Seq #  *Modification Id* Act 
----------------------------+
03102  M02S02635.dmrec7  ---|          NG     X1,BRT22    IF ERROR

Seq #  *Modification Id* Act 
----------------------------+
03103  M02S02636.dmrec7  ---|          SX4    TP
03104  M01S00073.dmrec7  +++|          ZR     X1,BRT1.3   IF ERROR
03105  M01S00074.dmrec7  +++|          PL     X1,BRT1.4   IF NO ERROR
03106  M01S00075.dmrec7  +++| BRT1.3   RJ     RRE         READ RECOVERY ERROR
03107  M01S00076.dmrec7  +++|          NZ     X1,UPD14    IF ERROR
03108  M01S00077.dmrec7  +++|          EQ     BRT1.2      CONTINUE
03109  M01S00078.dmrec7  +++|
03110  M01S00079.dmrec7  +++| BRT1.30  MX5    0           READ MODE
03111  M01S00080.dmrec7  +++|          SB7    TP
03112  M01S00081.dmrec7  +++|          RJ     RTF         REQUEST TAPE FILE
03113  M01S00082.dmrec7  +++|          NZ     X1,BRTX     IF ERROR
03114  M01S00083.dmrec7  +++|          READEI TP          INITIAL READ FOR NEW TAPE
03115  M01S00084.dmrec7  +++|
03116  M01S00085.dmrec7  +++| BRT1.4   SA2    EORCNT
03117  M01S00086.dmrec7  +++|          SX6    X2+B1
03118  M01S00087.dmrec7  +++|          SA6    A2          INCREMENT EOR COUNT

Seq #  *Modification Id* Act 
----------------------------+
03119  M02S02637.dmrec7  ---|          RJ     GNR         GET RECORD - HEADER

Seq #  *Modification Id* Act 
----------------------------+
03120  M02S02638.dmrec7  ---|          NG     X1,BRT17    IF NO HEADER

Seq #  *Modification Id* Act 
----------------------------+
03121  M02S02639.dmrec7  ---|          NZ     X1,BRTX     IF ERROR
03122  M01S00088.dmrec7  +++| BRT1.5   SX4    TP          SET FET ADDRESS
03123  M01S00089.dmrec7  +++|          RJ     GNR         GET RECORD - HEADER
03124  M01S00090.dmrec7  +++|          NG     X1,BRT1.6   IF NO HEADER
03125  M01S00091.dmrec7  +++|          ZR     X1,BRT1.7   IF NO ERROR
03126  M01S00092.dmrec7  +++| BRT1.6   RJ     RRE         READ RECOVERY ERROR
03127  M01S00093.dmrec7  +++|          NZ     X1,UPD14    IF ERROR
03128  M01S00094.dmrec7  +++|          EQ     BRT1.5      CONTINUE
03129  M01S00095.dmrec7  +++|
03130  M01S00096.dmrec7  +++| BRT1.7   SA4    EORCNT
03131  M01S00097.dmrec7  +++|          SX6    X4+B1
03132  M01S00098.dmrec7  +++|          SA6    A4          INCREMENT EOR COUNT
03133  M01S02640.dmrec   +++|          SA3    WBUF+3
03134  M01S02641.dmrec   +++|          MX0    42
03135  M01S02642.dmrec   +++|          BX6    -X0*X3
03136  M01S02643.dmrec   +++|          SX7    X6-WBUFL
03137  M01S02644.dmrec   +++|          PL     X7,BRT18    IF BUFFER OVERFLOW

Seq #  *Modification Id* Act 
----------------------------+
03138  M02S02645.ns2023  ---|          SX6    TTQRF

Seq #  *Modification Id* Act 
----------------------------+
03139  M02S02646.ns2023  ---|          SA6    IIQRF       INITIALIZE SEARCH
03140  M01S00059.ns2023  +++|          SX6    TTBRF
03141  M01S00060.ns2023  +++|          SA6    IIBRF       INITIALIZE SEARCH
03142  M01S02647.dmrec   +++| BRT2     SX4    TP
03143  M01S02648.dmrec   +++|          RJ     GNR         GET DATA RECORD

Seq #  *Modification Id* Act 
----------------------------+
03144  M02S02649.ns2023  ---|          NG     X1,BRT10    IF EOF (THIS *LRF* DONE - CHECK NEXT)

Seq #  *Modification Id* Act 
----------------------------+
03145  M02S00061.dmrec7  ---|          NG     X1,BRT10    IF EOF (THIS *ARF* DONE - CHECK NEXT)

Seq #  *Modification Id* Act 
----------------------------+
03146  M02S02650.dmrec7  ---|          NZ     X1,BRTX     IF ERROR
03147  M01S00099.dmrec7  +++|          ZR     X1,BRT2.1   IF NO ERROR
03148  M01S00100.dmrec7  +++|          PL     X1,BRT0.1   IF ERROR
03149  M01S00101.dmrec7  +++|          MX0    -2
03150  M01S00102.dmrec7  +++|          BX1    -X0-X1
03151  M01S00103.dmrec7  +++|          NZ     X1,BRT10    IF *EOF* (THIS *ARF* DONE - CHECK NEXT)
03152  M01S00104.dmrec7  +++| BRT0.1   RJ     RRE         READ RECOVERY ERROR
03153  M01S00105.dmrec7  +++|          NZ     X1,UPD14    IF ERROR
03154  M01S00106.dmrec7  +++|          EQ     BRT2        CONTINUE
03155  M01S00107.dmrec7  +++|
03156  M01S00108.dmrec7  +++| BRT2.1   SA2    EORCNT
03157  M01S00109.dmrec7  +++|          SX6    X2+B1
03158  M01S00110.dmrec7  +++|          SA6    A2          INCREMENT EOR COUNT
03159  M01S00027.dmrec2  +++|          SA3    X4+2        GET TIME/DATE
03160  M01S00028.dmrec2  +++|          SA2    STPDT
03161  M01S00029.dmrec2  +++|          IX2    X3-X2
03162  M01S00030.dmrec2  +++|          NG     X2,BRT2     IF BEFORE BEGIN/TIME
03163  M01S00031.dmrec2  +++|          SA2    ENPDT
03164  M01S00032.dmrec2  +++|          IX2    X2-X3
03165  M01S00033.dmrec2  +++|          NG     X2,BRT2     IF AFTER END DATE/TIME
03166  M01S02651.dmrec   +++|          SB5    FTAB
03167  M01S02652.dmrec   +++|          SA1    X4+4
03168  M01S02653.dmrec   +++|          SA2    X4
03169  M01S02654.dmrec   +++|          LX2    59-18
03170  M01S02655.dmrec   +++|          NG     X2,BRT4     IF *BEGIN*
03171  M01S02656.dmrec   +++|          LX2    18-59
03172  M01S02657.dmrec   +++|          MX0    42
03173  M01S02658.dmrec   +++|          BX2    -X0*X2
03174  M01S00034.dmrec2  +++|          SB4    FTAB+FTABL
03175  M01S02659.dmrec   +++|          ZR     X2,BRT7     IF *COMMIT*
03176  M01S02660.dmrec   +++|          SX5    X2-TRDF

Seq #  *Modification Id* Act 
----------------------------+
03177  M02S02661.dmrec2  ---|          ZR     X5,BRT7     IF *DBFREE*

Seq #  *Modification Id* Act 
----------------------------+
03178  M02S00035.ns2023  ---|          ZR     X5,BRT2.1   IF *DBFREE*
03179  M01S00062.ns2023  +++|          ZR     X5,BRT6.1   IF *DBFREE*
03180  M01S02662.dmrec   +++|          SX5    X2-DMCC

Seq #  *Modification Id* Act 
----------------------------+
03181  M02S02663.dmrec2  ---|          ZR     X5,BRT7     IF *DBCEASE*
03182  M01S00036.dmrec2  +++|          ZR     X5,BRT6.1   IF *DBCEASE*
03183  M01S02664.dmrec   +++|          SX2    X2-XLQD

Seq #  *Modification Id* Act 
----------------------------+
03184  M02S02665.ns2023  ---|          NZ     X2,BRT2     IF NOT *QRF* DOWN STAMP
03185  M01S00063.ns2023  +++|          NZ     X2,BRT2     IF NOT *BRF* DOWN STAMP
03186  M01S00037.dmrec2  +++|          SX6    1
03187  M01S00038.dmrec2  +++|          SA6    BRTH        SET BRF DOWN FLAG
03188  M01S02666.dmrec   +++|          SA2    X4+4

Seq #  *Modification Id* Act 
----------------------------+
03189  M02S02667.ns2023  ---|          SB4    TTQRF

Seq #  *Modification Id* Act 
----------------------------+
03190  M02S02668.ns2023  ---|          SB7    TTQRF+TTQRFL
03191  M01S00064.ns2023  +++|          SB4    TTBRF
03192  M01S00065.ns2023  +++|          SB7    TTBRF+TTBRFL
03193  M01S02669.dmrec   +++| BRT3     SA5    B4
03194  M01S02670.dmrec   +++|          BX6    X2-X5

Seq #  *Modification Id* Act 
----------------------------+
03195  M02S02671.ns2023  ---|          ZR     X6,BRT2     IF ALREADY IN *TTQRF*
03196  M01S00066.ns2023  +++|          ZR     X6,BRT2     IF ALREADY IN *TTBRF*
03197  M01S02672.dmrec   +++|          SB4    B4+1
03198  M01S02673.dmrec   +++|          NE     B4,B7,BRT3  IF MORE ENTRIES

Seq #  *Modification Id* Act 
----------------------------+
03199  M02S02674.ns2023  ---|          SA5    IIQRF
03200  M01S00067.ns2023  +++|          SA5    IIBRF
03201  M01S02675.dmrec   +++|          SB3    X5

Seq #  *Modification Id* Act 
----------------------------+
03202  M02S02676.ns2023  ---|          EQ     B3,B7,BRT21 IF *TTQRF* OVERFLOW
03203  M01S00068.ns2023  +++|          EQ     B3,B7,BRT21 IF *TTBRF* OVERFLOW
03204  M01S02677.dmrec   +++|          BX6    X2

Seq #  *Modification Id* Act 
----------------------------+
03205  M02S02678.ns2023  ---|          SA6    X5          SAVE *QRF* NAME
03206  M01S00069.ns2023  +++|          SA6    X5          SAVE *BRF* NAME
03207  M01S02679.dmrec   +++|          SX6    X5+1

Seq #  *Modification Id* Act 
----------------------------+
03208  M02S02680.ns2023  ---|          SA6    A5          INCREMENT IIQRF
03209  M01S00070.ns2023  +++|          SA6    A5          INCREMENT *IIBRF*
03210  M01S02681.dmrec   +++|          EQ     BRT2        LOOK AT NEXT RECORD
03211  M01S02682.dmrec   +++|

Seq #  *Modification Id* Act 
----------------------------+
03212  M02S00039.ns2023  ---| BRT2.1   SA1    QRFFLG

Seq #  *Modification Id* Act 
----------------------------+
03213  M02S00040.ns2023  ---|          PL     X1,BRT2     IF NOT BRF RECOVERY

Seq #  *Modification Id* Act 
----------------------------+
03214  M02S00041.ns2023  ---|          SA3    BRTH

Seq #  *Modification Id* Act 
----------------------------+
03215  M02S00042.ns2023  ---|          ZR     X3,BRT7     IF BRF DOWN STAMP ALLREADY HIT

Seq #  *Modification Id* Act 
----------------------------+
03216  M02S00043.ns2023  ---|          EQ     BRT2        CONTINUE
03217  M01S02683.dmrec   +++|*         FOR BEGIN STAMPS, CREATE AN ENTRY IN FTAB (IGNORE TABLE),
03218  M01S02684.dmrec   +++|*         AND FOR *COMMIT* STAMPS, DELETE THE CORRESPONDING
03219  M01S02685.dmrec   +++|*         *BEGIN* STAMP ENTRY.
03220  M01S02686.dmrec   +++|*         (X2) = NEGITIVE IF BEGIN.
03221  M01S02687.dmrec   +++|*                ZERO IF COMMIT
03222  M01S02688.dmrec   +++|*         (X5) = LENGTH OF RECORD.
03223  M01S02689.dmrec   +++|*         (X4) = FWA OF RECORD.
03224  M01S02690.dmrec   +++|
03225  M01S02691.dmrec   +++| BRT4     SA1    B5
03226  M01S02692.dmrec   +++|          NG     X1,BRT5     IF LOGICAL END OF TABLE
03227  M01S02693.dmrec   +++|          ZR     X1,BRT6     IF A ZERO ENTRY FOUND
03228  M01S02694.dmrec   +++|          SB5    B5+2
03229  M01S02695.dmrec   +++|          EQ     BRT4        GET NEXT ENTRY
03230  M01S02696.dmrec   +++|
03231  M01S02697.dmrec   +++| BRT5     SB6    FTAB+FTABL
03232  M01S02698.dmrec   +++|          EQ     B6,B5,BRT19 IF *FTAB* OVERFLOW
03233  M01S02699.dmrec   +++|          MX7    1
03234  M01S02700.dmrec   +++|          SA7    B5+2        MOVE LOGICAL END OF TABLE
03235  M01S02701.dmrec   +++| BRT6     SA1    X4+4
03236  M01S02702.dmrec   +++|          MX0    42
03237  M01S02703.dmrec   +++|          BX6    X0*X1       ASSURE DEFAULT LOAD FORMAT
03238  M01S02704.dmrec   +++|          SA6    B5          SAVE FN
03239  M01S02705.dmrec   +++|          SA1    X4
03240  M01S02706.dmrec   +++|          MX0    24
03241  M01S02707.dmrec   +++|          BX6    X0*X1
03242  M01S02708.dmrec   +++|          SA1    X4+B1       GET BEGIN ID
03243  M01S02709.dmrec   +++|          MX0    30
03244  M01S02710.dmrec   +++|          BX1    -X0*X1
03245  M01S02711.dmrec   +++|          BX6    X6+X1       INSERT BID IN FTAB ENTRY
03246  M01S02712.dmrec   +++|          SA6    A6+B1       SAVE TS AND BEGIN IDENTIFIER
03247  M01S02713.dmrec   +++|          EQ     BRT2        GET NEXT RECORD
03248  M01S02714.dmrec   +++|
03249  M01S02715.dmrec   +++|*         PROCESS COMMIT, DBFREE, AND CEASE.
03250  M01S02716.dmrec   +++|*         DELETE ENTRY IN IGNORE TABLE.
03251  M01S02717.dmrec   +++|

Seq #  *Modification Id* Act 
----------------------------+
03252  M02S00044.ns2023  ---| BRT6.1   SA1    QRFFLG

Seq #  *Modification Id* Act 
----------------------------+
03253  M02S00045.ns2023  ---|          MX6    1

Seq #  *Modification Id* Act 
----------------------------+
03254  M02S00046.ns2023  ---|          SA6    BRTK        CEASE FLAG SET

Seq #  *Modification Id* Act 
----------------------------+
03255  M02S00047.ns2023  ---|          PL     X1,BRT7     IF NOT BRF RECOVERY
03256  M01S00071.ns2023  +++| BRT6.1   SA1    BRFFLG
03257  M01S00072.ns2023  +++|          PL     X1,BRT2     IF NOT BRF RECOVERY
03258  M01S00048.dmrec2  +++|          SA3    BRTH
03259  M01S00073.ns2023  +++|          NZ     X3,BRT2     IF BRF DOWN STAMP FOUND

Seq #  *Modification Id* Act 
----------------------------+
03260  M02S00049.ns2023  ---|          ZR     X3,BRT7     IF NO BRF DOWN STAMP YET

Seq #  *Modification Id* Act 
----------------------------+
03261  M02S00050.ns2023  ---|          SX6    1

Seq #  *Modification Id* Act 
----------------------------+
03262  M02S00051.ns2023  ---|          SA6    BRTI        SET BRF CEASE FLAG
03263  M01S02718.dmrec   +++| BRT7     SA1    B5
03264  M01S02719.dmrec   +++|          NZ     X1,BRT9     IF NOT AN EMPTY RECORD

Seq #  *Modification Id* Act 
----------------------------+
03265  M02S00052.ns2023  ---|          EQ     B5,B4,BRT8.1  IF LOGICAL END OF TABLE
03266  M01S02720.dmrec   +++| BRT8     SB5    B5+2
03267  M01S02721.dmrec   +++|          EQ     BRT7        TRY NEXT
03268  M01S02722.dmrec   +++|

Seq #  *Modification Id* Act 
----------------------------+
03269  M02S00053.ns2023  ---| BRT8.1   SA1    BRTK

Seq #  *Modification Id* Act 
----------------------------+
03270  M02S00054.ns2023  ---|          ZR     X1,BRT2     IF NOT COMMIT STAMP

Seq #  *Modification Id* Act 
----------------------------+
03271  M02S00055.ns2023  ---|          SB5    FTAB
03272  M01S00074.ns2023  +++| BRT8.1   SB5    FTAB        INITIALIZE *FTAB* POINTER
03273  M01S00056.dmrec2  +++| BRT8.2   SA3    B5
03274  M01S00057.dmrec2  +++|          ZR     X3,BRT8.3   IF AN EMPTY ENTRY
03275  M01S00058.dmrec2  +++|          EQ     B5,B4,BRT19 IF *FTAB* OVERFLOW
03276  M01S00059.dmrec2  +++|          SB5    B5+2        INCREMENT FTAB POINTER
03277  M01S00060.dmrec2  +++|          EQ     BRT8.2
03278  M01S00061.dmrec2  +++|
03279  M01S00062.dmrec2  +++| BRT8.3   SA5    X4+4        GET TRANSACTION NAME
03280  M01S00063.dmrec2  +++|          MX0    42
03281  M01S00064.dmrec2  +++|          BX6    X0*X1
03282  M01S00065.dmrec2  +++|          SA6    B5          INSERT NAME INTO FTAB TABLE
03283  M01S00066.dmrec2  +++|          SA5    X4
03284  M01S00067.dmrec2  +++|          MX0    24
03285  M01S00068.dmrec2  +++|          BX5    X0*X5
03286  M01S00069.dmrec2  +++|          SA2    X4+1
03287  M01S00070.dmrec2  +++|          MX0    30
03288  M01S00071.dmrec2  +++|          BX2    X0*X2
03289  M01S00072.dmrec2  +++|          LX2    30
03290  M01S00073.dmrec2  +++|          BX6    X5+X2

Seq #  *Modification Id* Act 
----------------------------+
03291  M02S00074.ns2023  ---|          SA6    B5+1
03292  M01S00075.ns2023  +++|          SA6    B5+B1
03293  M01S00075.dmrec2  +++|          EQ     BRT2        LOOK AT NEXT RECORD
03294  M01S00076.dmrec2  +++|

Seq #  *Modification Id* Act 
----------------------------+
03295  M02S02723.ns2023  ---| BRT9     NG     X1,BRT2     IF NO COMMIT STAMP FOUND
03296  M01S00076.ns2023  +++| BRT9     NG     X1,BRT8.1   IF END OF TABLE
03297  M01S02724.dmrec   +++|          SA5    X4
03298  M01S02725.dmrec   +++|          MX0    24
03299  M01S02726.dmrec   +++|          BX5    X0*X5
03300  M01S00077.dmrec2  +++|          SA3    X4+1
03301  M01S00078.dmrec2  +++|          MX0    30
03302  M01S00079.dmrec2  +++|          BX3    X0*X3       GET BEGIN ID
03303  M01S00080.dmrec2  +++|          LX3    30
03304  M01S00081.dmrec2  +++|          BX5    X5+X3
03305  M01S02727.dmrec   +++|          SA1    B5+B1
03306  M01S02728.dmrec   +++|          BX6    X5-X1

Seq #  *Modification Id* Act 
----------------------------+
03307  M02S02729.dmrec2  ---|          NZ     X6,BRT8     IF TS DOES NOT MATCH

Seq #  *Modification Id* Act 
----------------------------+
03308  M02S02730.dmrec2  ---|          SA6    B5          ZERO ENTRY
03309  M01S00082.dmrec2  +++|          NZ     X6,BRT8     IF TS AND BEGIN ID DO NOT MATCH

Seq #  *Modification Id* Act 
----------------------------+
03310  M02S00083.ns2023  ---|          SA1    BRTI

Seq #  *Modification Id* Act 
----------------------------+
03311  M02S00084.ns2023  ---|          ZR     X1,BRT9.1   IF NOT BRF CEASE

Seq #  *Modification Id* Act 
----------------------------+
03312  M02S00085.ns2023  ---|          MX6    0

Seq #  *Modification Id* Act 
----------------------------+
03313  M02S00086.ns2023  ---|          SA6    BRTI        RESET BRF CEASE FLAG

Seq #  *Modification Id* Act 
----------------------------+
03314  M02S00087.ns2023  ---|          EQ     BRT2        CONTINUE

Seq #  *Modification Id* Act 
----------------------------+
03315  M02S00088.ns2023  ---|

Seq #  *Modification Id* Act 
----------------------------+
03316  M02S00089.ns2023  ---| BRT9.1   SA6    B5          ZERO ENTRY

Seq #  *Modification Id* Act 
----------------------------+
03317  M02S00090.ns2023  ---|
03318  M01S00077.ns2023  +++|          SA6    B5          ZERO ENTRY
03319  M01S02731.dmrec   +++|          EQ     BRT2        RETURN FOR NEXT RECORD
03320  M01S02732.dmrec   +++|

Seq #  *Modification Id* Act 
----------------------------+
03321  M02S02733.ns2023  ---|*         PROCESS NEXT LONG RECOVERY FILE.
03322  M01S00078.ns2023  +++|*         PROCESS NEXT AFTER IMAGE RECOVERY FILE.
03323  M01S02734.dmrec   +++|

Seq #  *Modification Id* Act 
----------------------------+
03324  M02S02735.dmrec2  ---| BRT10    SA2    TVSN
03325  M01S00091.dmrec2  +++| BRT10    RETURN TP,R

Seq #  *Modification Id* Act 
----------------------------+
03326  M02S00092.ns2023  ---|          SA1    QRFFLG
03327  M01S00079.ns2023  +++|          SA1    BRFFLG
03328  M01S00093.dmrec2  +++|          PL     X1,BRT10.1  IF NOT BRF RECOVERY
03329  M01S00094.dmrec2  +++|          SA2    TVSN
03330  M01S02736.dmrec   +++|          MX0    36
03331  M01S02737.dmrec   +++|          BX6    X0*X2
03332  M01S02738.dmrec   +++|          LX6    36
03333  M01S02739.dmrec   +++|          SA1    FILLER
03334  M01S02740.dmrec   +++|          BX6    X6+X1
03335  M01S02741.dmrec   +++|          SA6    EVSN        SET KEY
03336  M01S02742.dmrec   +++|          RJ     ACF         ATTACH DIRECTORY
03337  M01S02743.dmrec   +++|          OPENM  DIRR
03338  M01S02744.dmrec   +++|          RMGET  DIRR,XXBUF,0,,EVSN
03339  M01S02745.dmrec   +++|          RJ     FER         CHECK FIT ERROR
03340  M01S02746.dmrec   +++|          NZ     X1,BRT16    IF ERROR

Seq #  *Modification Id* Act 
----------------------------+
03341  M02S02747.dmrec2  ---|          RETURN TP,R

Seq #  *Modification Id* Act 
----------------------------+
03342  M02S02748.dmrec2  ---|          SA2    XXBUF+2

Seq #  *Modification Id* Act 
----------------------------+
03343  M02S02749.dmrec2  ---|          ZR     X2,BRT11    IF NO MORE *LRF-S*
03344  M01S00095.dmrec2  +++|          SA2    XXBUF+2
03345  M01S00096.dmrec2  +++|          ZR     X2,BRT11    IF NO MORE ARF-S CONTINUATION TAPES
03346  M01S02750.dmrec   +++|          BX6    X2
03347  M01S00097.dmrec2  +++|          SX7    TVSN
03348  M01S00098.dmrec2  +++|          SA6    TVSN
03349  M01S00099.dmrec2  +++|          SA7    IVSN
03350  M01S02751.dmrec   +++|          EQ     BRT1        CONTINUE
03351  M01S02752.dmrec   +++|
03352  M01S00100.dmrec2  +++| BRT10.1  SA2    IVSN
03353  M01S00101.dmrec2  +++|          SA1    X2
03354  M01S00102.dmrec2  +++|          NZ     X1,BRT1     IF MORE VSN-S
03355  M01S02753.dmrec   +++|*         TABLE *FTAB* BUILT.  NOW BUILD IGNORE TABLE *TTIG*.
03356  M01S02754.dmrec   +++|
03357  M01S02755.dmrec   +++| BRT11    SB2    TTIG
03358  M01S02756.dmrec   +++|          SB3    FTAB
03359  M01S00103.dmrec2  +++| BRT11.1  SA3    B2
03360  M01S00104.dmrec2  +++|          ZR     X3,BRT12    CONTINUE
03361  M01S00105.dmrec2  +++|          SB2    B2+2
03362  M01S00106.dmrec2  +++|          EQ     BRT11.1     CHECK NEXT ENTRY
03363  M01S00107.dmrec2  +++|
03364  M01S02757.dmrec   +++| BRT12    SA1    B3
03365  M01S02758.dmrec   +++|          NG     X1,BRT15    IF NO MORE TS
03366  M01S02759.dmrec   +++|          NZ     X1,BRT14    IF LEGAL TS
03367  M01S02760.dmrec   +++| BRT13    SB3    B3+2
03368  M01S02761.dmrec   +++|          EQ     BRT12       GET NEXT ENTRY
03369  M01S02762.dmrec   +++|
03370  M01S02763.dmrec   +++| BRT14    SB4    TTIG+TTIGL
03371  M01S02764.dmrec   +++|          EQ     B4,B2,BRT20 IF *TTIG* OVERFLOW
03372  M01S02765.dmrec   +++|          SA1    A1+B1       GET TS FROM *FTAB*
03373  M01S02766.dmrec   +++|          SX7    2RTS
03374  M01S02767.dmrec   +++|          MX0    24
03375  M01S02768.dmrec   +++|          BX0    X0*X1
03376  M01S02769.dmrec   +++|          BX6    X7+X0
03377  M01S02770.dmrec   +++|          SA6    B2          ENTER *TTIG*
03378  M01S02771.dmrec   +++|          MX0    30
03379  M01S02772.dmrec   +++|          BX6    -X0*X1
03380  M01S02773.dmrec   +++|          SA6    A6+B1       SAVE BEGIN ID IN *TTIG*
03381  M01S02774.dmrec   +++|          SB2    B2+2
03382  M01S02775.dmrec   +++|          EQ     BRT13       GET NEXT ENTRY
03383  M01S02776.dmrec   +++|
03384  M01S02777.dmrec   +++| BRT15    SX7    B0
03385  M01S02778.dmrec   +++|          SA7    B2          END TABLE *TTIG*

Seq #  *Modification Id* Act 
----------------------------+
03386  M02S02779.ns2023  ---|          SA1    IIQRF

Seq #  *Modification Id* Act 
----------------------------+
03387  M02S02780.ns2023  ---|          SA7    X1          END TABLE *TTQRF*
03388  M01S00080.ns2023  +++|          SA1    IIBRF
03389  M01S00081.ns2023  +++|          SA7    X1          END TABLE *TTBRF*
03390  M01S02781.dmrec   +++|          CLOSEM DIRR,U
03391  M01S02782.dmrec   +++|          SX1    B0
03392  M01S02783.dmrec   +++|          EQ     BRTX        EXIT NORMAL
03393  M01S02784.dmrec   +++|
03394  M01S02785.dmrec   +++| BRTA     BSSZ   2           KEY FOR DB HEADER
03395  M01S02786.dmrec   +++|
03396  M01S02787.dmrec   +++| BRT16    ERROR  BRTB,,,BRTX,,E  ERROR IN BUILDING RECOVERY TABLES
03397  M01S02788.dmrec   +++|
03398  M01S02789.dmrec   +++| BRT17    ERROR  BLTC,,,BRTX,,E  ARF HEADER ERROR
03399  M01S02790.dmrec   +++|
03400  M01S02791.dmrec   +++| BRT18    ERROR  BRTD,,,BRTX,,E  DATA BLOCK BUFFER OVERFLOW
03401  M01S02792.dmrec   +++|
03402  M01S02793.dmrec   +++| BRT19    ERROR  BRTE,,,BRTX,,E  INTERMEDIATE IGNORE TABLE OVERFLOW
03403  M01S02794.dmrec   +++|
03404  M01S02795.dmrec   +++| BRT20    ERROR  BRTF,,,BRTX,,E  IGNORE TABLE OVERFLOW
03405  M01S02796.dmrec   +++|
03406  M01S02797.dmrec   +++| BRT21    ERROR  BRTG,,,BRTX,,E  DOWNED BRF TABLE OVERFLOW
03407  M01S02798.dmrec   +++|
03408  M01S02799.dmrec   +++| BRT22    ERROR  UPDC,,,BRTX,,E  DMREC TAPE LABEL ERROR
03409  M01S02800.dmrec   +++|
03410  M01S02801.dmrec   +++| BRTB     DATA   20H0     *****
03411  M01S02802.dmrec   +++|          DATA   C*ERROR IN BUILDING RECOVERY TABLES.*
03412  M01S02803.dmrec   +++| BRTBL    EQU    *-BRTB
03413  M01S02804.dmrec   +++|
03414  M01S02805.dmrec   +++| BRTD     DATA   20H0     *****
03415  M01S02806.dmrec   +++|          DATA   C*DATA BLOCK BUFFER OVERFLOW.*
03416  M01S02807.dmrec   +++| BRTDL    EQU    *-BRTD
03417  M01S02808.dmrec   +++|
03418  M01S02809.dmrec   +++| BRTE     DATA   20H0     *****
03419  M01S02810.dmrec   +++|          DATA   C*INTERMEDIATE IGNORE TABLE OVERFLOW.*
03420  M01S02811.dmrec   +++| BRTEL    EQU    *-BRTE
03421  M01S02812.dmrec   +++|
03422  M01S02813.dmrec   +++| BRTF     DATA   20H0     *****
03423  M01S02814.dmrec   +++|          DATA   C*IGNORE TABLE OVERFLOW.*
03424  M01S02815.dmrec   +++| BRTFL    EQU    *-BRTF
03425  M01S02816.dmrec   +++|
03426  M01S02817.dmrec   +++| BRTG     DATA   20H0     *****
03427  M01S02818.dmrec   +++|          DATA   C*DOWNED BRF TABLE OVERFLOW.*
03428  M01S02819.dmrec   +++| BRTGL    EQU    *-BRTG
03429  M01S00108.dmrec2  +++| BRTH     BSSZ   1           BRF FLAG
03430  M01S00109.dmrec2  +++| BRTI     BSSZ   1           BRF CEASE FLAG
03431  M01S00110.dmrec2  +++| BRTJ     BSSZ   1           NEXT ARF DUMP TAPE

Seq #  *Modification Id* Act 
----------------------------+
03432  M02S00111.ns2023  ---| BRTK     BSSZ   1           CEASE FLAG
03433  M01S02820.dmrec   +++| BSB      SPACE  4,10
03434  M01S02821.dmrec   +++|**        BSB - BLANK FILL STRING BUFFER.
03435  M01S02822.dmrec   +++|*
03436  M01S02823.dmrec   +++|*         ENTRY  NONE.
03437  M01S02824.dmrec   +++|*
03438  M01S02825.dmrec   +++|*         EXIT   (OLWS) = BLANK FILLED.
03439  M01S02826.dmrec   +++|*
03440  M01S02827.dmrec   +++|*         USES   X - 7.
03441  M01S02828.dmrec   +++|*                A - 7.
03442  M01S02829.dmrec   +++|*                B - 6, 7.
03443  M01S02830.dmrec   +++|
03444  M01S02831.dmrec   +++|
03445  M01S02832.dmrec   +++| BSB      SUBR               ENTRY/EXIT
03446  M01S02833.dmrec   +++|          SX7    1R
03447  M01S02834.dmrec   +++|          SB7    OLWS+OLWSL
03448  M01S02835.dmrec   +++|          SB6    OLWS
03449  M01S02836.dmrec   +++| BSB1     SA7    B6
03450  M01S02837.dmrec   +++|          SB6    B6+B1
03451  M01S02838.dmrec   +++|          NE     B6,B7,BSB1  IF NOT BLANK FILLED
03452  M01S02839.dmrec   +++|          EQ     BSBX        RETURN
03453  M01S02840.dmrec   +++| BVT      SPACE  4,25
03454  M01S02841.dmrec   +++|**        BVT - BUILD VSN TABLE.
03455  M01S02842.dmrec   +++|*
03456  M01S02843.dmrec   +++|*         *BVT* WILL BUILD A TABLE OF *AFTER IMAGE* LOG DUMP TAPES
03457  M01S02844.dmrec   +++|*         VSN-S THAT CONTAIN ENTRIES NECESSARY FOR THE GIVEN
03458  M01S02845.dmrec   +++|*         DATE/TIME WINDOW.
03459  M01S02846.dmrec   +++|*
03460  M01S02847.dmrec   +++|*         ENTRY  (DATE) = DIRECTIVE BEGIN DATE.
03461  M01S02848.dmrec   +++|*                (TIME) = DIRECTIVE BEGIN TIME.
03462  M01S02849.dmrec   +++|*                (DATE1) = DIRECTIVE END DATE.
03463  M01S02850.dmrec   +++|*                (TIME1) = DIRECTIVE END TIME.
03464  M01S02851.dmrec   +++|*
03465  M01S02852.dmrec   +++|*         EXIT   TABLE TVSN BUILT.
03466  M01S02853.dmrec   +++|*                (X1) = 0 IF NO ERRORS
03467  M01S02854.dmrec   +++|*                (STPDT) = START PACKED DATE/TIME
03468  M01S02855.dmrec   +++|*                (ENPDT) = END PACKED DATE/TIME
03469  M01S02856.dmrec   +++|*
03470  M01S02857.dmrec   +++|*         USES   X - 0, 1, 2, 3, 4, 5, 6.
03471  M01S02858.dmrec   +++|*                A - 2, 3, 4, 5, 6, 7.
03472  M01S02859.dmrec   +++|*
03473  M01S02860.dmrec   +++|*         CALLS  FER, PDT, UDT.
03474  M01S02861.dmrec   +++|*
03475  M01S02862.dmrec   +++|*         MACROS ERROR, FETCH, GETN, MOVE, PDATE, RMGET, STORE.
03476  M01S02863.dmrec   +++|
03477  M01S02864.dmrec   +++|
03478  M01S02865.dmrec   +++| BVT      SUBR               ENTRY/EXIT
03479  M01S02866.dmrec   +++|          STORE  DIRR,MKL=10
03480  M01S02867.dmrec   +++|          SA3    XXPFN
03481  M01S02868.dmrec   +++|          SX2    3RBBB
03482  M01S02869.dmrec   +++|          BX6    X2+X3
03483  M01S02870.dmrec   +++|          SA6    TEMPO       SET KEY
03484  M01S02871.dmrec   +++|          RMGET  DIRR,XXBUF,0,,TEMPO  GET FIRST LOG DUMP ENTRY
03485  M01S02872.dmrec   +++|          RJ     FER         CHECK FIT ERROR
03486  M01S02873.dmrec   +++|          NZ     X1,BVT18    IF ERROR
03487  M01S02874.dmrec   +++|          SA3    TVSN
03488  M01S02875.dmrec   +++|          ZR     X3,BVT4     IF NO VSN GIVEN
03489  M01S02876.dmrec   +++|          EQ     BVT2        CHECK FIRST DB DUMP ENTRY
03490  M01S02877.dmrec   +++|
03491  M01S02878.dmrec   +++| BVT1     GETN   DIRR,XXBUF,,SKEY
03492  M01S02879.dmrec   +++|          FETCH  DIRR,ES,X2
03493  M01S02880.dmrec   +++|          SX2    X2-100B
03494  M01S02881.dmrec   +++|          ZR     X2,BVT19    IF ERROR
03495  M01S02882.dmrec   +++|          SA2    SKEY
03496  M01S02883.dmrec   +++|          SA3    TEMPO
03497  M01S02884.dmrec   +++|          BX2    X2-X3
03498  M01S02885.dmrec   +++|          NZ     X2,BVT19    IF NO MORE ENTRIES (RECORD NOT FOUND)
03499  M01S02886.dmrec   +++| BVT2     SA2    XXBUF+2
03500  M01S02887.dmrec   +++|          MX0    36
03501  M01S02888.dmrec   +++|          BX4    X0*X2
03502  M01S02889.dmrec   +++|          SA2    TVSN
03503  M01S02890.dmrec   +++|          BX6    X2-X4
03504  M01S02891.dmrec   +++|          NZ     X6,BVT1     IF NOT A CORRECT VSN
03505  M01S02892.dmrec   +++|
03506  M01S02893.dmrec   +++|*         DUMP RECORD IN XXBUF - GET DATE/TIME. THIS DATE/TIME
03507  M01S02894.dmrec   +++|*         WILL BE USED FOR BEGIN WINDOW.
03508  M01S02895.dmrec   +++|
03509  M01S02896.dmrec   +++|          SA5    XXBUF+B1
03510  M01S02897.dmrec   +++| BVT3     RJ     UDT         UNPACK D/T
03511  M01S02898.dmrec   +++|          SA6    STDT        START DATE ( UNPACKED )
03512  M01S02899.dmrec   +++|          SA7    STTM        START TIME ( UNPACKED )
03513  M01S02900.dmrec   +++|          EQ     BVT5        CONTINUE WITH THESE STDT + STTM
03514  M01S02901.dmrec   +++|
03515  M01S02902.dmrec   +++| BVT4     MOVE   6,XXBUF,YYBUF
03516  M01S02903.dmrec   +++|          GETN   DIRR,XXBUF,,SKEY
03517  M01S02904.dmrec   +++|          RJ     FER         CHECK FIT ERROR
03518  M01S02905.dmrec   +++|          NZ     X1,BVT18    IF ERROR
03519  M01S02906.dmrec   +++|          SA2    SKEY
03520  M01S02907.dmrec   +++|          SA3    TEMPO
03521  M01S02908.dmrec   +++|          BX3    X2-X3
03522  M01S02909.dmrec   +++|          ZR     X3,BVT4     IF NOT DONE
03523  M01S02910.dmrec   +++|          SA5    YYBUF+B1
03524  M01S02911.dmrec   +++|          EQ     BVT3        CONTINUE
03525  M01S02912.dmrec   +++|
03526  M01S02913.dmrec   +++| BVT5     SA2    DATE        DIRECTIVE DATE
03527  M01S02914.dmrec   +++|          ZR     X2,BVT6     IF BEGIN DATE NOT GIVEN
03528  M01S02915.dmrec   +++|          BX6    X2
03529  M01S02916.dmrec   +++|          SA6    STDT        NEW START DATE
03530  M01S02917.dmrec   +++|          SA2    TIME
03531  M01S02918.dmrec   +++|          NZ     X2,BVT7     IF BEGIN DATE AND TIME GIVEN
03532  M01S02919.dmrec   +++|          SA2    BVTD        USE BEGINNING OF DAY
03533  M01S02920.dmrec   +++|          EQ     BVT7        CONTINUE
03534  M01S02921.dmrec   +++| BVT6     SA2    TIME        DIRECTIVE TIME
03535  M01S02922.dmrec   +++|          ZR     X2,BVT8     IF BEGIN TIME NOT GIVEN
03536  M01S02923.dmrec   +++| BVT7     BX6    X2
03537  M01S02924.dmrec   +++|          SA6    STTM        NEW START TIME
03538  M01S02925.dmrec   +++| BVT8     SA2    DATE1
03539  M01S02926.dmrec   +++|          ZR     X2,BVT9     IF END DATE NOT GIVEN
03540  M01S02927.dmrec   +++|          BX6    X2
03541  M01S02928.dmrec   +++|          SA6    ENDT        NEW END DATE
03542  M01S02929.dmrec   +++|          EQ     BVT10       CHECK END TIME
03543  M01S02930.dmrec   +++|
03544  M01S02931.dmrec   +++| BVT9     PDATE  TEMP10
03545  M01S02932.dmrec   +++|          SA5    TEMP10
03546  M01S02933.dmrec   +++|          RJ     UDT         UNPACK D/T
03547  M01S02934.dmrec   +++|          SA6    ENDT        END DATE - TODAY
03548  M01S02935.dmrec   +++| BVT10    SA2    TIME1
03549  M01S02936.dmrec   +++|          ZR     X2,BVT11    IF END TIME NOT GIVEN
03550  M01S02937.dmrec   +++|          BX6    X2
03551  M01S02938.dmrec   +++|          SA6    ENTM        END TIME
03552  M01S02939.dmrec   +++|          EQ     BVT12       CONTINUE
03553  M01S02940.dmrec   +++|
03554  M01S02941.dmrec   +++| BVT11    SA2    NTIME
03555  M01S02942.dmrec   +++|          BX6    X2
03556  M01S02943.dmrec   +++|          SA6    ENTM        END TIME - 23.59.59.
03557  M01S02944.dmrec   +++|
03558  M01S02945.dmrec   +++|*         CONVERT EXPANDED DATE/TIME TO PACKED FORMAT FOR
03559  M01S02946.dmrec   +++|*         EASE OF TAPE SELECTION.
03560  M01S02947.dmrec   +++|
03561  M01S02948.dmrec   +++| BVT12    SA2    STDT
03562  M01S02949.dmrec   +++|          SA3    STTM
03563  M01S02950.dmrec   +++|          RJ     PDT         PACK DATE AND TIME
03564  M01S02951.dmrec   +++|          NZ     X1,BVTX     IF ERROR
03565  M01S02952.dmrec   +++|          SA6    STPDT       START PACKED DATE/TIME
03566  M01S02953.dmrec   +++|          SA2    ENDT
03567  M01S02954.dmrec   +++|          SA3    ENTM
03568  M01S02955.dmrec   +++|          RJ     PDT         PACK DATE AND TIME
03569  M01S02956.dmrec   +++|          NZ     X1,BVTX     IF ERROR
03570  M01S02957.dmrec   +++|          SA6    ENPDT       END PACKED DATE/TIME
03571  M01S02958.dmrec   +++|
03572  M01S02959.dmrec   +++|*         SEARCH FOR VSN-S WITHIN DATE/TIME WINDOW.
03573  M01S02960.dmrec   +++|
03574  M01S02961.dmrec   +++|          STORE  DIRR,MKL=10
03575  M01S02962.dmrec   +++|          SA2    XXPFN
03576  M01S02963.dmrec   +++|          SA5    =3R  1
03577  M01S02964.dmrec   +++|          BX6    X2+X5
03578  M01S02965.dmrec   +++|          SA6    TEMPO
03579  M01S02966.dmrec   +++|          RMGET  DIRR,XXBUF,0,,TEMPO
03580  M01S02967.dmrec   +++|          RJ     FER         CHECK FIT ERROR
03581  M01S02968.dmrec   +++|          NZ     X1,BVT18    IF ERROR
03582  M01S02969.dmrec   +++|          STORE  DIRR,MKL=20
03583  M01S02970.dmrec   +++| BVT13    SA2    XXBUF+5     DATE/TIME OF LAST RECORD ON THIS *ARF*
03584  M01S02971.dmrec   +++|          SA4    STPDT
03585  M01S02972.dmrec   +++|          IX3    X2-X4
03586  M01S02973.dmrec   +++|          PL     X3,BVT14    IF LAST RECORD AFTER START DATE/TIME
03587  M01S02974.dmrec   +++|          GETN   DIRR,XXBUF,,SKEY
03588  M01S02975.dmrec   +++|          FETCH  DIRR,ES,X2
03589  M01S02976.dmrec   +++|          SX2    X2-100B
03590  M01S02977.dmrec   +++|          ZR     X2,BVT18    IF EOF
03591  M01S02978.dmrec   +++|          SA2    SKEY
03592  M01S02979.dmrec   +++|          SA3    TEMPO
03593  M01S02980.dmrec   +++|          BX2    X2-X3
03594  M01S02981.dmrec   +++|          ZR     X2,BVT13    IF MORE ENTRIES TO SEARCH
03595  M01S02982.dmrec   +++|          EQ     BVT18       ERROR
03596  M01S02983.dmrec   +++| BVT14    SX6    TVSN        INITIALIZE IVSN
03597  M01S02984.dmrec   +++|          SA6    IVSN
03598  M01S00111.dmrec7  +++|          SX7    TREC
03599  M01S00112.dmrec7  +++|          SA7    PREC        INITIALIZE TREC POINTER
03600  M01S02985.dmrec   +++| BVT15    SA4    ENPDT
03601  M01S02986.dmrec   +++|          SA5    XXBUF+1
03602  M01S02987.dmrec   +++|          IX3    X4-X5
03603  M01S02988.dmrec   +++|          NG     X3,BVT15.1  IF FIRST RECORD AFTER END DATE/TIME
03604  M01S02989.dmrec   +++|          SX3    TVSN+TVSNL-1
03605  M01S02990.dmrec   +++|          SA4    IVSN
03606  M01S02991.dmrec   +++|          IX3    X3-X4
03607  M01S02992.dmrec   +++|          NG     X3,BVT17    IF TVSN OVERFLOW
03608  M01S02993.dmrec   +++|          SA2    XXBUF+2
03609  M01S02994.dmrec   +++|          SA3    A2+2
03610  M01S00113.dmrec7  +++|          SA1    PREC
03611  M01S00114.dmrec7  +++|          BX7    X2
03612  M01S00115.dmrec7  +++|          SA7    X1          ENTER VSN INTO TREC TABLE
03613  M01S00116.dmrec7  +++|          SX7    X1+1
03614  M01S00117.dmrec7  +++|          SA7    A1          INCREMENT PREC
03615  M01S02995.dmrec   +++|          BX6    X2+X3       VSN + NUMBER OF RECORDS
03616  M01S02996.dmrec   +++|          SA6    X4
03617  M01S02997.dmrec   +++|          SX6    X4+B1
03618  M01S02998.dmrec   +++|          SA6    A4          INCREMENT IVSN
03619  M01S02999.dmrec   +++|          BX6    X5
03620  M01S03000.dmrec   +++|          SA6    TKY2        SAVE PACKED DATE/TIME
03621  M01S03001.dmrec   +++|          SA4    TEMPO
03622  M01S03002.dmrec   +++|          BX7    X4
03623  M01S03003.dmrec   +++|          SA7    TKY1
03624  M01S03004.dmrec   +++|          SA7    BVTE
03625  M01S03005.dmrec   +++|          SA1    XXBUF+2
03626  M01S03006.dmrec   +++| BVT15.0  RJ     SVK         SET VSN KEY
03627  M01S03007.dmrec   +++|          RMGET  DIRR,WSAB,0,,VKY1  GET VSN ENTRY
03628  M01S03008.dmrec   +++|          RJ     FER         CHECK FIT ERROR
03629  M01S03009.dmrec   +++|          NZ     X1,BVT19    IF ERROR
03630  M01S03010.dmrec   +++|          SA3    XXBUF+4
03631  M01S03011.dmrec   +++|          SA1    WSAB+2
03632  M01S03012.dmrec   +++|          ZR     X1,BVT15.1  IF NO MORE CONTINUATION REELS
03633  M01S03013.dmrec   +++|          BX6    X3+X1
03634  M01S03014.dmrec   +++|          SA4    IVSN
03635  M01S03015.dmrec   +++|          SA6    X4          PLACE VSN INTO TVSN TABLE
03636  M01S03016.dmrec   +++|          SX6    X4+B1
03637  M01S03017.dmrec   +++|          SA6    A4          INCREMENT IVSN
03638  M01S03018.dmrec   +++|          EQ     BVT15.0     GET NEXT ENTRY
03639  M01S03019.dmrec   +++|
03640  M01S03020.dmrec   +++| BVT15.1  SA2    BVTE
03641  M01S03021.dmrec   +++|          ZR     X2,BVT18    IF FIRST TIME THROUGH
03642  M01S03022.dmrec   +++|          REWIND DIRR,R
03643  M01S03023.dmrec   +++|          RMGET  DIRR,XXBUF,0,,TKY1
03644  M01S03024.dmrec   +++|          RJ     FER         CHECK FIT ERROR
03645  M01S03025.dmrec   +++|          NZ     X1,BVT19    IF ERROR
03646  M01S03026.dmrec   +++|          GETN   DIRR,XXBUF,,SKEY
03647  M01S03027.dmrec   +++|          FETCH  DIRR,ES,X2
03648  M01S03028.dmrec   +++|          SX2    X2-100B
03649  M01S03029.dmrec   +++|          ZR     X2,BVT16    IF EOF
03650  M01S03030.dmrec   +++|          SA2    SKEY
03651  M01S03031.dmrec   +++|          SA3    TEMPO
03652  M01S03032.dmrec   +++|          BX2    X2-X3
03653  M01S03033.dmrec   +++|          ZR     X2,BVT15    IF MORE ENTRIES
03654  M01S03034.dmrec   +++| BVT16    SA2    IVSN
03655  M01S03035.dmrec   +++|          SX6    B0
03656  M01S03036.dmrec   +++|          SA6    X2          END LIST
03657  M01S03037.dmrec   +++|          SX1    B0
03658  M01S03038.dmrec   +++|          EQ     BVTX        RETURN NORMAL
03659  M01S03039.dmrec   +++|
03660  M01S03040.dmrec   +++| BVT17    ERROR  BVTC,,,BVTX,,E  VSN TABLE OVERFLOW
03661  M01S03041.dmrec   +++|
03662  M01S03042.dmrec   +++| BVT18    ERROR  BVTA,,,BVTX,,E  NO LOG DUMP ENTRIES
03663  M01S03043.dmrec   +++|
03664  M01S03044.dmrec   +++| BVT19    ERROR  BVTB,,,BVTX,,E  NO DUMP RECORD
03665  M01S03045.dmrec   +++|
03666  M01S03046.dmrec   +++| STDT     BSS    1           START DATE
03667  M01S03047.dmrec   +++| STTM     BSS    1           START TIME
03668  M01S03048.dmrec   +++| ENDT     BSS    1           END TIME
03669  M01S03049.dmrec   +++| ENTM     BSS    1           END TIME
03670  M01S03050.dmrec   +++| STPDT    BSS    1           START DATE/TIME - PACKED
03671  M01S03051.dmrec   +++| ENPDT    BSS    1           END DATE/TIME - PACKED
03672  M01S03052.dmrec   +++| TEMP10   BSS    1           TEMPORARY
03673  M01S03053.dmrec   +++| NTIME    VFD    60/6L235959
03674  M01S03054.dmrec   +++|
03675  M01S03055.dmrec   +++| BVTA     DATA   20H0     *****
03676  M01S03056.dmrec   +++|          DATA   C*NO ARF DUMP ENTRIES IN DIRECTORY.*
03677  M01S03057.dmrec   +++| BVTAL    EQU    *-BVTA
03678  M01S03058.dmrec   +++|
03679  M01S03059.dmrec   +++| BVTB     DATA   20H0     *****
03680  M01S03060.dmrec   +++|          DATA   C*NO DUMP RECORD WITH SPECIFIED VSN.*
03681  M01S03061.dmrec   +++| BVTBL    EQU    *-BVTB
03682  M01S03062.dmrec   +++|
03683  M01S03063.dmrec   +++| BVTC     DATA   20H0     *****
03684  M01S03064.dmrec   +++|          DATA   C*VSN TABLE OVERFLOW.*
03685  M01S03065.dmrec   +++| BVTCL    EQU    *-BVTC
03686  M01S03066.dmrec   +++|
03687  M01S03067.dmrec   +++| BVTD     VFD    36/6L000000,24/0
03688  M01S03068.dmrec   +++| BVTE     BSSZ   1           FIRST TIME THROUGH COUNTER
03689  M01S03069.dmrec   +++| CER      SPACE  4,15
03690  M01S03070.dmrec   +++|**        CER - CHECK ERROR STATUS.
03691  M01S03071.dmrec   +++|*
03692  M01S03072.dmrec   +++|*         *CER* EXAMINES THE ERROR STATUS IN A FET.
03693  M01S03073.dmrec   +++|*         IT CLEARS THE STATUS IN THE FET AND THEN RETURNS.
03694  M01S03074.dmrec   +++|*
03695  M01S03075.dmrec   +++|*         ENTRY  (X2) =  FWA OF FET.
03696  M01S03076.dmrec   +++|*
03697  M01S03077.dmrec   +++|*         EXIT   (X1) =  STATUS FROM FET.
03698  M01S03078.dmrec   +++|*
03699  M01S03079.dmrec   +++|*         USES   X - 1, 3, 7.
03700  M01S03080.dmrec   +++|*                A - 1, 7.
03701  M01S03081.dmrec   +++|
03702  M01S03082.dmrec   +++|
03703  M01S03083.dmrec   +++| CER      SUBR               ENTRY/EXIT
03704  M01S03084.dmrec   +++|          MX7    42
03705  M01S03085.dmrec   +++|          SA1    X2
03706  M01S03086.dmrec   +++|          MX3    -4
03707  M01S03087.dmrec   +++|          BX7    X7*X1
03708  M01S03088.dmrec   +++|          AX1    10-0
03709  M01S03089.dmrec   +++|          BX1    -X3*X1      ERROR STATUS BIT
03710  M01S03090.dmrec   +++|          SX3    B1
03711  M01S03091.dmrec   +++|          IX7    X7+X3
03712  M01S03092.dmrec   +++|          SA7    A1          CLEAR ERROR STATUS BIT
03713  M01S03093.dmrec   +++|          EQ     CERX        RETURN
03714  M01S03094.dmrec   +++| CFD      SPACE  4,15
03715  M01S03095.dmrec   +++|**        CFD - CHECK FOR DELETE.
03716  M01S03096.dmrec   +++|*
03717  M01S03097.dmrec   +++|*         ENTRY  (B6)   = 0, IF FILE DUMP ENTRY.
03718  M01S03098.dmrec   +++|*                         1, IF *AFTER IMAGE* DUMP ENTRY.
03719  M01S03099.dmrec   +++|*                (DELF) = 0, IF CYCLE DELETE.
03720  M01S03100.dmrec   +++|*                         1, IF DATE/TIME DELETE.
03721  M01S03101.dmrec   +++|*                (WSAB) = ENTRY TO BE CHECKED.
03722  M01S03102.dmrec   +++|*
03723  M01S03103.dmrec   +++|*         EXIT   (X1) = 1, IF ENTRY IS TO BE DELETED.
03724  M01S03104.dmrec   +++|*
03725  M01S03105.dmrec   +++|*         USES   X - 1, 2, 3, 5, 6, 7.
03726  M01S03106.dmrec   +++|*                A - 1, 2, 3, 5, 6, 7.
03727  M01S03107.dmrec   +++|*                B - NONE.
03728  M01S03108.dmrec   +++|*
03729  M01S03109.dmrec   +++|*         MACROS EDATE, ETIME.
03730  M01S03110.dmrec   +++|
03731  M01S03111.dmrec   +++|
03732  M01S03112.dmrec   +++| CFD      SUBR               ENTRY/EXIT
03733  M01S03113.dmrec   +++|          EQ     B6,B1,CFD2  IF AFTER IMAGE DUMP ENTRY
03734  M01S03114.dmrec   +++|          SA1    DELF        DELETE FLAG
03735  M01S03115.dmrec   +++|          NZ     X1,CFD2     IF DATE/TIME DELETE
03736  M01S03116.dmrec   +++|          SA1    CYCC        CYCLE COUNT
03737  M01S03117.dmrec   +++|          SX6    X1+B1       INCREMENT COUNT
03738  M01S03118.dmrec   +++|          SA6    A1          REPLACE COUNT
03739  M01S03119.dmrec   +++|          SA2    CYCT        NUMBER OF CYCLES
03740  M01S03120.dmrec   +++|          IX2    X2-X6
03741  M01S03121.dmrec   +++|          SX1    B1
03742  M01S03122.dmrec   +++|          ZR     X2,CFD1     IF ENTRY TO BE RETAINED
03743  M01S03123.dmrec   +++|          NG     X2,CFDX     IF ENTRY IS TO BE DELETED
03744  M01S03124.dmrec   +++| CFD1     SA1    WSAB+1      PACKED DATE/TIME
03745  M01S03125.dmrec   +++|          BX7    X1
03746  M01S03126.dmrec   +++|          SA7    LDATE       SAVE LAST CYCLE DATE/TIME
03747  M01S03127.dmrec   +++|          MX1    0
03748  M01S03128.dmrec   +++|          EQ     CFDX        RETURN
03749  M01S03129.dmrec   +++|
03750  M01S03130.dmrec   +++| CFD2     SA5    WSAB+1      PACKED DATE/TIME
03751  M01S03131.dmrec   +++|          ETIME  X5          UNPACK TIME
03752  M01S03132.dmrec   +++|          SA6    CFDA        SAVE TIME
03753  M01S03133.dmrec   +++|          AX5    18
03754  M01S03134.dmrec   +++|          EDATE  X5          UNPACK DATE
03755  M01S03135.dmrec   +++|          MX1    0
03756  M01S03136.dmrec   +++|          SA2    DATE        DATE PARAMETER
03757  M01S03137.dmrec   +++|          IX3    X2-X6
03758  M01S03138.dmrec   +++|          NG     X3,CFDX     IF ENTRY DOES NOT QUALIFY
03759  M01S03139.dmrec   +++|          NZ     X3,CFD3     IF DATES NOT EQUAL
03760  M01S03140.dmrec   +++|          SA2    TIME        TIME PARAMETER
03761  M01S03141.dmrec   +++|          SA3    CFDA        SAVED TIME
03762  M01S03142.dmrec   +++|          IX3    X2-X3
03763  M01S03143.dmrec   +++|          NG     X3,CFDX     IF ENTRY DOES NOT QUALIFY
03764  M01S03144.dmrec   +++| CFD3     SX1    B1
03765  M01S03145.dmrec   +++|          EQ     CFDX        RETURN
03766  M01S03146.dmrec   +++|
03767  M01S03147.dmrec   +++| CFDA     BSSZ   1           SAVE CELL FOR TIME
03768  M01S03148.dmrec   +++| CND      SPACE  4,20
03769  M01S03149.dmrec   +++|**        CND - CHECK NEXT DIRECTIVE.
03770  M01S03150.dmrec   +++|*
03771  M01S03151.dmrec   +++|*         *CND* CHECKS THE INPUT CHARACTER STRING BUFFER FOR
03772  M01S03152.dmrec   +++|*         THE SPECIFIED DIRECTIVE.
03773  M01S03153.dmrec   +++|*
03774  M01S03154.dmrec   +++|*         ENTRY  DIR  = FWA OF BUFFER.
03775  M01S03155.dmrec   +++|*                (X4) = 3RDA* (*ADD DIRECTIVE)
03776  M01S03156.dmrec   +++|*                       3RYC* (*CYCLE DIRECTIVE)
03777  M01S03157.dmrec   +++|*                       3RED* (*DELETE DIRECTIVE)
03778  M01S03158.dmrec   +++|*                       3RGI* (*IGNORE DIRECTIVE)
03779  M01S03159.dmrec   +++|*
03780  M01S03160.dmrec   +++|*         EXIT   (X1) = 0, IF DIRECTIVE FOUND.
03781  M01S03161.dmrec   +++|*
03782  M01S03162.dmrec   +++|*         USES   X - 0, 1, 3, 4, 5.
03783  M01S03163.dmrec   +++|*                A - 3.
03784  M01S03164.dmrec   +++|*                B - 2, 3.
03785  M01S03165.dmrec   +++|
03786  M01S03166.dmrec   +++|
03787  M01S03167.dmrec   +++| CND2     SX1    B0
03788  M01S03168.dmrec   +++| CND      SUBR               ENTRY/EXIT
03789  M01S03169.dmrec   +++|          SB2    3
03790  M01S03170.dmrec   +++|          MX0    54
03791  M01S03171.dmrec   +++|          SB3    B0-B1
03792  M01S03172.dmrec   +++|          LX4    6
03793  M01S03173.dmrec   +++| CND1     SB3    B3+B1
03794  M01S03174.dmrec   +++|          EQ     B2,B3,CND2  IF END OF SEARCH
03795  M01S03175.dmrec   +++|          SA3    DIR+B3      NEXT WORD OF BUFFER
03796  M01S03176.dmrec   +++|          AX4    6           SHIFT FOR NEXT CHARACTER
03797  M01S03177.dmrec   +++|          BX5    -X0*X4
03798  M01S03178.dmrec   +++|          BX5    X3-X5
03799  M01S03179.dmrec   +++|          ZR     X5,CND1     IF STILL OK
03800  M01S03180.dmrec   +++|          SX1    B1
03801  M01S03181.dmrec   +++|          EQ     CNDX        RETURN - NO DIRECTIVE FOUND
03802  M01S03182.dmrec   +++| CRT      SPACE  4,30
03803  M01S03183.dmrec   +++|**        CRT - CREATE LOG FILES.
03804  M01S03184.dmrec   +++|*
03805  M01S03185.dmrec   +++|*         THIS ROUTINE CREATES QUICK (BEFORE IMAGE) OR
03806  M01S03186.dmrec   +++|*         LONG (AFTER IMAGE) RECOVERY FILES WHICH ARE USED
03807  M01S03187.dmrec   +++|*         BY *TAF/CRM* RECOVERY.
03808  M01S03188.dmrec   +++|*
03809  M01S03189.dmrec   +++|*         *CRT* WILL TEST IF LOCAL FILE WITH THE SAME NAME EXISTS.
03810  M01S03190.dmrec   +++|*         IF YES, IT IS THE USERS RESPONSIBILITY TO SAVE THE FILE.
03811  M01S03191.dmrec   +++|*         IF NO, *CRT* WILL TRY TO ATTACH THE DIRECT ACCESS FILE
03812  M01S03192.dmrec   +++|*         WITH THE SAME NAME.  IF PFN EXISTS IT WILL BE OVERWRITTEN.
03813  M01S03193.dmrec   +++|*         OTHERWISE THE FILE WILL BE DEFINED.
03814  M01S03194.dmrec   +++|*
03815  M01S03195.dmrec   +++|*         *CRT* USES PREALLOCATION ROUTINES FROM COMMON DECK *COMKARF*
03816  M01S03196.dmrec   +++|*         USED IN *AAMI* INITIALIZATION.
03817  M01S03197.dmrec   +++|*
03818  M01S03198.dmrec   +++|*         ENTRY  (X6) = OPERATION FLAG.
03819  M01S03199.dmrec   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03820  M02S03200.ns2023  ---|*         EXIT   TO REC9  - IF *QRF* RECOVERY.

Seq #  *Modification Id* Act 
----------------------------+
03821  M02S03201.ns2023  ---|*                TO DMP10 - IF *LRF* DUMP.
03822  M01S00082.ns2023  +++|*         EXIT   TO REC9  - IF *BRF* RECOVERY.
03823  M01S00083.ns2023  +++|*                TO DMP10 - IF *ARF* DUMP.
03824  M01S03202.dmrec   +++|*                TO DMR3, OTHERWISE.
03825  M01S03203.dmrec   +++|*
03826  M01S03204.dmrec   +++|*         USES   X - ALL.
03827  M01S03205.dmrec   +++|*                A - 0, 1, 2, 3, 5, 6, 7.
03828  M01S03206.dmrec   +++|*                B - 1, 5, 6, 7.
03829  M01S03207.dmrec   +++|*
03830  M01S03208.dmrec   +++|*         CALLS  ARB, DXB, GFA, GXJ, SFN, SPR.
03831  M01S03209.dmrec   +++|*
03832  M01S03210.dmrec   +++|*         MACROS ERROR, RETURN.
03833  M01S03211.dmrec   +++|
03834  M01S03212.dmrec   +++|
03835  M01S03213.dmrec   +++| CRT      BSS    0           ENTRY
03836  M01S03214.dmrec   +++|          SB1    1
03837  M01S03215.dmrec   +++|          RJ     SPR         SET PARAMETERS
03838  M01S03216.dmrec   +++|          SB5    B5-2        SET FOR ONE LFN ONLY TEST
03839  M01S03217.dmrec   +++|          NZ     B5,CRT11    IF MORE THAN ONE LFN
03840  M01S03218.dmrec   +++|

Seq #  *Modification Id* Act 
----------------------------+
03841  M02S03219.ns2023  ---|*         ENTRY FROM DMP OR QRF RECOVERY.
03842  M01S00084.ns2023  +++|*         ENTRY FROM DMP OR *BRF* RECOVERY.
03843  M01S03220.dmrec   +++|
03844  M01S03221.dmrec   +++| CRT1     SX6    CRMARFN     USE DEFAULT LENGTH
03845  M01S03222.dmrec   +++|          SA5    LENGTH      LENGTH PARAMETER
03846  M01S03223.dmrec   +++|          ZR     X5,CRT2     IF LENGTH NOT SPECIFIED
03847  M01S03224.dmrec   +++|          SB7    B1
03848  M01S03225.dmrec   +++|          RJ     DXB         CONVERT PRU COUNT INTO BINARY
03849  M01S03226.dmrec   +++|          NZ     X4,CRT16    IF ERROR
03850  M01S03227.dmrec   +++|
03851  M01S03228.dmrec   +++|*         ENTRY POINT FROM *DMP*  (X6) = LENGTH IN PRU-S.
03852  M01S03229.dmrec   +++|
03853  M01S03230.dmrec   +++| CRT2     SA6    LENGTH      STORE BINARY VALUE
03854  M01S03231.dmrec   +++|          SA2    TDFN        LFN FROM PARAMETER TABLE
03855  M01S03232.dmrec   +++|          MX0    42
03856  M01S03233.dmrec   +++|          BX6    X0*X2       EXTRACT LFN
03857  M01S03234.dmrec   +++|          SA6    CRTI        SAVE FULL LFN
03858  M01S03235.dmrec   +++|          AX6    18          POSITION NN FIELD (ORDINAL)
03859  M01S03236.dmrec   +++|          MX0    -12
03860  M01S03237.dmrec   +++|          BX7    -X0*X6      EXTRACT NN FIELD (ORDINAL)
03861  M01S03238.dmrec   +++|          AX6    12
03862  M01S03239.dmrec   +++|          SA7    CRTJ        SAVE NN FIELD RIGHT JUSTIFIED (ORDINAL)
03863  M01S03240.dmrec   +++|          MX0    -6

Seq #  *Modification Id* Act 
----------------------------+
03864  M02S03241.ns2023  ---|          BX7    -X0*X6      EXTRACT *LRF* OR *QRF* FIELD
03865  M01S00085.ns2023  +++|          BX7    -X0*X6      EXTRACT *ARF* OR *BRF* FIELD
03866  M01S03242.dmrec   +++|          SA7    CRTK        SAVE FILE TYPE RIGHT JUSTIFIED
03867  M01S03243.dmrec   +++|          AX6    6           POSITION DB FIELD
03868  M01S03244.dmrec   +++|          MX0    -12
03869  M01S03245.dmrec   +++|          BX5    -X0*X6      EXTRACT DB FIELD
03870  M01S03246.dmrec   +++|          AX6    12
03871  M01S03247.dmrec   +++|          SX4    2RZZ
03872  M01S03248.dmrec   +++|          BX4    X4-X6
03873  M01S03249.dmrec   +++|          NZ     X4,CRT13    IF FILE NAME INCORRECT
03874  M01S03250.dmrec   +++|
03875  M01S03251.dmrec   +++|*         EXTRACT ALL REQUIRED PARAMETERS FROM *XXJ* FILE.
03876  M01S03252.dmrec   +++|
03877  M01S03253.dmrec   +++|          LX5    -12         POSITION DATA BASE IDENTIFIER
03878  M01S03254.dmrec   +++|          RJ     GXJ         PROCESS *XXJ* FILE
03879  M01S03255.dmrec   +++|          NZ     X1,CRT8     IF ERRORS
03880  M01S03256.dmrec   +++|          SA2    CRTK        FILE TYPE
03881  M01S03257.dmrec   +++|          SX3    1RB
03882  M01S03258.dmrec   +++|          BX3    X2-X3
03883  M01S03259.dmrec   +++|          ZR     X3,CRT4     IF *BRF*
03884  M01S03260.dmrec   +++|          SX3    1RA
03885  M01S03261.dmrec   +++|          BX3    X2-X3
03886  M01S03262.dmrec   +++|          NZ     X3,CRT13    IF NOT *ARF*
03887  M01S03263.dmrec   +++| CRT3     SA2    CRTJ        FILE ORDINAL (01 OR 02)
03888  M01S03264.dmrec   +++|          SX3    2R01
03889  M01S03265.dmrec   +++|          BX3    X2-X3
03890  M01S03266.dmrec   +++|          ZR     X3,CRT5     IF FILE ORDINAL 01
03891  M01S03267.dmrec   +++|          SX3    2R02
03892  M01S03268.dmrec   +++|          BX2    X2-X3
03893  M01S03269.dmrec   +++|          NZ     X2,CRT14    IF NOT FILE ORDINAL 02
03894  M01S03270.dmrec   +++|          EQ     CRT5        FILE ORDINAL 02
03895  M01S03271.dmrec   +++|
03896  M01S03272.dmrec   +++|

Seq #  *Modification Id* Act 
----------------------------+
03897  M02S03273.ns2023  ---|*         PRESET *TQRF* TABLE FET AND HEADER FIELDS
03898  M01S00086.ns2023  +++|*         PRESET *TBRF* TABLE FET AND HEADER FIELDS
03899  M01S03274.dmrec   +++|

Seq #  *Modification Id* Act 
----------------------------+
03900  M02S03275.ns2023  ---| CRT4     SB6    B0          *QRF* BUFFER
03901  M01S00087.ns2023  +++| CRT4     SB6    B0          *BRF* BUFFER
03902  M01S03276.dmrec   +++|          RJ     ARB         ALLOCATE BUFFER SPACE
03903  M01S03277.dmrec   +++|          NZ     X1,CRT15    IF NO SPACE FOR BUFFER
03904  M01S03278.dmrec   +++|          SA2    CRTI        FILE NAME
03905  M01S03279.dmrec   +++|          SX3    B1
03906  M01S03280.dmrec   +++|          BX7    X2+X3       SET COMPLETION BIT

Seq #  *Modification Id* Act 
----------------------------+
03907  M02S03281.ns2023  ---|          SA7    TQRF+TQFFW  STORE FET+0 IN *TQRF* TABLE
03908  M01S00088.ns2023  +++|          SA7    TQRF+TQFFW  STORE FET+0 IN *TBRF* TABLE
03909  M01S03282.dmrec   +++|          SX3    CRMUPM      NUMBER OF RECORDS PER SEGMENT
03910  M01S03283.dmrec   +++|          BX7    X2+X3

Seq #  *Modification Id* Act 
----------------------------+
03911  M02S03284.ns2023  ---|          SA7    TQRF+TQFNW  NAME AND REC/SEG IN FILE HEADER
03912  M01S00089.ns2023  +++|          SA7    TQRF+TQFNW  NAME AND REC/SEG IN FILE HEADER
03913  M01S03285.dmrec   +++|          SA1    XXBRF       NUMBER OF *BRF-S* FROM XXJ FILE
03914  M01S03286.dmrec   +++|          BX6    X1

Seq #  *Modification Id* Act 
----------------------------+
03915  M02S03287.ns2023  ---|          SB7    B1          DEFINE *QRF* PROCESS

Seq #  *Modification Id* Act 
----------------------------+
03916  M02S03288.ns2023  ---|          SA6    A7+B1       STORE NUMBER OF *QRF* FILES

Seq #  *Modification Id* Act 
----------------------------+
03917  M02S03289.ns2023  ---|          SA0    TQRF+TQFFW  SET FET ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
03918  M02S03290.ns2023  ---|          SA5    TQRF+TQFNW  SET FILE HEADER ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
03919  M02S03291.ns2023  ---|          EQ     CRT6        ALLOCATE *QRF* FILE
03920  M01S00090.ns2023  +++|          SB7    B1          DEFINE *BRF* PROCESS
03921  M01S00091.ns2023  +++|          SA6    A7+B1       STORE NUMBER OF *BRF* FILES
03922  M01S00092.ns2023  +++|          SA0    TQRF+TQFFW  SET FET ADDRESS
03923  M01S00093.ns2023  +++|          SA5    TQRF+TQFNW  SET FILE HEADER ADDRESS
03924  M01S00094.ns2023  +++|          EQ     CRT6        ALLOCATE *BRF* FILE
03925  M01S03292.dmrec   +++|

Seq #  *Modification Id* Act 
----------------------------+
03926  M02S03293.ns2023  ---|*         PRESET *TLRF* TABLE FET AND FILE HEADER
03927  M01S00095.ns2023  +++|*         PRESET *TARF* TABLE FET AND FILE HEADER
03928  M01S03294.dmrec   +++|

Seq #  *Modification Id* Act 
----------------------------+
03929  M02S03295.ns2023  ---| CRT5     SB6    B1          *LRF* BUFFER
03930  M01S00096.ns2023  +++| CRT5     SB6    B1          *ARF* BUFFER
03931  M01S03296.dmrec   +++|          RJ     ARB         ALLOCATE BUFFER
03932  M01S03297.dmrec   +++|          NZ     X1,CRT15    IF NO SPACE FOR BUFFER
03933  M01S03298.dmrec   +++|          SA2    CRTI        FILE NAME
03934  M01S03299.dmrec   +++|          SX3    B1
03935  M01S03300.dmrec   +++|          BX7    X2+X3       SET COMPLETION BIT

Seq #  *Modification Id* Act 
----------------------------+
03936  M02S03301.ns2023  ---|          SA7    TLRF+TAFFW  STORE FET+0 IN *TLRF* TABLE
03937  M01S00097.ns2023  +++|          SA7    TARF+TAFFW  STORE FET+0 IN *TARF* TABLE
03938  M01S03302.dmrec   +++|          BX7    X2

Seq #  *Modification Id* Act 
----------------------------+
03939  M02S03303.ns2023  ---|          SA7    TLRF+TAFNW  STORE NAME IN FILE HEADER
03940  M01S00098.ns2023  +++|          SA7    TARF+TAFNW  STORE NAME IN FILE HEADER
03941  M01S03304.dmrec   +++|          MX7    0

Seq #  *Modification Id* Act 
----------------------------+
03942  M02S03305.ns2023  ---|          SA7    TLRF+TADDW  DUMP DATE AND TIME

Seq #  *Modification Id* Act 
----------------------------+
03943  M02S03306.ns2023  ---|          SA0    TLRF+TAFFW  FWA OF FET

Seq #  *Modification Id* Act 
----------------------------+
03944  M02S03307.ns2023  ---|          SA5    TLRF+TAFNW  FWA OF FILE HEADER

Seq #  *Modification Id* Act 
----------------------------+
03945  M02S03308.ns2023  ---|          SB7    B0+         DEFINE *LRF* PROCESS
03946  M01S00099.ns2023  +++|          SA7    TARF+TADDW  DUMP DATE AND TIME
03947  M01S00100.ns2023  +++|          SA0    TARF+TAFFW  FWA OF FET
03948  M01S00101.ns2023  +++|          SA5    TARF+TAFNW  FWA OF FILE HEADER
03949  M01S00102.ns2023  +++|          SB7    B0+         DEFINE *ARF* PROCESS
03950  M01S03309.dmrec   +++|
03951  M01S03310.dmrec   +++|*         FIND IF FILE LOCAL OR PERMANENT, OTHERWISE DEFINE IT
03952  M01S03311.dmrec   +++|
03953  M01S03312.dmrec   +++| CRT6     RJ     GFA         GET FILE AND ALLOCATE IT
03954  M01S03313.dmrec   +++|          ZR     X6,CRT7     IF FILE ALLOCATED
03955  M01S03314.dmrec   +++|          SX6    X6-6        DEFINE ERROR
03956  M01S03315.dmrec   +++|          NZ     X6,CRT17    IF CIO ERROR
03957  M01S03316.dmrec   +++|          EQ     CRT16       CAN NOT DEFINE FILE
03958  M01S03317.dmrec   +++|
03959  M01S03318.dmrec   +++| CRT7     SA1    CRTI        FILE NAME
03960  M01S03319.dmrec   +++|          RJ     SFN         BLANK FILL FILE NAME
03961  M01S03320.dmrec   +++|          SA6    CRTH+2
03962  M01S03321.dmrec   +++|          RETURN RECF,R

Proceed to Part 3