User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:dmrec

Deck DMREC

25 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.dmrec   +++|          IDENT  DMREC     TAF/CRM BATCH RECOVERY
Line S00002 Modification History
M01 (Added by) dmrec
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00002  M02S00002.274l797 ---|          SST    FL
00003  M01S00001.274l797 +++|          SST    FL,TDFN
00004  M01S00003.dmrec   +++|          TITLE  TAF/CRM BATCH RECOVERY
00005  M01S00004.dmrec   +++|*COMMENT  TAF/CRM BATCH RECOVERY
Line S00005 Modification History
M01 (Added by) dmrec
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00005.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP. 1981.
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00006.dmrec   +++|          ENTRY  DMREC
Line S00007 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec20
Seq #  *Modification Id* Act 
----------------------------+
00009  M02S00007.dmrec20 ---|          LDSET  LIB=SRTLIB
00010  M01S00001.dmrec20 +++|          LDSET  LIB=SRT5LIB
00011  M01S00008.dmrec   +++|          SPACE  4,10
00012  M01S00009.dmrec   +++|***       DMREC - TAF/CRM BATCH RECOVERY.
00013  M01S00010.dmrec   +++|*
00014  M01S00011.dmrec   +++|*         T. L. JAKOB  -  80/09/30.
00015  M01S00012.dmrec   +++|          SPACE  4,10
00016  M01S00013.dmrec   +++|**        REDEFINE BOTH THE CRM *GET* AND *REPLACE* MACROS.
00017  M01S00014.dmrec   +++|
00018  M01S00015.dmrec   +++|*CALL     COMCMAC
00019  M01S00016.dmrec   +++| RMGET    OPSYN  GET
00020  M01S00017.dmrec   +++| RMREP    OPSYN  REPLACE
00021  M01S00018.dmrec   +++|          CTEXT  CPCOM.
00022  M01S00019.dmrec   +++|*CALL     CPCOM
00023  M01S00020.dmrec   +++|          ENDX
00024  M01S00021.dmrec   +++|
00025  M01S00022.dmrec   +++|          SYSCOM B1
00026  M01S00023.dmrec   +++|
00027  M01S00024.dmrec   +++|***       THIS UTILITY IS DESIGNED TO REGENERATE *CRM*
00028  M01S00025.dmrec   +++|*         DATA BASE FILES IN THE *TAF/CRM* ENVIRONMENT
00029  M01S00026.dmrec   +++|*         IF THEY HAVE BEEN FOUND INCONSISTENT OR DESTROYED.
00030  M01S00027.dmrec   +++|*
Line S00028 Modification History
M01 (Added by) dmrec
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00031  M02S00028.v23l617 ---|*         CONTROL CARD FORMAT -
00032  M01S00001.v23l617 +++|*         COMMAND FORMAT -
00033  M01S00029.dmrec   +++|*
00034  M01S00030.dmrec   +++|*         DMREC(I=IFN,L=LFN,TT=ID)
00035  M01S00031.dmrec   +++|*         OR
00036  M01S00032.dmrec   +++|*         DMREC(L=LFN,TT=ID,Z)/*.........
00037  M01S00033.dmrec   +++|*
00038  M01S00034.dmrec   +++|*         WHERE:
00039  M01S00035.dmrec   +++|*
00040  M01S00036.dmrec   +++|*                IFN = INPUT FILE NAME ( DEFULT - INPUT )
00041  M01S00037.dmrec   +++|*                LFN = OUTPUT FILE NAME ( DEFULT - OUTPUT )
Line S00038 Modification History
M01 (Added by) dmrec
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00042  M02S00038.v23l617 ---|*                Z   = CONTROL CARD CONTAINS DIRECTIVES
00043  M01S00002.v23l617 +++|*                Z   = COMMAND CONTAINS DIRECTIVES
00044  M01S00039.dmrec   +++|*                      (*/* AND *=* CAN NOT BE SEPARATOR
00045  M01S00040.dmrec   +++|*                      CHARACTERS FOR DIRECTIVES).
00046  M01S00041.dmrec   +++|*                ID  = IDENTIFIER ( 2 CHARACTERS ).
00047  M01S00042.dmrec   +++|*
00048  M01S00043.dmrec   +++|*         COMMENTS IN THE INPUT STREAM HAVE ONE OF THE FOLLOWING
00049  M01S00044.dmrec   +++|*         FORMATS:
00050  M01S00045.dmrec   +++|*
00051  M01S00046.dmrec   +++|*                *.<COMMENT>
00052  M01S00047.dmrec   +++|*                */<COMMENT>
00053  M01S00048.dmrec   +++|*                *COMMENT <COMMENT>
00054  M01S00049.dmrec   +++|*
00055  M01S00050.dmrec   +++|*         INPUT DIRECTIVES ARE IN FREE FORMAT (THEY CAN START IN ANY
00056  M01S00051.dmrec   +++|*         COLUMN).  EACH DIRECTIVE STARTS ON A NEW CARD.
00057  M01S00052.dmrec   +++|*         DIRECTIVE FIELDS CAN NOT BE SPLIT BETWEEN TWO CARDS.
00058  M01S00053.dmrec   +++|*
Line S00054 Modification History
M01 (Added by) dmrec
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00059  M02S00054.v23l617 ---|*         THE *XXJ* FILE MUST BE CREATED UNDER *TAF-S* USER NUMBER.
00060  M01S00003.v23l617 +++|*         THE *XXJ* FILE MUST BE CREATED UNDER *TAF-S* USER NAME.
00061  M01S00055.dmrec   +++|*         THE DIRECTORY FILE *ZZDBDIR* IS A PRIVATE DIRECT ACCESS
Line S00056 Modification History
M01 (Added by) dmrec
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00062  M02S00056.v23l617 ---|*         FILE CREATED UNDER THE USERS USER NUMBER.
00063  M01S00004.v23l617 +++|*         FILE CREATED UNDER THE USERS USER NAME.
00064  M01S00057.dmrec   +++|*
00065  M01S00058.dmrec   +++|*
00066  M01S00059.dmrec   +++|*         DIRECTIVE FORMATS.
00067  M01S00060.dmrec   +++|*
00068  M01S00061.dmrec   +++|*         *DUMP,DBPFN1/FORMAT,DBPFN2,DBPFNN,VSN=VSN1/VSN2/VSNN.
00069  M01S00062.dmrec   +++|*            OR
00070  M01S00063.dmrec   +++|*         *DUMP,ZZDBANN,VSN=VSNN.
00071  M01S00064.dmrec   +++|*
00072  M01S00065.dmrec   +++|*         WHERE:
00073  M01S00066.dmrec   +++|*                DBPFNI  = DATA BASE PFN TO DUMP.
00074  M01S00067.dmrec   +++|*                ZZDBANN = AFTER IMAGE RECOVERY FILE.
00075  M01S00068.dmrec   +++|*                FORMAT  = *BLOCK* OR *RECORD*.
00076  M01S00069.dmrec   +++|*                        = DEFAULT (NOT SPECIFIED) - BLOCK MODE USED IF
00077  M01S00070.dmrec   +++|*                          PFN ATTACHABLE IN WRITE MODE OTHERWISE,
00078  M01S00071.dmrec   +++|*                          RECORD MODE IS ASSUMED.  *ARF* IS ALWAYS
00079  M01S00072.dmrec   +++|*                          DUMPED IN BLOCK FORMAT.
00080  M01S00073.dmrec   +++|*                VSN1    = VSN-S OF DUMP TAPES - MUST BE BLANK
00081  M01S00074.dmrec   +++|*                          LABELED.
00082  M01S00075.dmrec   +++|*                          IF MORE TAPES ARE REQUIRED THAN ARE
00083  M01S00076.dmrec   +++|*                          SPECIFIED OR, NO VSN IS SPECIFIED, ANOTHER
00084  M01S00077.dmrec   +++|*                          BLANK LABELED TAPE IS REQUESTED.  *ARF-S*
00085  M01S00078.dmrec   +++|*                          CAN NOT SPAN MULTIPLE TAPE REELS.  (*TVSNL*
00086  M01S00079.dmrec   +++|*                          DEFINES THE MAXIMUM NUMBER OF CONTINUATION
00087  M01S00080.dmrec   +++|*                          TAPES.)
00088  M01S00081.dmrec   +++|*
00089  M01S00082.dmrec   +++|*
00090  M01S00083.dmrec   +++|*         *LOAD,DBPFN/FORMAT,DATE=YYMMDD,TIME=HHMMSS.
00091  M01S00084.dmrec   +++|*            OR
00092  M01S00085.dmrec   +++|*         *LOAD,DBPFN/FORMAT,VSN=VSN.
00093  M01S00086.dmrec   +++|*
00094  M01S00087.dmrec   +++|*         WHERE:
00095  M01S00088.dmrec   +++|*                DBPFN   = DATA BASE PFN.
00096  M01S00089.dmrec   +++|*                FORMAT  = *BLOCK* OR *RECORD*.
00097  M01S00090.dmrec   +++|*                        = DEFAULT - EITHER (DETERMINED BY
00098  M01S00091.dmrec   +++|*                          DIRECTORY ENTRY).
00099  M01S00092.dmrec   +++|*                DATE    = THE LATEST DUMP BEFORE THIS DATE IS USED.
00100  M01S00093.dmrec   +++|*                        = DEFAULT - TODAY.
00101  M01S00094.dmrec   +++|*                TIME    = THE LATEST DUMP BEFORE THIS TIME IS USED.
00102  M01S00095.dmrec   +++|*                        = DEFAULT - 00.00.00.
00103  M01S00096.dmrec   +++|*                VSN     = VSN OF TAPE TO LOAD FROM - DATE AND TIME
00104  M01S00097.dmrec   +++|*                          MUST NOT BE SPECIFIED.  SINCE ONLY ONE
00105  M01S00098.dmrec   +++|*                          FILE CAN BE DUMPED ON A TAPE SET, FORMAT
00106  M01S00099.dmrec   +++|*                          IS IGNORED.
00107  M01S00100.dmrec   +++|*
00108  M01S00101.dmrec   +++|*
00109  M01S00102.dmrec   +++|*         *UPDATE,DBPFN,DATE=DATE1/DATE2,TIME=TIME1/TIME2,VSN=VSN1.
00110  M01S00103.dmrec   +++|*
00111  M01S00104.dmrec   +++|*         WHERE:
00112  M01S00105.dmrec   +++|*                DBPFN   = DATA BASE PFN TO UPDATE.
00113  M01S00106.dmrec   +++|*                DATE1   = START DATE FOR *AFTER IMAGE* APPLICATION.
00114  M01S00107.dmrec   +++|*                        = DEFAULT - DATE OF DUMP RECORD ON BACK-UP
00115  M01S00108.dmrec   +++|*                          DIRECTORY SPECIFIED BY VSN OR LATEST
00116  M01S00109.dmrec   +++|*                          DUMP.
00117  M01S00110.dmrec   +++|*                DATE2   = END DATE FOR *AFTER IMAGE* APPLICATION.
00118  M01S00111.dmrec   +++|*                        = DEFAULT - TODAY.
00119  M01S00112.dmrec   +++|*                TIME1   = START TIME FOR *AFTER IMAGE* APPLICATION.
00120  M01S00113.dmrec   +++|*                        = DEFAULT - TIME OF DUMP RECORD ON BACK-UP
00121  M01S00114.dmrec   +++|*                          DIRECTORY SPECIFIED BY VSN OR LATEST
00122  M01S00115.dmrec   +++|*                          DUMP.
00123  M01S00116.dmrec   +++|*                TIME2   = END TIME FOR *AFTER IMAGE* APPLICATION.
00124  M01S00117.dmrec   +++|*                        = DEFAULT - 00.00.00.
00125  M01S00118.dmrec   +++|*                VSN1    = VSN OF DATA BASE FILE DUMP TAPE.
00126  M01S00119.dmrec   +++|*
00127  M01S00120.dmrec   +++|*
00128  M01S00121.dmrec   +++|*         *IGNORE,TS=SQ1/SQ2/...SQN.
00129  M01S00122.dmrec   +++|*            OR
00130  M01S00123.dmrec   +++|*         *IGNORE,TN=NM1/NM2/...NMN.
00131  M01S00124.dmrec   +++|*
00132  M01S00125.dmrec   +++|*         WHERE:
00133  M01S00126.dmrec   +++|*                SQI = TASK SEQUENCE NUMBER.
00134  M01S00127.dmrec   +++|*                NMI = TASK NAME.
00135  M01S00128.dmrec   +++|*
00136  M01S00129.dmrec   +++|*         NOTE: THIS DIRECTIVE MAY ONLY FOLLOW THE (UPDATE) OR
00137  M01S00130.dmrec   +++|*               (RECOVER) DIRECTIVE.
00138  M01S00131.dmrec   +++|*
00139  M01S00132.dmrec   +++|*
00140  M01S00133.dmrec   +++|*         *EXPAND,DB,PERCENT=NN.
00141  M01S00134.dmrec   +++|*            OR
00142  M01S00135.dmrec   +++|*         *EXPAND,DBPFN,PERCENT=NN.
00143  M01S00136.dmrec   +++|*
00144  M01S00137.dmrec   +++|*         WHERE:
00145  M01S00138.dmrec   +++|*                DBPFN = DATA BASE PFN.
00146  M01S00139.dmrec   +++|*                DB    = ALL DATA BASE FILES.
00147  M01S00140.dmrec   +++|*                NN    = PERCENT (DECIMAL).
00148  M01S00141.dmrec   +++|*                      = DEFAULT - PERCENTAGE RECORDED IN BACK-UP
00149  M01S00142.dmrec   +++|*                        DIRECTORY.
00150  M01S00143.dmrec   +++|*
00151  M01S00144.dmrec   +++|*
00152  M01S00145.dmrec   +++|*         *EDIT,DB.
00153  M01S00146.dmrec   +++|*            OR
00154  M01S00147.dmrec   +++|*         *EDIT,DBPFN1,DBPFNN.
00155  M01S00148.dmrec   +++|*
00156  M01S00149.dmrec   +++|*         WHERE:
00157  M01S00150.dmrec   +++|*                DB    = DATA BASE NAME FOR DIRECTORY EDITING.
00158  M01S00151.dmrec   +++|*                DBPFN = DATA BASE FILE FOR DIRECTORY EDITING.
00159  M01S00152.dmrec   +++|*
00160  M01S00153.dmrec   +++|*
00161  M01S00154.dmrec   +++|*         *CYCLE,CYCL=N.
00162  M01S00155.dmrec   +++|*
00163  M01S00156.dmrec   +++|*         WHERE:
00164  M01S00157.dmrec   +++|*                N = ( 0 - 9 ) NUMBER OF DUMP TAPES TO RETAIN.
00165  M01S00158.dmrec   +++|*
00166  M01S00159.dmrec   +++|*         NOTE: THIS DIRECTIVE CAN ONLY BE USED AS PART OF AN
00167  M01S00160.dmrec   +++|*               (*EDIT) SEQUENCE.
00168  M01S00161.dmrec   +++|*
00169  M01S00162.dmrec   +++|*
00170  M01S00163.dmrec   +++|*         *ADD,VSN=VSNN.
00171  M01S00164.dmrec   +++|*
00172  M01S00165.dmrec   +++|*         WHERE:
00173  M01S00166.dmrec   +++|*                VSNN = VSN OF TAPE WHOSE ENTRY WILL BE ADDED
00174  M01S00167.dmrec   +++|*                       TO THE DIRECTORY.
00175  M01S00168.dmrec   +++|*
00176  M01S00169.dmrec   +++|*         NOTE: THIS DIRECTIVE CAN ONLY BE USED AS PART OF AN
00177  M01S00170.dmrec   +++|*               (*EDIT) SEQUENCE.
00178  M01S00171.dmrec   +++|*
00179  M01S00172.dmrec   +++|*
00180  M01S00173.dmrec   +++|*         *DELETE,DATE=YYMMDD,TIME=HHMMSS.
00181  M01S00174.dmrec   +++|*            OR
00182  M01S00175.dmrec   +++|*         *DELETE,VSN=VSNN.
00183  M01S00176.dmrec   +++|*
00184  M01S00177.dmrec   +++|*         WHERE:
00185  M01S00178.dmrec   +++|*                YYMMDD = DATE OF DIRECTORY DUMP RECORD TO DELETE.
00186  M01S00179.dmrec   +++|*                HHMMSS = TIME OF DIRECTORY DUMP RECORD TO DELETE.
00187  M01S00180.dmrec   +++|*                VSNN   = VSN OF TAPE WHOSE ENTRY WILL BE DELETED
00188  M01S00181.dmrec   +++|*                         FROM THE DIRECTORY.
00189  M01S00182.dmrec   +++|*
00190  M01S00183.dmrec   +++|*         NOTE: THIS DIRECTIVE CAN ONLY BE USED AS PART OF AN
00191  M01S00184.dmrec   +++|*               (*EDIT) SEQUENCE.
00192  M01S00185.dmrec   +++|*
00193  M01S00186.dmrec   +++|*
00194  M01S00187.dmrec   +++|*         *RECOVER,DBPFN/FORMAT,TIME=HHMMSS,DATE=YYMMDD,VSN=YYYYYY.
00195  M01S00188.dmrec   +++|*
00196  M01S00189.dmrec   +++|*         WHERE:
00197  M01S00190.dmrec   +++|*                DBPFN  = DATA BASE PFN TO RECOVER.
00198  M01S00191.dmrec   +++|*                FORMAT = *BLOCK* OR *RECORD*, IF NEITHER IS SPECIFIED,
00199  M01S00192.dmrec   +++|*                         THE FORMAT PARAMETER IS IGNORED IN THE
00200  M01S00193.dmrec   +++|*                         SELECTION OF A FILE TO RECOVER.
00201  M01S00194.dmrec   +++|*                YYMMDD = DATA AT WHICH THE RECOVERY PROCESS WILL END.
00202  M01S00195.dmrec   +++|*                HHMMSS = TIME AT WHICH THE RECOVERY PROCESS WILL END.
00203  M01S00196.dmrec   +++|*                YYYYYY = VSN OF DUMP TAPE TO USE FOR THE LOADING
00204  M01S00197.dmrec   +++|*                         AND RECOVERY OF THE *DB* FILE.
00205  M01S00198.dmrec   +++|*
00206  M01S00199.dmrec   +++|*
00207  M01S00200.dmrec   +++|*         *CREATE,ZZDBANN,LENGTH=NNNN.
00208  M01S00201.dmrec   +++|*            OR
00209  M01S00202.dmrec   +++|*         *CREATE,ZZDBBNN.
00210  M01S00203.dmrec   +++|*
00211  M01S00204.dmrec   +++|*         WHERE:
00212  M01S00205.dmrec   +++|*                ZZDBANN = AFTER IMAGE RECOVERY FILE.
00213  M01S00206.dmrec   +++|*                ZZDBBNN = BEFORE IMAGE RECOVERY FILE.
00214  M01S00207.dmrec   +++|*                NNNN    = PRU LENGTH FOR *ARF* ONLY.
00215  M01S00208.dmrec   +++|*
00216  M01S00209.dmrec   +++|*         RESTRICTIONS ON *NN* VALUE:
00217  M01S00210.dmrec   +++|*                FOR *AFTER IMAGE* LOG FILE *NN* CAN BE 01 OR 02 ONLY.
00218  M01S00211.dmrec   +++|*                FOR *BEFORE IMAGE* LOG FILE *NN* MUST BE WITHIN THE
00219  M01S00212.dmrec   +++|*                RANGE SPECIFIED ON *BRF* DIRECTIVE IN *XXJ* FILE.
00220  M01S00213.dmrec   +++|*
00221  M01S00214.dmrec   +++|*
00222  M01S00215.dmrec   +++|*         *LIST,DB,TIME=HHMMSS,DATE=YYMMDD.
00223  M01S00216.dmrec   +++|*            OR
00224  M01S00217.dmrec   +++|*         *LIST,DBPFN1,DBPFNN,TIME=HHMMSS,DATE=YYMMDD.
00225  M01S00218.dmrec   +++|*            OR
00226  M01S00219.dmrec   +++|*         *LIST,DB,VSN=VSNN,TIME=HHMMSS.
00227  M01S00220.dmrec   +++|*
00228  M01S00221.dmrec   +++|*         WHERE:
00229  M01S00222.dmrec   +++|*                DB     = DATA BASE NAME.
00230  M01S00223.dmrec   +++|*                YYMMDD = DATE FOR DELINEATING LIST.
00231  M01S00224.dmrec   +++|*                HHMMSS = TIME FOR DELINEATING LIST.
00232  M01S00225.dmrec   +++|*                VSNN   = VSN OF *ARF* DUMP TAPE FOR LISTING.
00233  M01S00226.dmrec   +++|*
00234  M01S00227.dmrec   +++| MESSAGES SPACE  4,10
00235  M01S00228.dmrec   +++|*
00236  M01S00229.dmrec   +++|***       DAYFILE MESSAGES.
00237  M01S00230.dmrec   +++|*
00238  M01S00231.dmrec   +++|*         TAG    MESSAGES.
00239  M01S00232.dmrec   +++|*
00240  M01S00233.dmrec   +++|*         ACF11  *DIRECTORY UNUSABLE*.
00241  M01S00234.dmrec   +++|*         ARB2   *NO SPACE FOR LOG FILE BUFFER*.
00242  M01S00235.dmrec   +++|*         DMRB   *DMREC COMPLETE*.
Line S00236 Modification History
M01 (Added by) dmrec
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00243  M02S00236.v23l617 ---|*         DMRC   *NO DIRECTIVES*.
00244  M01S00005.v23l617 +++|*         DMRC   *NO DMREC DIRECTIVES*.
00245  M01S00237.dmrec   +++|*         DMRD   *ERROR(S) ENCOUNTERED IN DMREC PROCESSING*.
00246  M01S00238.dmrec   +++|*         DMRE   *DMREC FAILED - XXXXXXX ZZ*.
Line S00239 Modification History
M01 (Added by) dmrec
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00247  M02S00239.v23l617 ---|*         GXJR   *ILLEGAL USER ACCESS*.
00248  M01S00006.v23l617 +++|*         GXJR   *USER ACCESS NOT VALID*.
00249  M01S00240.dmrec   +++|*         NOPB   *NOTE FAILURE, THEN TYPE IN CFO,JSN.GO*.
Line S00241 Modification History
M01 (Added by) dmrec
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00250  M02S00241.v23l617 ---|*         PRSA   *CONTROL CARD ARGUMENT ERRORS*.
00251  M01S00007.v23l617 +++|*         PRSA   *COMMAND ARGUMENT ERRORS*.
00252  M01S00242.dmrec   +++|*         RTEB   *PARITY ERROR IN TAPE WITH VSN = XXXXXX*.
00253  M01S00243.dmrec   +++|*         RTEC   *DUMP WILL START OVER*.
00254  M01S00244.dmrec   +++|*         RTED   *TAPE VSN = XXXXXX IS BAD, PLEASE REPLACE*.
00255  M01S00245.dmrec   +++|*         RTFB   *VSN - XXXXXX ALREADY IN DIRECTORY*.
00256  M01S00246.dmrec   +++|          TITLE  MACRO DEFINITIONS.
00257  M01S00247.dmrec   +++| ERROR    SPACE  4,20
00258  M01S00248.dmrec   +++|
00259  M01S00001.dok203  +++|          SPACE  4,10
00260  M01S00002.dok203  +++|**        FILE BACKUP DIRECTORY - ZZDBDIR.
00261  M01S00003.dok203  +++|*
00262  M01S00004.dok203  +++|*         THE FILE BACKUP DIRECTORY IS AN INDEXED SEQUENTIAL FILE,
00263  M01S00005.dok203  +++|*         RESIDING UNDER THE USER INDEX OF A PARTICULAR *XXJ* FILE.
00264  M01S00006.dok203  +++|*         THE FILE BACKUP DIRECTORY CONTAINS INFORMATION ABOUT
00265  M01S00007.dok203  +++|*         THE DATA BASE, INDEX AND AFTER IMAGE LOG FILES WITHIN ONE
00266  M01S00008.dok203  +++|*         DATA BASE.  THIS IMPLIES THAT THERE IS ONE FILE BACKUP
00267  M01S00009.dok203  +++|*         DIRECTORY PER TAF/CRM DATA BASE WITHIN THE SYSTEM.  THE
00268  M01S00010.dok203  +++|*         FILE BACKUP DIRECTORY IS ALLOCATED (DIRECT ACCESS FILE) AND
00269  M01S00011.dok203  +++|*         MAINTAINED BY *DMREC*.  THE FILE BACKUP DIRECTORY WILL BE
00270  M01S00012.dok203  +++|*         CREATED BY DMREC WHEN *DMREC* IS CALLED THE FIRST TIME.  AN
00271  M01S00013.dok203  +++|*         INFORMATIVE MESSAGE INDICATING THE CREATION OF THE FILE
00272  M01S00014.dok203  +++|*         BACKUP WILL BE ISSUED.
00273  M01S00015.dok203  +++|*
00274  M01S00016.dok203  +++|*         PERMANENT FILE NAME = ZZDBDIR.
00275  M01S00017.dok203  +++|*
00276  M01S00018.dok203  +++|*         WHERE    DB = DATA BASE NAME.
00277  M01S00019.dok203  +++|*
00278  M01S00020.dok203  +++|*         THE LOGICAL STRUCTURE OF THE FILE BACKUP DIRECTORY IS AS
00279  M01S00021.dok203  +++|*         FOLLOWS
00280  M01S00022.dok203  +++|*
00281  M01S00023.dok203  +++|*         KEY (FOR IS)                 RECORD CONTENTS
00282  M01S00024.dok203  +++|*         ------------                 ---------------
00283  M01S00025.dok203  +++|*
00284  M01S00026.dok203  +++|*
00285  M01S00027.dok203  +++|*         (CHARACTER POSITION 1-20)    (CHARACTER POSITION 21-60)
00286  M01S00028.dok203  +++|*
00287  M01S00029.dok203  +++|*         DB,0                         DIRECTORY HEADER
00288  M01S00030.dok203  +++|*
00289  M01S00031.dok203  +++|*         DBPFNAAA,0                   DATA BASE FILE HEADER
00290  M01S00032.dok203  +++|*
00291  M01S00033.dok203  +++|*         DBPFNBBB,0<PACKED DATE AND   DATA BASE FILE DUMP ENTRY
00292  M01S00034.dok203  +++|*         TIME>
00293  M01S00035.dok203  +++|*
00294  M01S00036.dok203  +++|*         DBPFN,N,<PACKED DATE AND     AFTER IMAGE LOG DUMP ENTRY
00295  M01S00037.dok203  +++|*         TIME>
00296  M01S00038.dok203  +++|*
00297  M01S00039.dok203  +++|*         ****VSN,*                    TAPE-VSN ENTRY
00298  M01S00040.dok203  +++|*
00299  M01S00041.dok203  +++|*
00300  M01S00042.dok203  +++|*
00301  M01S00043.dok203  +++|*         A) DATA BASE DIRECTORY HEADER.
00302  M01S00044.dok203  +++|*
00303  M01S00045.dok203  +++|*         CHARACTER
00304  M01S00046.dok203  +++|*         POSITION  FIELD  DESCRIPTION
00305  M01S00047.dok203  +++|*         --------  -----  -----------
00306  M01S00048.dok203  +++|*
00307  M01S00049.dok203  +++|*         1-2        DB    DATA BASE ID.
00308  M01S00050.dok203  +++|*
00309  M01S00051.dok203  +++|*         3-20       0
00310  M01S00052.dok203  +++|*
00311  M01S00053.dok203  +++|*         21-30            PACKED DATE AND TIME WHEN THE FILE BACKUP
00312  M01S00054.dok203  +++|*                          RECOVERY WAS CREATED.
00313  M01S00055.dok203  +++|*
00314  M01S00056.dok203  +++|*         31-36      0
00315  M01S00057.dok203  +++|*
00316  M01S00058.dok203  +++|*         37-40            COUNT OF NUMBER OF BRF-S DOWN FOR THIS
00317  M01S00059.dok203  +++|*                          DATA BASE.
00318  M01S00060.dok203  +++|*
00319  M01S00061.dok203  +++|*         41-46            VSN OF FIRST *ARF* DUMP OF CURRENT SESSION.
00320  M01S00062.dok203  +++|*
00321  M01S00063.dok203  +++|*         47-50            PRE-ALLOCATION PERCENTAGE.
00322  M01S00064.dok203  +++|*
00323  M01S00065.dok203  +++|*         51-60            NUMBER OF BACKUP DUMPS TO RETAIN.
00324  M01S00066.dok203  +++|*
00325  M01S00067.dok203  +++|*
00326  M01S00068.dok203  +++|*
00327  M01S00069.dok203  +++|*         B) DATA BASE FILE HEADER.
00328  M01S00070.dok203  +++|*
00329  M01S00071.dok203  +++|*         CHARACTER
00330  M01S00072.dok203  +++|*         POSITION  FIELD  DESCRIPTION
00331  M01S00073.dok203  +++|*         --------- -----  -----------
00332  M01S00074.dok203  +++|*
00333  M01S00075.dok203  +++|*         1-7       DBPFN  DATA BASE FILE NAME.
00334  M01S00076.dok203  +++|*
00335  M01S00077.dok203  +++|*         8-10      *AAA*  DATA BASE FILE HEADER ID.
00336  M01S00078.dok203  +++|*
00337  M01S00079.dok203  +++|*         11-20     0
00338  M01S00080.dok203  +++|*
00339  M01S00081.dok203  +++|*         41-50            PRE-ALLOCATION PERCENTAGE (0 IS A LEGAL
00340  M01S00082.dok203  +++|*                          PERCENTAGE).
00341  M01S00083.dok203  +++|*
00342  M01S00084.dok203  +++|*         51-60            NUMBER OF BACKUP FILE DUMP COPIES TO RETAIN
00343  M01S00085.dok203  +++|*                          (OR "0" IF NOT SPECIFIED).
00344  M01S00086.dok203  +++|*
00345  M01S00087.dok203  +++|*
00346  M01S00088.dok203  +++|*         C) DATA BASE FILE DUMP RECORD.
00347  M01S00089.dok203  +++|*
00348  M01S00090.dok203  +++|*         CHARACTER
00349  M01S00091.dok203  +++|*         POSITION  FIELD  DESCRIPTION
00350  M01S00092.dok203  +++|*         --------- -----  -----------
00351  M01S00093.dok203  +++|*
00352  M01S00094.dok203  +++|*         1-7       DBPFN  DATA BASE FILE NAME.
00353  M01S00095.dok203  +++|*
00354  M01S00096.dok203  +++|*         8-10      *BBB*  DATA BASE FILE DUMP RECORD ID.
00355  M01S00097.dok203  +++|*
00356  M01S00098.dok203  +++|*         11-20            PACKED DATE AND TIME**.
00357  M01S00099.dok203  +++|*
00358  M01S00100.dok203  +++|*         21-26     VSN    VSN OF DUMP TAPE (FIRST REEL OF TAPE).
00359  M01S00101.dok203  +++|*
00360  M01S00102.dok203  +++|*         27-30     "6" OR "0"  "6" IF RECORD DUMP, "0" IF BLOCK DUMP.
00361  M01S00103.dok203  +++|*
00362  M01S00104.dok203  +++|*         31-37            INDEX FILE NAME (IF APPLICABLE).
00363  M01S00105.dok203  +++|*
00364  M01S00106.dok203  +++|*         41-50            FILE ORDINAL FOR DATA FILE DUMP ON TAPE.
00365  M01S00107.dok203  +++|*
00366  M01S00108.dok203  +++|*         51-60            FILE ORDINAL FOR INDEX FILE DUMP ON TAPE.
00367  M01S00109.dok203  +++|*
00368  M01S00110.dok203  +++|*
00369  M01S00111.dok203  +++|*         D) AFTER IMAGE LOG DUMP ENTRY.
00370  M01S00112.dok203  +++|*
00371  M01S00113.dok203  +++|*         CHARACTER
00372  M01S00114.dok203  +++|*         POSITION  FIELD  DESCRIPTION
00373  M01S00115.dok203  +++|*         --------  -----  -----------
00374  M01S00116.dok203  +++|*
00375  M01S00117.dok203  +++|*         1-7       DBPFN  DATA BASE FILE NAME.
00376  M01S00118.dok203  +++|*
00377  M01S00119.dok203  +++|*         8-10      N      AFTER IMAGE LOG COPY NUMBER.
00378  M01S00120.dok203  +++|*
00379  M01S00121.dok203  +++|*         11-20            PACKED DATA AND TIME OF FIRST TRANSACTION
00380  M01S00122.dok203  +++|*                          ON TAPE.
00381  M01S00123.dok203  +++|*
00382  M01S00124.dok203  +++|*         21-26            VSN OF DUMP TAPE.
00383  M01S00125.dok203  +++|*
00384  M01S00126.dok203  +++|*         41-50            NUMBER OF AFTER IMAGE RECORDS FOR THIS
00385  M01S00127.dok203  +++|*                          PARTICULAR DATA BASE FILE ON TAPE.
00386  M01S00128.dok203  +++|*
00387  M01S00129.dok203  +++|*         51-60            PACKED DATE/TIME OF LAST TRANSACTION.
00388  M01S00130.dok203  +++|*
00389  M01S00131.dok203  +++|*
00390  M01S00132.dok203  +++|*
00391  M01S00133.dok203  +++|*
00392  M01S00134.dok203  +++|*
00393  M01S00135.dok203  +++|*       **THE DATE AND TIME ENTRY CONTAINS THE END TIME OF THE DUMP IN
00394  M01S00136.dok203  +++|*         CASE OF A BLOCK DUMP AND THE BEGIN TIME OF THE DUMP IN CASE
00395  M01S00137.dok203  +++|*         OF A RECORD DUMP.
00396  M01S00138.dok203  +++|*
00397  M01S00139.dok203  +++|*
00398  M01S00140.dok203  +++|*         E) VSN - ENTRY.
00399  M01S00141.dok203  +++|*
00400  M01S00142.dok203  +++|*         CHARACTER
00401  M01S00143.dok203  +++|*         POSITION  FIELD  DESCRIPTION
00402  M01S00144.dok203  +++|*         --------- -----  -----------
00403  M01S00145.dok203  +++|*
00404  M01S00146.dok203  +++|*         1-4       ****
00405  M01S00147.dok203  +++|*
00406  M01S00148.dok203  +++|*         5-10      VSN    VSN OF THE TAPE.
00407  M01S00149.dok203  +++|*
00408  M01S00150.dok203  +++|*         11-20     "*"    10 CHARACTERS OF "*".
00409  M01S00151.dok203  +++|*
00410  M01S00152.dok203  +++|*         21-26     VSN-N  VSN OF NEXT TAPE IN DUMP SET.  IF 0, CURRENT
00411  M01S00153.dok203  +++|*                          ENTRY IS THE LAST ONE IN THE TAPE SET.
00412  M01S00154.dok203  +++|*
00413  M01S00155.dok203  +++|*         31-40     N      FILE DUMP-NUMBER OF FILES ON THE TAPE
00414  M01S00156.dok203  +++|*                          (REEL).
00415  M01S00157.dok203  +++|*                          *ARF* DUMP - NUMBER OF *EOR* MARKS ON TAPE.
00416  M01S00158.dok203  +++|*
00417  M01S00159.dok203  +++|*         41-50     M      FILE DUMP - NUMBER OF FILES ON ALL TAPES
00418  M01S00160.dok203  +++|*                          OF SET.
00419  M01S00161.dok203  +++|*                          *LRF* DUMP - THE NUMBER OF FILES WHOSE AFTER
00420  M01S00162.dok203  +++|*                          IMAGES RESIDE ON THIS DUMP.
00421  M01S00163.dok203  +++|*
00422  M01S00164.dok203  +++|*         51-56     VSN-X  FILE DUMP - 0.
00423  M01S00165.dok203  +++|*                          *ARF* DUMP - VSN OF NEXT *ARF* DUMP TAPE.
00424  M01S00166.dok203  +++|*
00425  M01S00167.dok203  +++|*         57-60     N      FILE DUMP - 1, FIRST REEL OF SET.
00426  M01S00168.dok203  +++|*                                    - 0, CONTINUATION REEL.
00427  M01S00169.dok203  +++|*                          *ARF* DUMP - 0
00428  M01S00170.dok203  +++|*
00429  M01S00171.dok203  +++|*
00430  M01S00172.dok203  +++|*         THERE ARE FIVE TYPES OF RECORDS IN THE FILE BACKUP DIRECTORY.
00431  M01S00173.dok203  +++|*         THEY ARE ARRANGED IN A HIERARCHICAL STRUCTURE.  THERE EXISTS
00432  M01S00174.dok203  +++|*         ONE RECORD PER ENTIRE DATA BASE (DATA BASE DIRECTORY HEADER),
00433  M01S00175.dok203  +++|*         ONE RECORD PER FILE WITHIN THE DATA BASE (DATA BASE FILE
00434  M01S00176.dok203  +++|*         HEADER), ONE RECORD PER FILE DUMPED ONTO A DUMP TAPE (DATA
00435  M01S00177.dok203  +++|*         BASE FILE DUMP RECORD), ONE RECORD PER FILE PER AFTER
00436  M01S00178.dok203  +++|*         IMAGE LOG DUMP, CONTAINING AFTER IMAGES FOR THE SPECIFIC
00437  M01S00179.dok203  +++|*         FILE (AFTER IMAGE LOG DUMP ENTRIES) AND ONE RECORD PER TAPE
00438  M01S00180.dok203  +++|*         REEL WITHIN THE GLOBAL BACKUP-TAPE SET (VSN - ENTRIES).
00439  M01S00181.dok203  +++|
00440  M01S00182.dok203  +++|*
00441  M01S00183.dok203  +++|*         THE FOLLOWING EXAMPLE ILLUSTRATES THE RECORD RELATIONSHIP
00442  M01S00184.dok203  +++|*         WITHIN THE FILE BACKUP DIRECTORY
00443  M01S00185.dok203  +++|*
00444  M01S00186.dok203  +++|*         - SUPPOSE DATA BASE "DB" CONTAINS TWO FILES, "DBF1" AND
00445  M01S00187.dok203  +++|*           "DBF2".
00446  M01S00188.dok203  +++|*
00447  M01S00189.dok203  +++|*         - TWO FILES DUMPS WERE TAKEN, THE FIRST ON "PDATE-1", THE
00448  M01S00190.dok203  +++|*           SECOND ON "PDATE-2".  BOTH FILE DUMPS EXTENDED OVER
00449  M01S00191.dok203  +++|*           TWO REELS OF TAPE (WITH THE VSN-S "VSN-A", "VSN-B",
00450  M01S00192.dok203  +++|*           AND "VSN-C", "VSN-D" RESPECTIVELY).
00451  M01S00193.dok203  +++|*
00452  M01S00194.dok203  +++|*         - ONE AFTER IMAGE LOG DUMP WAS TAKEN CONTAINING AFTER IMAGE
00453  M01S00195.dok203  +++|*           LOG ENTRIES FOR BOTH "DBF1" AND "DBF".  THE DUMP WAS TAKEN
00454  M01S00196.dok203  +++|*           AT DATE "PDATE-3" ONTO VSN "VSN-E".
00455  M01S00197.dok203  +++|*
00456  M01S00198.dok203  +++|*         THE FOLLOWING ILLUSTRATES THE ENTRIES, AS CREATED ON THE
00457  M01S00199.dok203  +++|*         FILE BACKUP DIRECTORY.
00458  M01S00200.dok203  +++|*
00459  M01S00201.dok203  +++|*         FULL KEY (FOR 1S)   CONTENTS    RECORD TYPE
00460  M01S00202.dok203  +++|*         ----------------    --------    -----------
00461  M01S00203.dok203  +++|*
00462  M01S00204.dok203  +++|*         DB                              <DATA BASE HEADER>
00463  M01S00205.dok203  +++|*
00464  M01S00206.dok203  +++|*         DBF1                            <DATA BASE FILE HEADER>
00465  M01S00207.dok203  +++|*
00466  M01S00208.dok203  +++|*         DBF2                            <DATA BASE FILE HEADER>
00467  M01S00209.dok203  +++|*
00468  M01S00210.dok203  +++|*         DBF1,BBB,PDATE-1     VSN-A      <DATA BASE FILE DUMP>
00469  M01S00211.dok203  +++|*
00470  M01S00212.dok203  +++|*         DBF1,BBB,PDATE-2     VSN-C      <DATA BASE FILE DUMP>
00471  M01S00213.dok203  +++|*
00472  M01S00214.dok203  +++|*         DBF1,1,PDATE-3       VSN-E      <AFTER IMAGE LOG DUMP>
00473  M01S00215.dok203  +++|*
00474  M01S00216.dok203  +++|*         DBF2,BBB,PDATE-1     VSN-A      <DATA BASE FILE DUMP>
00475  M01S00217.dok203  +++|*
00476  M01S00218.dok203  +++|*         DBF2,BBB,PDATE-2     VSN-C      <DATA BASE FILE DUMP>
00477  M01S00219.dok203  +++|*
00478  M01S00220.dok203  +++|*         DBF2,1,PDATE-3       VSN-E      <AFTER IMAGE LOG DUMP>
00479  M01S00221.dok203  +++|*
00480  M01S00222.dok203  +++|*         VSN-A,*...*          VSN-B      < VSN - ENTRY >
00481  M01S00223.dok203  +++|*
00482  M01S00224.dok203  +++|*         VSN-B,*...*          0          < VSN - ENTRY >
00483  M01S00225.dok203  +++|*
00484  M01S00226.dok203  +++|*         VSN-C,*...*          VSN-D      < VSN - ENTRY >
00485  M01S00227.dok203  +++|*
00486  M01S00228.dok203  +++|*         VSN-D,*...*          0          < VSN - ENTRY >
00487  M01S00229.dok203  +++|*
00488  M01S00230.dok203  +++|*         VSN-E,*...*          0          < VSN - ENTRY >
00489  M01S00249.dmrec   +++|**        ERROR - ERROR PROCESSING MACRO.
00490  M01S00250.dmrec   +++|*
00491  M01S00251.dmrec   +++|*         ERROR  P1,P2,P3,P4,P5,P6
00492  M01S00252.dmrec   +++|*
00493  M01S00253.dmrec   +++|*         ENTRY  *P1* = ADDRESS OR ERROR MESSAGE.
00494  M01S00254.dmrec   +++|*                     (*P1*L = LENGTH OF ERROR MESSAGE).
00495  M01S00255.dmrec   +++|*                *P2* = ADDRESS OF REPLACEMENT WORD (OPTIONAL).
Line S00256 Modification History
M01 (Added by) dmrec
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00496  M02S00256.v23l617 ---|*                *P3* = ADDRESS OF CARD IN ERROR (OPTIONAL).
00497  M01S00008.v23l617 +++|*                *P3* = ADDRESS OF STATEMENT IN ERROR (OPTIONAL).
00498  M01S00257.dmrec   +++|*                *P4* = RETURN ADDRESS.
00499  M01S00258.dmrec   +++|*                *P5* = READ NEXT DIRECTIVE INDICATOR (OPTIONAL).
00500  M01S00259.dmrec   +++|*                *P6* = ERROR(S) ENCOUNTERED INDICATOR (OPTIONAL).
00501  M01S00260.dmrec   +++|*
00502  M01S00261.dmrec   +++|*         USES   X - 1, 2, 5, 6.
00503  M01S00262.dmrec   +++|*                A - 1, 2, 6.
00504  M01S00263.dmrec   +++|*                B - 4.
00505  M01S00264.dmrec   +++|*
00506  M01S00265.dmrec   +++|*         CALLS  RDD, WEM.
00507  M01S00266.dmrec   +++|
00508  M01S00267.dmrec   +++|
00509  M01S00268.dmrec   +++|          PURGMAC  ERROR
00510  M01S00269.dmrec   +++|
00511  M01S00270.dmrec   +++| ERROR    MACRO  P1,P2,P3,P4,P5,P6
00512  M01S00271.dmrec   +++|          IFC    NE,*P5**,1
00513  M01S00272.dmrec   +++|          RJ     RDD         READ NEXT DIRECTIVE
00514  M01S00273.dmrec   +++|          MX2    0
00515  M01S00274.dmrec   +++|          BX1    X2
00516  M01S00275.dmrec   +++|          SB4    P1
00517  M01S00276.dmrec   +++|          SX5    P1_L
00518  M01S00277.dmrec   +++|          IFC    NE,*P2**,1
00519  M01S00278.dmrec   +++|          SA1    P2
00520  M01S00279.dmrec   +++|          IFC    NE,*P3**,1
00521  M01S00280.dmrec   +++|          SA2    P3
00522  M01S00281.dmrec   +++|          RJ     WEM         WRITE ERROR MESSAGE
00523  M01S00282.dmrec   +++|          IFC    NE,*P6**,2
00524  M01S00283.dmrec   +++|          SX6    B1
00525  M01S00284.dmrec   +++|          SA6    ERROR
00526  M01S00285.dmrec   +++|          EQ     P4          RETURN
00527  M01S00286.dmrec   +++| ERROR    ENDM
00528  M01S00287.dmrec   +++| ZIPPP    SPACE  4,25
00529  M01S00288.dmrec   +++|**        ZIPPP - CRM EXPAND MACRO.
00530  M01S00289.dmrec   +++|*
00531  M01S00290.dmrec   +++|*         *ZIPPP* ADDS A CHARACTER TO A STRING.
00532  M01S00291.dmrec   +++|*
00533  M01S00292.dmrec   +++|*         ZIPPP  AA, BB, CC.
00534  M01S00293.dmrec   +++|*
00535  M01S00294.dmrec   +++|*         ENTRY  *AA*   = CHARACTER LOCATION.
00536  M01S00295.dmrec   +++|*                *BB*   = LOCATION IF NO STORE NECESSARY.
00537  M01S00296.dmrec   +++|*                *CC*   = ERROR ADDRESS.
00538  M01S00297.dmrec   +++|*                (B6) = LENGTH REMAINING IN DESTINATION AREA.
00539  M01S00298.dmrec   +++|*                (X6) = CURRENT DESTINATION WORD.
00540  M01S00299.dmrec   +++|*                (A6) = ADDRESS OF CURRENT DESTINATION WORD.
00541  M01S00300.dmrec   +++|*                (B4) = NUMBER OF CHARACTERS LEFT IN DESTINATION WORD.
00542  M01S00301.dmrec   +++|*                (B5) = NUMBER OF CHARACTERS LEFT IN SOURCE WORD.
00543  M01S00302.dmrec   +++|*
00544  M01S00303.dmrec   +++|*         EXIT   (B6) = LENGTH REMAINING IN DESTINATION AREA.
00545  M01S00304.dmrec   +++|*                (X6) = CURRENT DESTINATION WORD.
00546  M01S00305.dmrec   +++|*                (A6) = ADDRESS OF CURRENT DESTINATION WORD.
00547  M01S00306.dmrec   +++|*                (B4) = NUMBER OF CHARACTERS LEFT IN DESTINATION WORD.
00548  M01S00307.dmrec   +++|*                (B5) = NUMBER OF CHARACTERS LEFT IN SOURCE WORD.
00549  M01S00308.dmrec   +++|*
00550  M01S00309.dmrec   +++|*         USES   X - 6.
00551  M01S00310.dmrec   +++|*                A - 6.
00552  M01S00311.dmrec   +++|*                B - 4, 6.
00553  M01S00312.dmrec   +++|
00554  M01S00313.dmrec   +++|
00555  M01S00314.dmrec   +++|          PURGMAC ZIPPP
00556  M01S00315.dmrec   +++|
00557  M01S00316.dmrec   +++| ZIPPP    MACRO  AA,CC,BB
00558  M01S00317.dmrec   +++|          LOCAL  WIT
00559  M01S00318.dmrec   +++|          SB6    B6-B1
00560  M01S00319.dmrec   +++|          NG     B6,CC       IF ERROR ENCOUNTERED
00561  M01S00320.dmrec   +++|          LX6    6
00562  M01S00321.dmrec   +++|          BX6    X6+AA
00563  M01S00322.dmrec   +++|          SB4    B4-B1
00564  M01S00323.dmrec   +++| .A       IFC    NE,**BB*
00565  M01S00324.dmrec   +++|          NZ     B4,BB       IF RETURN NORMAL
00566  M01S00325.dmrec   +++| .A       ELSE
00567  M01S00326.dmrec   +++|          NZ     B4,WIT      IF CONTINUE IN LINE
00568  M01S00327.dmrec   +++| .A       ENDIF
00569  M01S00328.dmrec   +++|          SA6    A6+B1
00570  M01S00329.dmrec   +++|          SX6    B0
00571  M01S00330.dmrec   +++|          SB4    B5
00572  M01S00331.dmrec   +++|          IFC    EQ,**BB*,1
00573  M01S00332.dmrec   +++| WIT      BSS    0
00574  M01S00333.dmrec   +++| ZIPPP    ENDM
00575  M01S00334.dmrec   +++|          SPACE  4,10
00576  M01S00335.dmrec   +++|**        ZAPPP - CRM EXPAND MACRO.
00577  M01S00336.dmrec   +++|*
00578  M01S00337.dmrec   +++|*         *ZAPPP* RETRIEVES THE NEXT CHARACTER FROM A STRING.
00579  M01S00338.dmrec   +++|*
00580  M01S00339.dmrec   +++|*         ENTRY  (X4) = SOURCE WORD.
00581  M01S00340.dmrec   +++|*                (A4) = ADDRESS OF SOURCE WORD.
00582  M01S00341.dmrec   +++|*                (X0) = 54/777777777777777777B,6/0.
00583  M01S00342.dmrec   +++|*                (B3) = NUMBER OF CHARACTERS IN SOURCE WORD.
00584  M01S00343.dmrec   +++|*                (B2) = LENGTH OF RECORD.
00585  M01S00344.dmrec   +++|*                (B5) = NUMBER OF CHARACTERS IN NEXT WORD.
00586  M01S00345.dmrec   +++|*
00587  M01S00346.dmrec   +++|*         EXIT   (X4) = SOURCE WORD.
00588  M01S00347.dmrec   +++|*                (A4) = ADDRESS OF SOURCE WORD.
00589  M01S00348.dmrec   +++|*                (X0) = 54/777777777777777777B,6/0.
00590  M01S00349.dmrec   +++|*                (B3) = NUMBER OF CHARACTERS IN SOURCE WORD.
00591  M01S00350.dmrec   +++|*                (B2) = LENGTH OF RECORD.
00592  M01S00351.dmrec   +++|*                (B5) = NUMBER OF CHARACTERS IN NEXT WORD.
00593  M01S00352.dmrec   +++|*
00594  M01S00353.dmrec   +++|*         USES   X - 4, 5.
00595  M01S00354.dmrec   +++|*                A - 4.
00596  M01S00355.dmrec   +++|*                B - 2, 3.
00597  M01S00356.dmrec   +++|
00598  M01S00357.dmrec   +++|
00599  M01S00358.dmrec   +++|          PURGMAC ZAPPP
00600  M01S00359.dmrec   +++|
00601  M01S00360.dmrec   +++|
00602  M01S00361.dmrec   +++| ZAPPP    MACRO
00603  M01S00362.dmrec   +++|          LOCAL  WAT
00604  M01S00363.dmrec   +++|          LX4    6
00605  M01S00364.dmrec   +++|          BX5    -X0*X4
00606  M01S00365.dmrec   +++|          SB3    B3-B1
00607  M01S00366.dmrec   +++|          SB2    B2-B1
00608  M01S00367.dmrec   +++|          NZ     B3,WAT      IF MORE CHARACTERS IN THIS WORD
00609  M01S00368.dmrec   +++|          SA4    A4+B1
00610  M01S00369.dmrec   +++|          SB3    B5
00611  M01S00370.dmrec   +++| WAT      BSS    0
00612  M01S00371.dmrec   +++| ZAPPP    ENDM
00613  M01S00372.dmrec   +++|
00614  M01S00373.dmrec   +++|
00615  M01S00374.dmrec   +++|*         COMMON DECKS
00616  M01S00375.dmrec   +++|
00617  M01S00376.dmrec   +++|*CALL     COMKTAF
00618  M01S00377.dmrec   +++|*CALL     COMKIPR
00619  M01S00378.dmrec   +++|          QUAL   SSD
00620  M01S00379.dmrec   +++|*CALL     COMSSSD
00621  M01S00380.dmrec   +++|          QUAL   *
00622  M01S00381.dmrec   +++|*CALL     COMKFLD
00623  M01S00382.dmrec   +++|*CALL     COMKTDM
00624  M01S00383.dmrec   +++|*CALL     COMKARF
00625  M01S00384.dmrec   +++|*CALL     COMKCRM
00626  M01S00001.dmrec11 +++|*CALL COMKZFN
00627  M01S00385.dmrec   +++|*CALL     COMCARG
00628  M01S00386.dmrec   +++|*CALL     COMCDXB
00629  M01S00387.dmrec   +++|*CALL     COMCZTB
00630  M01S00388.dmrec   +++|*CALL     COMCCMD
00631  M01S00389.dmrec   +++|*CALL     COMCSNM
00632  M01S00390.dmrec   +++|*CALL     COMCUPC
00633  M01S00391.dmrec   +++|*CALL     COMCUSB
00634  M01S00392.dmrec   +++|*CALL     COMCZAP
00635  M01S00393.dmrec   +++|*CALL     COMCMVE
00636  M01S00394.dmrec   +++|*CALL     COMCCDD
00637  M01S00395.dmrec   +++|*CALL     COMCEDT
00638  M01S00396.dmrec   +++|*CALL     COMCSFN
00639  M01S00397.dmrec   +++|*CALL     COMCCOD
00640  M01S00398.dmrec   +++|*CALL     COMSPFM
00641  M01S00399.dmrec   +++|          TITLE  ASSEMBLY CONSTANTS AND EQUIVALENCES.
00642  M01S00400.dmrec   +++|          SPACE  4,10
00643  M01S00401.dmrec   +++|
00644  M01S00402.dmrec   +++|***       ASSEMBLY CONSTANTS.
00645  M01S00403.dmrec   +++|
Line S00404 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec22
Seq #  *Modification Id* Act 
----------------------------+
00646  M02S00404.dmrec22 ---| TDTR     EQU    40B+8*DTTP+TDEN  TAPE FORMAT DEFINITION
00647  M01S00001.dmrec22 +++| TDTR     EQU    200B+40B*DTTP+TDEN
00648  M01S00405.dmrec   +++|
00649  M01S00406.dmrec   +++| NUMARF   EQU    1           NUMBER OF DUPLICATE *ARF* COPIES
00650  M01S00407.dmrec   +++|
00651  M01S00408.dmrec   +++| NDUMP    EQU    100         NUMBER OF DUMPS/DIRECTIVE < HBUFL/2
00652  M01S00409.dmrec   +++|
00653  M01S00410.dmrec   +++| EXPCT    EQU    10          DEFAULT EXPAND PERCENTAGE
00654  M01S00411.dmrec   +++|
00655  M01S00412.dmrec   +++| NCOPY    EQU    2           NUMBER OF DEFAULT DUMP COPIES TO KEEP
00656  M01S00413.dmrec   +++|
Line S00414 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
00657  M02S00414.dmrec2  ---| TTIGL    EQU    200         MAXIMUM NUMBER OF TN/TS ENTRIES
00658  M01S00001.dmrec2  +++| TTIGL    EQU    5000        MAXIMUM NUMBER OF IGNORE TABLE
00659  M01S00415.dmrec   +++|
Line S00416 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
00660  M02S00416.dmrec2  ---| FTABL    EQU    500         MAXIMUM NUMBER OF CONCURRENT ACTIVE TASKS
00661  M01S00002.dmrec2  +++| FTABL    EQU    5000        MAXIMUM NUMBER OF CONCURRENT ACTIVE TASKS
00662  M01S00417.dmrec   +++|
00663  M01S00418.dmrec   +++| TLOGL    EQU    100         MAXIMUM NUMBER OF FILES IN DATA BASE
00664  M01S00419.dmrec   +++|
00665  M01S00420.dmrec   +++| TVSNL    EQU    40          MAXIMUM NUMBER OF VSNS ALLOWED
Line S00421 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
00666  M02S00421.dmrec2  ---|
Line S00422 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
00667  M02S00422.dmrec2  ---| AAICL    EQU    200         MAXIMUM NUMBER OF IGNORE ENTRIES
00668  M01S00423.dmrec   +++|
00669  M01S00424.dmrec   +++| WBUFL    EQU    4001B       WORKING BUFFER
00670  M01S00425.dmrec   +++|
00671  M01S00426.dmrec   +++|
00672  M01S00427.dmrec   +++|**        MISCELLANEOUS EQUIVALENCES.
00673  M01S00428.dmrec   +++|
00674  M01S00429.dmrec   +++| IBUFL    EQU    101B        INPUT BUFFER LENGTH
00675  M01S00430.dmrec   +++| OBUFL    EQU    101B        OUTPUT BUFFER LENGTH
00676  M01S00001.ns2056  +++| PBUFL    EQU    101B        PROC BUFFER LENGTH
00677  M01S00431.dmrec   +++| DBUFL    EQU    4001B       DUMP BUFFER LENGTH
00678  M01S00432.dmrec   +++| TBUFL    EQU    4001B       TAPE BUFFER LENGTH
00679  M01S00433.dmrec   +++| HBUFL    EQU    1001B       HASH BUFFER LENGTH
00680  M01S00434.dmrec   +++| DIRL     EQU    160         INPUT CHARACTER BUFFER LENGTH
00681  M01S00435.dmrec   +++| OLWSL    EQU    136         LINE LENGTH (CHARACTERS)
00682  M01S00436.dmrec   +++| CBUFL    EQU    1000B       LENGTH OF DECOMPRESSION BUFFER
00683  M01S00437.dmrec   +++| LRDBUFL  EQU    1000B       LENGTH OF HASH LOAD BUFFER
00684  M01S00438.dmrec   +++| ACTR     EQU    64B         ARGUMENT COUNT
00685  M01S00439.dmrec   +++| CCDR     EQU    70B         CONTROL STATMENT IMAGE
00686  M01S00440.dmrec   +++| LINP     EQU    60          LINES/PRINTER PAGE
00687  M01S00001.dmrec7  +++| TRECL    EQU    15          RECOVERY VSN TABLE LENGTH
00688  M01S00441.dmrec   +++|
00689  M01S00442.dmrec   +++|
00690  M01S00443.dmrec   +++|*         FET-S AND FIT-S.
00691  M01S00444.dmrec   +++|
00692  M01S00445.dmrec   +++| I        BSS    0           INPUT FET
00693  M01S00446.dmrec   +++| INPUT    FILEB  IBUF,IBUFL,(FET=7)
00694  M01S00447.dmrec   +++|
00695  M01S00448.dmrec   +++| O        BSS    0           OUTPUT FET
00696  M01S00449.dmrec   +++| OUTPUT   FILEC  OBUF,OBUFL
00697  M01S00450.dmrec   +++|
00698  M01S00451.dmrec   +++| DF       BSS    0           DUMP/LOAD FET
Line S00452 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00699  M02S00452.ns2023  ---| LRF      BSS    0           LONG RECOVERY FILE FET
00700  M01S00001.ns2023  +++| ARF      BSS    0           AFTER IMAGE RECOVERY FILE FET
00701  M01S00453.dmrec   +++| DUMP     BSS    0
00702  M01S00454.dmrec   +++| ZZZDATA  FILEB  DBUF,DBUFL,EPR,(FET=14)
00703  M01S00455.dmrec   +++|
00704  M01S00456.dmrec   +++| IF       BSS    0           INDEX FILE DUMP/LOAD FET
00705  M01S00457.dmrec   +++| INDEX    BSS    0
00706  M01S00458.dmrec   +++| ZZINDEX  FILEB  DBUF,DBUFL,EPR,(FET=13)
00707  M01S00459.dmrec   +++|
00708  M01S00460.dmrec   +++| OF       BSS    0           OWNCODE ROUTINE FET
00709  M01S00461.dmrec   +++| OWN      FILEB  DBUF,DBUFL,EPR,(FET=13)
00710  M01S00462.dmrec   +++|
00711  M01S00463.dmrec   +++| TP       BSS    0           TAPE FET
00712  M01S00464.dmrec   +++| TAPE     FILEB  TBUF,TBUFL,XL,(FET=13),UPR,EPR
00713  M01S00465.dmrec   +++|
00714  M01S00466.dmrec   +++|*         FET FOR ZZZZZDG CRM FILE.
00715  M01S00467.dmrec   +++|
00716  M01S00468.dmrec   +++| ZZZZZDG  FILEB  HBUF,HBUFL,(FET=14),EPR
00717  M01S00469.dmrec   +++|
Line S00470 Modification History
M01 (Added by) dmrec
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00718  M02S00470.v23l617 ---|*         FET FOR FILE CARD INFORMATION.
00719  M01S00009.v23l617 +++|*         FET FOR FILE STATEMENT INFORMATION.
00720  M01S00471.dmrec   +++|
00721  M01S00472.dmrec   +++| ZZZZZDR  FILEB  HBUF,HBUFL,(FET=7)
00722  M01S00473.dmrec   +++|
00723  M01S00474.dmrec   +++|*         FET FOR PROCEDURE FILE.
00724  M01S00475.dmrec   +++|
Line S00476 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
00725  M02S00476.ns2056  ---| ZZZZSUB  FILEB  PROCC,IBUFL,(FET=7)
00726  M01S00002.ns2056  +++| ZZZZSUB  FILEB  PBUF,PBUFL,(FET=8)
00727  M01S00477.dmrec   +++|
00728  M01S00478.dmrec   +++|*         FET FOR ZZZZZXD FILE - HOLDS FL .
00729  M01S00479.dmrec   +++|
Line S00480 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
00730  M02S00480.ns2056  ---| ZZZZZXD  FILEB  1,2,EPR,UPR,(FET=8)
00731  M01S00003.ns2056  +++| ZZZZZG7  FILEB  1,2,EPR,UPR,(FET=8)
00732  M01S00481.dmrec   +++|
00733  M01S00482.dmrec   +++|*         FET AND BUFFERS FOR *XXJ* FILE.
00734  M01S00483.dmrec   +++|
00735  M01S00484.dmrec   +++| XBUFL    EQU    101B
00736  M01S00485.dmrec   +++| XXJ      FILEB  XBUF,XBUFL,(FET=13),EPR
00737  M01S00486.dmrec   +++| XBUF     BSS    XBUFL
00738  M01S00487.dmrec   +++|
00739  M01S00488.dmrec   +++|*         FET FOR BACK-UP DIRECTORY FILE.
00740  M01S00489.dmrec   +++|
00741  M01S00490.dmrec   +++| ZZDBDIR  FILEB  DBUF,DBUFL,(FET=13B),EPR
00742  M01S00491.dmrec   +++|
00743  M01S00492.dmrec   +++|*         FET FOR CATLIST.
00744  M01S00493.dmrec   +++|
00745  M01S00494.dmrec   +++| C        BSS    0
00746  M01S00495.dmrec   +++| CAT      FILEB  HBUF,HBUFL,FET=16B
00747  M01S00496.dmrec   +++|
00748  M01S00497.dmrec   +++|
00749  M01S00498.dmrec   +++|*         DIRECTORY FILE FIT.
00750  M01S00499.dmrec   +++|
00751  M01S00500.dmrec   +++| DIRR     FILE   LFN=ZZDBDIR,FO=IS,RT=F,FL=60,KT=S,KL=20,ORG=NEW,DCT=D
Line S00501 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec4
Seq #  *Modification Id* Act 
----------------------------+
00752  M02S00501.dmrec4  ---|,,FWI=YES
00753  M01S00502.dmrec   +++|
00754  M01S00503.dmrec   +++|*         DATA FILE FIT.
00755  M01S00504.dmrec   +++|
00756  M01S00505.dmrec   +++| DFIT     FILE   LFN=ZZZDATA,FO=IS,ORG=NEW,EFC=3
00757  M01S00506.dmrec   +++|
00758  M01S00507.dmrec   +++|*         AUXILARY FIT FOR BACKUP DIRECTORY FROM DUMP TAPE
00759  M01S00508.dmrec   +++|
00760  M01S00509.dmrec   +++| FITA     FILE   LFN=ZZINDEX,FO=IS,RT=F,FL=60,KL=20,ORG=NEW,KT=S
00761  M01S00510.dmrec   +++|
00762  M01S00511.dmrec   +++|*         FET FOR CREATE LOG FILE
00763  M01S00512.dmrec   +++|
00764  M01S00513.dmrec   +++| RECF     RFILEC WBUF,WBUFL,EPR,FET=13D
00765  M01S00514.dmrec   +++|
00766  M01S00515.dmrec   +++|*          TEMPORARY SORT INPUT AND OUTPUT FILES
00767  M01S00516.dmrec   +++|
00768  M01S00517.dmrec   +++| SORTI    FILE   FO=SQ,RT=F,BT=C,FL=60
00769  M01S00518.dmrec   +++| SORTO    FILE   FO=SQ,RT=F,BT=C,FL=60,PD=IO
00770  M01S00519.dmrec   +++|
00771  M01S00520.dmrec   +++|*         DECOLLATION TABLE FOR *DIRR*.
00772  M01S00521.dmrec   +++|
00773  M01S00522.dmrec   +++| D        CON    00010203040506075555B
00774  M01S00523.dmrec   +++|          CON    10111213141516175555B
00775  M01S00524.dmrec   +++|          CON    20212223242526275555B
00776  M01S00525.dmrec   +++|          CON    30313233343536375555B
00777  M01S00526.dmrec   +++|          CON    40414243444546475555B
00778  M01S00527.dmrec   +++|          CON    50515253545556575555B
00779  M01S00528.dmrec   +++|          CON    60616263646566675555B
00780  M01S00529.dmrec   +++|          CON    70717273747576775555B
00781  M01S00530.dmrec   +++|
00782  M01S00531.dmrec   +++|
Line S00532 Modification History
M01 (Added by) dmrec
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00783  M02S00532.v23l617 ---|**        CONTROL CARD ARGUMENT TABLES.
00784  M01S00010.v23l617 +++|**        COMMAND ARGUMENT TABLES.
00785  M01S00533.dmrec   +++|
00786  M01S00534.dmrec   +++|
Line S00535 Modification History
M01 (Added by) dmrec
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00787  M02S00535.v23l617 ---| TT       BSSZ   1           *TT* CONTROL CARD ARGUMENT
Line S00536 Modification History
M01 (Added by) dmrec
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00788  M02S00536.v23l617 ---| Z        BSSZ   1           *Z* CONTROL CARD ARGUMENT
00789  M01S00011.v23l617 +++| TT       BSSZ   1           *TT* COMMAND ARGUMENT
00790  M01S00012.v23l617 +++| Z        BSSZ   1           *Z* COMMAND ARGUMENT
00791  M01S00537.dmrec   +++|
00792  M01S00538.dmrec   +++|
00793  M01S00539.dmrec   +++|**        HDR1 LABEL FOR DUMP/LOAD TAPES.
00794  M01S00540.dmrec   +++|
00795  M01S00541.dmrec   +++|
00796  M01S00542.dmrec   +++| LBLAA    DATA   10HTAF/CRM -
00797  M01S00543.dmrec   +++|          DATA   7L*DMREC*
00798  M01S00544.dmrec   +++|
00799  M01S00545.dmrec   +++|**        RECORD LOAD MIPGEN PROCEDURE.
00800  M01S00546.dmrec   +++|
Line S00547 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
00801  M02S00547.ns2056  ---| PROCC    VFD    60/10HFILE,ZZZDA
Line S00548 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
00802  M02S00548.ns2056  ---|          VFD    60/10HTA    ,FO=
Line S00549 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
00803  M02S00549.ns2056  ---|          VFD    60/10H
Line S00550 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
00804  M02S00550.ns2056  ---|          DATA   C*      ,XN=ZZINDEX.*
Line S00551 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
00805  M02S00551.ns2056  ---|          DATA   C*MIPGEN,ZZZDATA,ZZZZZDR.*
00806  M01S00004.ns2056  +++| PROCC    DATA   C*.PROC,ZZZZSUB.*
00807  M01S00005.ns2056  +++|          VFD    60/10HFILE,ZZZDA
00808  M01S00006.ns2056  +++| PROCCFO  VFD    60/10HTA,FO=
00809  M01S00007.ns2056  +++|          DATA   C*,XN=ZZINDEX.*
00810  M01S00008.ns2056  +++|          DATA   C*MIPGEN,ZZZDATA,ZZZZZDR,,ABT.*
Line S00552 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
00811  M02S00552.ns2056  ---|          DATA   C*ZZZZZXD.*
00812  M01S00009.ns2056  +++|          DATA   C*ZZZZZG7.*
00813  M01S00010.ns2056  +++|          DATA   C*REVERT.*
Line S00553 Modification History
M01 (Added by) dmrec
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00814  M02S00553.v23l617 ---| PROCCL   EQU    *-PROCC     LENGTH OF CONTROL CARD BUFFER
00815  M01S00013.v23l617 +++| PROCCL   EQU    *-PROCC     LENGTH OF COMMAND BUFFER
00816  M01S00554.dmrec   +++|
00817  M01S00011.ns2056  +++| PROCD    DATA   C*.PROC,ZZZZSUB.*
00818  M01S00012.ns2056  +++|          DATA   C*MIPDIS,ZZZDATA,D.*
00819  M01S00013.ns2056  +++|          DATA   C*ZZZZZG7.*
00820  M01S00014.ns2056  +++|          DATA   C*REVERT.*
00821  M01S00015.ns2056  +++| PROCDL   EQU    *-PROCD     LENGTH OF BUFFER
00822  M01S00555.dmrec   +++|**        MISCELLANEOUS SYMBOLS FOR EXC - EXECUTE CONTROL CARD.
00823  M01S00556.dmrec   +++|
00824  M01S00557.dmrec   +++| OVLFWA   EQU    100B        FWA GENERATED OVERLAY
00825  M01S00558.dmrec   +++|
00826  M01S00559.dmrec   +++| A0S      CON    0           *A0*
Line S00560 Modification History
M01 (Added by) dmrec
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00827  M02S00560.v23l617 ---| CS       CON    0           POINTER TO CONTROL STATEMENT
00828  M01S00014.v23l617 +++| CS       CON    0           POINTER TO COMMAND
00829  M01S00561.dmrec   +++| JA       CON    0           JOB ACTIVITY RETURNED BY *GETACT*
00830  M01S00562.dmrec   +++| LW       CON    0           LAST WORD OF FL
00831  M01S00563.dmrec   +++| LWADDR   CON    0           LAST WORD ADDRESS OF FL
00832  M01S00564.dmrec   +++| PBA      CON    0           ADDRESS OF PARAMETER BLOCK
00833  M01S00565.dmrec   +++| FL       CON    0           MEMORY STATUS WORD
00834  M01S00566.dmrec   +++|
00835  M01S00567.dmrec   +++|*         LOADER CONTROL TABLE.
00836  M01S00568.dmrec   +++|
00837  M01S00569.dmrec   +++| LT50     VFD    12/5000B,12/0,18/OVLFWA,18/EXC3
00838  M01S00570.dmrec   +++|
00839  M01S00571.dmrec   +++|*         END LOADER CONTROL TABLE.
00840  M01S00572.dmrec   +++|
00841  M01S00573.dmrec   +++| LOWMEM   BSS    OVLFWA-ARGR+1
00842  M01S00574.dmrec   +++|
Line S00575 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
00843  M02S00575.ns2056  ---| PROC     DATA   C*CALL,ZZZZSUB.*
00844  M01S00016.ns2056  +++| PROC     DATA   C*BEGIN,,ZZZZSUB.*
00845  M01S00576.dmrec   +++|
00846  M01S00577.dmrec   +++|**        MISCELLANEOUS GLOBAL SYMBOLS.
00847  M01S00578.dmrec   +++|
00848  M01S00579.dmrec   +++| ACFA     VFD    12/2RZZ,12/0,18/3RDIR,18/0
00849  M01S00580.dmrec   +++| LWORD    VFD    12/2LZZ,12/0,6/1LB,30/0
00850  M01S00581.dmrec   +++| LMASK    VFD    12/7777B,12/0,6/77B,30/0
00851  M01S00582.dmrec   +++| DAT      BSSZ   1
00852  M01S00583.dmrec   +++| ITIT     BSSZ   1           POINTER TO NEXT *TTIG* SLOT
00853  M01S00584.dmrec   +++| TEMP1    BSSZ   1
00854  M01S00585.dmrec   +++| TEMP2    BSSZ   1
Line S00586 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec7
Seq #  *Modification Id* Act 
----------------------------+
00855  M02S00586.dmrec7  ---| NUME     BSSZ   1           NUMBER OF ENTRIES ON THIS TAPE
Line S00587 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00856  M02S00587.ns2023  ---| IIQRF    BSSZ   1           ADDRESS OF NEXT *TTQRF* ENTRY
00857  M01S00002.ns2023  +++| IIBRF    BSSZ   1           ADDRESS OF NEXT *TTBRF* ENTRY
00858  M01S00588.dmrec   +++| UDATE    BSSZ   1           UNPACKED DATE
00859  M01S00589.dmrec   +++| UTIME    BSSZ   1           UNPACKED TIME
00860  M01S00590.dmrec   +++| FILLD    VFD    6/1L ,12/0,6/1L/,12/0,6/1L/,12/0,6/1L.
00861  M01S00591.dmrec   +++| FILLT    VFD    6/1L ,12/0,6/1L.,12/0,6/1L.,12/0,6/1L.
00862  M01S00592.dmrec   +++| MTIME    VFD    6/1L ,12/2L23,6/1L.,12/2L59,6/1L.,12/2L59,6/1L.
00863  M01S00593.dmrec   +++| SKEY     BSSZ   1           KEY
00864  M01S00594.dmrec   +++| FVSN     BSSZ   1           FIRST VSN
00865  M01S00595.dmrec   +++| EDFN     VFD    42/0,18/0   EMPTY FILE DIRECTORY ENTRY
00866  M01S00596.dmrec   +++|          VFD    60/0
00867  M01S00597.dmrec   +++|          VFD    36/0,18/0,6/0
00868  M01S00598.dmrec   +++|          VFD    42/0,18/0
00869  M01S00599.dmrec   +++|          VFD    60/0
00870  M01S00600.dmrec   +++|          VFD    60/0
00871  M01S00601.dmrec   +++|
00872  M01S00602.dmrec   +++| EVSN     VFD    24/4L****,36/0  EMPTY VSN DIRECTORY ENTRY
00873  M01S00603.dmrec   +++|          VFD    60/10L**********
00874  M01S00604.dmrec   +++|          VFD    36/0,24/0
00875  M01S00605.dmrec   +++|          VFD    60/0
00876  M01S00606.dmrec   +++|          VFD    60/0
00877  M01S00607.dmrec   +++|          VFD    60/0
00878  M01S00608.dmrec   +++|
00879  M01S00609.dmrec   +++| FILLER   VFD    24/4L****,36/0  VSN ENTRY FILLER
00880  M01S00610.dmrec   +++| NUMF     BSSZ   1           NUMBER OF FILES ( TOTAL )
00881  M01S00611.dmrec   +++| NUMV     BSSZ   1           NUMBER OF VSN S ( TOTAL )
00882  M01S00003.dmrec2  +++| FSTVSN   BSSZ   1           FIRST VSN
00883  M01S00612.dmrec   +++| IDFN     BSSZ   1           INDEX TO TDFN
00884  M01S00613.dmrec   +++| IVSN     BSSZ   1           ADDRESS OF NEXT VSN
00885  M01S00614.dmrec   +++| NFLS     BSSZ   1           TOTAL FILE COUNT PER TAPE
00886  M01S00615.dmrec   +++| FORD     BSSZ   1           FILE ORDINAL
00887  M01S00616.dmrec   +++| HOLD     BSSZ   1           TEMPORARY
00888  M01S00617.dmrec   +++| HOLD1    BSSZ   1           TEMPORARY
00889  M01S00618.dmrec   +++| HOLD2    BSSZ   1           TEMPORARY
00890  M01S00619.dmrec   +++| HOLD3    BSSZ   1           TEMPORARY
00891  M01S00620.dmrec   +++| HOLD4    BSSZ   1           TEMPORARY
00892  M01S00621.dmrec   +++| HOLD5    BSSZ   1           TEMPORARY
00893  M01S00622.dmrec   +++| HOLD6    BSSZ   1           TEMPORARY
00894  M01S00623.dmrec   +++| NXTENT   BSSZ   1           NEXT *TLOG* ENTRY
Line S00624 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00895  M02S00624.ns2023  ---| FSTFLG   BSSZ   1           FIRST *LRF* OF SESSION FLAG
Line S00625 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00896  M02S00625.ns2023  ---| QRFFLG   BSSZ   1           *QRF* RECOVERY FLAG
00897  M01S00003.ns2023  +++| FSTFLG   BSSZ   1           FIRST *ARF* OF SESSION FLAG
00898  M01S00004.ns2023  +++| BRFFLG   BSSZ   1           *BRF* RECOVERY FLAG
00899  M01S00626.dmrec   +++| LFWA     BSSZ   1           FWA OF LOAD RECORD
00900  M01S00627.dmrec   +++| LSTTRAN  BSSZ   1           PACKED DATE/TIME OF LAST TRANSACTION
00901  M01S00002.dmrec7  +++| TAPERR   BSSZ   1           TAPE ERROR CNT
00902  M01S00003.dmrec7  +++| EORCNT   BSSZ   1           COUNT OF EOR-S ON TAPE
00903  M01S00004.dmrec7  +++| PREC     BSSZ   1           INDEX TO *TREC* TABLE
00904  M01S00005.dmrec7  +++| XXPFN2   BSSZ   1           PERMANENT FILE NAME
00905  M01S00006.dmrec7  +++| PEOR     BSSZ   1           POINTER TO *TEOR* TABLE
00906  M01S00628.dmrec   +++| LLGN     BSSZ   1           RECORD LENGTH IN WORDS
00907  M01S00629.dmrec   +++| LCOMP    BSSZ   1           COMPRESSION FLAG
00908  M01S00630.dmrec   +++| LUCC     BSSZ   1           UNUSED CHARACTERS
00909  M01S00631.dmrec   +++| LKLOC    BSSZ   1           KEY LOCATION
00910  M01S00632.dmrec   +++| LKP      BSSZ   1           KEY POSITION
00911  M01S00633.dmrec   +++| LKS      BSSZ   1           KEY SIZE
00912  M01S00634.dmrec   +++| LCOLL    BSSZ   20B         COLLATION/DECOLLATION TABLE
00913  M01S00635.dmrec   +++| DMPFLG   BSSZ   1           DUMP FLAG - C H E C K ---------
00914  M01S00636.dmrec   +++| DIRFLAG  BSSZ   1           LWA OF CURRENT DIRECTIVE
00915  M01S00637.dmrec   +++| STDTIM   BSSZ   1           PACKED START DATE AND TIME
00916  M01S00638.dmrec   +++| ETDTIM   BSSZ   1           PACKED END DATE AND TIME
00917  M01S00639.dmrec   +++| EDATE    BSSZ   1           END DATE
00918  M01S00640.dmrec   +++| ETIME    BSSZ   1           END TIME
00919  M01S00641.dmrec   +++| DATE     BSSZ   1           START DATE
00920  M01S00642.dmrec   +++| TIME     BSSZ   1           START TIME
00921  M01S00643.dmrec   +++| DATE1    BSSZ   1           END DATE
00922  M01S00644.dmrec   +++| TIME1    BSSZ   1           END TIME
00923  M01S00645.dmrec   +++| TN       BSSZ   1           TASK NAME
00924  M01S00646.dmrec   +++| TS       BSSZ   1           TASK SEQUENCE NUMBER
00925  M01S00647.dmrec   +++| CYCL     BSSZ   1           CYCLE NUMBER
00926  M01S00648.dmrec   +++| LENGTH   BSSZ   1           LENGTH OF FILE
00927  M01S00649.dmrec   +++| FIRSTT   BSSZ   1           PACKED DATE/TIME OF FIRST TRANSACTION
00928  M01S00650.dmrec   +++| LASTT    BSSZ   1           PACKED DATE/TIME OF LAST TRANSACTION
00929  M01S00651.dmrec   +++| TRIP1    BSSZ   1           FIRST TRIP FLAG
00930  M01S00652.dmrec   +++| TTFLG    BSSZ   1           TELL TAF FLAG
00931  M01S00653.dmrec   +++| TPMODE   BSSZ   1           READ/WRITE MODE INDICATOR
00932  M01S00654.dmrec   +++| MRL      BSSZ   1           ABSOLUTE MAXIMUM RECORD LENGTH
00933  M01S00655.dmrec   +++| JOBORG   BSSZ   1           JOB ORIGIN CODE
00934  M01S00656.dmrec   +++| RBA      BSSZ   1           ADRESS OF RECORD BUFFER
00935  M01S00657.dmrec   +++| RQTREQ   BSSZ   1           REQUEST FROM ROUTINE *RQT*
00936  M01S00658.dmrec   +++| DBNAME   BSSZ   1           DATA BASE NAME
00937  M01S00659.dmrec   +++| DIRECT   BSSZ   1           CURRENT DIRECTIVE NAME
00938  M01S00660.dmrec   +++| EOF      BSSZ   1           END-OF-FILE FLAG FOR DIRECTIVE FILE
00939  M01S00661.dmrec   +++| ERROR    BSSZ   1           ERROR(S) ENCOUNTERED FLAG
00940  M01S00662.dmrec   +++| JUSER    DATA   -1          CURRENT USER
00941  M01S00663.dmrec   +++| OPFLG    BSSZ   1           OPERATION FLAG
00942  M01S00664.dmrec   +++| EVENT    BSSZ   1           EVENT FLAG
00943  M01S00665.dmrec   +++| KEY1     VFD    12/2HXX,48/0  CRM KEY1
00944  M01S00666.dmrec   +++|          VFD    60/0
00945  M01S00667.dmrec   +++| KEY2     VFD    12/2HXX,48/0  CRM KEY2
00946  M01S00668.dmrec   +++|          VFD    60/0
00947  M01S00669.dmrec   +++| YYBUF    BSSZ   6           BUFFER
00948  M01S00670.dmrec   +++| XXBUF    BSSZ   6           BUFFER
00949  M01S00671.dmrec   +++| XXPCT    BSSZ   1           PERCENTAGE ( EXPAND DIRECTIVE )
00950  M01S00672.dmrec   +++| EXCOPY   CON    1           NUMBER OF DUPLICATES
00951  M01S00673.dmrec   +++| SHIFTC   BSSZ   1           SHIFT COUNT
00952  M01S00674.dmrec   +++| DATAF    BSSZ   1           SIZE OF DATA FILE IN PRUS
00953  M01S00675.dmrec   +++| DMTAPE   BSSZ   1           NUMBER OF DUMP TAPES
00954  M01S00676.dmrec   +++| INDXF    BSSZ   1           SIZE OF INDEX FILE IN PRUS
00955  M01S00677.dmrec   +++| XXPFN1   BSSZ   1           TEMPORARY XXPFN
00956  M01S00678.dmrec   +++| NCHAR    BSSZ   1           NUMBER OF CHARACTERS IN NAME
00957  M01S00679.dmrec   +++| DATEP    BSSZ   1           TEMPORARY PACKED DATE -TIME
00958  M01S00680.dmrec   +++| PERCENT  BSSZ   1           PERCENT GIVEN FLAG
00959  M01S00681.dmrec   +++| TEMPO    BSSZ   1           TEMPORARY CELL - DUMMY
00960  M01S00682.dmrec   +++| SDATE    BSSZ   1           TEMPORARY START DATE
00961  M01S00683.dmrec   +++| STIME    BSSZ   1           TEMPORARY START TIME
00962  M01S00684.dmrec   +++| SDATE1   BSSZ   1           TEMPORARY END DATE
00963  M01S00685.dmrec   +++| STIME1   BSSZ   1           TEMPORARY END TIME
00964  M01S00686.dmrec   +++| SVSN     BSSZ   1           TEMPORARY VSN
00965  M01S00687.dmrec   +++| STDFN    BSSZ   1           TEMPORARY FILE NAME
00966  M01S00688.dmrec   +++| TEMPP    BSSZ   1           TEMPORARY
00967  M01S00689.dmrec   +++|
00968  M01S00690.dmrec   +++|*         FIELDS FROM XXJ FILE.
00969  M01S00691.dmrec   +++|
00970  M01S00692.dmrec   +++| XXUSER   BSSZ   1           CURRENT USER NAME
00971  M01S00693.dmrec   +++| XXPW     BSSZ   1           CURRENT PASSWORD
00972  M01S00694.dmrec   +++| XXFAM    BSSZ   1           CURRENT FAMILY
00973  M01S00695.dmrec   +++| XXMRL    BSSZ   1           MAXIMUM RECORD LENGTH FOR ALL FILES
00974  M01S00696.dmrec   +++| XXMKL    BSSZ   1           MAXIMUM KEY LENGTH
00975  M01S00697.dmrec   +++| XXMBL    BSSZ   1           MAXIMUM BLOCK LENGTH
00976  M01S00698.dmrec   +++| XXBRF    BSSZ   1           TOTAL NUMBER OF *BRF-S* FOR DATA BASE
00977  M01S00699.dmrec   +++|
00978  M01S00700.dmrec   +++| XXPFN    BSSZ   1           PERMANENT FILE NAME
00979  M01S00701.dmrec   +++| XXTY     BSSZ   1           FILE TYPE (DA, IS)
00980  M01S00702.dmrec   +++| XXACC    BSSZ   1           READ/WRITE MODE
00981  M01S00703.dmrec   +++| XXRL     BSSZ   1           RECORD LENGTH
00982  M01S00704.dmrec   +++| XXKL     BSSZ   1           PRIMARY KEY LENGTH
00983  M01S00705.dmrec   +++| XXHASH   BSSZ   1           HASHING ROUTINE NAME
00984  M01S00706.dmrec   +++| XXREC    BSSZ   1           RECOVERY INDICATOR
00985  M01S00707.dmrec   +++| XXFWI    BSSZ   1           FORCE WRITE INDICATOR
00986  M01S00708.dmrec   +++| XXPACK   BSSZ   1           PACK NAME FOR DATA FILE
00987  M01S00709.dmrec   +++| XXDEV    BSSZ   1           DEVICE FOR DATA FILE
00988  M01S00710.dmrec   +++| XXPC     BSSZ   1           PRE-ALLOCATION PERCENTAGE FOR DATA FILE
00989  M01S00711.dmrec   +++|
00990  M01S00712.dmrec   +++| XXIXN    BSSZ   1           PERMANENT FILE NAME OF INDEX FILE
00991  M01S00713.dmrec   +++| XXNAKY   BSSZ   1           NUMBER OF ALTERNATE KEYS
00992  M01S00714.dmrec   +++| XXIXP    BSSZ   1           INDEX PACK NAME
00993  M01S00715.dmrec   +++| XXIDEV   BSSZ   1           INDEX DEVICE
00994  M01S00716.dmrec   +++| XXIPC    BSSZ   1           PRE-ALLOCATION PERCENTAGE FOR INDEX FILE
00995  M01S00717.dmrec   +++|
00996  M01S00718.dmrec   +++| XXMODE   BSSZ   1           ATTACH MODE FOR MS DUMP/LOAD FILE
00997  M01S00719.dmrec   +++|
Line S00720 Modification History
M01 (Added by) dmrec
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00998  M02S00720.v23l617 ---|*         CONTROL CARD ARGUMENT TABLE.
00999  M01S00015.v23l617 +++|*         COMMAND ARGUMENT TABLE.
01000  M01S00721.dmrec   +++|
01001  M01S00722.dmrec   +++| ARGA     BSS    0
01002  M01S00723.dmrec   +++| I        ARG    ARGB,I
01003  M01S00724.dmrec   +++| L        ARG    ARGB+1,O
01004  M01S00725.dmrec   +++| TT       ARG    ARGB-2,TT
01005  M01S00726.dmrec   +++| Z        ARG    -ARGB-3,Z
01006  M01S00727.dmrec   +++|          CON    0
01007  M01S00728.dmrec   +++|
01008  M01S00729.dmrec   +++| ARGB     CON    0LCOMPILE+3
01009  M01S00730.dmrec   +++|          CON    0LLIST+3
01010  M01S00731.dmrec   +++|          CON    1
01011  M01S00732.dmrec   +++|          CON    1
01012  M01S00733.dmrec   +++|
01013  M01S00734.dmrec   +++|*         FSTT LOCATIONS.
01014  M01S00735.dmrec   +++|
Line S00736 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
01015  M02S00736.ns2056  ---| FSTT1    EQU    1
Line S00737 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
01016  M02S00737.ns2056  ---| FSTT15   EQU    15B
Line S00738 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
01017  M02S00738.ns2056  ---| FSTT16   EQU    16B
Line S00739 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
01018  M02S00739.ns2056  ---| FSTT17   EQU    17B
Line S00740 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
01019  M02S00740.ns2056  ---| FSTT53   EQU    53B
Line S00741 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
01020  M02S00741.ns2056  ---| FSTT63   EQU    63B
Line S00742 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
01021  M02S00742.ns2056  ---| FSTT75   EQU    75B
01022  M01S00017.ns2056  +++|*         THERE IS A 3 WORD OFFSET OF THE *FSTT* TABLE.
01023  M01S00018.ns2056  +++|
01024  M01S00019.ns2056  +++| FSTT20   EQU    15B
01025  M01S00020.ns2056  +++| FSTT21   EQU    16B
01026  M01S00021.ns2056  +++| FSTT22   EQU    17B
01027  M01S00022.ns2056  +++| FSTT56   EQU    53B
01028  M01S00023.ns2056  +++| FSTT66   EQU    63B
01029  M01S00024.ns2056  +++| FSTT100  EQU    75B
01030  M01S00743.dmrec   +++|
01031  M01S00744.dmrec   +++|*         MISC. CELLS FOR LIST AND EDIT
01032  M01S00745.dmrec   +++|
01033  M01S00746.dmrec   +++| LFNC     BSSZ   1           LFN CONTROL
01034  M01S00747.dmrec   +++| LSTC     BSSZ   1           LIST CONTROL
01035  M01S00748.dmrec   +++| MTIM     DATA   10H 00.00.00.  MIDNIGHT TIME
01036  M01S00749.dmrec   +++| TKY1     BSSZ   1           WORD ONE OF KEY
01037  M01S00750.dmrec   +++| TKY2     BSSZ   1           WORD TWO OF KEY
01038  M01S00751.dmrec   +++| CKY1     BSSZ   1           TEMPORARY KEY WORD
01039  M01S00752.dmrec   +++| CKY2     BSSZ   1           TEMPORARY KEY WORD
01040  M01S00753.dmrec   +++| VKY1     BSSZ   1           TEMPORARY KEY WORD
01041  M01S00754.dmrec   +++| VKY2     BSSZ   1           TEMPORARY KEY WORD
01042  M01S00755.dmrec   +++| AKY1     BSSZ   1           TEMPORARY KEY WORD
01043  M01S00756.dmrec   +++| AKY2     BSSZ   1           TEMPORARY KEY WORD
01044  M01S00757.dmrec   +++| WDCT     BSSZ   1           WORD COUNT
01045  M01S00758.dmrec   +++| RPCT     BSSZ   1           REPEAT COUNT
01046  M01S00759.dmrec   +++| BKEY     DATA   1H          WORD OF BLANKS
01047  M01S00760.dmrec   +++| BLKL     DATA   1L          BLANK LINE
01048  M01S00761.dmrec   +++| VSNK     DATA   10H**********  WORD OF ASTERISKS
01049  M01S00762.dmrec   +++| WSAL     EQU    6           WSA LENGTH
01050  M01S00763.dmrec   +++| WSAB     BSSZ   WSAL        RECORD WSA
01051  M01S00764.dmrec   +++| TFIL     DATA   10H FILE DUMP  FILE TYPE
01052  M01S00765.dmrec   +++| LOGT     DATA   10H AI LOG NN  AFTER IMAGE TYPE
01053  M01S00766.dmrec   +++| TFOR     DATA   10H B          BLOCK TYPE
01054  M01S00767.dmrec   +++|          DATA   10H R          RECORD TYPE
01055  M01S00768.dmrec   +++| BIND     DATA   1AB         BEGIN INDICATOR
01056  M01S00769.dmrec   +++| HDRC     BSSZ   1           HEADER CONTROL
01057  M01S00770.dmrec   +++| LHDR     BSSZ   1           LAST HEADER
01058  M01S00771.dmrec   +++| EOFF     EQU    100B        END OF FILE
01059  M01S00772.dmrec   +++| EOSF     EQU    10B         END OF SECTION FOR SEQUENTIAL FILE
01060  M01S00773.dmrec   +++| KNFF     EQU    445B        KEY NOT FOUND
01061  M01S00774.dmrec   +++| LWAK     BSSZ   1           LWA OF KEY AREA
01062  M01S00775.dmrec   +++| KEYW     BSSZ   1           CURRENT ADDRESS IN KEY AREA
01063  M01S00776.dmrec   +++| PLINL    EQU    10          PRINT LINE LENGTH
01064  M01S00777.dmrec   +++| PLIN     BSSZ   PLINL+1     PRINT LINE BUFFER
01065  M01S00778.dmrec   +++| SCPC     CON    0           BYTE POSITION
01066  M01S00779.dmrec   +++| OPWD     CON    3           OPTION CONTROL WRD (PRESET TO OCTAL/ALPHA)
01067  M01S00780.dmrec   +++| EQTW     CON    0           EQUIVALENCE TEST WORD
01068  M01S00781.dmrec   +++| DTOL     BSSZ   4           DATA FOR ONE LINE
01069  M01S00782.dmrec   +++| WCBL     CON    0           BEGINNING OF LINE WORD COUNT
01070  M01S00783.dmrec   +++| MALR     DATA   C* -- ABOVE LINE REPEATED --*
01071  M01S00784.dmrec   +++| RECC     BSSZ   1           RECORD COUNT
01072  M01S00785.dmrec   +++| CYCD     BSSZ   1           CYCLE NUMBER FROM DIRECTORY HEADER
01073  M01S00786.dmrec   +++| CYCF     BSSZ   1           CYCLE CHANGE FLAG
01074  M01S00787.dmrec   +++| CYCC     BSSZ   1           CYCLE COUNT
01075  M01S00788.dmrec   +++| CYCT     BSSZ   1           TEMPORARY CYCLE COUNT
01076  M01S00789.dmrec   +++| CYCM     EQU    9           MAXIMUM CYCLE NUMBER
01077  M01S00790.dmrec   +++| LDATE    BSSZ   1           LAST CYCLE DATE/TIME
01078  M01S00791.dmrec   +++| LFNP     BSSZ   1           CURRENT FILE POINTER
01079  M01S00792.dmrec   +++| ADDF     BSSZ   1           ADD FLAG - ADD/DELETE VSN
01080  M01S00793.dmrec   +++| DELF     BSSZ   1           DELETE FLAG - DUMP/VSN ENTRY
01081  M01S00794.dmrec   +++| EDTF     BSSZ   1           EDIT FLAG - AUTO/MANUAL EDIT
01082  M01S00795.dmrec   +++| TDFSL    EQU    64          LENGTH OF COPY OF *TDFN* TABLE
01083  M01S00796.dmrec   +++| TDFS     BSSZ   TDFSL       COPY OF *TDFN* USED BY EDIT
Line S00797 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01084  M02S00797.ns2023  ---| TQRF     BSSZ   TQRFE       *TQRF* TABLE
Line S00798 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01085  M02S00798.ns2023  ---| TLRF     BSSZ   TARFE       *TLRF* TABLE
01086  M01S00005.ns2023  +++| TQRF     BSSZ   TQRFE       *TBRF* TABLE
01087  M01S00006.ns2023  +++| TARF     BSSZ   TARFE       *TARF* TABLE
01088  M01S00799.dmrec   +++|
01089  M01S00800.dmrec   +++|*         WORDS/LINE TABLE INDEXED BY *JOBORG*.
01090  M01S00801.dmrec   +++|
01091  M01S00802.dmrec   +++| WPLT     BSS    0
01092  M01S00803.dmrec   +++|          CON    2           TERMINAL
01093  M01S00804.dmrec   +++|          CON    4           NON-TERMINAL
01094  M01S00805.dmrec   +++|
01095  M01S00806.dmrec   +++|*         LIST OF FILES PARAMETERS.
01096  M01S00807.dmrec   +++|
01097  M01S00808.dmrec   +++| LOF      VFD    12/0,18/LOFA,30/0
01098  M01S00809.dmrec   +++| LOFA     VFD    42/0,18/2
01099  M01S00810.dmrec   +++| LOFB     BSSZ   2
01100  M01S00811.dmrec   +++| TABLES   SPACE  4,10
01101  M01S00812.dmrec   +++|**        TDIR - TABLE OF VALID DIRECTIVES.
01102  M01S00813.dmrec   +++|*
01103  M01S00814.dmrec   +++|*         THIS TABLE CONTAINS THE VALID DIRECTIVES
01104  M01S00815.dmrec   +++|*         FOR *TAF/CRM* BATCH RECOVERY.  IT ALSO CONTAINS THE
01105  M01S00816.dmrec   +++|*         OPERATION FLAGS WHICH VALIDATE THE USE OF SPECIFIC
01106  M01S00817.dmrec   +++|*         PARAMETERS ON ITS RELATED DIRECTIVE.  SUBCODES ARE
01107  M01S00818.dmrec   +++|*         USED IN PROCESSING THE *CYCLE*, *ADD* AND *DELETE*
01108  M01S00819.dmrec   +++|*         DIRECTIVES WHICH ARE USED IN *EDIT*, AND IN
01109  M01S00820.dmrec   +++|*         RECOVERY PROCESSING IN *LOAD*.
01110  M01S00821.dmrec   +++|*
01111  M01S00822.dmrec   +++|*T TDIR   42/A, 18/B
Figure TDIR

