User Tools

Site Tools


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

Deck DMREC

Library Member Format: MODIFY

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.dmrec   ---|          IDENT  DMREC     TAF/CRM BATCH RECOVERY
Line S00002 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00002  M01S00002.274l797 ---|          SST    FL
Line S00001 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00003  M01S00001.274l797 +++|          SST    FL,TDFN
00004  M00S00003.dmrec   +++|          TITLE  TAF/CRM BATCH RECOVERY
00005  M00S00004.dmrec   +++|*COMMENT  TAF/CRM BATCH RECOVERY
Line S00005 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00005.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP. 1981.
Line S00001 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00006.dmrec   +++|          ENTRY  DMREC
Line S00007 Modification History
M01 (Removed by) dmrec20
Seq #  *Modification Id* Act 
----------------------------+
00009  M01S00007.dmrec20 ---|          LDSET  LIB=SRTLIB
Line S00001 Modification History
M01 (Added by) dmrec20
Seq #  *Modification Id* Act 
----------------------------+
00010  M01S00001.dmrec20 +++|          LDSET  LIB=SRT5LIB
00011  M00S00008.dmrec   +++|          SPACE  4,10
00012  M00S00009.dmrec   +++|***       DMREC - TAF/CRM BATCH RECOVERY.
00013  M00S00010.dmrec   +++|*
00014  M00S00011.dmrec   +++|*         T. L. JAKOB  -  80/09/30.
00015  M00S00012.dmrec   +++|          SPACE  4,10
00016  M00S00013.dmrec   +++|**        REDEFINE BOTH THE CRM *GET* AND *REPLACE* MACROS.
00017  M00S00014.dmrec   +++|
00018  M00S00015.dmrec   +++|*CALL     COMCMAC
00019  M00S00016.dmrec   +++| RMGET    OPSYN  GET
00020  M00S00017.dmrec   +++| RMREP    OPSYN  REPLACE
00021  M00S00018.dmrec   +++|          CTEXT  CPCOM.
00022  M00S00019.dmrec   +++|*CALL     CPCOM
00023  M00S00020.dmrec   +++|          ENDX
00024  M00S00021.dmrec   +++|
00025  M00S00022.dmrec   +++|          SYSCOM B1
00026  M00S00023.dmrec   +++|
00027  M00S00024.dmrec   +++|***       THIS UTILITY IS DESIGNED TO REGENERATE *CRM*
00028  M00S00025.dmrec   +++|*         DATA BASE FILES IN THE *TAF/CRM* ENVIRONMENT
00029  M00S00026.dmrec   +++|*         IF THEY HAVE BEEN FOUND INCONSISTENT OR DESTROYED.
00030  M00S00027.dmrec   +++|*
Line S00028 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00031  M01S00028.v23l617 ---|*         CONTROL CARD FORMAT -
Line S00001 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00032  M01S00001.v23l617 +++|*         COMMAND FORMAT -
00033  M00S00029.dmrec   +++|*
00034  M00S00030.dmrec   +++|*         DMREC(I=IFN,L=LFN,TT=ID)
00035  M00S00031.dmrec   +++|*         OR
00036  M00S00032.dmrec   +++|*         DMREC(L=LFN,TT=ID,Z)/*.........
00037  M00S00033.dmrec   +++|*
00038  M00S00034.dmrec   +++|*         WHERE:
00039  M00S00035.dmrec   +++|*
00040  M00S00036.dmrec   +++|*                IFN = INPUT FILE NAME ( DEFULT - INPUT )
00041  M00S00037.dmrec   +++|*                LFN = OUTPUT FILE NAME ( DEFULT - OUTPUT )
Line S00038 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00042  M01S00038.v23l617 ---|*                Z   = CONTROL CARD CONTAINS DIRECTIVES
Line S00002 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00043  M01S00002.v23l617 +++|*                Z   = COMMAND CONTAINS DIRECTIVES
00044  M00S00039.dmrec   +++|*                      (*/* AND *=* CAN NOT BE SEPARATOR
00045  M00S00040.dmrec   +++|*                      CHARACTERS FOR DIRECTIVES).
00046  M00S00041.dmrec   +++|*                ID  = IDENTIFIER ( 2 CHARACTERS ).
00047  M00S00042.dmrec   +++|*
00048  M00S00043.dmrec   +++|*         COMMENTS IN THE INPUT STREAM HAVE ONE OF THE FOLLOWING
00049  M00S00044.dmrec   +++|*         FORMATS:
00050  M00S00045.dmrec   +++|*
00051  M00S00046.dmrec   +++|*                *.<COMMENT>
00052  M00S00047.dmrec   +++|*                */<COMMENT>
00053  M00S00048.dmrec   +++|*                *COMMENT <COMMENT>
00054  M00S00049.dmrec   +++|*
00055  M00S00050.dmrec   +++|*         INPUT DIRECTIVES ARE IN FREE FORMAT (THEY CAN START IN ANY
00056  M00S00051.dmrec   +++|*         COLUMN).  EACH DIRECTIVE STARTS ON A NEW CARD.
00057  M00S00052.dmrec   +++|*         DIRECTIVE FIELDS CAN NOT BE SPLIT BETWEEN TWO CARDS.
00058  M00S00053.dmrec   +++|*
Line S00054 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00059  M01S00054.v23l617 ---|*         THE *XXJ* FILE MUST BE CREATED UNDER *TAF-S* USER NUMBER.
Line S00003 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00060  M01S00003.v23l617 +++|*         THE *XXJ* FILE MUST BE CREATED UNDER *TAF-S* USER NAME.
00061  M00S00055.dmrec   +++|*         THE DIRECTORY FILE *ZZDBDIR* IS A PRIVATE DIRECT ACCESS
Line S00056 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00062  M01S00056.v23l617 ---|*         FILE CREATED UNDER THE USERS USER NUMBER.
Line S00004 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00063  M01S00004.v23l617 +++|*         FILE CREATED UNDER THE USERS USER NAME.
00064  M00S00057.dmrec   +++|*
00065  M00S00058.dmrec   +++|*
00066  M00S00059.dmrec   +++|*         DIRECTIVE FORMATS.
00067  M00S00060.dmrec   +++|*
00068  M00S00061.dmrec   +++|*         *DUMP,DBPFN1/FORMAT,DBPFN2,DBPFNN,VSN=VSN1/VSN2/VSNN.
00069  M00S00062.dmrec   +++|*            OR
00070  M00S00063.dmrec   +++|*         *DUMP,ZZDBANN,VSN=VSNN.
00071  M00S00064.dmrec   +++|*
00072  M00S00065.dmrec   +++|*         WHERE:
00073  M00S00066.dmrec   +++|*                DBPFNI  = DATA BASE PFN TO DUMP.
00074  M00S00067.dmrec   +++|*                ZZDBANN = AFTER IMAGE RECOVERY FILE.
00075  M00S00068.dmrec   +++|*                FORMAT  = *BLOCK* OR *RECORD*.
00076  M00S00069.dmrec   +++|*                        = DEFAULT (NOT SPECIFIED) - BLOCK MODE USED IF
00077  M00S00070.dmrec   +++|*                          PFN ATTACHABLE IN WRITE MODE OTHERWISE,
00078  M00S00071.dmrec   +++|*                          RECORD MODE IS ASSUMED.  *ARF* IS ALWAYS
00079  M00S00072.dmrec   +++|*                          DUMPED IN BLOCK FORMAT.
00080  M00S00073.dmrec   +++|*                VSN1    = VSN-S OF DUMP TAPES - MUST BE BLANK
00081  M00S00074.dmrec   +++|*                          LABELED.
00082  M00S00075.dmrec   +++|*                          IF MORE TAPES ARE REQUIRED THAN ARE
00083  M00S00076.dmrec   +++|*                          SPECIFIED OR, NO VSN IS SPECIFIED, ANOTHER
00084  M00S00077.dmrec   +++|*                          BLANK LABELED TAPE IS REQUESTED.  *ARF-S*
00085  M00S00078.dmrec   +++|*                          CAN NOT SPAN MULTIPLE TAPE REELS.  (*TVSNL*
00086  M00S00079.dmrec   +++|*                          DEFINES THE MAXIMUM NUMBER OF CONTINUATION
00087  M00S00080.dmrec   +++|*                          TAPES.)
00088  M00S00081.dmrec   +++|*
00089  M00S00082.dmrec   +++|*
00090  M00S00083.dmrec   +++|*         *LOAD,DBPFN/FORMAT,DATE=YYMMDD,TIME=HHMMSS.
00091  M00S00084.dmrec   +++|*            OR
00092  M00S00085.dmrec   +++|*         *LOAD,DBPFN/FORMAT,VSN=VSN.
00093  M00S00086.dmrec   +++|*
00094  M00S00087.dmrec   +++|*         WHERE:
00095  M00S00088.dmrec   +++|*                DBPFN   = DATA BASE PFN.
00096  M00S00089.dmrec   +++|*                FORMAT  = *BLOCK* OR *RECORD*.
00097  M00S00090.dmrec   +++|*                        = DEFAULT - EITHER (DETERMINED BY
00098  M00S00091.dmrec   +++|*                          DIRECTORY ENTRY).
00099  M00S00092.dmrec   +++|*                DATE    = THE LATEST DUMP BEFORE THIS DATE IS USED.
00100  M00S00093.dmrec   +++|*                        = DEFAULT - TODAY.
00101  M00S00094.dmrec   +++|*                TIME    = THE LATEST DUMP BEFORE THIS TIME IS USED.
00102  M00S00095.dmrec   +++|*                        = DEFAULT - 00.00.00.
00103  M00S00096.dmrec   +++|*                VSN     = VSN OF TAPE TO LOAD FROM - DATE AND TIME
00104  M00S00097.dmrec   +++|*                          MUST NOT BE SPECIFIED.  SINCE ONLY ONE
00105  M00S00098.dmrec   +++|*                          FILE CAN BE DUMPED ON A TAPE SET, FORMAT
00106  M00S00099.dmrec   +++|*                          IS IGNORED.
00107  M00S00100.dmrec   +++|*
00108  M00S00101.dmrec   +++|*
00109  M00S00102.dmrec   +++|*         *UPDATE,DBPFN,DATE=DATE1/DATE2,TIME=TIME1/TIME2,VSN=VSN1.
00110  M00S00103.dmrec   +++|*
00111  M00S00104.dmrec   +++|*         WHERE:
00112  M00S00105.dmrec   +++|*                DBPFN   = DATA BASE PFN TO UPDATE.
00113  M00S00106.dmrec   +++|*                DATE1   = START DATE FOR *AFTER IMAGE* APPLICATION.
00114  M00S00107.dmrec   +++|*                        = DEFAULT - DATE OF DUMP RECORD ON BACK-UP
00115  M00S00108.dmrec   +++|*                          DIRECTORY SPECIFIED BY VSN OR LATEST
00116  M00S00109.dmrec   +++|*                          DUMP.
00117  M00S00110.dmrec   +++|*                DATE2   = END DATE FOR *AFTER IMAGE* APPLICATION.
00118  M00S00111.dmrec   +++|*                        = DEFAULT - TODAY.
00119  M00S00112.dmrec   +++|*                TIME1   = START TIME FOR *AFTER IMAGE* APPLICATION.
00120  M00S00113.dmrec   +++|*                        = DEFAULT - TIME OF DUMP RECORD ON BACK-UP
00121  M00S00114.dmrec   +++|*                          DIRECTORY SPECIFIED BY VSN OR LATEST
00122  M00S00115.dmrec   +++|*                          DUMP.
00123  M00S00116.dmrec   +++|*                TIME2   = END TIME FOR *AFTER IMAGE* APPLICATION.
00124  M00S00117.dmrec   +++|*                        = DEFAULT - 00.00.00.
00125  M00S00118.dmrec   +++|*                VSN1    = VSN OF DATA BASE FILE DUMP TAPE.
00126  M00S00119.dmrec   +++|*
00127  M00S00120.dmrec   +++|*
00128  M00S00121.dmrec   +++|*         *IGNORE,TS=SQ1/SQ2/...SQN.
00129  M00S00122.dmrec   +++|*            OR
00130  M00S00123.dmrec   +++|*         *IGNORE,TN=NM1/NM2/...NMN.
00131  M00S00124.dmrec   +++|*
00132  M00S00125.dmrec   +++|*         WHERE:
00133  M00S00126.dmrec   +++|*                SQI = TASK SEQUENCE NUMBER.
00134  M00S00127.dmrec   +++|*                NMI = TASK NAME.
00135  M00S00128.dmrec   +++|*
00136  M00S00129.dmrec   +++|*         NOTE: THIS DIRECTIVE MAY ONLY FOLLOW THE (UPDATE) OR
00137  M00S00130.dmrec   +++|*               (RECOVER) DIRECTIVE.
00138  M00S00131.dmrec   +++|*
00139  M00S00132.dmrec   +++|*
00140  M00S00133.dmrec   +++|*         *EXPAND,DB,PERCENT=NN.
00141  M00S00134.dmrec   +++|*            OR
00142  M00S00135.dmrec   +++|*         *EXPAND,DBPFN,PERCENT=NN.
00143  M00S00136.dmrec   +++|*
00144  M00S00137.dmrec   +++|*         WHERE:
00145  M00S00138.dmrec   +++|*                DBPFN = DATA BASE PFN.
00146  M00S00139.dmrec   +++|*                DB    = ALL DATA BASE FILES.
00147  M00S00140.dmrec   +++|*                NN    = PERCENT (DECIMAL).
00148  M00S00141.dmrec   +++|*                      = DEFAULT - PERCENTAGE RECORDED IN BACK-UP
00149  M00S00142.dmrec   +++|*                        DIRECTORY.
00150  M00S00143.dmrec   +++|*
00151  M00S00144.dmrec   +++|*
00152  M00S00145.dmrec   +++|*         *EDIT,DB.
00153  M00S00146.dmrec   +++|*            OR
00154  M00S00147.dmrec   +++|*         *EDIT,DBPFN1,DBPFNN.
00155  M00S00148.dmrec   +++|*
00156  M00S00149.dmrec   +++|*         WHERE:
00157  M00S00150.dmrec   +++|*                DB    = DATA BASE NAME FOR DIRECTORY EDITING.
00158  M00S00151.dmrec   +++|*                DBPFN = DATA BASE FILE FOR DIRECTORY EDITING.
00159  M00S00152.dmrec   +++|*
00160  M00S00153.dmrec   +++|*
00161  M00S00154.dmrec   +++|*         *CYCLE,CYCL=N.
00162  M00S00155.dmrec   +++|*
00163  M00S00156.dmrec   +++|*         WHERE:
00164  M00S00157.dmrec   +++|*                N = ( 0 - 9 ) NUMBER OF DUMP TAPES TO RETAIN.
00165  M00S00158.dmrec   +++|*
00166  M00S00159.dmrec   +++|*         NOTE: THIS DIRECTIVE CAN ONLY BE USED AS PART OF AN
00167  M00S00160.dmrec   +++|*               (*EDIT) SEQUENCE.
00168  M00S00161.dmrec   +++|*
00169  M00S00162.dmrec   +++|*
00170  M00S00163.dmrec   +++|*         *ADD,VSN=VSNN.
00171  M00S00164.dmrec   +++|*
00172  M00S00165.dmrec   +++|*         WHERE:
00173  M00S00166.dmrec   +++|*                VSNN = VSN OF TAPE WHOSE ENTRY WILL BE ADDED
00174  M00S00167.dmrec   +++|*                       TO THE DIRECTORY.
00175  M00S00168.dmrec   +++|*
00176  M00S00169.dmrec   +++|*         NOTE: THIS DIRECTIVE CAN ONLY BE USED AS PART OF AN
00177  M00S00170.dmrec   +++|*               (*EDIT) SEQUENCE.
00178  M00S00171.dmrec   +++|*
00179  M00S00172.dmrec   +++|*
00180  M00S00173.dmrec   +++|*         *DELETE,DATE=YYMMDD,TIME=HHMMSS.
00181  M00S00174.dmrec   +++|*            OR
00182  M00S00175.dmrec   +++|*         *DELETE,VSN=VSNN.
00183  M00S00176.dmrec   +++|*
00184  M00S00177.dmrec   +++|*         WHERE:
00185  M00S00178.dmrec   +++|*                YYMMDD = DATE OF DIRECTORY DUMP RECORD TO DELETE.
00186  M00S00179.dmrec   +++|*                HHMMSS = TIME OF DIRECTORY DUMP RECORD TO DELETE.
00187  M00S00180.dmrec   +++|*                VSNN   = VSN OF TAPE WHOSE ENTRY WILL BE DELETED
00188  M00S00181.dmrec   +++|*                         FROM THE DIRECTORY.
00189  M00S00182.dmrec   +++|*
00190  M00S00183.dmrec   +++|*         NOTE: THIS DIRECTIVE CAN ONLY BE USED AS PART OF AN
00191  M00S00184.dmrec   +++|*               (*EDIT) SEQUENCE.
00192  M00S00185.dmrec   +++|*
00193  M00S00186.dmrec   +++|*
00194  M00S00187.dmrec   +++|*         *RECOVER,DBPFN/FORMAT,TIME=HHMMSS,DATE=YYMMDD,VSN=YYYYYY.
00195  M00S00188.dmrec   +++|*
00196  M00S00189.dmrec   +++|*         WHERE:
00197  M00S00190.dmrec   +++|*                DBPFN  = DATA BASE PFN TO RECOVER.
00198  M00S00191.dmrec   +++|*                FORMAT = *BLOCK* OR *RECORD*, IF NEITHER IS SPECIFIED,
00199  M00S00192.dmrec   +++|*                         THE FORMAT PARAMETER IS IGNORED IN THE
00200  M00S00193.dmrec   +++|*                         SELECTION OF A FILE TO RECOVER.
00201  M00S00194.dmrec   +++|*                YYMMDD = DATA AT WHICH THE RECOVERY PROCESS WILL END.
00202  M00S00195.dmrec   +++|*                HHMMSS = TIME AT WHICH THE RECOVERY PROCESS WILL END.
00203  M00S00196.dmrec   +++|*                YYYYYY = VSN OF DUMP TAPE TO USE FOR THE LOADING
00204  M00S00197.dmrec   +++|*                         AND RECOVERY OF THE *DB* FILE.
00205  M00S00198.dmrec   +++|*
00206  M00S00199.dmrec   +++|*
00207  M00S00200.dmrec   +++|*         *CREATE,ZZDBANN,LENGTH=NNNN.
00208  M00S00201.dmrec   +++|*            OR
00209  M00S00202.dmrec   +++|*         *CREATE,ZZDBBNN.
00210  M00S00203.dmrec   +++|*
00211  M00S00204.dmrec   +++|*         WHERE:
00212  M00S00205.dmrec   +++|*                ZZDBANN = AFTER IMAGE RECOVERY FILE.
00213  M00S00206.dmrec   +++|*                ZZDBBNN = BEFORE IMAGE RECOVERY FILE.
00214  M00S00207.dmrec   +++|*                NNNN    = PRU LENGTH FOR *ARF* ONLY.
00215  M00S00208.dmrec   +++|*
00216  M00S00209.dmrec   +++|*         RESTRICTIONS ON *NN* VALUE:
00217  M00S00210.dmrec   +++|*                FOR *AFTER IMAGE* LOG FILE *NN* CAN BE 01 OR 02 ONLY.
00218  M00S00211.dmrec   +++|*                FOR *BEFORE IMAGE* LOG FILE *NN* MUST BE WITHIN THE
00219  M00S00212.dmrec   +++|*                RANGE SPECIFIED ON *BRF* DIRECTIVE IN *XXJ* FILE.
00220  M00S00213.dmrec   +++|*
00221  M00S00214.dmrec   +++|*
00222  M00S00215.dmrec   +++|*         *LIST,DB,TIME=HHMMSS,DATE=YYMMDD.
00223  M00S00216.dmrec   +++|*            OR
00224  M00S00217.dmrec   +++|*         *LIST,DBPFN1,DBPFNN,TIME=HHMMSS,DATE=YYMMDD.
00225  M00S00218.dmrec   +++|*            OR
00226  M00S00219.dmrec   +++|*         *LIST,DB,VSN=VSNN,TIME=HHMMSS.
00227  M00S00220.dmrec   +++|*
00228  M00S00221.dmrec   +++|*         WHERE:
00229  M00S00222.dmrec   +++|*                DB     = DATA BASE NAME.
00230  M00S00223.dmrec   +++|*                YYMMDD = DATE FOR DELINEATING LIST.
00231  M00S00224.dmrec   +++|*                HHMMSS = TIME FOR DELINEATING LIST.
00232  M00S00225.dmrec   +++|*                VSNN   = VSN OF *ARF* DUMP TAPE FOR LISTING.
00233  M00S00226.dmrec   +++|*
00234  M00S00227.dmrec   +++| MESSAGES SPACE  4,10
00235  M00S00228.dmrec   +++|*
00236  M00S00229.dmrec   +++|***       DAYFILE MESSAGES.
00237  M00S00230.dmrec   +++|*
00238  M00S00231.dmrec   +++|*         TAG    MESSAGES.
00239  M00S00232.dmrec   +++|*
00240  M00S00233.dmrec   +++|*         ACF11  *DIRECTORY UNUSABLE*.
00241  M00S00234.dmrec   +++|*         ARB2   *NO SPACE FOR LOG FILE BUFFER*.
00242  M00S00235.dmrec   +++|*         DMRB   *DMREC COMPLETE*.
Line S00236 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00243  M01S00236.v23l617 ---|*         DMRC   *NO DIRECTIVES*.
Line S00005 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00244  M01S00005.v23l617 +++|*         DMRC   *NO DMREC DIRECTIVES*.
00245  M00S00237.dmrec   +++|*         DMRD   *ERROR(S) ENCOUNTERED IN DMREC PROCESSING*.
00246  M00S00238.dmrec   +++|*         DMRE   *DMREC FAILED - XXXXXXX ZZ*.
Line S00239 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00247  M01S00239.v23l617 ---|*         GXJR   *ILLEGAL USER ACCESS*.
Line S00006 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00248  M01S00006.v23l617 +++|*         GXJR   *USER ACCESS NOT VALID*.
00249  M00S00240.dmrec   +++|*         NOPB   *NOTE FAILURE, THEN TYPE IN CFO,JSN.GO*.
Line S00241 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00250  M01S00241.v23l617 ---|*         PRSA   *CONTROL CARD ARGUMENT ERRORS*.
Line S00007 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00251  M01S00007.v23l617 +++|*         PRSA   *COMMAND ARGUMENT ERRORS*.
00252  M00S00242.dmrec   +++|*         RTEB   *PARITY ERROR IN TAPE WITH VSN = XXXXXX*.
00253  M00S00243.dmrec   +++|*         RTEC   *DUMP WILL START OVER*.
00254  M00S00244.dmrec   +++|*         RTED   *TAPE VSN = XXXXXX IS BAD, PLEASE REPLACE*.
00255  M00S00245.dmrec   +++|*         RTFB   *VSN - XXXXXX ALREADY IN DIRECTORY*.
00256  M00S00246.dmrec   +++|          TITLE  MACRO DEFINITIONS.
00257  M00S00247.dmrec   +++| ERROR    SPACE  4,20
00258  M00S00248.dmrec   +++|
Line S00001 Modification History
M01 (Added by) dok203
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00249.dmrec   +++|**        ERROR - ERROR PROCESSING MACRO.
00490  M00S00250.dmrec   +++|*
00491  M00S00251.dmrec   +++|*         ERROR  P1,P2,P3,P4,P5,P6
00492  M00S00252.dmrec   +++|*
00493  M00S00253.dmrec   +++|*         ENTRY  *P1* = ADDRESS OR ERROR MESSAGE.
00494  M00S00254.dmrec   +++|*                     (*P1*L = LENGTH OF ERROR MESSAGE).
00495  M00S00255.dmrec   +++|*                *P2* = ADDRESS OF REPLACEMENT WORD (OPTIONAL).
Line S00256 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00496  M01S00256.v23l617 ---|*                *P3* = ADDRESS OF CARD IN ERROR (OPTIONAL).
Line S00008 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00497  M01S00008.v23l617 +++|*                *P3* = ADDRESS OF STATEMENT IN ERROR (OPTIONAL).
00498  M00S00257.dmrec   +++|*                *P4* = RETURN ADDRESS.
00499  M00S00258.dmrec   +++|*                *P5* = READ NEXT DIRECTIVE INDICATOR (OPTIONAL).
00500  M00S00259.dmrec   +++|*                *P6* = ERROR(S) ENCOUNTERED INDICATOR (OPTIONAL).
00501  M00S00260.dmrec   +++|*
00502  M00S00261.dmrec   +++|*         USES   X - 1, 2, 5, 6.
00503  M00S00262.dmrec   +++|*                A - 1, 2, 6.
00504  M00S00263.dmrec   +++|*                B - 4.
00505  M00S00264.dmrec   +++|*
00506  M00S00265.dmrec   +++|*         CALLS  RDD, WEM.
00507  M00S00266.dmrec   +++|
00508  M00S00267.dmrec   +++|
00509  M00S00268.dmrec   +++|          PURGMAC  ERROR
00510  M00S00269.dmrec   +++|
00511  M00S00270.dmrec   +++| ERROR    MACRO  P1,P2,P3,P4,P5,P6
00512  M00S00271.dmrec   +++|          IFC    NE,*P5**,1
00513  M00S00272.dmrec   +++|          RJ     RDD         READ NEXT DIRECTIVE
00514  M00S00273.dmrec   +++|          MX2    0
00515  M00S00274.dmrec   +++|          BX1    X2
00516  M00S00275.dmrec   +++|          SB4    P1
00517  M00S00276.dmrec   +++|          SX5    P1_L
00518  M00S00277.dmrec   +++|          IFC    NE,*P2**,1
00519  M00S00278.dmrec   +++|          SA1    P2
00520  M00S00279.dmrec   +++|          IFC    NE,*P3**,1
00521  M00S00280.dmrec   +++|          SA2    P3
00522  M00S00281.dmrec   +++|          RJ     WEM         WRITE ERROR MESSAGE
00523  M00S00282.dmrec   +++|          IFC    NE,*P6**,2
00524  M00S00283.dmrec   +++|          SX6    B1
00525  M00S00284.dmrec   +++|          SA6    ERROR
00526  M00S00285.dmrec   +++|          EQ     P4          RETURN
00527  M00S00286.dmrec   +++| ERROR    ENDM
00528  M00S00287.dmrec   +++| ZIPPP    SPACE  4,25
00529  M00S00288.dmrec   +++|**        ZIPPP - CRM EXPAND MACRO.
00530  M00S00289.dmrec   +++|*
00531  M00S00290.dmrec   +++|*         *ZIPPP* ADDS A CHARACTER TO A STRING.
00532  M00S00291.dmrec   +++|*
00533  M00S00292.dmrec   +++|*         ZIPPP  AA, BB, CC.
00534  M00S00293.dmrec   +++|*
00535  M00S00294.dmrec   +++|*         ENTRY  *AA*   = CHARACTER LOCATION.
00536  M00S00295.dmrec   +++|*                *BB*   = LOCATION IF NO STORE NECESSARY.
00537  M00S00296.dmrec   +++|*                *CC*   = ERROR ADDRESS.
00538  M00S00297.dmrec   +++|*                (B6) = LENGTH REMAINING IN DESTINATION AREA.
00539  M00S00298.dmrec   +++|*                (X6) = CURRENT DESTINATION WORD.
00540  M00S00299.dmrec   +++|*                (A6) = ADDRESS OF CURRENT DESTINATION WORD.
00541  M00S00300.dmrec   +++|*                (B4) = NUMBER OF CHARACTERS LEFT IN DESTINATION WORD.
00542  M00S00301.dmrec   +++|*                (B5) = NUMBER OF CHARACTERS LEFT IN SOURCE WORD.
00543  M00S00302.dmrec   +++|*
00544  M00S00303.dmrec   +++|*         EXIT   (B6) = LENGTH REMAINING IN DESTINATION AREA.
00545  M00S00304.dmrec   +++|*                (X6) = CURRENT DESTINATION WORD.
00546  M00S00305.dmrec   +++|*                (A6) = ADDRESS OF CURRENT DESTINATION WORD.
00547  M00S00306.dmrec   +++|*                (B4) = NUMBER OF CHARACTERS LEFT IN DESTINATION WORD.
00548  M00S00307.dmrec   +++|*                (B5) = NUMBER OF CHARACTERS LEFT IN SOURCE WORD.
00549  M00S00308.dmrec   +++|*
00550  M00S00309.dmrec   +++|*         USES   X - 6.
00551  M00S00310.dmrec   +++|*                A - 6.
00552  M00S00311.dmrec   +++|*                B - 4, 6.
00553  M00S00312.dmrec   +++|
00554  M00S00313.dmrec   +++|
00555  M00S00314.dmrec   +++|          PURGMAC ZIPPP
00556  M00S00315.dmrec   +++|
00557  M00S00316.dmrec   +++| ZIPPP    MACRO  AA,CC,BB
00558  M00S00317.dmrec   +++|          LOCAL  WIT
00559  M00S00318.dmrec   +++|          SB6    B6-B1
00560  M00S00319.dmrec   +++|          NG     B6,CC       IF ERROR ENCOUNTERED
00561  M00S00320.dmrec   +++|          LX6    6
00562  M00S00321.dmrec   +++|          BX6    X6+AA
00563  M00S00322.dmrec   +++|          SB4    B4-B1
00564  M00S00323.dmrec   +++| .A       IFC    NE,**BB*
00565  M00S00324.dmrec   +++|          NZ     B4,BB       IF RETURN NORMAL
00566  M00S00325.dmrec   +++| .A       ELSE
00567  M00S00326.dmrec   +++|          NZ     B4,WIT      IF CONTINUE IN LINE
00568  M00S00327.dmrec   +++| .A       ENDIF
00569  M00S00328.dmrec   +++|          SA6    A6+B1
00570  M00S00329.dmrec   +++|          SX6    B0
00571  M00S00330.dmrec   +++|          SB4    B5
00572  M00S00331.dmrec   +++|          IFC    EQ,**BB*,1
00573  M00S00332.dmrec   +++| WIT      BSS    0
00574  M00S00333.dmrec   +++| ZIPPP    ENDM
00575  M00S00334.dmrec   +++|          SPACE  4,10
00576  M00S00335.dmrec   +++|**        ZAPPP - CRM EXPAND MACRO.
00577  M00S00336.dmrec   +++|*
00578  M00S00337.dmrec   +++|*         *ZAPPP* RETRIEVES THE NEXT CHARACTER FROM A STRING.
00579  M00S00338.dmrec   +++|*
00580  M00S00339.dmrec   +++|*         ENTRY  (X4) = SOURCE WORD.
00581  M00S00340.dmrec   +++|*                (A4) = ADDRESS OF SOURCE WORD.
00582  M00S00341.dmrec   +++|*                (X0) = 54/777777777777777777B,6/0.
00583  M00S00342.dmrec   +++|*                (B3) = NUMBER OF CHARACTERS IN SOURCE WORD.
00584  M00S00343.dmrec   +++|*                (B2) = LENGTH OF RECORD.
00585  M00S00344.dmrec   +++|*                (B5) = NUMBER OF CHARACTERS IN NEXT WORD.
00586  M00S00345.dmrec   +++|*
00587  M00S00346.dmrec   +++|*         EXIT   (X4) = SOURCE WORD.
00588  M00S00347.dmrec   +++|*                (A4) = ADDRESS OF SOURCE WORD.
00589  M00S00348.dmrec   +++|*                (X0) = 54/777777777777777777B,6/0.
00590  M00S00349.dmrec   +++|*                (B3) = NUMBER OF CHARACTERS IN SOURCE WORD.
00591  M00S00350.dmrec   +++|*                (B2) = LENGTH OF RECORD.
00592  M00S00351.dmrec   +++|*                (B5) = NUMBER OF CHARACTERS IN NEXT WORD.
00593  M00S00352.dmrec   +++|*
00594  M00S00353.dmrec   +++|*         USES   X - 4, 5.
00595  M00S00354.dmrec   +++|*                A - 4.
00596  M00S00355.dmrec   +++|*                B - 2, 3.
00597  M00S00356.dmrec   +++|
00598  M00S00357.dmrec   +++|
00599  M00S00358.dmrec   +++|          PURGMAC ZAPPP
00600  M00S00359.dmrec   +++|
00601  M00S00360.dmrec   +++|
00602  M00S00361.dmrec   +++| ZAPPP    MACRO
00603  M00S00362.dmrec   +++|          LOCAL  WAT
00604  M00S00363.dmrec   +++|          LX4    6
00605  M00S00364.dmrec   +++|          BX5    -X0*X4
00606  M00S00365.dmrec   +++|          SB3    B3-B1
00607  M00S00366.dmrec   +++|          SB2    B2-B1
00608  M00S00367.dmrec   +++|          NZ     B3,WAT      IF MORE CHARACTERS IN THIS WORD
00609  M00S00368.dmrec   +++|          SA4    A4+B1
00610  M00S00369.dmrec   +++|          SB3    B5
00611  M00S00370.dmrec   +++| WAT      BSS    0
00612  M00S00371.dmrec   +++| ZAPPP    ENDM
00613  M00S00372.dmrec   +++|
00614  M00S00373.dmrec   +++|
00615  M00S00374.dmrec   +++|*         COMMON DECKS
00616  M00S00375.dmrec   +++|
00617  M00S00376.dmrec   +++|*CALL     COMKTAF
00618  M00S00377.dmrec   +++|*CALL     COMKIPR
00619  M00S00378.dmrec   +++|          QUAL   SSD
00620  M00S00379.dmrec   +++|*CALL     COMSSSD
00621  M00S00380.dmrec   +++|          QUAL   *
00622  M00S00381.dmrec   +++|*CALL     COMKFLD
00623  M00S00382.dmrec   +++|*CALL     COMKTDM
00624  M00S00383.dmrec   +++|*CALL     COMKARF
00625  M00S00384.dmrec   +++|*CALL     COMKCRM
Line S00001 Modification History
M01 (Added by) dmrec11
Seq #  *Modification Id* Act 
----------------------------+
00626  M01S00001.dmrec11 +++|*CALL COMKZFN
00627  M00S00385.dmrec   +++|*CALL     COMCARG
00628  M00S00386.dmrec   +++|*CALL     COMCDXB
00629  M00S00387.dmrec   +++|*CALL     COMCZTB
00630  M00S00388.dmrec   +++|*CALL     COMCCMD
00631  M00S00389.dmrec   +++|*CALL     COMCSNM
00632  M00S00390.dmrec   +++|*CALL     COMCUPC
00633  M00S00391.dmrec   +++|*CALL     COMCUSB
00634  M00S00392.dmrec   +++|*CALL     COMCZAP
00635  M00S00393.dmrec   +++|*CALL     COMCMVE
00636  M00S00394.dmrec   +++|*CALL     COMCCDD
00637  M00S00395.dmrec   +++|*CALL     COMCEDT
00638  M00S00396.dmrec   +++|*CALL     COMCSFN
00639  M00S00397.dmrec   +++|*CALL     COMCCOD
00640  M00S00398.dmrec   +++|*CALL     COMSPFM
00641  M00S00399.dmrec   +++|          TITLE  ASSEMBLY CONSTANTS AND EQUIVALENCES.
00642  M00S00400.dmrec   +++|          SPACE  4,10
00643  M00S00401.dmrec   +++|
00644  M00S00402.dmrec   +++|***       ASSEMBLY CONSTANTS.
00645  M00S00403.dmrec   +++|
Line S00404 Modification History
M01 (Removed by) dmrec22
Seq #  *Modification Id* Act 
----------------------------+
00646  M01S00404.dmrec22 ---| TDTR     EQU    40B+8*DTTP+TDEN  TAPE FORMAT DEFINITION
Line S00001 Modification History
M01 (Added by) dmrec22
Seq #  *Modification Id* Act 
----------------------------+
00647  M01S00001.dmrec22 +++| TDTR     EQU    200B+40B*DTTP+TDEN
00648  M00S00405.dmrec   +++|
00649  M00S00406.dmrec   +++| NUMARF   EQU    1           NUMBER OF DUPLICATE *ARF* COPIES
00650  M00S00407.dmrec   +++|
00651  M00S00408.dmrec   +++| NDUMP    EQU    100         NUMBER OF DUMPS/DIRECTIVE < HBUFL/2
00652  M00S00409.dmrec   +++|
00653  M00S00410.dmrec   +++| EXPCT    EQU    10          DEFAULT EXPAND PERCENTAGE
00654  M00S00411.dmrec   +++|
00655  M00S00412.dmrec   +++| NCOPY    EQU    2           NUMBER OF DEFAULT DUMP COPIES TO KEEP
00656  M00S00413.dmrec   +++|
Line S00414 Modification History
M01 (Removed by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
00657  M01S00414.dmrec2  ---| TTIGL    EQU    200         MAXIMUM NUMBER OF TN/TS ENTRIES
Line S00001 Modification History
M01 (Added by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
00658  M01S00001.dmrec2  +++| TTIGL    EQU    5000        MAXIMUM NUMBER OF IGNORE TABLE
00659  M00S00415.dmrec   +++|
Line S00416 Modification History
M01 (Removed by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
00660  M01S00416.dmrec2  ---| FTABL    EQU    500         MAXIMUM NUMBER OF CONCURRENT ACTIVE TASKS
Line S00002 Modification History
M01 (Added by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
00661  M01S00002.dmrec2  +++| FTABL    EQU    5000        MAXIMUM NUMBER OF CONCURRENT ACTIVE TASKS
00662  M00S00417.dmrec   +++|
00663  M00S00418.dmrec   +++| TLOGL    EQU    100         MAXIMUM NUMBER OF FILES IN DATA BASE
00664  M00S00419.dmrec   +++|
00665  M00S00420.dmrec   +++| TVSNL    EQU    40          MAXIMUM NUMBER OF VSNS ALLOWED
Line S00421 Modification History
M01 (Removed by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
00666  M01S00421.dmrec2  ---|
00667  M01S00422.dmrec2  ---| AAICL    EQU    200         MAXIMUM NUMBER OF IGNORE ENTRIES
00668  M00S00423.dmrec   ---|
00669  M00S00424.dmrec   ---| WBUFL    EQU    4001B       WORKING BUFFER
00670  M00S00425.dmrec   ---|
00671  M00S00426.dmrec   ---|
00672  M00S00427.dmrec   ---|**        MISCELLANEOUS EQUIVALENCES.
00673  M00S00428.dmrec   ---|
00674  M00S00429.dmrec   ---| IBUFL    EQU    101B        INPUT BUFFER LENGTH
00675  M00S00430.dmrec   ---| OBUFL    EQU    101B        OUTPUT BUFFER LENGTH
Line S00001 Modification History
M01 (Added by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
00676  M01S00001.ns2056  +++| PBUFL    EQU    101B        PROC BUFFER LENGTH
00677  M00S00431.dmrec   +++| DBUFL    EQU    4001B       DUMP BUFFER LENGTH
00678  M00S00432.dmrec   +++| TBUFL    EQU    4001B       TAPE BUFFER LENGTH
00679  M00S00433.dmrec   +++| HBUFL    EQU    1001B       HASH BUFFER LENGTH
00680  M00S00434.dmrec   +++| DIRL     EQU    160         INPUT CHARACTER BUFFER LENGTH
00681  M00S00435.dmrec   +++| OLWSL    EQU    136         LINE LENGTH (CHARACTERS)
00682  M00S00436.dmrec   +++| CBUFL    EQU    1000B       LENGTH OF DECOMPRESSION BUFFER
00683  M00S00437.dmrec   +++| LRDBUFL  EQU    1000B       LENGTH OF HASH LOAD BUFFER
00684  M00S00438.dmrec   +++| ACTR     EQU    64B         ARGUMENT COUNT
00685  M00S00439.dmrec   +++| CCDR     EQU    70B         CONTROL STATMENT IMAGE
00686  M00S00440.dmrec   +++| LINP     EQU    60          LINES/PRINTER PAGE
Line S00001 Modification History
M01 (Added by) dmrec7
Seq #  *Modification Id* Act 
----------------------------+
00687  M01S00001.dmrec7  +++| TRECL    EQU    15          RECOVERY VSN TABLE LENGTH
00688  M00S00441.dmrec   +++|
00689  M00S00442.dmrec   +++|
00690  M00S00443.dmrec   +++|*         FET-S AND FIT-S.
00691  M00S00444.dmrec   +++|
00692  M00S00445.dmrec   +++| I        BSS    0           INPUT FET
00693  M00S00446.dmrec   +++| INPUT    FILEB  IBUF,IBUFL,(FET=7)
00694  M00S00447.dmrec   +++|
00695  M00S00448.dmrec   +++| O        BSS    0           OUTPUT FET
00696  M00S00449.dmrec   +++| OUTPUT   FILEC  OBUF,OBUFL
00697  M00S00450.dmrec   +++|
00698  M00S00451.dmrec   +++| DF       BSS    0           DUMP/LOAD FET
Line S00452 Modification History
M01 (Removed by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00699  M01S00452.ns2023  ---| LRF      BSS    0           LONG RECOVERY FILE FET
Line S00001 Modification History
M01 (Added by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00700  M01S00001.ns2023  +++| ARF      BSS    0           AFTER IMAGE RECOVERY FILE FET
00701  M00S00453.dmrec   +++| DUMP     BSS    0
00702  M00S00454.dmrec   +++| ZZZDATA  FILEB  DBUF,DBUFL,EPR,(FET=14)
00703  M00S00455.dmrec   +++|
00704  M00S00456.dmrec   +++| IF       BSS    0           INDEX FILE DUMP/LOAD FET
00705  M00S00457.dmrec   +++| INDEX    BSS    0
00706  M00S00458.dmrec   +++| ZZINDEX  FILEB  DBUF,DBUFL,EPR,(FET=13)
00707  M00S00459.dmrec   +++|
00708  M00S00460.dmrec   +++| OF       BSS    0           OWNCODE ROUTINE FET
00709  M00S00461.dmrec   +++| OWN      FILEB  DBUF,DBUFL,EPR,(FET=13)
00710  M00S00462.dmrec   +++|
00711  M00S00463.dmrec   +++| TP       BSS    0           TAPE FET
00712  M00S00464.dmrec   +++| TAPE     FILEB  TBUF,TBUFL,XL,(FET=13),UPR,EPR
00713  M00S00465.dmrec   +++|
00714  M00S00466.dmrec   +++|*         FET FOR ZZZZZDG CRM FILE.
00715  M00S00467.dmrec   +++|
00716  M00S00468.dmrec   +++| ZZZZZDG  FILEB  HBUF,HBUFL,(FET=14),EPR
00717  M00S00469.dmrec   +++|
Line S00470 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00718  M01S00470.v23l617 ---|*         FET FOR FILE CARD INFORMATION.
Line S00009 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00719  M01S00009.v23l617 +++|*         FET FOR FILE STATEMENT INFORMATION.
00720  M00S00471.dmrec   +++|
00721  M00S00472.dmrec   +++| ZZZZZDR  FILEB  HBUF,HBUFL,(FET=7)
00722  M00S00473.dmrec   +++|
00723  M00S00474.dmrec   +++|*         FET FOR PROCEDURE FILE.
00724  M00S00475.dmrec   +++|
Line S00476 Modification History
M01 (Removed by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
00725  M01S00476.ns2056  ---| ZZZZSUB  FILEB  PROCC,IBUFL,(FET=7)
Line S00002 Modification History
M01 (Added by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
00726  M01S00002.ns2056  +++| ZZZZSUB  FILEB  PBUF,PBUFL,(FET=8)
00727  M00S00477.dmrec   +++|
00728  M00S00478.dmrec   +++|*         FET FOR ZZZZZXD FILE - HOLDS FL .
00729  M00S00479.dmrec   +++|
Line S00480 Modification History
M01 (Removed by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
00730  M01S00480.ns2056  ---| ZZZZZXD  FILEB  1,2,EPR,UPR,(FET=8)
Line S00003 Modification History
M01 (Added by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
00731  M01S00003.ns2056  +++| ZZZZZG7  FILEB  1,2,EPR,UPR,(FET=8)
00732  M00S00481.dmrec   +++|
00733  M00S00482.dmrec   +++|*         FET AND BUFFERS FOR *XXJ* FILE.
00734  M00S00483.dmrec   +++|
00735  M00S00484.dmrec   +++| XBUFL    EQU    101B
00736  M00S00485.dmrec   +++| XXJ      FILEB  XBUF,XBUFL,(FET=13),EPR
00737  M00S00486.dmrec   +++| XBUF     BSS    XBUFL
00738  M00S00487.dmrec   +++|
00739  M00S00488.dmrec   +++|*         FET FOR BACK-UP DIRECTORY FILE.
00740  M00S00489.dmrec   +++|
00741  M00S00490.dmrec   +++| ZZDBDIR  FILEB  DBUF,DBUFL,(FET=13B),EPR
00742  M00S00491.dmrec   +++|
00743  M00S00492.dmrec   +++|*         FET FOR CATLIST.
00744  M00S00493.dmrec   +++|
00745  M00S00494.dmrec   +++| C        BSS    0
00746  M00S00495.dmrec   +++| CAT      FILEB  HBUF,HBUFL,FET=16B
00747  M00S00496.dmrec   +++|
00748  M00S00497.dmrec   +++|
00749  M00S00498.dmrec   +++|*         DIRECTORY FILE FIT.
00750  M00S00499.dmrec   +++|
00751  M00S00500.dmrec   +++| DIRR     FILE   LFN=ZZDBDIR,FO=IS,RT=F,FL=60,KT=S,KL=20,ORG=NEW,DCT=D
Line S00501 Modification History
M01 (Removed by) dmrec4
Seq #  *Modification Id* Act 
----------------------------+
00752  M01S00501.dmrec4  ---|,,FWI=YES
00753  M00S00502.dmrec   ---|
00754  M00S00503.dmrec   ---|*         DATA FILE FIT.
00755  M00S00504.dmrec   ---|
00756  M00S00505.dmrec   ---| DFIT     FILE   LFN=ZZZDATA,FO=IS,ORG=NEW,EFC=3
00757  M00S00506.dmrec   ---|
00758  M00S00507.dmrec   ---|*         AUXILARY FIT FOR BACKUP DIRECTORY FROM DUMP TAPE
00759  M00S00508.dmrec   ---|
00760  M00S00509.dmrec   ---| FITA     FILE   LFN=ZZINDEX,FO=IS,RT=F,FL=60,KL=20,ORG=NEW,KT=S
00761  M00S00510.dmrec   ---|
00762  M00S00511.dmrec   ---|*         FET FOR CREATE LOG FILE
00763  M00S00512.dmrec   ---|
00764  M00S00513.dmrec   ---| RECF     RFILEC WBUF,WBUFL,EPR,FET=13D
00765  M00S00514.dmrec   ---|
00766  M00S00515.dmrec   ---|*          TEMPORARY SORT INPUT AND OUTPUT FILES
00767  M00S00516.dmrec   ---|
00768  M00S00517.dmrec   ---| SORTI    FILE   FO=SQ,RT=F,BT=C,FL=60
00769  M00S00518.dmrec   ---| SORTO    FILE   FO=SQ,RT=F,BT=C,FL=60,PD=IO
00770  M00S00519.dmrec   ---|
00771  M00S00520.dmrec   ---|*         DECOLLATION TABLE FOR *DIRR*.
00772  M00S00521.dmrec   ---|
00773  M00S00522.dmrec   ---| D        CON    00010203040506075555B
00774  M00S00523.dmrec   ---|          CON    10111213141516175555B
00775  M00S00524.dmrec   ---|          CON    20212223242526275555B
00776  M00S00525.dmrec   ---|          CON    30313233343536375555B
00777  M00S00526.dmrec   ---|          CON    40414243444546475555B
00778  M00S00527.dmrec   ---|          CON    50515253545556575555B
00779  M00S00528.dmrec   ---|          CON    60616263646566675555B
00780  M00S00529.dmrec   ---|          CON    70717273747576775555B
00781  M00S00530.dmrec   ---|
00782  M00S00531.dmrec   ---|
Line S00532 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00783  M01S00532.v23l617 ---|**        CONTROL CARD ARGUMENT TABLES.
Line S00010 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00784  M01S00010.v23l617 +++|**        COMMAND ARGUMENT TABLES.
00785  M00S00533.dmrec   +++|
00786  M00S00534.dmrec   +++|
Line S00535 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00787  M01S00535.v23l617 ---| TT       BSSZ   1           *TT* CONTROL CARD ARGUMENT
00788  M01S00536.v23l617 ---| Z        BSSZ   1           *Z* CONTROL CARD ARGUMENT
Line S00011 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00789  M01S00011.v23l617 +++| TT       BSSZ   1           *TT* COMMAND ARGUMENT
00790  M01S00012.v23l617 +++| Z        BSSZ   1           *Z* COMMAND ARGUMENT
00791  M00S00537.dmrec   +++|
00792  M00S00538.dmrec   +++|
00793  M00S00539.dmrec   +++|**        HDR1 LABEL FOR DUMP/LOAD TAPES.
00794  M00S00540.dmrec   +++|
00795  M00S00541.dmrec   +++|
00796  M00S00542.dmrec   +++| LBLAA    DATA   10HTAF/CRM -
00797  M00S00543.dmrec   +++|          DATA   7L*DMREC*
00798  M00S00544.dmrec   +++|
00799  M00S00545.dmrec   +++|**        RECORD LOAD MIPGEN PROCEDURE.
00800  M00S00546.dmrec   +++|
Line S00547 Modification History
M01 (Removed by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
00801  M01S00547.ns2056  ---| PROCC    VFD    60/10HFILE,ZZZDA
00802  M01S00548.ns2056  ---|          VFD    60/10HTA    ,FO=
00803  M01S00549.ns2056  ---|          VFD    60/10H
00804  M01S00550.ns2056  ---|          DATA   C*      ,XN=ZZINDEX.*
00805  M01S00551.ns2056  ---|          DATA   C*MIPGEN,ZZZDATA,ZZZZZDR.*
Line S00004 Modification History
M01 (Added by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
00811  M01S00552.ns2056  ---|          DATA   C*ZZZZZXD.*
Line S00009 Modification History
M01 (Added by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
00812  M01S00009.ns2056  +++|          DATA   C*ZZZZZG7.*
00813  M01S00010.ns2056  +++|          DATA   C*REVERT.*
Line S00553 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00814  M01S00553.v23l617 ---| PROCCL   EQU    *-PROCC     LENGTH OF CONTROL CARD BUFFER
Line S00013 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00815  M01S00013.v23l617 +++| PROCCL   EQU    *-PROCC     LENGTH OF COMMAND BUFFER
00816  M00S00554.dmrec   +++|
Line S00011 Modification History
M01 (Added by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00555.dmrec   +++|**        MISCELLANEOUS SYMBOLS FOR EXC - EXECUTE CONTROL CARD.
00823  M00S00556.dmrec   +++|
00824  M00S00557.dmrec   +++| OVLFWA   EQU    100B        FWA GENERATED OVERLAY
00825  M00S00558.dmrec   +++|
00826  M00S00559.dmrec   +++| A0S      CON    0           *A0*
Line S00560 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00827  M01S00560.v23l617 ---| CS       CON    0           POINTER TO CONTROL STATEMENT
Line S00014 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00828  M01S00014.v23l617 +++| CS       CON    0           POINTER TO COMMAND
00829  M00S00561.dmrec   +++| JA       CON    0           JOB ACTIVITY RETURNED BY *GETACT*
00830  M00S00562.dmrec   +++| LW       CON    0           LAST WORD OF FL
00831  M00S00563.dmrec   +++| LWADDR   CON    0           LAST WORD ADDRESS OF FL
00832  M00S00564.dmrec   +++| PBA      CON    0           ADDRESS OF PARAMETER BLOCK
00833  M00S00565.dmrec   +++| FL       CON    0           MEMORY STATUS WORD
00834  M00S00566.dmrec   +++|
00835  M00S00567.dmrec   +++|*         LOADER CONTROL TABLE.
00836  M00S00568.dmrec   +++|
00837  M00S00569.dmrec   +++| LT50     VFD    12/5000B,12/0,18/OVLFWA,18/EXC3
00838  M00S00570.dmrec   +++|
00839  M00S00571.dmrec   +++|*         END LOADER CONTROL TABLE.
00840  M00S00572.dmrec   +++|
00841  M00S00573.dmrec   +++| LOWMEM   BSS    OVLFWA-ARGR+1
00842  M00S00574.dmrec   +++|
Line S00575 Modification History
M01 (Removed by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
00843  M01S00575.ns2056  ---| PROC     DATA   C*CALL,ZZZZSUB.*
Line S00016 Modification History
M01 (Added by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
00844  M01S00016.ns2056  +++| PROC     DATA   C*BEGIN,,ZZZZSUB.*
00845  M00S00576.dmrec   +++|
00846  M00S00577.dmrec   +++|**        MISCELLANEOUS GLOBAL SYMBOLS.
00847  M00S00578.dmrec   +++|
00848  M00S00579.dmrec   +++| ACFA     VFD    12/2RZZ,12/0,18/3RDIR,18/0
00849  M00S00580.dmrec   +++| LWORD    VFD    12/2LZZ,12/0,6/1LB,30/0
00850  M00S00581.dmrec   +++| LMASK    VFD    12/7777B,12/0,6/77B,30/0
00851  M00S00582.dmrec   +++| DAT      BSSZ   1
00852  M00S00583.dmrec   +++| ITIT     BSSZ   1           POINTER TO NEXT *TTIG* SLOT
00853  M00S00584.dmrec   +++| TEMP1    BSSZ   1
00854  M00S00585.dmrec   +++| TEMP2    BSSZ   1
Line S00586 Modification History
M01 (Removed by) dmrec7
Seq #  *Modification Id* Act 
----------------------------+
00855  M01S00586.dmrec7  ---| NUME     BSSZ   1           NUMBER OF ENTRIES ON THIS TAPE
Line S00587 Modification History
M01 (Removed by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00856  M01S00587.ns2023  ---| IIQRF    BSSZ   1           ADDRESS OF NEXT *TTQRF* ENTRY
Line S00002 Modification History
M01 (Added by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00857  M01S00002.ns2023  +++| IIBRF    BSSZ   1           ADDRESS OF NEXT *TTBRF* ENTRY
00858  M00S00588.dmrec   +++| UDATE    BSSZ   1           UNPACKED DATE
00859  M00S00589.dmrec   +++| UTIME    BSSZ   1           UNPACKED TIME
00860  M00S00590.dmrec   +++| FILLD    VFD    6/1L ,12/0,6/1L/,12/0,6/1L/,12/0,6/1L.
00861  M00S00591.dmrec   +++| FILLT    VFD    6/1L ,12/0,6/1L.,12/0,6/1L.,12/0,6/1L.
00862  M00S00592.dmrec   +++| MTIME    VFD    6/1L ,12/2L23,6/1L.,12/2L59,6/1L.,12/2L59,6/1L.
00863  M00S00593.dmrec   +++| SKEY     BSSZ   1           KEY
00864  M00S00594.dmrec   +++| FVSN     BSSZ   1           FIRST VSN
00865  M00S00595.dmrec   +++| EDFN     VFD    42/0,18/0   EMPTY FILE DIRECTORY ENTRY
00866  M00S00596.dmrec   +++|          VFD    60/0
00867  M00S00597.dmrec   +++|          VFD    36/0,18/0,6/0
00868  M00S00598.dmrec   +++|          VFD    42/0,18/0
00869  M00S00599.dmrec   +++|          VFD    60/0
00870  M00S00600.dmrec   +++|          VFD    60/0
00871  M00S00601.dmrec   +++|
00872  M00S00602.dmrec   +++| EVSN     VFD    24/4L****,36/0  EMPTY VSN DIRECTORY ENTRY
00873  M00S00603.dmrec   +++|          VFD    60/10L**********
00874  M00S00604.dmrec   +++|          VFD    36/0,24/0
00875  M00S00605.dmrec   +++|          VFD    60/0
00876  M00S00606.dmrec   +++|          VFD    60/0
00877  M00S00607.dmrec   +++|          VFD    60/0
00878  M00S00608.dmrec   +++|
00879  M00S00609.dmrec   +++| FILLER   VFD    24/4L****,36/0  VSN ENTRY FILLER
00880  M00S00610.dmrec   +++| NUMF     BSSZ   1           NUMBER OF FILES ( TOTAL )
00881  M00S00611.dmrec   +++| NUMV     BSSZ   1           NUMBER OF VSN S ( TOTAL )
Line S00003 Modification History
M01 (Added by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
00882  M01S00003.dmrec2  +++| FSTVSN   BSSZ   1           FIRST VSN
00883  M00S00612.dmrec   +++| IDFN     BSSZ   1           INDEX TO TDFN
00884  M00S00613.dmrec   +++| IVSN     BSSZ   1           ADDRESS OF NEXT VSN
00885  M00S00614.dmrec   +++| NFLS     BSSZ   1           TOTAL FILE COUNT PER TAPE
00886  M00S00615.dmrec   +++| FORD     BSSZ   1           FILE ORDINAL
00887  M00S00616.dmrec   +++| HOLD     BSSZ   1           TEMPORARY
00888  M00S00617.dmrec   +++| HOLD1    BSSZ   1           TEMPORARY
00889  M00S00618.dmrec   +++| HOLD2    BSSZ   1           TEMPORARY
00890  M00S00619.dmrec   +++| HOLD3    BSSZ   1           TEMPORARY
00891  M00S00620.dmrec   +++| HOLD4    BSSZ   1           TEMPORARY
00892  M00S00621.dmrec   +++| HOLD5    BSSZ   1           TEMPORARY
00893  M00S00622.dmrec   +++| HOLD6    BSSZ   1           TEMPORARY
00894  M00S00623.dmrec   +++| NXTENT   BSSZ   1           NEXT *TLOG* ENTRY
Line S00624 Modification History
M01 (Removed by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00895  M01S00624.ns2023  ---| FSTFLG   BSSZ   1           FIRST *LRF* OF SESSION FLAG
00896  M01S00625.ns2023  ---| QRFFLG   BSSZ   1           *QRF* RECOVERY FLAG
Line S00003 Modification History
M01 (Added by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00897  M01S00003.ns2023  +++| FSTFLG   BSSZ   1           FIRST *ARF* OF SESSION FLAG
00898  M01S00004.ns2023  +++| BRFFLG   BSSZ   1           *BRF* RECOVERY FLAG
00899  M00S00626.dmrec   +++| LFWA     BSSZ   1           FWA OF LOAD RECORD
00900  M00S00627.dmrec   +++| LSTTRAN  BSSZ   1           PACKED DATE/TIME OF LAST TRANSACTION
Line S00002 Modification History
M01 (Added by) dmrec7
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00628.dmrec   +++| LLGN     BSSZ   1           RECORD LENGTH IN WORDS
00907  M00S00629.dmrec   +++| LCOMP    BSSZ   1           COMPRESSION FLAG
00908  M00S00630.dmrec   +++| LUCC     BSSZ   1           UNUSED CHARACTERS
00909  M00S00631.dmrec   +++| LKLOC    BSSZ   1           KEY LOCATION
00910  M00S00632.dmrec   +++| LKP      BSSZ   1           KEY POSITION
00911  M00S00633.dmrec   +++| LKS      BSSZ   1           KEY SIZE
00912  M00S00634.dmrec   +++| LCOLL    BSSZ   20B         COLLATION/DECOLLATION TABLE
00913  M00S00635.dmrec   +++| DMPFLG   BSSZ   1           DUMP FLAG - C H E C K ---------
00914  M00S00636.dmrec   +++| DIRFLAG  BSSZ   1           LWA OF CURRENT DIRECTIVE
00915  M00S00637.dmrec   +++| STDTIM   BSSZ   1           PACKED START DATE AND TIME
00916  M00S00638.dmrec   +++| ETDTIM   BSSZ   1           PACKED END DATE AND TIME
00917  M00S00639.dmrec   +++| EDATE    BSSZ   1           END DATE
00918  M00S00640.dmrec   +++| ETIME    BSSZ   1           END TIME
00919  M00S00641.dmrec   +++| DATE     BSSZ   1           START DATE
00920  M00S00642.dmrec   +++| TIME     BSSZ   1           START TIME
00921  M00S00643.dmrec   +++| DATE1    BSSZ   1           END DATE
00922  M00S00644.dmrec   +++| TIME1    BSSZ   1           END TIME
00923  M00S00645.dmrec   +++| TN       BSSZ   1           TASK NAME
00924  M00S00646.dmrec   +++| TS       BSSZ   1           TASK SEQUENCE NUMBER
00925  M00S00647.dmrec   +++| CYCL     BSSZ   1           CYCLE NUMBER
00926  M00S00648.dmrec   +++| LENGTH   BSSZ   1           LENGTH OF FILE
00927  M00S00649.dmrec   +++| FIRSTT   BSSZ   1           PACKED DATE/TIME OF FIRST TRANSACTION
00928  M00S00650.dmrec   +++| LASTT    BSSZ   1           PACKED DATE/TIME OF LAST TRANSACTION
00929  M00S00651.dmrec   +++| TRIP1    BSSZ   1           FIRST TRIP FLAG
00930  M00S00652.dmrec   +++| TTFLG    BSSZ   1           TELL TAF FLAG
00931  M00S00653.dmrec   +++| TPMODE   BSSZ   1           READ/WRITE MODE INDICATOR
00932  M00S00654.dmrec   +++| MRL      BSSZ   1           ABSOLUTE MAXIMUM RECORD LENGTH
00933  M00S00655.dmrec   +++| JOBORG   BSSZ   1           JOB ORIGIN CODE
00934  M00S00656.dmrec   +++| RBA      BSSZ   1           ADRESS OF RECORD BUFFER
00935  M00S00657.dmrec   +++| RQTREQ   BSSZ   1           REQUEST FROM ROUTINE *RQT*
00936  M00S00658.dmrec   +++| DBNAME   BSSZ   1           DATA BASE NAME
00937  M00S00659.dmrec   +++| DIRECT   BSSZ   1           CURRENT DIRECTIVE NAME
00938  M00S00660.dmrec   +++| EOF      BSSZ   1           END-OF-FILE FLAG FOR DIRECTIVE FILE
00939  M00S00661.dmrec   +++| ERROR    BSSZ   1           ERROR(S) ENCOUNTERED FLAG
00940  M00S00662.dmrec   +++| JUSER    DATA   -1          CURRENT USER
00941  M00S00663.dmrec   +++| OPFLG    BSSZ   1           OPERATION FLAG
00942  M00S00664.dmrec   +++| EVENT    BSSZ   1           EVENT FLAG
00943  M00S00665.dmrec   +++| KEY1     VFD    12/2HXX,48/0  CRM KEY1
00944  M00S00666.dmrec   +++|          VFD    60/0
00945  M00S00667.dmrec   +++| KEY2     VFD    12/2HXX,48/0  CRM KEY2
00946  M00S00668.dmrec   +++|          VFD    60/0
00947  M00S00669.dmrec   +++| YYBUF    BSSZ   6           BUFFER
00948  M00S00670.dmrec   +++| XXBUF    BSSZ   6           BUFFER
00949  M00S00671.dmrec   +++| XXPCT    BSSZ   1           PERCENTAGE ( EXPAND DIRECTIVE )
00950  M00S00672.dmrec   +++| EXCOPY   CON    1           NUMBER OF DUPLICATES
00951  M00S00673.dmrec   +++| SHIFTC   BSSZ   1           SHIFT COUNT
00952  M00S00674.dmrec   +++| DATAF    BSSZ   1           SIZE OF DATA FILE IN PRUS
00953  M00S00675.dmrec   +++| DMTAPE   BSSZ   1           NUMBER OF DUMP TAPES
00954  M00S00676.dmrec   +++| INDXF    BSSZ   1           SIZE OF INDEX FILE IN PRUS
00955  M00S00677.dmrec   +++| XXPFN1   BSSZ   1           TEMPORARY XXPFN
00956  M00S00678.dmrec   +++| NCHAR    BSSZ   1           NUMBER OF CHARACTERS IN NAME
00957  M00S00679.dmrec   +++| DATEP    BSSZ   1           TEMPORARY PACKED DATE -TIME
00958  M00S00680.dmrec   +++| PERCENT  BSSZ   1           PERCENT GIVEN FLAG
00959  M00S00681.dmrec   +++| TEMPO    BSSZ   1           TEMPORARY CELL - DUMMY
00960  M00S00682.dmrec   +++| SDATE    BSSZ   1           TEMPORARY START DATE
00961  M00S00683.dmrec   +++| STIME    BSSZ   1           TEMPORARY START TIME
00962  M00S00684.dmrec   +++| SDATE1   BSSZ   1           TEMPORARY END DATE
00963  M00S00685.dmrec   +++| STIME1   BSSZ   1           TEMPORARY END TIME
00964  M00S00686.dmrec   +++| SVSN     BSSZ   1           TEMPORARY VSN
00965  M00S00687.dmrec   +++| STDFN    BSSZ   1           TEMPORARY FILE NAME
00966  M00S00688.dmrec   +++| TEMPP    BSSZ   1           TEMPORARY
00967  M00S00689.dmrec   +++|
00968  M00S00690.dmrec   +++|*         FIELDS FROM XXJ FILE.
00969  M00S00691.dmrec   +++|
00970  M00S00692.dmrec   +++| XXUSER   BSSZ   1           CURRENT USER NAME
00971  M00S00693.dmrec   +++| XXPW     BSSZ   1           CURRENT PASSWORD
00972  M00S00694.dmrec   +++| XXFAM    BSSZ   1           CURRENT FAMILY
00973  M00S00695.dmrec   +++| XXMRL    BSSZ   1           MAXIMUM RECORD LENGTH FOR ALL FILES
00974  M00S00696.dmrec   +++| XXMKL    BSSZ   1           MAXIMUM KEY LENGTH
00975  M00S00697.dmrec   +++| XXMBL    BSSZ   1           MAXIMUM BLOCK LENGTH
00976  M00S00698.dmrec   +++| XXBRF    BSSZ   1           TOTAL NUMBER OF *BRF-S* FOR DATA BASE
00977  M00S00699.dmrec   +++|
00978  M00S00700.dmrec   +++| XXPFN    BSSZ   1           PERMANENT FILE NAME
00979  M00S00701.dmrec   +++| XXTY     BSSZ   1           FILE TYPE (DA, IS)
00980  M00S00702.dmrec   +++| XXACC    BSSZ   1           READ/WRITE MODE
00981  M00S00703.dmrec   +++| XXRL     BSSZ   1           RECORD LENGTH
00982  M00S00704.dmrec   +++| XXKL     BSSZ   1           PRIMARY KEY LENGTH
00983  M00S00705.dmrec   +++| XXHASH   BSSZ   1           HASHING ROUTINE NAME
00984  M00S00706.dmrec   +++| XXREC    BSSZ   1           RECOVERY INDICATOR
00985  M00S00707.dmrec   +++| XXFWI    BSSZ   1           FORCE WRITE INDICATOR
00986  M00S00708.dmrec   +++| XXPACK   BSSZ   1           PACK NAME FOR DATA FILE
00987  M00S00709.dmrec   +++| XXDEV    BSSZ   1           DEVICE FOR DATA FILE
00988  M00S00710.dmrec   +++| XXPC     BSSZ   1           PRE-ALLOCATION PERCENTAGE FOR DATA FILE
00989  M00S00711.dmrec   +++|
00990  M00S00712.dmrec   +++| XXIXN    BSSZ   1           PERMANENT FILE NAME OF INDEX FILE
00991  M00S00713.dmrec   +++| XXNAKY   BSSZ   1           NUMBER OF ALTERNATE KEYS
00992  M00S00714.dmrec   +++| XXIXP    BSSZ   1           INDEX PACK NAME
00993  M00S00715.dmrec   +++| XXIDEV   BSSZ   1           INDEX DEVICE
00994  M00S00716.dmrec   +++| XXIPC    BSSZ   1           PRE-ALLOCATION PERCENTAGE FOR INDEX FILE
00995  M00S00717.dmrec   +++|
00996  M00S00718.dmrec   +++| XXMODE   BSSZ   1           ATTACH MODE FOR MS DUMP/LOAD FILE
00997  M00S00719.dmrec   +++|
Line S00720 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00998  M01S00720.v23l617 ---|*         CONTROL CARD ARGUMENT TABLE.
Line S00015 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00999  M01S00015.v23l617 +++|*         COMMAND ARGUMENT TABLE.
01000  M00S00721.dmrec   +++|
01001  M00S00722.dmrec   +++| ARGA     BSS    0
01002  M00S00723.dmrec   +++| I        ARG    ARGB,I
01003  M00S00724.dmrec   +++| L        ARG    ARGB+1,O
01004  M00S00725.dmrec   +++| TT       ARG    ARGB-2,TT
01005  M00S00726.dmrec   +++| Z        ARG    -ARGB-3,Z
01006  M00S00727.dmrec   +++|          CON    0
01007  M00S00728.dmrec   +++|
01008  M00S00729.dmrec   +++| ARGB     CON    0LCOMPILE+3
01009  M00S00730.dmrec   +++|          CON    0LLIST+3
01010  M00S00731.dmrec   +++|          CON    1
01011  M00S00732.dmrec   +++|          CON    1
01012  M00S00733.dmrec   +++|
01013  M00S00734.dmrec   +++|*         FSTT LOCATIONS.
01014  M00S00735.dmrec   +++|
Line S00736 Modification History
M01 (Removed by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
01015  M01S00736.ns2056  ---| FSTT1    EQU    1
01016  M01S00737.ns2056  ---| FSTT15   EQU    15B
01017  M01S00738.ns2056  ---| FSTT16   EQU    16B
01018  M01S00739.ns2056  ---| FSTT17   EQU    17B
01019  M01S00740.ns2056  ---| FSTT53   EQU    53B
01020  M01S00741.ns2056  ---| FSTT63   EQU    63B
01021  M01S00742.ns2056  ---| FSTT75   EQU    75B
Line S00017 Modification History
M01 (Added by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00743.dmrec   +++|
01031  M00S00744.dmrec   +++|*         MISC. CELLS FOR LIST AND EDIT
01032  M00S00745.dmrec   +++|
01033  M00S00746.dmrec   +++| LFNC     BSSZ   1           LFN CONTROL
01034  M00S00747.dmrec   +++| LSTC     BSSZ   1           LIST CONTROL
01035  M00S00748.dmrec   +++| MTIM     DATA   10H 00.00.00.  MIDNIGHT TIME
01036  M00S00749.dmrec   +++| TKY1     BSSZ   1           WORD ONE OF KEY
01037  M00S00750.dmrec   +++| TKY2     BSSZ   1           WORD TWO OF KEY
01038  M00S00751.dmrec   +++| CKY1     BSSZ   1           TEMPORARY KEY WORD
01039  M00S00752.dmrec   +++| CKY2     BSSZ   1           TEMPORARY KEY WORD
01040  M00S00753.dmrec   +++| VKY1     BSSZ   1           TEMPORARY KEY WORD
01041  M00S00754.dmrec   +++| VKY2     BSSZ   1           TEMPORARY KEY WORD
01042  M00S00755.dmrec   +++| AKY1     BSSZ   1           TEMPORARY KEY WORD
01043  M00S00756.dmrec   +++| AKY2     BSSZ   1           TEMPORARY KEY WORD
01044  M00S00757.dmrec   +++| WDCT     BSSZ   1           WORD COUNT
01045  M00S00758.dmrec   +++| RPCT     BSSZ   1           REPEAT COUNT
01046  M00S00759.dmrec   +++| BKEY     DATA   1H          WORD OF BLANKS
01047  M00S00760.dmrec   +++| BLKL     DATA   1L          BLANK LINE
01048  M00S00761.dmrec   +++| VSNK     DATA   10H**********  WORD OF ASTERISKS
01049  M00S00762.dmrec   +++| WSAL     EQU    6           WSA LENGTH
01050  M00S00763.dmrec   +++| WSAB     BSSZ   WSAL        RECORD WSA
01051  M00S00764.dmrec   +++| TFIL     DATA   10H FILE DUMP  FILE TYPE
01052  M00S00765.dmrec   +++| LOGT     DATA   10H AI LOG NN  AFTER IMAGE TYPE
01053  M00S00766.dmrec   +++| TFOR     DATA   10H B          BLOCK TYPE
01054  M00S00767.dmrec   +++|          DATA   10H R          RECORD TYPE
01055  M00S00768.dmrec   +++| BIND     DATA   1AB         BEGIN INDICATOR
01056  M00S00769.dmrec   +++| HDRC     BSSZ   1           HEADER CONTROL
01057  M00S00770.dmrec   +++| LHDR     BSSZ   1           LAST HEADER
01058  M00S00771.dmrec   +++| EOFF     EQU    100B        END OF FILE
01059  M00S00772.dmrec   +++| EOSF     EQU    10B         END OF SECTION FOR SEQUENTIAL FILE
01060  M00S00773.dmrec   +++| KNFF     EQU    445B        KEY NOT FOUND
01061  M00S00774.dmrec   +++| LWAK     BSSZ   1           LWA OF KEY AREA
01062  M00S00775.dmrec   +++| KEYW     BSSZ   1           CURRENT ADDRESS IN KEY AREA
01063  M00S00776.dmrec   +++| PLINL    EQU    10          PRINT LINE LENGTH
01064  M00S00777.dmrec   +++| PLIN     BSSZ   PLINL+1     PRINT LINE BUFFER
01065  M00S00778.dmrec   +++| SCPC     CON    0           BYTE POSITION
01066  M00S00779.dmrec   +++| OPWD     CON    3           OPTION CONTROL WRD (PRESET TO OCTAL/ALPHA)
01067  M00S00780.dmrec   +++| EQTW     CON    0           EQUIVALENCE TEST WORD
01068  M00S00781.dmrec   +++| DTOL     BSSZ   4           DATA FOR ONE LINE
01069  M00S00782.dmrec   +++| WCBL     CON    0           BEGINNING OF LINE WORD COUNT
01070  M00S00783.dmrec   +++| MALR     DATA   C* -- ABOVE LINE REPEATED --*
01071  M00S00784.dmrec   +++| RECC     BSSZ   1           RECORD COUNT
01072  M00S00785.dmrec   +++| CYCD     BSSZ   1           CYCLE NUMBER FROM DIRECTORY HEADER
01073  M00S00786.dmrec   +++| CYCF     BSSZ   1           CYCLE CHANGE FLAG
01074  M00S00787.dmrec   +++| CYCC     BSSZ   1           CYCLE COUNT
01075  M00S00788.dmrec   +++| CYCT     BSSZ   1           TEMPORARY CYCLE COUNT
01076  M00S00789.dmrec   +++| CYCM     EQU    9           MAXIMUM CYCLE NUMBER
01077  M00S00790.dmrec   +++| LDATE    BSSZ   1           LAST CYCLE DATE/TIME
01078  M00S00791.dmrec   +++| LFNP     BSSZ   1           CURRENT FILE POINTER
01079  M00S00792.dmrec   +++| ADDF     BSSZ   1           ADD FLAG - ADD/DELETE VSN
01080  M00S00793.dmrec   +++| DELF     BSSZ   1           DELETE FLAG - DUMP/VSN ENTRY
01081  M00S00794.dmrec   +++| EDTF     BSSZ   1           EDIT FLAG - AUTO/MANUAL EDIT
01082  M00S00795.dmrec   +++| TDFSL    EQU    64          LENGTH OF COPY OF *TDFN* TABLE
01083  M00S00796.dmrec   +++| TDFS     BSSZ   TDFSL       COPY OF *TDFN* USED BY EDIT
Line S00797 Modification History
M01 (Removed by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01084  M01S00797.ns2023  ---| TQRF     BSSZ   TQRFE       *TQRF* TABLE
01085  M01S00798.ns2023  ---| TLRF     BSSZ   TARFE       *TLRF* TABLE
Line S00005 Modification History
M01 (Added by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01086  M01S00005.ns2023  +++| TQRF     BSSZ   TQRFE       *TBRF* TABLE
01087  M01S00006.ns2023  +++| TARF     BSSZ   TARFE       *TARF* TABLE
01088  M00S00799.dmrec   +++|
01089  M00S00800.dmrec   +++|*         WORDS/LINE TABLE INDEXED BY *JOBORG*.
01090  M00S00801.dmrec   +++|
01091  M00S00802.dmrec   +++| WPLT     BSS    0
01092  M00S00803.dmrec   +++|          CON    2           TERMINAL
01093  M00S00804.dmrec   +++|          CON    4           NON-TERMINAL
01094  M00S00805.dmrec   +++|
01095  M00S00806.dmrec   +++|*         LIST OF FILES PARAMETERS.
01096  M00S00807.dmrec   +++|
01097  M00S00808.dmrec   +++| LOF      VFD    12/0,18/LOFA,30/0
01098  M00S00809.dmrec   +++| LOFA     VFD    42/0,18/2
01099  M00S00810.dmrec   +++| LOFB     BSSZ   2
01100  M00S00811.dmrec   +++| TABLES   SPACE  4,10
01101  M00S00812.dmrec   +++|**        TDIR - TABLE OF VALID DIRECTIVES.
01102  M00S00813.dmrec   +++|*
01103  M00S00814.dmrec   +++|*         THIS TABLE CONTAINS THE VALID DIRECTIVES
01104  M00S00815.dmrec   +++|*         FOR *TAF/CRM* BATCH RECOVERY.  IT ALSO CONTAINS THE
01105  M00S00816.dmrec   +++|*         OPERATION FLAGS WHICH VALIDATE THE USE OF SPECIFIC
01106  M00S00817.dmrec   +++|*         PARAMETERS ON ITS RELATED DIRECTIVE.  SUBCODES ARE
01107  M00S00818.dmrec   +++|*         USED IN PROCESSING THE *CYCLE*, *ADD* AND *DELETE*
01108  M00S00819.dmrec   +++|*         DIRECTIVES WHICH ARE USED IN *EDIT*, AND IN
01109  M00S00820.dmrec   +++|*         RECOVERY PROCESSING IN *LOAD*.
01110  M00S00821.dmrec   +++|*
01111  M00S00822.dmrec   +++|*T TDIR   42/A, 18/B
Figure TDIR

0171829BA3059A

01112  M00S00823.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  M00S00824.dmrec   +++|*
01114  M00S00825.dmrec   +++|*         A = TDMA - DIRECTIVE NAME.
01115  M00S00826.dmrec   +++|*         B = TDMB - PROCESSOR ADDRESS.
01116  M00S00827.dmrec   +++|*         C = TDMC - TIME.
01117  M00S00828.dmrec   +++|*         D = TDMD - DATE.
01118  M00S00829.dmrec   +++|*         E = TDME - VSN.
01119  M00S00830.dmrec   +++|*         F = TDMF - BLOCK/RECORD.
01120  M00S00831.dmrec   +++|*         G = TDMG - TASK NAME.
01121  M00S00832.dmrec   +++|*         H = TDMH - TASK SEQUENCE NUMBER.
01122  M00S00833.dmrec   +++|*         I = TDMI - LENGTH.
01123  M00S00834.dmrec   +++|*         J = TDMJ - PERCENT.
01124  M00S00835.dmrec   +++|*         K = TDMK - CYCLE.
01125  M00S00836.dmrec   +++|*         L = TDML - SUBCODE.
01126  M00S00837.dmrec   +++|
01127  M00S00838.dmrec   +++|*         INPUT DIRECTIVE TABLE.
01128  M00S00839.dmrec   +++|
01129  M00S00840.dmrec   +++| TDMA     FIELD  0,59,18     DIRECTIVE NAME
01130  M00S00841.dmrec   +++| TDMB     FIELD  0,17,0      PROCESSOR ADDRESS
01131  M00S00842.dmrec   +++| TDMC     FIELD  1,59,59     TIME
01132  M00S00843.dmrec   +++| TDMD     FIELD  1,58,58     DATE
01133  M00S00844.dmrec   +++| TDME     FIELD  1,57,57     VSN
01134  M00S00845.dmrec   +++| TDMF     FIELD  1,56,56     BLOCK/RECORD
01135  M00S00846.dmrec   +++| TDMG     FIELD  1,55,55     TASK NAME
01136  M00S00847.dmrec   +++| TDMH     FIELD  1,54,54     TASK SEQUENCE NUMBER
01137  M00S00848.dmrec   +++| TDMI     FIELD  1,53,53     LENGTH
01138  M00S00849.dmrec   +++| TDMJ     FIELD  1,52,52     PERCENT
01139  M00S00850.dmrec   +++| TDMK     FIELD  1,51,51     CYCLE
01140  M00S00851.dmrec   +++| TDML     FIELD  1,1,0       SUBCODE
01141  M00S00852.dmrec   +++|
01142  M00S00853.dmrec   +++|
01143  M00S00854.dmrec   +++| TDIR     BSS    0
01144  M00S00855.dmrec   +++|          VFD    42/0LCOMMENT,18/0     *COMMENT DIRECTIVE
01145  M00S00856.dmrec   +++|          VFD    60/0
01146  M00S00857.dmrec   +++|          VFD    42/0LDUMP,18/DMP      *DUMP DIRECTIVE
01147  M00S00858.dmrec   +++|          VFD    1/TDMCN,1/TDMDN,1/TDMEN,1/TDMFN,56/0
01148  M00S00859.dmrec   +++|          VFD    42/0LLOAD,18/LOD      *LOAD DIRECTIVE
01149  M00S00860.dmrec   +++|          VFD    1/TDMCN,1/TDMDN,1/TDMEN,1/TDMFN,56/0
01150  M00S00861.dmrec   +++|          VFD    42/0LLIST,18/LST      *LIST DIRECTIVE
01151  M00S00862.dmrec   +++|          VFD    1/TDMCN,1/TDMDN,1/TDMEN,1/TDMFN,56/0
01152  M00S00863.dmrec   +++|          VFD    42/0LEDIT,18/EIT      *EDIT DIRECTIVE
01153  M00S00864.dmrec   +++|          VFD    60/0
01154  M00S00865.dmrec   +++|          VFD    42/0LRECOVER,18/REC   *RECOVER DIRECTIVE
01155  M00S00866.dmrec   +++|          VFD    1/TDMCN,1/TDMDN,1/TDMEN,1/TDMFN,56/0
01156  M00S00867.dmrec   +++|          VFD    42/0LUPDATE,18/UPD    *UPDATE DIRECTIVE
01157  M00S00868.dmrec   +++|          VFD    1/TDMCN,1/TDMDN,1/TDMEN,1/TDMFN,56/0
01158  M00S00869.dmrec   +++|          VFD    42/0LEXPAND,18/EXP    *EXPAND DIRECTIVE
01159  M00S00870.dmrec   +++|          VFD    7/0,1/TDMJN,52/0
01160  M00S00871.dmrec   +++|          VFD    42/0LIGNORE,18/IGN    *IGNORE DIRECTIVE
01161  M00S00872.dmrec   +++|          VFD    4/0,1/TDMGN,1/TDMHN,54/0
01162  M00S00873.dmrec   +++|          VFD    42/0LCYCLE,18/EIT     *CYCLE DIRECTIVE
01163  M00S00874.dmrec   +++|          VFD    8/0,1/TDMKN,49/0,2/2
01164  M00S00875.dmrec   +++|          VFD    42/0LDELETE,18/EIT    *DELETE DIRECTIVE
01165  M00S00876.dmrec   +++|          VFD    1/TDMCN,1/TDMDN,1/TDMEN,55/0,2/3
01166  M00S00877.dmrec   +++|          VFD    42/0LADD,18/EIT       *ADD DIRECTIVE
01167  M00S00878.dmrec   +++|          VFD    2/0,1/TDMEN,55/0,2/1
01168  M00S00879.dmrec   +++|          VFD    42/0LCREATE,18/CRT    *CREATE DIRECTIVE
01169  M00S00880.dmrec   +++|          VFD    6/0,1/TDMIN,53/0
01170  M00S00881.dmrec   +++| TDIRL    EQU    *-TDIR
01171  M00S00882.dmrec   +++| TDFN     SPACE  4,15
01172  M00S00883.dmrec   +++|**        TDFN - TABLE OF DATA BASE FILE NAMES.
01173  M00S00884.dmrec   +++|*
01174  M00S00885.dmrec   +++|*         THIS TABLE CONTAINS THE DATA BASE FILE NAMES AS READ
01175  M00S00886.dmrec   +++|*         FROM THE DIRECTIVE FILE.
01176  M00S00887.dmrec   +++|*
01177  M00S00888.dmrec   +++|*T  TDFN  42/FILENAME,3/0,3/FLAG,12/0
Figure TDFN

0111214151718290FLAG0FILENAME3059FILENAME

01178  M00S00889.dmrec   +++|*
01179  M00S00890.dmrec   +++|*         FILENAME = FILE NAME AS READ FROM DIRECTIVES.
01180  M00S00891.dmrec   +++|*         FLAG     = *B* IF BLOCK OPERATION REQUESTED.
01181  M00S00892.dmrec   +++|*         FLAG     = *R* IF RECORD OPERATION REQUESTED.
01182  M00S00893.dmrec   +++|*         FLAG     = 0 IF DEFAULT OPERATION REQUESTED.
01183  M00S00894.dmrec   +++|
01184  M00S00895.dmrec   +++|
01185  M00S00896.dmrec   +++| TDFNL    EQU    NDUMP*2
01186  M00S00897.dmrec   +++| TDFN     BSS    TDFNL
01187  M00S00898.dmrec   +++| TTIG     SPACE  4,20
01188  M00S00899.dmrec   +++|**        TTIG - TABLE OF TRANSACTIONS TO IGNORE.
01189  M00S00900.dmrec   +++|*
01190  M00S00901.dmrec   +++|*         THIS TABLE CONTAINS A LIST OF TRANSACTION ENTRIES
01191  M00S00902.dmrec   +++|*         TO IGNORE WHEN UPDATING A *CRM* FILE.  THE TABLE CONTAINS
01192  M00S00903.dmrec   +++|*         TWO WORD ENTRIES TERMINATED WITH A ZERO WORD.
01193  M00S00904.dmrec   +++|*
01194  M00S00905.dmrec   +++|*T,TTIG   42/TASKN,6/0,12/TID
Figure TTIG

01112171829TID0TASKN3059TASKN

01195  M00S00906.dmrec   +++|*         OR
01196  M00S00907.dmrec   +++|*         30/TASKS,18/0,12/TID
01197  M00S00908.dmrec   +++|*T,TTIG+1 60/BID
Figure TTIG+1

029BID3059BID

01198  M00S00909.dmrec   +++|*
01199  M00S00910.dmrec   +++|*         TASKN = TASK NAME.
01200  M00S00911.dmrec   +++|*         TASKS = TASK SEQUENCE NUMBER.
01201  M00S00912.dmrec   +++|*         TID   = TN - IF TASK NAME.
01202  M00S00913.dmrec   +++|*               = TS - IF TASK SEQUENCE NUMBER.
01203  M00S00914.dmrec   +++|*         BID   = 0, IF ENTRY GENERATED BY *IGNORE* DIRECTIVE.
Line S00915 Modification History
M01 (Removed by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01204  M01S00915.ns2023  ---|*               = BEGIN IDENTIFIER IF ENTERED ON *QRF* RECOVERY.
Line S00007 Modification History
M01 (Added by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01205  M01S00007.ns2023  +++|*               = BEGIN IDENTIFIER IF ENTERED ON *BRF* RECOVERY.
01206  M00S00916.dmrec   +++|
01207  M00S00917.dmrec   +++|
01208  M00S00918.dmrec   +++| TTIG     BSSZ   TTIGL
01209  M00S00919.dmrec   +++| TVSN     SPACE  4,10
01210  M00S00920.dmrec   +++|**        TVSN - TABLE OF VSN ENTRIES.
01211  M00S00921.dmrec   +++|*
01212  M00S00922.dmrec   +++|*         ONE WORD VSN ENTRIES TERMINATED BY A ZERO WORD.
01213  M00S00923.dmrec   +++|*
01214  M00S00924.dmrec   +++|*T TVSN   42/VSN,18/VSNN
Figure TVSN

0171829VSNNVSN3059VSN

01215  M00S00925.dmrec   +++|*
01216  M00S00926.dmrec   +++|*         VSNN = NUMBER OF EOF-S ON THIS TAPE.
01217  M00S00927.dmrec   +++|
01218  M00S00928.dmrec   +++|
01219  M00S00929.dmrec   +++| TVSN     BSSZ   TVSNL
Line S00007 Modification History
M01 (Added by) dmrec7
Seq #  *Modification Id* Act 
----------------------------+
01220  M01S00007.dmrec7  +++| BVSN     BSSZ   1           1 WORD BUFFER FOR END OF TABLE
Line S00930 Modification History
M01 (Removed by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01221  M01S00930.ns2023  ---| TTQRF    SPACE  4,10
01222  M01S00931.ns2023  ---|**        TTQRF - TABLE OF DOWNED *QRF-S*.
Line S00008 Modification History
M01 (Added by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01223  M01S00008.ns2023  +++| TTBRF    SPACE  4,10
01224  M01S00009.ns2023  +++|**        TTBRF - TABLE OF DOWNED *BRF-S*.
01225  M00S00932.dmrec   +++|*
Line S00933 Modification History
M01 (Removed by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01226  M01S00933.ns2023  ---|*         THIS IS A TABLE OF *QRF-S* TO REALLOCATE ON A *QRF* RECOVERY.
Line S00010 Modification History
M01 (Added by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01227  M01S00010.ns2023  +++|*         THIS IS A TABLE OF *BRF-S* TO REALLOCATE ON A *BRF* RECOVERY.
01228  M00S00934.dmrec   +++|*         IT CONTAINS ONE WORD ENTRIES AND IS TERMINATED BY A
01229  M00S00935.dmrec   +++|*         ZERO WORD.
01230  M00S00936.dmrec   +++|*
Line S00937 Modification History
M01 (Removed by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01231  M01S00937.ns2023  ---|*T TTQRF  42/QRF,18/0
Figure TTQRF

01718290QRF3059QRF


Line S00011 Modification History
M01 (Added by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01232  M01S00011.ns2023  +++|*T TTBRF  42/BRF,18/0
Figure TTBRF

01718290BRF3059BRF

01233  M00S00938.dmrec   +++|
01234  M00S00939.dmrec   +++|
Line S00940 Modification History
M01 (Removed by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01235  M01S00940.ns2023  ---| TTQRFL   EQU    10          MAXIMUM NUMBER OF DOWNED QRFS
01236  M01S00941.ns2023  ---| TTQRF    BSSZ   TTQRFL
Line S00012 Modification History
M01 (Added by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01237  M01S00012.ns2023  +++| TTBRFL   EQU    10          MAXIMUM NUMBER OF DOWNED BRFS
01238  M01S00013.ns2023  +++| TTBRF    BSSZ   TTBRFL
Line S00008 Modification History
M01 (Added by) dmrec7
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00942.dmrec   +++| FTAB     SPACE  4,10
01261  M00S00943.dmrec   +++|**        FTAB - INTERMEDIATE IGNORE TABLE.
01262  M00S00944.dmrec   +++|*
01263  M00S00945.dmrec   +++|*         THIS IS AN INTERMEDIATE TABLE THAT CONTAINS TWO WORD
01264  M00S00946.dmrec   +++|*         ENTRIES AND IS TERMINATED WITH A NEGATIVE WORD.
01265  M00S00947.dmrec   +++|*         THIS TABLE WILL EXPAND TO ITS PRESET LIMITS BUT
01266  M00S00948.dmrec   +++|*         WILL NOT REDUCE.
01267  M00S00949.dmrec   +++|*
01268  M00S00950.dmrec   +++|*T FTAB   42/FN,18/0
Figure FTAB

01718290FN3059FN

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

029BID303536590TS

01270  M00S00952.dmrec   +++|*
01271  M00S00953.dmrec   +++|*         FN= FILE NAME.
01272  M00S00954.dmrec   +++|*         TS = TASK SEQUENCE NUMBER.
01273  M00S00955.dmrec   +++|*         BID = BEGIN ID OF CURRENT TASK.
01274  M00S00956.dmrec   +++|
01275  M00S00957.dmrec   +++|
01276  M00S00958.dmrec   +++| FTAB     BSSZ   FTABL
Line S00959 Modification History
M01 (Removed by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01277  M01S00959.dmrec2  ---| AAIC     SPACE  4,10
01278  M01S00960.dmrec2  ---|**        AAIC - AFTER IMAGE ACCUMULATION TABLE.
01279  M01S00961.dmrec2  ---|*
01280  M01S00962.dmrec2  ---|*         THIS TABLE CONTAINS ONE WORD ENTRIES OF (BEGIN) TRANSACTION
01281  M01S00963.dmrec2  ---|*         SEQUENCE NUMBERS.  IT IS USED TO DELINEATE THE APPLICATION
01282  M01S00964.dmrec2  ---|*         OF *AFTER IMAGE* ENTRIES BY DATE/TIME.
01283  M01S00965.dmrec2  ---|*
01284  M01S00966.dmrec2  ---|*T AAIC   42/TS,18/0
Figure AAIC

01718290TS3059TS

01285  M01S00967.dmrec2  ---|
01286  M01S00968.dmrec2  ---|
01287  M01S00969.dmrec2  ---| AAIC     BSSZ   AAICL
01288  M00S00970.dmrec   ---| TLOG     SPACE  4,10
01289  M00S00971.dmrec   ---|**        TLOG - TABLE OF LOG ENTRIES.
01290  M00S00972.dmrec   ---|*
01291  M00S00973.dmrec   ---|*         THIS TABLE CONTAINS TWO WORD ENTRIES OF THE FOLLOWING FORMAT.
01292  M00S00974.dmrec   ---|*
01293  M00S00975.dmrec   ---|*T TLOG   42/LFN,18/N
Figure TLOG

0171829NLFN3059LFN

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

029PDT3059PDT

01295  M00S00977.dmrec   ---|*
01296  M00S00978.dmrec   ---|*         LFN = LOGICAL FILE NAME.
01297  M00S00979.dmrec   ---|*         N   = NUMBER OF *AFTER IMAGE* ENTRIES TO A *CRM* DATA FILE.
01298  M00S00980.dmrec   ---|*         PDT = PACKED DATE/TIME.
01299  M00S00981.dmrec   ---|
01300  M00S00982.dmrec   ---|
01301  M00S00983.dmrec   ---| TLOG     BSSZ   TLOGL
01302  M00S00984.dmrec   ---|          SPACE  4,10
01303  M00S00985.dmrec   ---|          TITLE  MAIN ROUTINE.
Line S00986 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01304  M01S00986.v23l617 ---| DMREC    RJ     PRS         PRESET CONTROL CARD VALUES
Line S00016 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01305  M01S00016.v23l617 +++| DMREC    RJ     PRS         PRESET COMMAND VALUES
01306  M00S00987.dmrec   +++|
01307  M00S00988.dmrec   +++|*         CHECK FOR LEGAL USER.
01308  M00S00989.dmrec   +++|
01309  M00S00990.dmrec   +++|          USERNUM JUSER      GET USER NAME
01310  M00S00991.dmrec   +++|          SA2    JUSER
01311  M00S00992.dmrec   +++|          SA1    =7L"USNM"
01312  M00S00993.dmrec   +++|          BX2    X2-X1
01313  M00S00994.dmrec   +++|          NZ     X2,DMR1     IF USER = *TAF*
01314  M00S00995.dmrec   +++|          MX6    0
01315  M00S00996.dmrec   +++|          SA6    JUSER
01316  M00S00997.dmrec   +++| DMR1     RJ     RDD         READ FIRST DIRECTIVE
01317  M00S00998.dmrec   +++|          ZR     X1,DMR3     IF NO EOR/EOF
01318  M00S00999.dmrec   +++|          MESSAGE DMRC,,R
01319  M00S01000.dmrec   +++|          SX6    1
01320  M00S01001.dmrec   +++|          SA6    ERROR       SET ERROR FLAG
01321  M00S01002.dmrec   +++|          EQ     DMR6        EXIT
01322  M00S01003.dmrec   +++|
01323  M00S01004.dmrec   +++| DMR2     RJ     RDD         READ NEXT DIRECTIVE
01324  M00S01005.dmrec   +++|
01325  M00S01006.dmrec   +++|*         CHECK FIRST CHARACTER.
01326  M00S01007.dmrec   +++|
01327  M00S01008.dmrec   +++| DMR3     SA1    EOF
01328  M00S01009.dmrec   +++|          NZ     X1,DMR6     IF EOF ON DIRECTIVE FILE
01329  M00S01010.dmrec   +++|          SA2    DIR
01330  M00S01011.dmrec   +++|          SX3    X2-1R*
01331  M00S01012.dmrec   +++|          NZ     X3,DMR7     IF FIRST CHARACTER NOT = *
01332  M00S01013.dmrec   +++|          SA1    DIRFLAG
01333  M00S01014.dmrec   +++|          SB7    X1          RESTORE CURRENT DIRECTIVE LWA
01334  M00S01015.dmrec   +++|
01335  M00S01016.dmrec   +++|*         CHECK FOR COMMENT CARDS.
01336  M00S01017.dmrec   +++|
01337  M00S01018.dmrec   +++|          SA2    A2+B1       GET NEXT CHARACTER IN CARD
01338  M00S01019.dmrec   +++|          SX3    X2-1R/
01339  M00S01020.dmrec   +++|          ZR     X3,DMR2     IF COMMENT (*/)
01340  M00S01021.dmrec   +++|          SX3    X2-1R.
01341  M00S01022.dmrec   +++|          ZR     X3,DMR2     IF COMMENT (*.)
01342  M00S01023.dmrec   +++|
01343  M00S01024.dmrec   +++|*         CHECK FOR LEGAL DIRECTIVES.
01344  M00S01025.dmrec   +++|
01345  M00S01026.dmrec   +++|          RJ     GPR         GET FIRST PARAMETER FROM DIRECTIVE
01346  M00S01027.dmrec   +++|          GT     B2,DMR7     IF ERROR ENCOUNTERED
01347  M00S01028.dmrec   +++|          MX0    42
01348  M00S01029.dmrec   +++|          SB2    B0
01349  M00S01030.dmrec   +++|          SB3    TDIRL       LENGTH OF DIRECTIVE TABLE
01350  M00S01031.dmrec   +++|          SA4    TDIR        FWA OF DIRECTIVE TABLE
01351  M00S01032.dmrec   +++| DMR4     GE     B2,B3,DMR7  IF DIRECTIVE NOT FOUND
01352  M00S01033.dmrec   +++|          BX6    X0*X4       MASK OUT
01353  M00S01034.dmrec   +++|          IX6    X6-X5
01354  M00S01035.dmrec   +++|          ZR     X6,DMR5     IF DIRECTIVE FOUND
01355  M00S01036.dmrec   +++|          SA4    A4+2
01356  M00S01037.dmrec   +++|          SB2    B2+2
01357  M00S01038.dmrec   +++|          EQ     DMR4        LOOP
01358  M00S01039.dmrec   +++|
01359  M00S01040.dmrec   +++| DMR5     SB2    X4          VALID DIRECTIVE FOUND
01360  M00S01041.dmrec   +++|          ZR     B2,DMR2     IF *COMMENT* DIRECTIVE
01361  M00S01042.dmrec   +++|          BX6    X5          SAVE DIRECTIVE NAME
01362  M00S01043.dmrec   +++|          SA6    DIRECT
01363  M00S01044.dmrec   +++|          SA4    A4+B1
01364  M00S01045.dmrec   +++|          BX6    X4
01365  M00S01046.dmrec   +++|          JP     B2+         JUMP TO PROCESSOR ROUTINE
01366  M00S01047.dmrec   +++|
01367  M00S01048.dmrec   +++| DMR6     WRITER O           *CHECKOUT*
01368  M00S01049.dmrec   +++|          SA1    ERROR
01369  M00S01050.dmrec   +++|          ZR     X1,DMR6.1   IF NO ERRORS IN PROCESSING
01370  M00S01051.dmrec   +++|          SA1    TT
01371  M00S01052.dmrec   +++|          ZR     X1,DMR6.0   IF *TT* NOT SPECIFIED
01372  M00S01053.dmrec   +++|          SA1    DBNAME
01373  M00S01054.dmrec   +++|          SB5    DMRE
01374  M00S01055.dmrec   +++|          SB2    1RZ
01375  M00S01056.dmrec   +++|          RJ     SNM         SET DATA BASE NAME IN MESSAGE
01376  M00S01057.dmrec   +++|          SA1    DIRECT
01377  M00S01058.dmrec   +++|          SB5    DMRE
01378  M00S01059.dmrec   +++|          SB2    1RX
01379  M00S01060.dmrec   +++|          RJ     SNM         SET DIRECTIVE NAME IN MESSAGE
01380  M00S01061.dmrec   +++|          SA5    DMRE        ADDRESS OF OPERATOR MESSAGE
01381  M00S01062.dmrec   +++|          RJ     NOP         NOTIFY OPERATOR OF ERROR
01382  M00S01063.dmrec   +++| DMR6.0   MESSAGE  DMRD,,R
01383  M00S01064.dmrec   +++|          EQ     DMR6.2      COMPLETE PROCESSING
01384  M00S01065.dmrec   +++|
01385  M00S01066.dmrec   +++| DMR6.1   MESSAGE  DMRB,,R
01386  M00S01067.dmrec   +++| DMR6.2   RJ     RAF         RETURN ALL FILES
01387  M00S01068.dmrec   +++|          RJ     NTF         NOTIFY TAF
01388  M00S01069.dmrec   +++|          ENDRUN
01389  M00S01070.dmrec   +++|
01390  M00S01071.dmrec   +++| DMR7     ERROR  DMRA,,,DMR3,R,E  DIRECTIVE FORMAT ERROR
01391  M00S01072.dmrec   +++|
01392  M00S01073.dmrec   +++| DMRA     DATA   20H0     *****
01393  M00S01074.dmrec   +++|          DATA   C*DIRECTIVE FORMAT ERROR.*
01394  M00S01075.dmrec   +++| DMRAL    EQU    *-DMRA
01395  M00S01076.dmrec   +++|
01396  M00S01077.dmrec   +++| DMRB     DATA   C*DMREC COMPLETE.*
01397  M00S01078.dmrec   +++|
Line S01079 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01398  M01S01079.v23l617 ---| DMRC     DATA   C*NO DIRECTIVES.*
Line S00017 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01399  M01S00017.v23l617 +++| DMRC     DATA   C*NO DMREC DIRECTIVES.*
01400  M00S01080.dmrec   +++|
01401  M00S01081.dmrec   +++| DMRD     DATA   C*ERROR(S) ENCOUNTERED IN DMREC PROCESSING.*
01402  M00S01082.dmrec   +++|
01403  M00S01083.dmrec   +++| DMRE     DATA   C* DMREC FAILED - XXXXXXX ZZ.*
01404  M00S01084.dmrec   +++|          TITLE  DIRECTIVE PROCESSORS.
01405  M00S01085.dmrec   +++| AAI      SPACE  4,20
01406  M00S01086.dmrec   +++|**        AAI - APPLY AFTER IMAGES.
01407  M00S01087.dmrec   +++|*
01408  M00S01088.dmrec   +++|*         *AAI* APPLIES AN AFTER IMAGE LOG ENTRY TO A CRM DATA FILE
01409  M00S01089.dmrec   +++|*         IF THE IMAGE IS WITHIN THE TARGETED DATE AND TIME.
01410  M00S01090.dmrec   +++|*
01411  M00S01091.dmrec   +++|*         ENTRY  (STPDT) = START PACKED DATE/TIME.
01412  M00S01092.dmrec   +++|*                (ENPDT) = END PACKED DATE/TIME.
01413  M00S01093.dmrec   +++|*                (X4)    = FWA OF *AFTER IMAGE*.
01414  M00S01094.dmrec   +++|*
01415  M00S01095.dmrec   +++|*         EXIT   (X1) = 0 - IF NO ERRORS
01416  M00S01096.dmrec   +++|*
01417  M00S01097.dmrec   +++|*         USES   X - ALL.
01418  M00S01098.dmrec   +++|*                A - 1, 2, 3, 4, 5, 6.
01419  M00S01099.dmrec   +++|*                B - 2, 3.
01420  M00S01100.dmrec   +++|*
01421  M00S01101.dmrec   +++|*         MACROS DELETE, ERROR, FETCH, PUT, RMREP.
01422  M00S01102.dmrec   +++|
01423  M00S01103.dmrec   +++|
01424  M00S01104.dmrec   +++| AAI      SUBR               ENTRY/EXIT
01425  M00S01105.dmrec   +++|          BX6    X4
01426  M00S01106.dmrec   +++|          SA6    HOLD3      SAVE FWA OF RECORD
01427  M00S01107.dmrec   +++|
01428  M00S01108.dmrec   +++|*         CHECK FOR THE ACCURANCE OF A BEGIN STAMP IN SPECIFIED
01429  M00S01109.dmrec   +++|*         DATE/TIME WINDOW. SKIP ALL IMAGES OUTSIDE THIS WINDOW.
01430  M00S01110.dmrec   +++|
01431  M00S01111.dmrec   +++|          SA1    X4+2        GET TIME/DATE
01432  M00S01112.dmrec   +++|          SA2    STPDT
01433  M00S01113.dmrec   +++|          IX2    X1-X2
01434  M00S01114.dmrec   +++|          NG     X2,AAI16    IF BEFORE BEGIN DATE/TIME
01435  M00S01115.dmrec   +++|          SA2    ENPDT
01436  M00S01116.dmrec   +++|          IX2    X2-X1
01437  M00S01117.dmrec   +++|          NG     X2,AAI16    IF AFTER END DATE/TIME
Line S01118 Modification History
M01 (Removed by) dmrec2
Seq #  *Modification Id* Act 
----------------------------+
01438  M01S01118.dmrec2  ---|          SB2    B0-B1
01439  M01S01119.dmrec2  ---|          SB3    AAICL       TABLE LENGTH
01440  M01S01120.dmrec2  ---|          SA1    X4          GET BEGIN INDECATOR
01441  M01S01121.dmrec2  ---|          LX1    59-XLBWS
01442  M01S01122.dmrec2  ---|          NG     X1,AAI5     IF DB BEGIN
01443  M01S01123.dmrec2  ---|          LX1    18-59
01444  M01S01124.dmrec2  ---|          SX4    X1
01445  M01S01125.dmrec2  ---|          MX0    XLSQN
01446  M01S01126.dmrec2  ---|          BX5    X0*X1
01447  M01S01127.dmrec2  ---|          ZR     X4,AAI2     IF COMMIT STAMP
01448  M01S01128.dmrec2  ---|          SX4    X4-TRDF
01449  M01S01129.dmrec2  ---|          ZR     X4,AAI2     IF DB FREE
01450  M01S01130.dmrec2  ---| AAI1     EQ     B2,B3,AAI16  EXIT NORMAL
01451  M01S01131.dmrec2  ---|          SA2    B2+AAIC+1
01452  M01S01132.dmrec2  ---|          SB2    B2+B1
01453  M01S01133.dmrec2  ---|          ZR     X2,AAI1     IF ZERO ENTRY
01454  M01S01134.dmrec2  ---|          BX1    X2-X5
01455  M01S01135.dmrec2  ---|          ZR     X1,AAI7     IF CONTINUE NORMAL
01456  M01S01136.dmrec2  ---|          EQ     AAI1        CHECK NEXT ENTRY
01457  M01S01137.dmrec2  ---|
01458  M01S01138.dmrec2  ---| AAI2     EQ     B2,B3,AAI16  EXIT NORMAL
01459  M01S01139.dmrec2  ---|          SA2    B2+AAIC+1
01460  M01S01140.dmrec2  ---|          SB2    B2+B1
01461  M01S01141.dmrec2  ---|          ZR     X2,AAI2     IF ZERO ENTRY
01462  M01S01142.dmrec2  ---|          BX1    X2-X5
01463  M01S01143.dmrec2  ---|          ZR     X1,AAI3     IF ENTRY FOUND IN AAIC
01464  M01S01144.dmrec2  ---|          EQ     AAI2        CHECK NEXT ENTRY
01465  M01S01145.dmrec2  ---|
01466  M01S01146.dmrec2  ---| AAI3     SX6    B0          ZERO ENTRY
01467  M01S01147.dmrec2  ---|          SA6    A2
01468  M01S01148.dmrec2  ---|          EQ     AAI16       EXIT NORMAL
01469  M01S01149.dmrec2  ---|
01470  M01S01150.dmrec2  ---| AAI5     SB2    B2+B1
01471  M01S01151.dmrec2  ---|          SA2    AAIC+B2
01472  M01S01152.dmrec2  ---|          ZR     X2,AAI6     IF EMPTY SLOT
01473  M01S01153.dmrec2  ---|          NE     B2,B3,AAI5  IF MORE ENTRIES
01474  M01S01154.dmrec2  ---|          EQ     AAI17       ERROR - NO EMPTY SLOTS
01475  M01S01155.dmrec2  ---|
01476  M01S01156.dmrec2  ---| AAI6     MX0    XLSQN       MASK SEQUENCE NUMBER
01477  M01S01157.dmrec2  ---|          SA1    X4
01478  M01S01158.dmrec2  ---|          BX6    X0*X1
01479  M01S01159.dmrec2  ---|          SA6    A2          INSET DB BEGIN ENTRY IN AAIC
01480  M01S01160.dmrec2  ---|
01481  M00S01161.dmrec   ---|*         SEARCH *TTIG* TABLE FOR AFTER IMAGES TO IGNORE.
01482  M00S01162.dmrec   ---|
01483  M00S01163.dmrec   ---| AAI7     MX0    48
01484  M00S01164.dmrec   ---|          MX5    24
01485  M00S01165.dmrec   ---|          SB3    TTIG
01486  M00S01166.dmrec   ---|          SA4    HOLD3
01487  M00S01167.dmrec   ---| AAI8     SA1    B3
01488  M00S01168.dmrec   ---|          ZR     X1,AAI12    IF TABLE SEARCH DONE
01489  M00S01169.dmrec   ---|          BX2    -X0*X1
01490  M00S01170.dmrec   ---|          SX3    2RTN
01491  M00S01171.dmrec   ---|          BX2    X2-X3
01492  M00S01172.dmrec   ---|          NZ     X2,AAI10    IF NOT TASK NAME - TASK SEQUENCE NUMBER
01493  M00S01173.dmrec   ---|          SA2    X4+XLTNW    GET TASK NAME FROM AFTER IMAGE
01494  M00S01174.dmrec   ---|          BX2    X0*X2
01495  M00S01175.dmrec   ---|          BX3    X0*X1
01496  M00S01176.dmrec   ---|          BX2    X2-X3
01497  M00S01177.dmrec   ---|          ZR     X2,AAI11    IF TASK NAME MATCH
01498  M00S01178.dmrec   ---| AAI9     SB3    B3+2
01499  M00S01179.dmrec   ---|          EQ     AAI8        GET NEXT ENTRY
01500  M00S01180.dmrec   ---|
01501  M00S01181.dmrec   ---| AAI10    SA2    X4
01502  M00S01182.dmrec   ---|          BX2    X5*X2       TASK SEQUENCE NUMBER FROM RECORD
01503  M00S01183.dmrec   ---|          BX3    X5*X1       TASK SEQUENCE NUMBER FROM *TTIG*
01504  M00S01184.dmrec   ---|          BX2    X2-X3
01505  M00S01185.dmrec   ---|          NZ     X2,AAI9     IF NOT TS MATCH
01506  M00S01186.dmrec   ---| AAI11    SA3    A1+B1       GET BID FROM *TTIG*
01507  M00S01187.dmrec   ---|          ZR     X3,AAI16    IF BID .EQ. 0 ( FROM DIRECTIVE )
01508  M00S01188.dmrec   ---|          MX6    30
01509  M00S01189.dmrec   ---|          SA2    X4+B1       BID FROM RECORD
01510  M00S01190.dmrec   ---|          BX2    -X6*X2
01511  M00S01191.dmrec   ---|          BX3    X2-X3
01512  M00S01192.dmrec   ---|          ZR     X3,AAI16    IF MATCH ON BID ALSO ---
01513  M00S01193.dmrec   ---|          EQ     AAI9        GET NEXT ENTRY
01514  M00S01194.dmrec   ---|
01515  M00S01195.dmrec   ---|*         CHECK OTHER DELIMMITING FACTORS.
01516  M00S01196.dmrec   ---|
01517  M00S01197.dmrec   ---| AAI12    SA2    XXPFN
01518  M00S01198.dmrec   ---|          SA1    HOLD3
01519  M00S01199.dmrec   ---|          SA3    X1+4
01520  M00S01200.dmrec   ---|          MX0    42
01521  M00S01201.dmrec   ---|          BX3    X0*X3
01522  M00S01202.dmrec   ---|          BX3    X2-X3
01523  M00S01203.dmrec   ---|          NZ     X3,AAI16    IF NOT CORRECT DBPFN
01524  M00S01204.dmrec   ---|          SA2    STPDT
01525  M00S01205.dmrec   ---|          SA3    X1+2        IMAGE DATE/TIME
01526  M00S01206.dmrec   ---|          IX4    X3-X2
01527  M00S01207.dmrec   ---|          NG     X4,AAI16    IF BEFOR BEGIN DATE/TIME
01528  M00S01208.dmrec   ---|          SA2    ENPDT
01529  M00S01209.dmrec   ---|          IX4    X2-X3
01530  M00S01210.dmrec   ---|          NG     X4,AAI16    IF AFTER END DATE/TIME
01531  M00S01211.dmrec   ---|          SA2    X1
01532  M00S01212.dmrec   ---|          MX0    43
01533  M00S01213.dmrec   ---|          BX4    -X0*X2      TYPE OF RECORD
01534  M00S01214.dmrec   ---|
01535  M00S01215.dmrec   ---|*         CALCULATE FWA OF RECORD AND RECORD LENGTH IN CHARACTERS.
01536  M00S01216.dmrec   ---|
01537  M00S01217.dmrec   ---|          SA5    X1+3
01538  M00S01218.dmrec   ---|          MX0    36
01539  M00S01219.dmrec   ---|          BX2    -X0*X5
01540  M00S01220.dmrec   ---|          SX2    X2+9
01541  M00S01221.dmrec   ---|          SX3    10
01542  M00S01222.dmrec   ---|          IX2    X2/X3       KL IN WORDS
01543  M00S01223.dmrec   ---|          SX2    X2+6        ADD HEADER
01544  M00S01224.dmrec   ---|          IX2    X2+X1       ADD FWA OF IMAGE
01545  M00S01225.dmrec   ---|          AX5    24
01546  M00S01226.dmrec   ---|          BX7    -X0*X5      RECORD LENGTH IN CHARACTERS
01547  M00S01227.dmrec   ---|
01548  M00S01228.dmrec   ---|*         CHECK TYPE FOR UPDATES.
01549  M00S01229.dmrec   ---|
01550  M00S01230.dmrec   ---|          SX3    X4-TRDE     CHECK FOR DELETE
01551  M00S01231.dmrec   ---|          NZ     X3,AAI13    IF NOT DELETE
01552  M00S01232.dmrec   ---|          SX1    X1+6
01553  M00S01233.dmrec   ---|          DELETE DFIT,,X1
01554  M00S01234.dmrec   ---|          EQ     AAI15       CONTINUE
01555  M00S01235.dmrec   ---|
01556  M00S01236.dmrec   ---| AAI13    SX3    X4-TRRW     CHECK FOR REPLACE
01557  M00S01237.dmrec   ---|          NZ     X3,AAI14    IF NOT REPLACE
01558  M00S01238.dmrec   ---|          SX1    X1+6
01559  M00S01239.dmrec   ---|          RMREP  DFIT,X2,X7,,X1
01560  M00S01240.dmrec   ---|          EQ     AAI15       CONTINUE
01561  M00S01241.dmrec   ---|
01562  M00S01242.dmrec   ---| AAI14    SX3    X4-TRWR     CHECK FOR WRITE
01563  M00S01243.dmrec   ---|          NZ     X3,AAI16    IF NOT WRITE
01564  M00S01244.dmrec   ---|          SX1    X1+6
01565  M00S01245.dmrec   ---|          PUT    DFIT,X2,X7,,X1
Line S01246 Modification History
M01 (Removed by) dmrec7
Seq #  *Modification Id* Act 
----------------------------+
01566  M01S01246.dmrec7  ---| AAI15    FETCH  DFIT,ES,X2
01567  M01S01247.dmrec7  ---|          NZ     X2,AAI18    IF ERROR
Line S00029 Modification History
M01 (Added by) dmrec7
Seq #  *Modification Id* Act 
----------------------------+
01568  M01S00029.dmrec7  +++| AAI15    FETCH  DFIT,FNF,X2
01569  M01S00030.dmrec7  +++|          NG     X2,AAI18    IF A FATEL ERROR
01570  M00S01248.dmrec   +++| AAI16    SX1    B0
01571  M00S01249.dmrec   +++|          EQ     AAIX        RETURN - RETURN NORMAL
01572  M00S01250.dmrec   +++|
01573  M00S01251.dmrec   +++| AAI17    ERROR  AAIB,,,AAIX,,E  AAIC OVERFLOW
01574  M00S01252.dmrec   +++|
Line S01253 Modification History
M01 (Removed by) dmrec8
Seq #  *Modification Id* Act 
----------------------------+
01575  M01S01253.dmrec8  ---| AAI18    ERROR  AAIA,,,AAIX,,E  CRM ERROR
Line S00001 Modification History
M01 (Added by) dmrec8
Seq #  *Modification Id* Act 
----------------------------+
01576  M01S00001.dmrec8  +++| AAI18    BX1    X2          OCTAL VALUE OF ERROR
01577  M01S00002.dmrec8  +++|          RJ     COD         CONVERT OCTAL TO DISPLAY
01578  M01S00003.dmrec8  +++|          SB2    1RX         SUBSTITUTE CHARACTER
01579  M01S00004.dmrec8  +++|          SB5    AAIA1       ASSEMBLY AREA
01580  M01S00005.dmrec8  +++|          BX1    X4          LEFT JUSTIFIED ERROR CODE
01581  M01S00006.dmrec8  +++|          RJ     SNM         SET NAME IN MESSAGE
01582  M01S00007.dmrec8  +++|          ERROR  AAIA,,,AAIX,,E  CRM ERROR
01583  M00S01254.dmrec   +++|
01584  M00S01255.dmrec   +++| AAIA     DATA   20H0     *****
Line S01256 Modification History
M01 (Removed by) dmrec8
Seq #  *Modification Id* Act 
----------------------------+
01585  M01S01256.dmrec8  ---|          DATA   C*CRM ERROR IN UPDATE PROCESSOR.*
Line S00008 Modification History
M01 (Added by) dmrec8
Seq #  *Modification Id* Act 
----------------------------+
01586  M01S00008.dmrec8  +++| AAIA1    DATA   C*CRM ERROR XXXB IN UPDATE PROCESSING.*
01587  M00S01257.dmrec   +++| AAIAL    EQU    *-AAIA
01588  M00S01258.dmrec   +++|
01589  M00S01259.dmrec   +++| AAIB     DATA   20H0     *****
01590  M00S01260.dmrec   +++|          DATA   C*AFTER IMAGE ACCUMULATION TABLE OVERFLOW.*
01591  M00S01261.dmrec   +++| AAIBL    EQU    *-AAIB
01592  M00S01262.dmrec   +++|
01593  M00S01263.dmrec   +++| ACF      SPACE  4,25
01594  M00S01264.dmrec   +++|
01595  M00S01265.dmrec   +++|**        ACF - ATTACH *ZZDBDIR* FILE (BACKUP DIRECTORY FILE).
01596  M00S01266.dmrec   +++|*
01597  M00S01267.dmrec   +++|*         ATTACH *ZZDBDIR* FILE, IF INACCESSABLE, RECONSTRUCT
01598  M00S01268.dmrec   +++|*         *ZZDBDIR*.  IF FILE BUSY, ROLLOUT AND WAIT.  FILE
01599  M00S01269.dmrec   +++|*         IS ATTACHED IN WRITE MODE.
01600  M00S01270.dmrec   +++|*
01601  M00S01271.dmrec   +++|*         ENTRY  (XXPFN)  = DATA BASE AND PFN.
01602  M00S01272.dmrec   +++|*                (XXDEV)  = DEVICE.
01603  M00S01273.dmrec   +++|*
01604  M00S01274.dmrec   +++|*         EXIT   FILE *ZZDBDIR* ATTACHED.
01605  M00S01275.dmrec   +++|*
01606  M00S01276.dmrec   +++|*         USES   X - ALL.
01607  M00S01277.dmrec   +++|*                A - 1, 2, 3, 5, 6, 7.
01608  M00S01278.dmrec   +++|*                B - NONE.
01609  M00S01279.dmrec   +++|*
01610  M00S01280.dmrec   +++|*         CALLS  CER, FER, GXJ, RXJ.
01611  M00S01281.dmrec   +++|*
01612  M00S01282.dmrec   +++|*         MACROS ATTACH, CLOSEM, DEFINE, ERROR, FETCH, GETN,
01613  M00S01283.dmrec   +++|*                MESSAGE, OPENM, PDATE, PUT, RECALL, REWINDM,
01614  M00S01284.dmrec   +++|*                ROLLOUT, STORE.
01615  M00S01285.dmrec   +++|
01616  M00S01286.dmrec   +++|
01617  M00S01287.dmrec   +++| ACF      SUBR               ENTRY/EXIT
01618  M00S01288.dmrec   +++|          RECALL ZZDBDIR
01619  M00S01289.dmrec   +++|          MX0    12
01620  M00S01290.dmrec   +++|          SA2    XXPFN
01621  M00S01291.dmrec   +++|          BX3    X0*X2
01622  M00S01292.dmrec   +++|          BX6    X3
01623  M00S01293.dmrec   +++|          SA6    ACFC        SAVE DATA BASE NAME
01624  M00S01294.dmrec   +++|          LX3    48
01625  M00S01295.dmrec   +++|          SA2    ACFA
01626  M00S01296.dmrec   +++|          LX0    48
01627  M00S01297.dmrec   +++|          BX2    -X0*X2
01628  M00S01298.dmrec   +++|          BX6    X2+X3
01629  M00S01299.dmrec   +++|          SA6    ACFA
01630  M00S01300.dmrec   +++|          MX0    42
01631  M00S01301.dmrec   +++|          SA5    ZZDBDIR
01632  M00S01302.dmrec   +++|          BX7    -X0*X5
01633  M00S01303.dmrec   +++|          BX7    X7+X6
01634  M00S01304.dmrec   +++|          SA7    A5
01635  M00S01305.dmrec   +++|          SA1    ACFA
01636  M00S01306.dmrec   +++|          STORE  DIRR,LFN=X1
01637  M00S01307.dmrec   +++| ACF1     RECALL ZZDBDIR
01638  M00S01308.dmrec   +++|          ATTACH ZZDBDIR,,,,W
01639  M00S01309.dmrec   +++|          SX2    ZZDBDIR     SET FET ADDRESS
01640  M00S01310.dmrec   +++|          RJ     CER         CHECK ERROR STATUS
01641  M00S01311.dmrec   +++|          ZR     X1,ACF2     IF NO ERROR
01642  M00S01312.dmrec   +++|          SX1    X1-1
01643  M00S01313.dmrec   +++|          NZ     X1,ACF5     IF ATTACH ERROR ON DIRECTORY - REBUILD
01644  M00S01314.dmrec   +++|          SX6    B0
01645  M00S01315.dmrec   +++|          SA6    EVENT
01646  M00S01316.dmrec   +++|          ROLLOUT EVENT      WAIT FOR FILE NOT BUSY
01647  M00S01317.dmrec   +++|          EQ     ACF1        LOOP
01648  M00S01318.dmrec   +++|
01649  M00S01319.dmrec   +++| ACF2     OPENM  DIRR,I-O
01650  M00S01320.dmrec   +++|
01651  M00S01321.dmrec   +++|*         CHECK DATA BASE NAME
01652  M00S01322.dmrec   +++|
01653  M00S01323.dmrec   +++|          REWINDM  DIRR
01654  M00S01324.dmrec   +++|          GETN   DIRR,WSAB,,TKY1  READ DIRECTORY HEADER
01655  M00S01325.dmrec   +++|          SA2    ACFC        GET DATA BASE NAME
01656  M00S01326.dmrec   +++|          SA3    TKY1        GET ALTERNATE KEY
01657  M00S01327.dmrec   +++|          IX2    X3-X2
01658  M00S01328.dmrec   +++|          NZ     X2,ACF9.1   IF DATA BASE NAME INCORRECT
01659  M00S01329.dmrec   +++|          REWINDM  DIRR
01660  M00S01330.dmrec   +++|          EQ     ACFX        RETURN
01661  M00S01331.dmrec   +++|
01662  M00S01332.dmrec   +++|*         RECONSTRUCT FILE
01663  M00S01333.dmrec   +++|
01664  M00S01334.dmrec   +++| ACF5     DEFINE ZZDBDIR,,,,,,W
01665  M00S01335.dmrec   +++|          STORE  DIRR,ERL=0
01666  M00S01336.dmrec   +++|          STORE  DIRR,EMK=YES
01667  M00S01337.dmrec   +++|          OPENM  DIRR,NEW
01668  M00S01338.dmrec   +++|          PDATE  DATEP
01669  M00S01339.dmrec   +++|          SX7    B0
01670  M00S01340.dmrec   +++|          SX4    EXPCT
01671  M00S01341.dmrec   +++|          SX5    NCOPY
01672  M00S01342.dmrec   +++|          SA3    DATEP
01673  M00S01343.dmrec   +++|          MX0    12
01674  M00S01344.dmrec   +++|          SA2    ACFA
01675  M00S01345.dmrec   +++|          LX2    12
01676  M00S01346.dmrec   +++|          BX6    X0*X2
01677  M00S01347.dmrec   +++|          SA6    XXBUF       SET KEY FOR HEADER
01678  M00S01348.dmrec   +++|          SX6    B0
01679  M00S01349.dmrec   +++|          SA6    A6+B1
01680  M00S01350.dmrec   +++|          BX6    X3
01681  M00S01351.dmrec   +++|          SA6    A6+B1       DATE/TIME
Line S01352 Modification History
M01 (Removed by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01682  M01S01352.ns2023  ---|          SA7    A6+B1       ZERO *QRF* DOWN DATE/TIME AND COUNT
01683  M01S01353.ns2023  ---|          SA1    =6LZZZZZZ   SET DEFAULT FIRST *LRF* VSN
Line S00014 Modification History
M01 (Added by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01684  M01S00014.ns2023  +++|          SA7    A6+B1       ZERO *BRF* DOWN DATE/TIME AND COUNT
01685  M01S00015.ns2023  +++|          SA1    =6LZZZZZZ   SET DEFAULT FIRST *ARF* VSN
01686  M00S01354.dmrec   +++|          BX7    X4+X1
01687  M00S01355.dmrec   +++|          SA7    A7+B1       PRE - ALLOCATION PERCENTAGE
01688  M00S01356.dmrec   +++|          BX7    X5
01689  M00S01357.dmrec   +++|          SA7    A7+B1
01690  M00S01358.dmrec   +++|          PUT    DIRR,XXBUF,60,,XXBUF
01691  M00S01359.dmrec   +++|          RJ     FER         CHECK FIT ERROR
01692  M00S01360.dmrec   +++|          NZ     X1,ACF11    IF ERROR
01693  M00S01361.dmrec   +++|          MX0    12
01694  M00S01362.dmrec   +++|          SA5    XXPFN
01695  M00S01363.dmrec   +++|          BX6    X5
01696  M00S01364.dmrec   +++|          SA6    XXPFN1
01697  M00S01365.dmrec   +++|          BX5    X0*X5       SET DATA BASE NAME FOR GXJ
01698  M00S01366.dmrec   +++|          RJ     GXJ         GET XXJ FILE
01699  M00S01367.dmrec   +++|          NZ     X1,ACF11    IF ERROR
01700  M00S01368.dmrec   +++|          SX5    B1
01701  M00S01369.dmrec   +++| ACF6     RJ     RXJ         READ XXJ FILE
01702  M00S01370.dmrec   +++|          ZR     X1,ACF7     IF NO ERROR
01703  M00S01371.dmrec   +++|          PL     X1,ACF11    IF ERROR
01704  M00S01372.dmrec   +++|          NZ     X2,ACF8     IF ONE LAST ENTRY
01705  M00S01373.dmrec   +++|          EQ     ACF9        DONE
01706  M00S01374.dmrec   +++|
01707  M00S01375.dmrec   +++| ACF7     SA2    XXPFN
01708  M00S01376.dmrec   +++|          SX3    3RAAA       DATA BASE FILE HEADER - ID
01709  M00S01377.dmrec   +++|          BX6    X2+X3
01710  M00S01378.dmrec   +++|          SA6    XXBUF
01711  M00S01379.dmrec   +++|          SX6    B0
01712  M00S01380.dmrec   +++|          SA6    A6+B1
01713  M00S01381.dmrec   +++|          SA6    A6+B1
01714  M00S01382.dmrec   +++|          SA6    A6+B1
01715  M00S01383.dmrec   +++|          SX6    EXPCT       SET DEFAULT PERCENTAGE FOR FILES
01716  M00S01384.dmrec   +++|          SA6    A6+B1
01717  M00S01385.dmrec   +++|          SX6    NCOPY
01718  M00S01386.dmrec   +++|          SA6    A6+B1
01719  M00S01387.dmrec   +++|          PUT    DIRR,XXBUF,60,,XXBUF
01720  M00S01388.dmrec   +++|          RJ     FER         CHECK FIT ERROR
01721  M00S01389.dmrec   +++|          NZ     X1,ACF11    IF ERROR
01722  M00S01390.dmrec   +++|          SX5    B0          SET NON INITIAL CALL TO RXJ
01723  M00S01391.dmrec   +++|          EQ     ACF6        LOOP
01724  M00S01392.dmrec   +++|
01725  M00S01393.dmrec   +++| ACF8     SA2    XXPFN
01726  M00S01394.dmrec   +++|          SX3    3RAAA
01727  M00S01395.dmrec   +++|          BX6    X2+X3
01728  M00S01396.dmrec   +++|          SA6    XXBUF
01729  M00S01397.dmrec   +++|          SX6    B0
01730  M00S01398.dmrec   +++|          SA6    A6+B1
01731  M00S01399.dmrec   +++|          SA6    A6+B1
01732  M00S01400.dmrec   +++|          SX7    EXPCT       SET DEFAULT PERCENTAGE FOR FILES
01733  M00S01401.dmrec   +++|          SA6    A6+B1
01734  M00S01402.dmrec   +++|          SA7    A6+B1
01735  M00S01403.dmrec   +++|          SX6    NCOPY       SET NUMBER OF DEFAULT DUMPS
01736  M00S01404.dmrec   +++|          SA6    A7+B1
01737  M00S01405.dmrec   +++|          PUT    DIRR,XXBUF,60,,XXBUF
01738  M00S01406.dmrec   +++|          FETCH  DIRR,ES,X5
01739  M00S01407.dmrec   +++|          NZ     X5,ACF11    IF ERROR IN DIRECTORY
01740  M00S01408.dmrec   +++|
01741  M00S01409.dmrec   +++| ACF9     CLOSEM DIRR,U
01742  M00S01410.dmrec   +++|          ERROR  ACFB,ACFA,,ACF10
01743  M00S01411.dmrec   +++|
01744  M00S01412.dmrec   +++| ACF9.1   CLOSEM DIRR,U
01745  M00S01413.dmrec   +++|          SA1    DIRR        GET NAME OF FILE
01746  M00S01414.dmrec   +++|          MX0    42
01747  M00S01415.dmrec   +++|          BX1    X1*X0
01748  M00S01416.dmrec   +++|          SB2    1RZ         SUBSTITUTE CHARACTER
01749  M00S01417.dmrec   +++|          SB5    -ACFDA
01750  M00S01418.dmrec   +++|          SB3    ACFDA       ADDRESS OF ASSEMBLY AREA
01751  M00S01419.dmrec   +++|          RJ     SNM         SET NAME IN MESSAGE
01752  M00S01420.dmrec   +++|          ERROR  ACFD,,,DMR3,,E  *ZZZ - DOES NOT MATCH DATA BASE NAME.*
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/dmrec.txt ยท Last modified: (external edit)