0171829BA3059A

01112  M01S00823.dmrec   +++|*T,TDIR+1 1/C,1/D,1/E,1/F,1/G,1/H,1/I,1/J,1/K,49/,2/L
Figure TDIR+1

01229L3050515253545556575859KJIHGFEDC

01113  M01S00824.dmrec   +++|*
01114  M01S00825.dmrec   +++|*         A = TDMA - DIRECTIVE NAME.
01115  M01S00826.dmrec   +++|*         B = TDMB - PROCESSOR ADDRESS.
01116  M01S00827.dmrec   +++|*         C = TDMC - TIME.
01117  M01S00828.dmrec   +++|*         D = TDMD - DATE.
01118  M01S00829.dmrec   +++|*         E = TDME - VSN.
01119  M01S00830.dmrec   +++|*         F = TDMF - BLOCK/RECORD.
01120  M01S00831.dmrec   +++|*         G = TDMG - TASK NAME.
01121  M01S00832.dmrec   +++|*         H = TDMH - TASK SEQUENCE NUMBER.
01122  M01S00833.dmrec   +++|*         I = TDMI - LENGTH.
01123  M01S00834.dmrec   +++|*         J = TDMJ - PERCENT.
01124  M01S00835.dmrec   +++|*         K = TDMK - CYCLE.
01125  M01S00836.dmrec   +++|*         L = TDML - SUBCODE.
01126  M01S00837.dmrec   +++|
01127  M01S00838.dmrec   +++|*         INPUT DIRECTIVE TABLE.
01128  M01S00839.dmrec   +++|
01129  M01S00840.dmrec   +++| TDMA     FIELD  0,59,18     DIRECTIVE NAME
01130  M01S00841.dmrec   +++| TDMB     FIELD  0,17,0      PROCESSOR ADDRESS
01131  M01S00842.dmrec   +++| TDMC     FIELD  1,59,59     TIME
01132  M01S00843.dmrec   +++| TDMD     FIELD  1,58,58     DATE
01133  M01S00844.dmrec   +++| TDME     FIELD  1,57,57     VSN
01134  M01S00845.dmrec   +++| TDMF     FIELD  1,56,56     BLOCK/RECORD
01135  M01S00846.dmrec   +++| TDMG     FIELD  1,55,55     TASK NAME
01136  M01S00847.dmrec   +++| TDMH     FIELD  1,54,54     TASK SEQUENCE NUMBER
01137  M01S00848.dmrec   +++| TDMI     FIELD  1,53,53     LENGTH
01138  M01S00849.dmrec   +++| TDMJ     FIELD  1,52,52     PERCENT
01139  M01S00850.dmrec   +++| TDMK     FIELD  1,51,51     CYCLE
01140  M01S00851.dmrec   +++| TDML     FIELD  1,1,0       SUBCODE
01141  M01S00852.dmrec   +++|
01142  M01S00853.dmrec   +++|
01143  M01S00854.dmrec   +++| TDIR     BSS    0
01144  M01S00855.dmrec   +++|          VFD    42/0LCOMMENT,18/0     *COMMENT DIRECTIVE
01145  M01S00856.dmrec   +++|          VFD    60/0
01146  M01S00857.dmrec   +++|          VFD    42/0LDUMP,18/DMP      *DUMP DIRECTIVE
01147  M01S00858.dmrec   +++|          VFD    1/TDMCN,1/TDMDN,1/TDMEN,1/TDMFN,56/0
01148  M01S00859.dmrec   +++|          VFD    42/0LLOAD,18/LOD      *LOAD DIRECTIVE
01149  M01S00860.dmrec   +++|          VFD    1/TDMCN,1/TDMDN,1/TDMEN,1/TDMFN,56/0
01150  M01S00861.dmrec   +++|          VFD    42/0LLIST,18/LST      *LIST DIRECTIVE
01151  M01S00862.dmrec   +++|          VFD    1/TDMCN,1/TDMDN,1/TDMEN,1/TDMFN,56/0
01152  M01S00863.dmrec   +++|          VFD    42/0LEDIT,18/EIT      *EDIT DIRECTIVE
01153  M01S00864.dmrec   +++|          VFD    60/0
01154  M01S00865.dmrec   +++|          VFD    42/0LRECOVER,18/REC   *RECOVER DIRECTIVE
01155  M01S00866.dmrec   +++|          VFD    1/TDMCN,1/TDMDN,1/TDMEN,1/TDMFN,56/0
01156  M01S00867.dmrec   +++|          VFD    42/0LUPDATE,18/UPD    *UPDATE DIRECTIVE
01157  M01S00868.dmrec   +++|          VFD    1/TDMCN,1/TDMDN,1/TDMEN,1/TDMFN,56/0
01158  M01S00869.dmrec   +++|          VFD    42/0LEXPAND,18/EXP    *EXPAND DIRECTIVE
01159  M01S00870.dmrec   +++|          VFD    7/0,1/TDMJN,52/0
01160  M01S00871.dmrec   +++|          VFD    42/0LIGNORE,18/IGN    *IGNORE DIRECTIVE
01161  M01S00872.dmrec   +++|          VFD    4/0,1/TDMGN,1/TDMHN,54/0
01162  M01S00873.dmrec   +++|          VFD    42/0LCYCLE,18/EIT     *CYCLE DIRECTIVE
01163  M01S00874.dmrec   +++|          VFD    8/0,1/TDMKN,49/0,2/2
01164  M01S00875.dmrec   +++|          VFD    42/0LDELETE,18/EIT    *DELETE DIRECTIVE
01165  M01S00876.dmrec   +++|          VFD    1/TDMCN,1/TDMDN,1/TDMEN,55/0,2/3
01166  M01S00877.dmrec   +++|          VFD    42/0LADD,18/EIT       *ADD DIRECTIVE
01167  M01S00878.dmrec   +++|          VFD    2/0,1/TDMEN,55/0,2/1
01168  M01S00879.dmrec   +++|          VFD    42/0LCREATE,18/CRT    *CREATE DIRECTIVE
01169  M01S00880.dmrec   +++|          VFD    6/0,1/TDMIN,53/0
01170  M01S00881.dmrec   +++| TDIRL    EQU    *-TDIR
01171  M01S00882.dmrec   +++| TDFN     SPACE  4,15
01172  M01S00883.dmrec   +++|**        TDFN - TABLE OF DATA BASE FILE NAMES.
01173  M01S00884.dmrec   +++|*
01174  M01S00885.dmrec   +++|*         THIS TABLE CONTAINS THE DATA BASE FILE NAMES AS READ
01175  M01S00886.dmrec   +++|*         FROM THE DIRECTIVE FILE.
01176  M01S00887.dmrec   +++|*
01177  M01S00888.dmrec   +++|*T  TDFN  42/FILENAME,3/0,3/FLAG,12/0
Figure TDFN

0111214151718290FLAG0FILENAME3059FILENAME

01178  M01S00889.dmrec   +++|*
01179  M01S00890.dmrec   +++|*         FILENAME = FILE NAME AS READ FROM DIRECTIVES.
01180  M01S00891.dmrec   +++|*         FLAG     = *B* IF BLOCK OPERATION REQUESTED.
01181  M01S00892.dmrec   +++|*         FLAG     = *R* IF RECORD OPERATION REQUESTED.
01182  M01S00893.dmrec   +++|*         FLAG     = 0 IF DEFAULT OPERATION REQUESTED.
01183  M01S00894.dmrec   +++|
01184  M01S00895.dmrec   +++|
01185  M01S00896.dmrec   +++| TDFNL    EQU    NDUMP*2
01186  M01S00897.dmrec   +++| TDFN     BSS    TDFNL
01187  M01S00898.dmrec   +++| TTIG     SPACE  4,20
01188  M01S00899.dmrec   +++|**        TTIG - TABLE OF TRANSACTIONS TO IGNORE.
01189  M01S00900.dmrec   +++|*
01190  M01S00901.dmrec   +++|*         THIS TABLE CONTAINS A LIST OF TRANSACTION ENTRIES
01191  M01S00902.dmrec   +++|*         TO IGNORE WHEN UPDATING A *CRM* FILE.  THE TABLE CONTAINS
01192  M01S00903.dmrec   +++|*         TWO WORD ENTRIES TERMINATED WITH A ZERO WORD.
01193  M01S00904.dmrec   +++|*
01194  M01S00905.dmrec   +++|*T,TTIG   42/TASKN,6/0,12/TID
Figure TTIG

01112171829TID0TASKN3059TASKN

01195  M01S00906.dmrec   +++|*         OR
01196  M01S00907.dmrec   +++|*         30/TASKS,18/0,12/TID
01197  M01S00908.dmrec   +++|*T,TTIG+1 60/BID
Figure TTIG+1

029BID3059BID

01198  M01S00909.dmrec   +++|*
01199  M01S00910.dmrec   +++|*         TASKN = TASK NAME.
01200  M01S00911.dmrec   +++|*         TASKS = TASK SEQUENCE NUMBER.
01201  M01S00912.dmrec   +++|*         TID   = TN - IF TASK NAME.
01202  M01S00913.dmrec   +++|*               = TS - IF TASK SEQUENCE NUMBER.
01203  M01S00914.dmrec   +++|*         BID   = 0, IF ENTRY GENERATED BY *IGNORE* DIRECTIVE.
Line S00915 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01204  M02S00915.ns2023  ---|*               = BEGIN IDENTIFIER IF ENTERED ON *QRF* RECOVERY.
01205  M01S00007.ns2023  +++|*               = BEGIN IDENTIFIER IF ENTERED ON *BRF* RECOVERY.
01206  M01S00916.dmrec   +++|
01207  M01S00917.dmrec   +++|
01208  M01S00918.dmrec   +++| TTIG     BSSZ   TTIGL
01209  M01S00919.dmrec   +++| TVSN     SPACE  4,10
01210  M01S00920.dmrec   +++|**        TVSN - TABLE OF VSN ENTRIES.
01211  M01S00921.dmrec   +++|*
01212  M01S00922.dmrec   +++|*         ONE WORD VSN ENTRIES TERMINATED BY A ZERO WORD.
01213  M01S00923.dmrec   +++|*
01214  M01S00924.dmrec   +++|*T TVSN   42/VSN,18/VSNN
Figure TVSN

0171829VSNNVSN3059VSN

01215  M01S00925.dmrec   +++|*
01216  M01S00926.dmrec   +++|*         VSNN = NUMBER OF EOF-S ON THIS TAPE.
01217  M01S00927.dmrec   +++|
01218  M01S00928.dmrec   +++|
01219  M01S00929.dmrec   +++| TVSN     BSSZ   TVSNL
01220  M01S00007.dmrec7  +++| BVSN     BSSZ   1           1 WORD BUFFER FOR END OF TABLE
Line S00930 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01221  M02S00930.ns2023  ---| TTQRF    SPACE  4,10
Line S00931 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01222  M02S00931.ns2023  ---|**        TTQRF - TABLE OF DOWNED *QRF-S*.
01223  M01S00008.ns2023  +++| TTBRF    SPACE  4,10
01224  M01S00009.ns2023  +++|**        TTBRF - TABLE OF DOWNED *BRF-S*.
01225  M01S00932.dmrec   +++|*
Line S00933 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01226  M02S00933.ns2023  ---|*         THIS IS A TABLE OF *QRF-S* TO REALLOCATE ON A *QRF* RECOVERY.
01227  M01S00010.ns2023  +++|*         THIS IS A TABLE OF *BRF-S* TO REALLOCATE ON A *BRF* RECOVERY.
01228  M01S00934.dmrec   +++|*         IT CONTAINS ONE WORD ENTRIES AND IS TERMINATED BY A
01229  M01S00935.dmrec   +++|*         ZERO WORD.
01230  M01S00936.dmrec   +++|*
Line S00937 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01231  M02S00937.ns2023  ---|*T TTQRF  42/QRF,18/0
Figure TTQRF

01718290QRF3059QRF

01232  M01S00011.ns2023  +++|*T TTBRF  42/BRF,18/0
Figure TTBRF

01718290BRF3059BRF

01233  M01S00938.dmrec   +++|
01234  M01S00939.dmrec   +++|
Line S00940 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01235  M02S00940.ns2023  ---| TTQRFL   EQU    10          MAXIMUM NUMBER OF DOWNED QRFS
Line S00941 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01236  M02S00941.ns2023  ---| TTQRF    BSSZ   TTQRFL
01237  M01S00012.ns2023  +++| TTBRFL   EQU    10          MAXIMUM NUMBER OF DOWNED BRFS
01238  M01S00013.ns2023  +++| TTBRF    BSSZ   TTBRFL
01239  M01S00008.dmrec7  +++|          SPACE  4,10
01240  M01S00009.dmrec7  +++|**        TEOR - TABLE OF VSN-S AND END OF RECORD COUNTS.
01241  M01S00010.dmrec7  +++|*
01242  M01S00011.dmrec7  +++|*         THIS IS A TABLE OF ONE WORD ENTRIES OF VSN-S AND ITS
01243  M01S00012.dmrec7  +++|*         ASSOCIATED *EOR* COUNT.  THE TABLE IS TERMINATED BY
01244  M01S00013.dmrec7  +++|*         A ZERO WORD.
01245  M01S00014.dmrec7  +++|*
01246  M01S00015.dmrec7  +++|*T,TEOR   36/VSN,24/EORCNT
Figure TEOR

0232429EORCNTVSN3059VSN

01247  M01S00016.dmrec7  +++|*
01248  M01S00017.dmrec7  +++|*         EORCNT = NUMBER OF EOR-S ON THIS TAPE
01249  M01S00018.dmrec7  +++|
01250  M01S00019.dmrec7  +++| TEOR     BSSZ   TVSNL
01251  M01S00020.dmrec7  +++|          SPACE  4,10
01252  M01S00021.dmrec7  +++|**        TREC - RECOVERY VSN TABLE.
01253  M01S00022.dmrec7  +++|*
01254  M01S00023.dmrec7  +++|*         THIS TABLE CONTAINS THE FIRST REEL *ARF* TAPES VSN AND
01255  M01S00024.dmrec7  +++|*         IS TERMINATED BY A ZERO WORD.
01256  M01S00025.dmrec7  +++|*
01257  M01S00026.dmrec7  +++|*T,TREC 36/VSN,24/0
Figure TREC 36

Bitfield Rendering Failure
======== ========= =======
The field description 
[
{ "name": "0", "bits": 24, "type": 2 },
{ "name": "VSN", "bits": , "type": 1 }
]


 is invalid.

Please check your syntax and try again.

01258  M01S00027.dmrec7  +++|
01259  M01S00028.dmrec7  +++| TREC     BSSZ   TRECL
01260  M01S00942.dmrec   +++| FTAB     SPACE  4,10
01261  M01S00943.dmrec   +++|**        FTAB - INTERMEDIATE IGNORE TABLE.
01262  M01S00944.dmrec   +++|*
01263  M01S00945.dmrec   +++|*         THIS IS AN INTERMEDIATE TABLE THAT CONTAINS TWO WORD
01264  M01S00946.dmrec   +++|*         ENTRIES AND IS TERMINATED WITH A NEGATIVE WORD.
01265  M01S00947.dmrec   +++|*         THIS TABLE WILL EXPAND TO ITS PRESET LIMITS BUT
01266  M01S00948.dmrec   +++|*         WILL NOT REDUCE.
01267  M01S00949.dmrec   +++|*
01268  M01S00950.dmrec   +++|*T FTAB   42/FN,18/0
Figure FTAB

01718290FN3059FN

01269  M01S00951.dmrec   +++|*T,FTAB+1 24/TS,6/0,30/BID
Figure FTAB+1

029BID303536590TS

01270  M01S00952.dmrec   +++|*
01271  M01S00953.dmrec   +++|*         FN= FILE NAME.
01272  M01S00954.dmrec   +++|*         TS = TASK SEQUENCE NUMBER.
01273  M01S00955.dmrec   +++|*         BID = BEGIN ID OF CURRENT TASK.
01274  M01S00956.dmrec   +++|
01275  M01S00957.dmrec   +++|
01276  M01S00958.dmrec   +++| FTAB     BSSZ   FTABL
Line S00959 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01277  M02S00959.dmrec2  ---| AAIC     SPACE  4,10
Line S00960 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01278  M02S00960.dmrec2  ---|**        AAIC - AFTER IMAGE ACCUMULATION TABLE.
Line S00961 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01279  M02S00961.dmrec2  ---|*
Line S00962 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01280  M02S00962.dmrec2  ---|*         THIS TABLE CONTAINS ONE WORD ENTRIES OF (BEGIN) TRANSACTION
Line S00963 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01281  M02S00963.dmrec2  ---|*         SEQUENCE NUMBERS.  IT IS USED TO DELINEATE THE APPLICATION
Line S00964 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01282  M02S00964.dmrec2  ---|*         OF *AFTER IMAGE* ENTRIES BY DATE/TIME.
Line S00965 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01283  M02S00965.dmrec2  ---|*
Line S00966 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01284  M02S00966.dmrec2  ---|*T AAIC   42/TS,18/0
Figure AAIC

01718290TS3059TS


Line S00967 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01285  M02S00967.dmrec2  ---|
Line S00968 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01286  M02S00968.dmrec2  ---|
Line S00969 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01287  M02S00969.dmrec2  ---| AAIC     BSSZ   AAICL
01288  M01S00970.dmrec   +++| TLOG     SPACE  4,10
01289  M01S00971.dmrec   +++|**        TLOG - TABLE OF LOG ENTRIES.
01290  M01S00972.dmrec   +++|*
01291  M01S00973.dmrec   +++|*         THIS TABLE CONTAINS TWO WORD ENTRIES OF THE FOLLOWING FORMAT.
01292  M01S00974.dmrec   +++|*
01293  M01S00975.dmrec   +++|*T TLOG   42/LFN,18/N
Figure TLOG

0171829NLFN3059LFN

01294  M01S00976.dmrec   +++|*T,TLOG+1 60/PDT
Figure TLOG+1

029PDT3059PDT

01295  M01S00977.dmrec   +++|*
01296  M01S00978.dmrec   +++|*         LFN = LOGICAL FILE NAME.
01297  M01S00979.dmrec   +++|*         N   = NUMBER OF *AFTER IMAGE* ENTRIES TO A *CRM* DATA FILE.
01298  M01S00980.dmrec   +++|*         PDT = PACKED DATE/TIME.
01299  M01S00981.dmrec   +++|
01300  M01S00982.dmrec   +++|
01301  M01S00983.dmrec   +++| TLOG     BSSZ   TLOGL
01302  M01S00984.dmrec   +++|          SPACE  4,10
01303  M01S00985.dmrec   +++|          TITLE  MAIN ROUTINE.
Line S00986 Modification History
M01 (Added by) dmrec
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01304  M02S00986.v23l617 ---| DMREC    RJ     PRS         PRESET CONTROL CARD VALUES
01305  M01S00016.v23l617 +++| DMREC    RJ     PRS         PRESET COMMAND VALUES
01306  M01S00987.dmrec   +++|
01307  M01S00988.dmrec   +++|*         CHECK FOR LEGAL USER.
01308  M01S00989.dmrec   +++|
01309  M01S00990.dmrec   +++|          USERNUM JUSER      GET USER NAME
01310  M01S00991.dmrec   +++|          SA2    JUSER
01311  M01S00992.dmrec   +++|          SA1    =7L"USNM"
01312  M01S00993.dmrec   +++|          BX2    X2-X1
01313  M01S00994.dmrec   +++|          NZ     X2,DMR1     IF USER = *TAF*
01314  M01S00995.dmrec   +++|          MX6    0
01315  M01S00996.dmrec   +++|          SA6    JUSER
01316  M01S00997.dmrec   +++| DMR1     RJ     RDD         READ FIRST DIRECTIVE
01317  M01S00998.dmrec   +++|          ZR     X1,DMR3     IF NO EOR/EOF
01318  M01S00999.dmrec   +++|          MESSAGE DMRC,,R
01319  M01S01000.dmrec   +++|          SX6    1
01320  M01S01001.dmrec   +++|          SA6    ERROR       SET ERROR FLAG
01321  M01S01002.dmrec   +++|          EQ     DMR6        EXIT
01322  M01S01003.dmrec   +++|
01323  M01S01004.dmrec   +++| DMR2     RJ     RDD         READ NEXT DIRECTIVE
01324  M01S01005.dmrec   +++|
01325  M01S01006.dmrec   +++|*         CHECK FIRST CHARACTER.
01326  M01S01007.dmrec   +++|
01327  M01S01008.dmrec   +++| DMR3     SA1    EOF
01328  M01S01009.dmrec   +++|          NZ     X1,DMR6     IF EOF ON DIRECTIVE FILE
01329  M01S01010.dmrec   +++|          SA2    DIR
01330  M01S01011.dmrec   +++|          SX3    X2-1R*
01331  M01S01012.dmrec   +++|          NZ     X3,DMR7     IF FIRST CHARACTER NOT = *
01332  M01S01013.dmrec   +++|          SA1    DIRFLAG
01333  M01S01014.dmrec   +++|          SB7    X1          RESTORE CURRENT DIRECTIVE LWA
01334  M01S01015.dmrec   +++|
01335  M01S01016.dmrec   +++|*         CHECK FOR COMMENT CARDS.
01336  M01S01017.dmrec   +++|
01337  M01S01018.dmrec   +++|          SA2    A2+B1       GET NEXT CHARACTER IN CARD
01338  M01S01019.dmrec   +++|          SX3    X2-1R/
01339  M01S01020.dmrec   +++|          ZR     X3,DMR2     IF COMMENT (*/)
01340  M01S01021.dmrec   +++|          SX3    X2-1R.
01341  M01S01022.dmrec   +++|          ZR     X3,DMR2     IF COMMENT (*.)
01342  M01S01023.dmrec   +++|
01343  M01S01024.dmrec   +++|*         CHECK FOR LEGAL DIRECTIVES.
01344  M01S01025.dmrec   +++|
01345  M01S01026.dmrec   +++|          RJ     GPR         GET FIRST PARAMETER FROM DIRECTIVE
01346  M01S01027.dmrec   +++|          GT     B2,DMR7     IF ERROR ENCOUNTERED
01347  M01S01028.dmrec   +++|          MX0    42
01348  M01S01029.dmrec   +++|          SB2    B0
01349  M01S01030.dmrec   +++|          SB3    TDIRL       LENGTH OF DIRECTIVE TABLE
01350  M01S01031.dmrec   +++|          SA4    TDIR        FWA OF DIRECTIVE TABLE
01351  M01S01032.dmrec   +++| DMR4     GE     B2,B3,DMR7  IF DIRECTIVE NOT FOUND
01352  M01S01033.dmrec   +++|          BX6    X0*X4       MASK OUT
01353  M01S01034.dmrec   +++|          IX6    X6-X5
01354  M01S01035.dmrec   +++|          ZR     X6,DMR5     IF DIRECTIVE FOUND
01355  M01S01036.dmrec   +++|          SA4    A4+2
01356  M01S01037.dmrec   +++|          SB2    B2+2
01357  M01S01038.dmrec   +++|          EQ     DMR4        LOOP
01358  M01S01039.dmrec   +++|
01359  M01S01040.dmrec   +++| DMR5     SB2    X4          VALID DIRECTIVE FOUND
01360  M01S01041.dmrec   +++|          ZR     B2,DMR2     IF *COMMENT* DIRECTIVE
01361  M01S01042.dmrec   +++|          BX6    X5          SAVE DIRECTIVE NAME
01362  M01S01043.dmrec   +++|          SA6    DIRECT
01363  M01S01044.dmrec   +++|          SA4    A4+B1
01364  M01S01045.dmrec   +++|          BX6    X4
01365  M01S01046.dmrec   +++|          JP     B2+         JUMP TO PROCESSOR ROUTINE
01366  M01S01047.dmrec   +++|
01367  M01S01048.dmrec   +++| DMR6     WRITER O           *CHECKOUT*
01368  M01S01049.dmrec   +++|          SA1    ERROR
01369  M01S01050.dmrec   +++|          ZR     X1,DMR6.1   IF NO ERRORS IN PROCESSING
01370  M01S01051.dmrec   +++|          SA1    TT
01371  M01S01052.dmrec   +++|          ZR     X1,DMR6.0   IF *TT* NOT SPECIFIED
01372  M01S01053.dmrec   +++|          SA1    DBNAME
01373  M01S01054.dmrec   +++|          SB5    DMRE
01374  M01S01055.dmrec   +++|          SB2    1RZ
01375  M01S01056.dmrec   +++|          RJ     SNM         SET DATA BASE NAME IN MESSAGE
01376  M01S01057.dmrec   +++|          SA1    DIRECT
01377  M01S01058.dmrec   +++|          SB5    DMRE
01378  M01S01059.dmrec   +++|          SB2    1RX
01379  M01S01060.dmrec   +++|          RJ     SNM         SET DIRECTIVE NAME IN MESSAGE
01380  M01S01061.dmrec   +++|          SA5    DMRE        ADDRESS OF OPERATOR MESSAGE
01381  M01S01062.dmrec   +++|          RJ     NOP         NOTIFY OPERATOR OF ERROR
01382  M01S01063.dmrec   +++| DMR6.0   MESSAGE  DMRD,,R
01383  M01S01064.dmrec   +++|          EQ     DMR6.2      COMPLETE PROCESSING
01384  M01S01065.dmrec   +++|
01385  M01S01066.dmrec   +++| DMR6.1   MESSAGE  DMRB,,R
01386  M01S01067.dmrec   +++| DMR6.2   RJ     RAF         RETURN ALL FILES
01387  M01S01068.dmrec   +++|          RJ     NTF         NOTIFY TAF
01388  M01S01069.dmrec   +++|          ENDRUN
01389  M01S01070.dmrec   +++|
01390  M01S01071.dmrec   +++| DMR7     ERROR  DMRA,,,DMR3,R,E  DIRECTIVE FORMAT ERROR
01391  M01S01072.dmrec   +++|
01392  M01S01073.dmrec   +++| DMRA     DATA   20H0     *****
01393  M01S01074.dmrec   +++|          DATA   C*DIRECTIVE FORMAT ERROR.*
01394  M01S01075.dmrec   +++| DMRAL    EQU    *-DMRA
01395  M01S01076.dmrec   +++|
01396  M01S01077.dmrec   +++| DMRB     DATA   C*DMREC COMPLETE.*
01397  M01S01078.dmrec   +++|
Line S01079 Modification History
M01 (Added by) dmrec
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01398  M02S01079.v23l617 ---| DMRC     DATA   C*NO DIRECTIVES.*
01399  M01S00017.v23l617 +++| DMRC     DATA   C*NO DMREC DIRECTIVES.*
01400  M01S01080.dmrec   +++|
01401  M01S01081.dmrec   +++| DMRD     DATA   C*ERROR(S) ENCOUNTERED IN DMREC PROCESSING.*
01402  M01S01082.dmrec   +++|
01403  M01S01083.dmrec   +++| DMRE     DATA   C* DMREC FAILED - XXXXXXX ZZ.*
01404  M01S01084.dmrec   +++|          TITLE  DIRECTIVE PROCESSORS.
01405  M01S01085.dmrec   +++| AAI      SPACE  4,20
01406  M01S01086.dmrec   +++|**        AAI - APPLY AFTER IMAGES.
01407  M01S01087.dmrec   +++|*
01408  M01S01088.dmrec   +++|*         *AAI* APPLIES AN AFTER IMAGE LOG ENTRY TO A CRM DATA FILE
01409  M01S01089.dmrec   +++|*         IF THE IMAGE IS WITHIN THE TARGETED DATE AND TIME.
01410  M01S01090.dmrec   +++|*
01411  M01S01091.dmrec   +++|*         ENTRY  (STPDT) = START PACKED DATE/TIME.
01412  M01S01092.dmrec   +++|*                (ENPDT) = END PACKED DATE/TIME.
01413  M01S01093.dmrec   +++|*                (X4)    = FWA OF *AFTER IMAGE*.
01414  M01S01094.dmrec   +++|*
01415  M01S01095.dmrec   +++|*         EXIT   (X1) = 0 - IF NO ERRORS
01416  M01S01096.dmrec   +++|*
01417  M01S01097.dmrec   +++|*         USES   X - ALL.
01418  M01S01098.dmrec   +++|*                A - 1, 2, 3, 4, 5, 6.
01419  M01S01099.dmrec   +++|*                B - 2, 3.
01420  M01S01100.dmrec   +++|*
01421  M01S01101.dmrec   +++|*         MACROS DELETE, ERROR, FETCH, PUT, RMREP.
01422  M01S01102.dmrec   +++|
01423  M01S01103.dmrec   +++|
01424  M01S01104.dmrec   +++| AAI      SUBR               ENTRY/EXIT
01425  M01S01105.dmrec   +++|          BX6    X4
01426  M01S01106.dmrec   +++|          SA6    HOLD3      SAVE FWA OF RECORD
01427  M01S01107.dmrec   +++|
01428  M01S01108.dmrec   +++|*         CHECK FOR THE ACCURANCE OF A BEGIN STAMP IN SPECIFIED
01429  M01S01109.dmrec   +++|*         DATE/TIME WINDOW. SKIP ALL IMAGES OUTSIDE THIS WINDOW.
01430  M01S01110.dmrec   +++|
01431  M01S01111.dmrec   +++|          SA1    X4+2        GET TIME/DATE
01432  M01S01112.dmrec   +++|          SA2    STPDT
01433  M01S01113.dmrec   +++|          IX2    X1-X2
01434  M01S01114.dmrec   +++|          NG     X2,AAI16    IF BEFORE BEGIN DATE/TIME
01435  M01S01115.dmrec   +++|          SA2    ENPDT
01436  M01S01116.dmrec   +++|          IX2    X2-X1
01437  M01S01117.dmrec   +++|          NG     X2,AAI16    IF AFTER END DATE/TIME
Line S01118 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01438  M02S01118.dmrec2  ---|          SB2    B0-B1
Line S01119 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01439  M02S01119.dmrec2  ---|          SB3    AAICL       TABLE LENGTH
Line S01120 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01440  M02S01120.dmrec2  ---|          SA1    X4          GET BEGIN INDECATOR
Line S01121 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01441  M02S01121.dmrec2  ---|          LX1    59-XLBWS
Line S01122 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01442  M02S01122.dmrec2  ---|          NG     X1,AAI5     IF DB BEGIN
Line S01123 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01443  M02S01123.dmrec2  ---|          LX1    18-59
Line S01124 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01444  M02S01124.dmrec2  ---|          SX4    X1
Line S01125 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01445  M02S01125.dmrec2  ---|          MX0    XLSQN
Line S01126 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01446  M02S01126.dmrec2  ---|          BX5    X0*X1
Line S01127 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01447  M02S01127.dmrec2  ---|          ZR     X4,AAI2     IF COMMIT STAMP
Line S01128 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01448  M02S01128.dmrec2  ---|          SX4    X4-TRDF
Line S01129 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01449  M02S01129.dmrec2  ---|          ZR     X4,AAI2     IF DB FREE
Line S01130 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01450  M02S01130.dmrec2  ---| AAI1     EQ     B2,B3,AAI16  EXIT NORMAL
Line S01131 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01451  M02S01131.dmrec2  ---|          SA2    B2+AAIC+1
Line S01132 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01452  M02S01132.dmrec2  ---|          SB2    B2+B1
Line S01133 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01453  M02S01133.dmrec2  ---|          ZR     X2,AAI1     IF ZERO ENTRY
Line S01134 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01454  M02S01134.dmrec2  ---|          BX1    X2-X5
Line S01135 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01455  M02S01135.dmrec2  ---|          ZR     X1,AAI7     IF CONTINUE NORMAL
Line S01136 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01456  M02S01136.dmrec2  ---|          EQ     AAI1        CHECK NEXT ENTRY
Line S01137 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01457  M02S01137.dmrec2  ---|
Line S01138 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01458  M02S01138.dmrec2  ---| AAI2     EQ     B2,B3,AAI16  EXIT NORMAL
Line S01139 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01459  M02S01139.dmrec2  ---|          SA2    B2+AAIC+1
Line S01140 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01460  M02S01140.dmrec2  ---|          SB2    B2+B1
Line S01141 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01461  M02S01141.dmrec2  ---|          ZR     X2,AAI2     IF ZERO ENTRY
Line S01142 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01462  M02S01142.dmrec2  ---|          BX1    X2-X5
Line S01143 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01463  M02S01143.dmrec2  ---|          ZR     X1,AAI3     IF ENTRY FOUND IN AAIC
Line S01144 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01464  M02S01144.dmrec2  ---|          EQ     AAI2        CHECK NEXT ENTRY
Line S01145 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01465  M02S01145.dmrec2  ---|
Line S01146 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01466  M02S01146.dmrec2  ---| AAI3     SX6    B0          ZERO ENTRY
Line S01147 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01467  M02S01147.dmrec2  ---|          SA6    A2
Line S01148 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01468  M02S01148.dmrec2  ---|          EQ     AAI16       EXIT NORMAL
Line S01149 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01469  M02S01149.dmrec2  ---|
Line S01150 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01470  M02S01150.dmrec2  ---| AAI5     SB2    B2+B1
Line S01151 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01471  M02S01151.dmrec2  ---|          SA2    AAIC+B2
Line S01152 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01472  M02S01152.dmrec2  ---|          ZR     X2,AAI6     IF EMPTY SLOT
Line S01153 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01473  M02S01153.dmrec2  ---|          NE     B2,B3,AAI5  IF MORE ENTRIES
Line S01154 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01474  M02S01154.dmrec2  ---|          EQ     AAI17       ERROR - NO EMPTY SLOTS
Line S01155 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01475  M02S01155.dmrec2  ---|
Line S01156 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01476  M02S01156.dmrec2  ---| AAI6     MX0    XLSQN       MASK SEQUENCE NUMBER
Line S01157 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01477  M02S01157.dmrec2  ---|          SA1    X4
Line S01158 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01478  M02S01158.dmrec2  ---|          BX6    X0*X1
Line S01159 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01479  M02S01159.dmrec2  ---|          SA6    A2          INSET DB BEGIN ENTRY IN AAIC
Line S01160 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01480  M02S01160.dmrec2  ---|
01481  M01S01161.dmrec   +++|*         SEARCH *TTIG* TABLE FOR AFTER IMAGES TO IGNORE.
01482  M01S01162.dmrec   +++|
01483  M01S01163.dmrec   +++| AAI7     MX0    48
01484  M01S01164.dmrec   +++|          MX5    24
01485  M01S01165.dmrec   +++|          SB3    TTIG
01486  M01S01166.dmrec   +++|          SA4    HOLD3
01487  M01S01167.dmrec   +++| AAI8     SA1    B3
01488  M01S01168.dmrec   +++|          ZR     X1,AAI12    IF TABLE SEARCH DONE
01489  M01S01169.dmrec   +++|          BX2    -X0*X1
01490  M01S01170.dmrec   +++|          SX3    2RTN
01491  M01S01171.dmrec   +++|          BX2    X2-X3
01492  M01S01172.dmrec   +++|          NZ     X2,AAI10    IF NOT TASK NAME - TASK SEQUENCE NUMBER
01493  M01S01173.dmrec   +++|          SA2    X4+XLTNW    GET TASK NAME FROM AFTER IMAGE
01494  M01S01174.dmrec   +++|          BX2    X0*X2
01495  M01S01175.dmrec   +++|          BX3    X0*X1
01496  M01S01176.dmrec   +++|          BX2    X2-X3
01497  M01S01177.dmrec   +++|          ZR     X2,AAI11    IF TASK NAME MATCH
01498  M01S01178.dmrec   +++| AAI9     SB3    B3+2
01499  M01S01179.dmrec   +++|          EQ     AAI8        GET NEXT ENTRY
01500  M01S01180.dmrec   +++|
01501  M01S01181.dmrec   +++| AAI10    SA2    X4
01502  M01S01182.dmrec   +++|          BX2    X5*X2       TASK SEQUENCE NUMBER FROM RECORD
01503  M01S01183.dmrec   +++|          BX3    X5*X1       TASK SEQUENCE NUMBER FROM *TTIG*
01504  M01S01184.dmrec   +++|          BX2    X2-X3
01505  M01S01185.dmrec   +++|          NZ     X2,AAI9     IF NOT TS MATCH
01506  M01S01186.dmrec   +++| AAI11    SA3    A1+B1       GET BID FROM *TTIG*
01507  M01S01187.dmrec   +++|          ZR     X3,AAI16    IF BID .EQ. 0 ( FROM DIRECTIVE )
01508  M01S01188.dmrec   +++|          MX6    30
01509  M01S01189.dmrec   +++|          SA2    X4+B1       BID FROM RECORD
01510  M01S01190.dmrec   +++|          BX2    -X6*X2
01511  M01S01191.dmrec   +++|          BX3    X2-X3
01512  M01S01192.dmrec   +++|          ZR     X3,AAI16    IF MATCH ON BID ALSO ---
01513  M01S01193.dmrec   +++|          EQ     AAI9        GET NEXT ENTRY
01514  M01S01194.dmrec   +++|
01515  M01S01195.dmrec   +++|*         CHECK OTHER DELIMMITING FACTORS.
01516  M01S01196.dmrec   +++|
01517  M01S01197.dmrec   +++| AAI12    SA2    XXPFN
01518  M01S01198.dmrec   +++|          SA1    HOLD3
01519  M01S01199.dmrec   +++|          SA3    X1+4
01520  M01S01200.dmrec   +++|          MX0    42
01521  M01S01201.dmrec   +++|          BX3    X0*X3
01522  M01S01202.dmrec   +++|          BX3    X2-X3
01523  M01S01203.dmrec   +++|          NZ     X3,AAI16    IF NOT CORRECT DBPFN
01524  M01S01204.dmrec   +++|          SA2    STPDT
01525  M01S01205.dmrec   +++|          SA3    X1+2        IMAGE DATE/TIME
01526  M01S01206.dmrec   +++|          IX4    X3-X2
01527  M01S01207.dmrec   +++|          NG     X4,AAI16    IF BEFOR BEGIN DATE/TIME
01528  M01S01208.dmrec   +++|          SA2    ENPDT
01529  M01S01209.dmrec   +++|          IX4    X2-X3
01530  M01S01210.dmrec   +++|          NG     X4,AAI16    IF AFTER END DATE/TIME
01531  M01S01211.dmrec   +++|          SA2    X1
01532  M01S01212.dmrec   +++|          MX0    43
01533  M01S01213.dmrec   +++|          BX4    -X0*X2      TYPE OF RECORD
01534  M01S01214.dmrec   +++|
01535  M01S01215.dmrec   +++|*         CALCULATE FWA OF RECORD AND RECORD LENGTH IN CHARACTERS.
01536  M01S01216.dmrec   +++|
01537  M01S01217.dmrec   +++|          SA5    X1+3
01538  M01S01218.dmrec   +++|          MX0    36
01539  M01S01219.dmrec   +++|          BX2    -X0*X5
01540  M01S01220.dmrec   +++|          SX2    X2+9
01541  M01S01221.dmrec   +++|          SX3    10
01542  M01S01222.dmrec   +++|          IX2    X2/X3       KL IN WORDS
01543  M01S01223.dmrec   +++|          SX2    X2+6        ADD HEADER
01544  M01S01224.dmrec   +++|          IX2    X2+X1       ADD FWA OF IMAGE
01545  M01S01225.dmrec   +++|          AX5    24
01546  M01S01226.dmrec   +++|          BX7    -X0*X5      RECORD LENGTH IN CHARACTERS
01547  M01S01227.dmrec   +++|
01548  M01S01228.dmrec   +++|*         CHECK TYPE FOR UPDATES.
01549  M01S01229.dmrec   +++|
01550  M01S01230.dmrec   +++|          SX3    X4-TRDE     CHECK FOR DELETE
01551  M01S01231.dmrec   +++|          NZ     X3,AAI13    IF NOT DELETE
01552  M01S01232.dmrec   +++|          SX1    X1+6
01553  M01S01233.dmrec   +++|          DELETE DFIT,,X1
01554  M01S01234.dmrec   +++|          EQ     AAI15       CONTINUE
01555  M01S01235.dmrec   +++|
01556  M01S01236.dmrec   +++| AAI13    SX3    X4-TRRW     CHECK FOR REPLACE
01557  M01S01237.dmrec   +++|          NZ     X3,AAI14    IF NOT REPLACE
01558  M01S01238.dmrec   +++|          SX1    X1+6
01559  M01S01239.dmrec   +++|          RMREP  DFIT,X2,X7,,X1
01560  M01S01240.dmrec   +++|          EQ     AAI15       CONTINUE
01561  M01S01241.dmrec   +++|
01562  M01S01242.dmrec   +++| AAI14    SX3    X4-TRWR     CHECK FOR WRITE
01563  M01S01243.dmrec   +++|          NZ     X3,AAI16    IF NOT WRITE
01564  M01S01244.dmrec   +++|          SX1    X1+6
01565  M01S01245.dmrec   +++|          PUT    DFIT,X2,X7,,X1
Line S01246 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec7
Seq #  *Modification Id* Act 
----------------------------+
01566  M02S01246.dmrec7  ---| AAI15    FETCH  DFIT,ES,X2
Line S01247 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec7
Seq #  *Modification Id* Act 
----------------------------+
01567  M02S01247.dmrec7  ---|          NZ     X2,AAI18    IF ERROR
01568  M01S00029.dmrec7  +++| AAI15    FETCH  DFIT,FNF,X2
01569  M01S00030.dmrec7  +++|          NG     X2,AAI18    IF A FATEL ERROR
01570  M01S01248.dmrec   +++| AAI16    SX1    B0
01571  M01S01249.dmrec   +++|          EQ     AAIX        RETURN - RETURN NORMAL
01572  M01S01250.dmrec   +++|
01573  M01S01251.dmrec   +++| AAI17    ERROR  AAIB,,,AAIX,,E  AAIC OVERFLOW
01574  M01S01252.dmrec   +++|
Line S01253 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec8
Seq #  *Modification Id* Act 
----------------------------+
01575  M02S01253.dmrec8  ---| AAI18    ERROR  AAIA,,,AAIX,,E  CRM ERROR
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/dmrec.txt ยท Last modified: by 127.0.0.1