User Tools

Site Tools


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

Deck TAFREC

13 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.tafrec  +++|          IDENT  TAFREC,111B,TAFREC
00002  M01S00002.tafrec  +++|          ABS
Line S00003 Modification History
M01 (Added by) tafrec
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00003  M02S00003.253l688 ---|          SST
00004  M01S00001.253l688 +++|          SST    CMBL
00005  M01S00004.tafrec  +++|          ENTRY  TAFREC
00006  M01S00005.tafrec  +++|          ENTRY  RFL=
00007  M01S00006.tafrec  +++|          SYSCOM B1
00008  M01S00007.tafrec  +++|          TITLE  TAFREC - *TAF* INITIALIZATION AND RECOVERY.
00009  M01S00008.tafrec  +++|*COMMENT  TAFREC - *TAF* INITIALIZATION AND RECOVERY.
Line S00009 Modification History
M01 (Added by) tafrec
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00010  M02S00009.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORPORATION.  1980.
00011  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00012  M01S00010.tafrec  +++| TAFREC   SPACE  4,10
00013  M01S00011.tafrec  +++|          LIST   X
00014  M01S00012.tafrec  +++|*CALL     COMKTAF
00015  M01S00013.tafrec  +++|          LIST   -X
00016  M01S00014.tafrec  +++|          SPACE  4,10
00017  M01S00015.tafrec  +++|*****     TAFREC - *TAF* INITIALIZATION AND RECOVERY PROGRAM.
00018  M01S00016.tafrec  +++|*
00019  M01S00017.tafrec  +++|*         R. G. PARKHOUSE    80/05/15.
00020  M01S00018.tafrec  +++|          SPACE  4,10
00021  M01S00019.tafrec  +++|***       *TAFREC* PERFORMS INITIALIZATION AND RECOVERY PROCESSING FOR
00022  M01S00020.tafrec  +++|*         THE TRANSACTION FACILITY *TAF*.
00023  M01S00021.tafrec  +++|*
00024  M01S00022.tafrec  +++|*         *TAFREC* READS THE *TAF* CONFIGURATION FILE VERIFYING THE
00025  M01S00023.tafrec  +++|*         SYNTAX OF ALL DIRECTIVES.  THE DIRECTIVES ACTUALLY PROCESSED
00026  M01S00024.tafrec  +++|*         ARE *DISPLAY*, *NETWORK* AND *RECOVER*. IF THE *DISPLAY*
00027  M01S00025.tafrec  +++|*         DIRECTIVE HAS STATUS EQUAL *ON*, THE INITIAL *K-DISPLAY* IS
00028  M01S00026.tafrec  +++|*         SET UP TO RECEIVE OPERATOR ENTERED VALUES.  FOR EACH ID
00029  M01S00027.tafrec  +++|*         SPECIFIED ON THE *NETWORK* DIRECTIVE THE CORRESPONDING
00030  M01S00028.tafrec  +++|*         NETWORK FILE IS ATTACHED AND THE TERMINAL STATUS TABLE
00031  M01S00029.tafrec  +++|*         BUILT.  FOR EACH ID SPECIFIED ON THE *RECOVER* DIRECTIVES,
Line S00030 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00032  M02S00030.ns2023  ---|*         THE CORRESPONDING *TAF* RECOVERY FILE IS ATTACHED, OR
Line S00031 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00033  M02S00031.ns2023  ---|*         DEFINED IF NOT FOUND AND THE INITIALIZE FUNCTION WAS
Line S00032 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00034  M02S00032.ns2023  ---|*         REQUESTED FROM THE *K-DISPLAY*.
Line S00033 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00035  M02S00033.ns2023  ---|*
Line S00034 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00036  M02S00034.ns2023  ---|*         *TAFREC* CREATES THE *TAF* RECOVERY FILE, *TRF*, IF IT DID
Line S00035 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00037  M02S00035.ns2023  ---|*         NOT EXIST, USING PARAMETERS FROM THE *RECOVER* DIRECTIVE.
Line S00036 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00038  M02S00036.ns2023  ---|*         FOR EACH TERMINAL ON THE CORRESPONDING NETWORK FILE, A
Line S00037 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00039  M02S00037.ns2023  ---|*         RECOVERY UNIT IS INITIALIZED ON THE *TRF*.
Line S00038 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00040  M02S00038.ns2023  ---|*
Line S00039 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00041  M02S00039.ns2023  ---|*         IF THE *TAF* RECOVERY FILE EXISTED, *TAFREC* DETERMINES
Line S00040 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00042  M02S00040.ns2023  ---|*         TERMINALS ACTIVE AT FAILURE AND SETS RECOVERY STATUS FOR
Line S00041 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00043  M02S00041.ns2023  ---|*         THOSE TERMINALS.
Line S00042 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00044  M02S00042.ns2023  ---|*
Line S00043 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00045  M02S00043.ns2023  ---|*         *TAFREC* REFORMATS THE *TAF* RECOVERY FILE IF PARAMETERS IN
Line S00044 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00046  M02S00044.ns2023  ---|*         THE *TAF* CONFIGURATION FILE CHANGE.  CHANGES TO THE
Line S00045 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00047  M02S00045.ns2023  ---|*         FOLLOWING MAY CAUSE A REFORMAT,
00048  M01S00001.ns2023  +++|*         THE CORRESPONDING COMMUNICATIONS RECOVERY FILE IS ATTACHED,
00049  M01S00002.ns2023  +++|*         OR DEFINED IF NOT FOUND AND THE INITIALIZE FUNCTION WAS
00050  M01S00003.ns2023  +++|*         REQUESTED FROM THE *K-DISPLAY*.
00051  M01S00004.ns2023  +++|*
00052  M01S00005.ns2023  +++|*         *TAFREC* CREATES THE COMMUNICATIONS RECOVERY FILE, *CRF*, IF
00053  M01S00006.ns2023  +++|*         IT DID NOT EXIST, USING PARAMETERS FROM THE *RECOVER*
00054  M01S00007.ns2023  +++|*         DIRECTIVE.  FOR EACH TERMINAL ON THE CORRESPONDING NETWORK
00055  M01S00008.ns2023  +++|*         FILE, A RECOVERY UNIT IS INITIALIZED ON THE *CRF*.
00056  M01S00009.ns2023  +++|*
00057  M01S00010.ns2023  +++|*         IF THE COMMUNICATIONS RECOVERY FILE EXISTED, *TAFREC*
00058  M01S00011.ns2023  +++|*         DETERMINES TERMINALS ACTIVE AT FAILURE AND SETS RECOVERY
00059  M01S00012.ns2023  +++|*         STATUS FOR THOSE TERMINALS.
00060  M01S00013.ns2023  +++|*
00061  M01S00014.ns2023  +++|*         *TAFREC* REFORMATS THE COMMUNICATIONS RECOVERY FILE IF
00062  M01S00015.ns2023  +++|*         PARAMETERS IN THE *TAF* CONFIGURATION FILE CHANGE.  CHANGES
00063  M01S00016.ns2023  +++|*         TO THE FOLLOWING MAY CAUSE A REFORMAT,
00064  M01S00046.tafrec  +++|*                SIZE OF USER RECOVERY MESSAGES.
00065  M01S00047.tafrec  +++|*                NUMBER OF RECOVERY MESSAGES.
00066  M01S00048.tafrec  +++|*                TERMINALS ALLOWED TO USE TAF.
00067  M01S00049.tafrec  +++|*
00068  M01S00050.tafrec  +++|*         *TAFREC* PREPARES A RECOVERY REPORT WHICH THE USER MAY PRINT
00069  M01S00051.tafrec  +++|*         IF DESIRED.  THIS REPORT CONSISTS OF,
00070  M01S00052.tafrec  +++|*                CONTENTS OF *TAF* CONFIGURATION FILE.
00071  M01S00053.tafrec  +++|*                INITIAL *K-DISPLAY*.
00072  M01S00054.tafrec  +++|*                INFORMATION ABOUT TERMINALS AFFECTED BY RECOVERY.
00073  M01S00055.tafrec  +++|*                ERRORS PREVENTING A CORRECT RECOVERY.
00074  M01S00056.tafrec  +++|*
00075  M01S00057.tafrec  +++|*         *TAFREC* PREPARES THE TAF INITIALIZATION FILE WHICH CONTAINS
00076  M01S00058.tafrec  +++|*         THE INFORMATION FOR *TAF* TO COMPLETE INITIALIZATION.
00077  M01S00059.tafrec  +++|*
00078  M01S00060.tafrec  +++|          SPACE  4,10
00079  M01S00061.tafrec  +++|***       DAYFILE MESSAGES.
00080  M01S00062.tafrec  +++|*
Line S00063 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00081  M02S00063.ns2023  ---|*         IN THE FOLLOWING MESSAGES, *TRFNAME* IMPLIES THE APPROPRIATE
Line S00064 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00082  M02S00064.ns2023  ---|*         TRF FILE NAME, AND *NETNAME* IMPLIES THE APPROPRIATE NETWORK
00083  M01S00017.ns2023  +++|*         IN THE FOLLOWING MESSAGES, *CRFNAME* IMPLIES THE APPROPRIATE
00084  M01S00018.ns2023  +++|*         CRF FILE NAME, AND *NETNAME* IMPLIES THE APPROPRIATE NETWORK
00085  M01S00065.tafrec  +++|*         FILE NAME.
00086  M01S00066.tafrec  +++|*
00087  M01S00067.tafrec  +++|*
Line S00068 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00088  M02S00068.ns2023  ---|*         ACTIVE RECOVERY UNITS(S) DELETED - TRFNAME.
Line S00069 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00089  M02S00069.ns2023  ---|*         CANNOT DEFINE REFORMATTED FILE - TRFNAME.
00090  M01S00019.ns2023  +++|*         ACTIVE RECOVERY UNITS(S) DELETED - CRFNAME.
00091  M01S00020.ns2023  +++|*         CANNOT DEFINE REFORMATTED FILE - CRFNAME.
00092  M01S00070.tafrec  +++|*         DB-NAME MUST NOT START WITH THE LETTER Z.
00093  M01S00071.tafrec  +++|*         FILE TCF NOT FOUND.
00094  M01S00072.tafrec  +++|*         FORMAT ERROR IN NETWORK FILE - NETNAME.
Line S00073 Modification History
M01 (Added by) tafrec
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00095  M02S00073.v23l617 ---|*         INVALID TCF ENTRIES.
00096  M01S00001.v23l617 +++|*         INCORRECT TCF ENTRIES.
00097  M01S00074.tafrec  +++|*         K.COMMAND NOT VALID.
00098  M01S00075.tafrec  +++|*         MAXIMUM TERMINALS EXCEEDED.
Line S00076 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00099  M02S00076.ns2023  ---|*         MS REDUCTION INVALID - TRFNAME.
Line S00021 Modification History
M01 (Added by) ns2023
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00100  M02S00021.v23l617 ---|*         MS REDUCTION INVALID - CRFNAME.
00101  M01S00002.v23l617 +++|*         MS REDUCTION INCORRECT - CRFNAME.
00102  M01S00077.tafrec  +++|*         NETWORK FILE NOT FOUND - NETNAME.
Line S00078 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00103  M02S00078.ns2023  ---|*         NM REDUCTION INVALID - TRFNAME.
Line S00022 Modification History
M01 (Added by) ns2023
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00104  M02S00022.v23l617 ---|*         NM REDUCTION INVALID - CRFNAME.
00105  M01S00003.v23l617 +++|*         NM REDUCTION INCORRECT - CRFNAME.
00106  M01S00079.tafrec  +++|*         NO TERMINALS IN NETWORK FILE - NETNAME.
00107  M01S00080.tafrec  +++|*         NULL DESCRIPTION FILE.
00108  M01S00081.tafrec  +++|*         NO DATA BASE NAME TERMINAL - TERMINAL.
Line S00082 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00109  M02S00082.ns2023  ---|*         TAF RECOVERY FILE NOT FOUND - TRFNAME.
00110  M01S00023.ns2023  +++|*         COMMUNICATIONS RECOVERY FILE NOT FOUND - CRFNAME.
00111  M01S00083.tafrec  +++|*         TCF FILE EMPTY.
Line S00084 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00112  M02S00084.ns2023  ---|*         TRF HEADER ERROR - TRFNAME.
Line S00085 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00113  M02S00085.ns2023  ---|*         TRF RECOVERY UNIT ERROR - TRFNAME.
Line S00086 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00114  M02S00086.ns2023  ---|*         TRF RECOVERY/INITIALIZATION ABORTED.
Line S00087 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00115  M02S00087.ns2023  ---|*         TRF RECOVERY/INITIALIZATION COMPLETE.
00116  M01S00024.ns2023  +++|*         CRF HEADER ERROR - CRFNAME.
Line S00025 Modification History
M01 (Added by) ns2023
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00117  M02S00025.v23l617 ---|*         CRF RECOVERY UNIT ERROR - CRFNAME.
00118  M01S00004.v23l617 +++|*         CRF RUN UNIT ERROR - CRFNAME.
00119  M01S00026.ns2023  +++|*         CRF RECOVERY/INITIALIZATION ABORTED.
00120  M01S00027.ns2023  +++|*         CRF RECOVERY/INITIALIZATION COMPLETE.
00121  M01S00088.tafrec  +++|          SPACE  4,10
00122  M01S00089.tafrec  +++|***       DEFINITION OF TERMS.
00123  M01S00090.tafrec  +++|*
00124  M01S00091.tafrec  +++|*         TCF          *TAF* CONFIGURATION FILE.
Line S00092 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00125  M02S00092.ns2023  ---|*         TRF          *TAF* RECOVERY FILE.
00126  M01S00028.ns2023  +++|*         CRF          COMMUNICATIONS RECOVERY FILE.
00127  M01S00093.tafrec  +++|*         TIF          *TAF* INITIALIZATION FILE.
00128  M01S00094.tafrec  +++|*         TST          TERMINAL STATUS TABLE.
00129  M01S00095.tafrec  +++|*         RESTART      RESTART AFTER *EXIT* AND *TAFXX2* PROCESSING.
00130  M01S00096.tafrec  +++|          SPACE  4,10
00131  M01S00097.tafrec  +++|*         COMMON DECKS.
00132  M01S00098.tafrec  +++|
00133  M01S00099.tafrec  +++|*CALL     COMSPFM
00134  M01S00100.tafrec  +++|*CALL     COMSTRX
00135  M01S00101.tafrec  +++|*CALL     COMCCMD
00136  M01S00005.v23l617 +++|*CALL     COMCDCM
00137  M01S00001.241l630 +++|*CALL     COMCDCP
00138  M01S00102.tafrec  +++|*CALL     COMCMAC
00139  M01S00103.tafrec  +++|*CALL     COMKFLD
00140  M01S00104.tafrec  +++|          LIST   X
00141  M01S00105.tafrec  +++|*CALL     COMKIPR
00142  M01S00106.tafrec  +++|*CALL     COMKCBD
00143  M01S00107.tafrec  +++|*CALL     COMKTIF
Line S00108 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00144  M02S00108.ns2023  ---|*CALL     COMKTRF
00145  M01S00029.ns2023  +++|*CALL     COMKTRF
00146  M01S00109.tafrec  +++|*CALL     COMKTST
00147  M01S00110.tafrec  +++|          LIST   -X
00148  M01S00111.tafrec  +++|          TITLE  CONSTANTS, FETS, BUFFERS AND MISCELLANEOUS.
00149  M01S00112.tafrec  +++|          SPACE  4,10
00150  M01S00113.tafrec  +++|****      ASSEMBLY CONSTANTS.
00151  M01S00114.tafrec  +++|
00152  M01S00115.tafrec  +++| RUDL     EQU    4           RECOVERY UNIT DIRECTORY ENTRY LENGTH
00153  M01S00116.tafrec  +++| CST      EQU    7           COMPLETE STATUS
00154  M01S00117.tafrec  +++| IST      EQU    1           INITIALIZE STATUS
00155  M01S00118.tafrec  +++| RST      EQU    0           RECOVER STATUS
00156  M01S00119.tafrec  +++|****
00157  M01S00120.tafrec  +++|          SPACE  4,10
00158  M01S00121.tafrec  +++|          ORG    VLOCL2
00159  M01S00122.tafrec  +++|          SPACE  4,10
00160  M01S00123.tafrec  +++|*         FETS.
00161  M01S00124.tafrec  +++|
Line S00125 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00162  M02S00125.ns2023  ---| TRF      BSS    0           *TAF* RECOVERY FILE
Line S00126 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00163  M02S00126.ns2023  ---| ZZTRF    RFILEB TRBUF,TRBUFL,EPR,FET=14
00164  M01S00030.ns2023  +++| CRF      BSS    0           COMMUNICATIONS RECOVERY FILE
00165  M01S00031.ns2023  +++| ZZCRF    RFILEB TRBUF,TRBUFL,EPR,FET=14
00166  M01S00127.tafrec  +++|
Line S00128 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00167  M02S00128.ns2023  ---| TRFA     BSS    0           REFORMATTED *TAF* RECOVERY FILE
Line S00129 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00168  M02S00129.ns2023  ---| ZZTRFA   RFILEB TABUF,TABUFL,EPR,FET=14
00169  M01S00032.ns2023  +++| CRFA     BSS    0           REFORMATTED COMMUNICATIONS RECOVERY FILE
00170  M01S00033.ns2023  +++| ZZCRFA   RFILEB TABUF,TABUFL,EPR,FET=14
00171  M01S00130.tafrec  +++|
00172  M01S00131.tafrec  +++| TIF      BSS    0           *TAF* INITIALIZATION FILE
00173  M01S00132.tafrec  +++| "TIF"    FILEB  TBUF,TBUFL
00174  M01S00133.tafrec  +++|
00175  M01S00134.tafrec  +++| R        BSS    0           INITIALIZATION RECOVERY REPORT FILE
00176  M01S00135.tafrec  +++| ZZIRRF   FILEB  RBUF,RBUFL
00177  M01S00136.tafrec  +++|          SPACE  4,10
00178  M01S00137.tafrec  +++|*         GLOBAL VARIABLES AND TABLES.
00179  M01S00138.tafrec  +++|
Line S00139 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00180  M02S00139.ns2023  ---| ID       CON    0           ID OF NETWORK FILE AND *TRF*
00181  M01S00034.ns2023  +++| ID       CON    0           ID OF NETWORK FILE AND *CRF*
00182  M01S00140.tafrec  +++| NM       CON    0           NUMBER OF USER MESSAGES
00183  M01S00141.tafrec  +++| MS       CON    0           SIZE OF USER MESSAGES
00184  M01S00001.ns22000 +++|
00185  M01S00002.ns22000 +++|*         3 WORD BUFFER FOR *SETPFP*.
00186  M01S00003.ns22000 +++|*         42/ FAMILY NAME, 14/ 0, 4/ FG.
00187  M01S00004.ns22000 +++|*         42/ PACK NAME, 18/ PACK TYPE
00188  M01S00005.ns22000 +++|*         42/ USER NAME, 18/ USER INDEX
00189  M01S00006.ns22000 +++|*         FG - FLAG BITS DENOTING WHICH FIELDS TO SET
00190  M01S00007.ns22000 +++|*         BIT 3 - FAMILY NAME
00191  M01S00008.ns22000 +++|*             2 - PACK NAME
00192  M01S00009.ns22000 +++|*             1 - USER NAME
00193  M01S00010.ns22000 +++|*             0 - USER INDEX
00194  M01S00011.ns22000 +++|
00195  M01S00012.ns22000 +++| PFPA     VFD    42/0,14/0,4/0
00196  M01S00013.ns22000 +++|          VFD    42/0,18/0
00197  M01S00014.ns22000 +++|          VFD    42/0,18/0
Line S00142 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00198  M02S00142.ns21000 ---| UN       CON    0           USER NAME
Line S00143 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00199  M02S00143.ns21000 ---| PW       CON    1           PASSWORD
Line S00144 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00200  M02S00144.ns21000 ---| FM       CON    0           FAMILY NAME
Line S00145 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00201  M02S00145.ns21000 ---|          BSSZ   4           USED BY *CPM* VAL FUNCTION
00202  M01S00001.ns21000 +++|
00203  M01S00002.ns21000 +++|*         *CPM* VALIDATION PARAMETER BLOCK.
00204  M01S00003.ns21000 +++|
00205  M01S00004.ns21000 +++| FM       CON    0           42/FAMILY NAME,18/0
00206  M01S00005.ns21000 +++| PW       CON    1           DO NOT VALIDATE PASSWORD
00207  M01S00006.ns21000 +++| UN       CON    0           42/USER NAME,18/USER INDEX
00208  M01S00007.ns21000 +++|          BSSZ   6           REST OF PARAMETERS
00209  M01S00008.ns21000 +++|
00210  M01S00146.tafrec  +++| KCOF     CON    0           *K.COMMAND* ORIGIN FLAG
00211  M01S00147.tafrec  +++| KCNV     DATA   C* K.COMMAND NOT VALID.*
00212  M01S00148.tafrec  +++| MZDB     DATA   C* DB-NAME MUST NOT START WITH THE LETTER Z.*
00213  M01S00149.tafrec  +++|
00214  M01S00150.tafrec  +++| DFFM     BSS    1           DEFAULT FAMILY
Line S00151 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2094
Seq #  *Modification Id* Act 
----------------------------+
00215  M02S00151.ns2094  ---| DFUN     VFD    42/0L"USNM",18/  DEFAULT USER NUMBER
00216  M01S00152.tafrec  +++| DFNM     VFD    60/0L"TRDND"  DEFAULT NUMBER USER MESSAGES
00217  M01S00153.tafrec  +++| DFMS     VFD    60/0L"TRDMD"  DEFAULT MESSAGE SIZE
00218  M01S00154.tafrec  +++| DATE     BSS    1
00219  M01S00155.tafrec  +++| TIME     BSS    1
00220  M01S00156.tafrec  +++| RFN      VFD    60/0LZZCRF  CRF FILE NAME
00221  M01S00157.tafrec  +++| RFNA     VFD    60/0LZZCRFA REFORMATED CRF FILE NAME
00222  M01S00158.tafrec  +++|
00223  M01S00159.tafrec  +++|**        TABLE OF FAMILY NAMES AND USER INDICES.
00224  M01S00160.tafrec  +++|*
00225  M01S00161.tafrec  +++|*         THIS TABLE HAS TWO WORD ENTRIES IN THE FOLLOWING FORMAT.
00226  M01S00162.tafrec  +++|*
00227  M01S00163.tafrec  +++|*T  W1    42/ FAMILY,18/
Figure W1

0171829 FAMILY3059 FAMILY


Line S00164 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00228  M02S00164.ns22000 ---|*T, W2    42/ ,18/ UI
Figure W2

0171829 UI 3059

00229  M01S00015.ns22000 +++|*T, W2    42/ USER NAME, 18/ USER INDEX
Figure W2

0171829 USER INDEX USER NAME3059 USER NAME

00230  M01S00165.tafrec  +++|
00231  M01S00166.tafrec  +++| TFAM     BSSZ   2*MAXNF     TABLE OF FAMILY NAMES AND USER INDICES
00232  M01S00167.tafrec  +++|
00233  M01S00168.tafrec  +++|**        TABLE OF VALUES FROM *RECOVER* DIRECTIVE PLUS ADDITIONAL
00234  M01S00169.tafrec  +++|*         VALUES AND STATUS. THE TABLE IS INDEXED BY *RECOVER* ID.
00235  M01S00170.tafrec  +++|*
00236  M01S00171.tafrec  +++|*T  W1    12/ ,12/ PPM,12/ NM,12/ MS,9/ ,3/ ST
Figure W1

0231112232429 ST MS NM303536474859 NM PPM

00237  M01S00172.tafrec  +++|*
00238  M01S00173.tafrec  +++|*         WHERE
00239  M01S00174.tafrec  +++|*                PPM = PRU-S PER USER MESSAGE.  (NOT ON DIRECTIVE)
Line S00175 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00240  M02S00175.ns2023  ---|*                NM  = NUMBER OF USER MESSAGES ON *TRF*.
00241  M01S00035.ns2023  +++|*                NM  = NUMBER OF USER MESSAGES ON *CRF*.
00242  M01S00176.tafrec  +++|*                MS  = USER MESSAGE SIZE IN WORDS.
00243  M01S00177.tafrec  +++|*                ST  = STATUS.  0=RECOVER
00244  M01S00178.tafrec  +++|*                               1=INITIALIZE
00245  M01S00179.tafrec  +++|*                               7=COMPLETE
00246  M01S00180.tafrec  +++|
00247  M01S00181.tafrec  +++| TREC     BSSZ   MAXRC       TABLE OF *RECOVER* DIRECTIVE VALUES
00248  M01S00182.tafrec  +++|
00249  M01S00183.tafrec  +++|*         TABLE OF TRANSACTION TYPES.
00250  M01S00184.tafrec  +++|
00251  M01S00185.tafrec  +++| TTYP     BSS    0
00252  M01S00186.tafrec  +++|          ORG    TTYP+TYIT
00253  M01S00187.tafrec  +++|          DATA   10H TERMINAL
00254  M01S00188.tafrec  +++|          ORG    TTYP+TYBT
00255  M01S00189.tafrec  +++|          DATA   10H  BTRAN
00256  M01S00190.tafrec  +++|          ORG    TTYP+TYRM
00257  M01S00191.tafrec  +++|          DATA   10HBATCH/CRM
00258  M01S00192.tafrec  +++| TTYPL    EQU    *-TTYP
00259  M01S00193.tafrec  +++|          ORG    TTYP+TTYPL
00260  M01S00194.tafrec  +++|
00261  M01S00195.tafrec  +++|*         TABLE OF TRANSACTION STEPS.
00262  M01S00196.tafrec  +++|
00263  M01S00197.tafrec  +++| TSTP     BSS    0
00264  M01S00198.tafrec  +++|          ORG    TSTP+CSNR
00265  M01S00199.tafrec  +++|          DATA   10HNON-RECOV
00266  M01S00200.tafrec  +++|          ORG    TSTP+CSCD
00267  M01S00201.tafrec  +++|          DATA   10HCDCS DOWN
00268  M01S00202.tafrec  +++|          ORG    TSTP+CSCE
00269  M01S00203.tafrec  +++|          DATA   10HCEASE/END
00270  M01S00204.tafrec  +++|          ORG    TSTP+CSTA
00271  M01S00205.tafrec  +++|          DATA   10H  ABORT
00272  M01S00206.tafrec  +++|          ORG    TSTP+CSTN
00273  M01S00207.tafrec  +++|          DATA   10HRU ERROR
00274  M01S00208.tafrec  +++|          ORG    TSTP+CSTI
00275  M01S00209.tafrec  +++|          DATA   10HRECOV INP
00276  M01S00210.tafrec  +++|          ORG    TSTP+CSBC
00277  M01S00211.tafrec  +++|          DATA   10HID LOGGED
00278  M01S00212.tafrec  +++|          ORG    TSTP+CSND
00279  M01S00213.tafrec  +++|          DATA   10HNAM DOWN
00280  M01S00214.tafrec  +++|          ORG    TSTP+CSST
00281  M01S00215.tafrec  +++|          DATA   10HSTART JOB
00282  M01S00216.tafrec  +++|          ORG    TSTP+CSTT
00283  M01S00217.tafrec  +++|          DATA   10H END TAF
00284  M01S00218.tafrec  +++| TSTPL    EQU    *-TSTP
00285  M01S00219.tafrec  +++|          ORG    TSTP+TSTPL
00286  M01S00220.tafrec  +++|
00287  M01S00221.tafrec  +++| OVRD     CON    0           ERROR OVERRIDE FLAG
00288  M01S00222.tafrec  +++| CUID     CON    -1          CURRENT ID BEING PROCESSED
00289  M01S00223.tafrec  +++| SDST     CON    0           SHUTDOWN STATUS.    -VE = ABNORMAL.
Line S00224 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00290  M02S00224.ns2023  ---| CUFN     CON    0           CURRENT TRF FILE NAME
Line S00225 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00291  M02S00225.ns2023  ---| WPMO     CON    0           WORDS PER USER MESSAGE ON OLD TRF  (N*64)
Line S00226 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00292  M02S00226.ns2023  ---| PPMO     CON    0           PRU-S PER USER MESSAGE ON OLD TRF
Line S00227 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00293  M02S00227.ns2023  ---| WPMN     CON    0           WORDS PER USER MESSGE ON NEW TRF  (N*64)
Line S00228 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00294  M02S00228.ns2023  ---| NUMO     CON    0           NUMBER MESSAGES/RECOVERY UNIT ON OLD TRF
Line S00229 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00295  M02S00229.ns2023  ---| ADMN     CON    0           ADDITIONAL MESSAGES ON NEW TRF
Line S00230 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00296  M02S00230.ns2023  ---| NMRU     CON    0           NUMBER OF RECOVERY UNITS ON OLD TRF
Line S00231 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00297  M02S00231.ns2023  ---| HTST     CON    0           HIGHEST TST ADDRESS FOR CURRENT TRF
Line S00232 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00298  M02S00232.ns2023  ---| LTST     CON    0           LOWEST TST ADDRESS FOR TRF
00299  M01S00036.ns2023  +++| CUFN     CON    0           CURRENT *CRF* FILE NAME
00300  M01S00037.ns2023  +++| WPMO     CON    0           WORDS PER USER MESSAGE ON OLD *CRF* (N*64)
00301  M01S00038.ns2023  +++| PPMO     CON    0           PRU-S PER USER MESSAGE ON OLD *CRF*
00302  M01S00039.ns2023  +++| WPMN     CON    0           WORDS PER USER MESSAGE ON NEW *CRF* (N*64)
00303  M01S00040.ns2023  +++| NUMO     CON    0           NUMBER MESSAGES/RECOVERY UNIT ON OLD *CRF*
00304  M01S00041.ns2023  +++| ADMN     CON    0           ADDITIONAL MESSAGES ON NEW *CRF*
00305  M01S00042.ns2023  +++| NMRU     CON    0           NUMBER OF RECOVERY UNITS ON OLD *CRF*
00306  M01S00043.ns2023  +++| HTST     CON    0           HIGHEST TST ADDRESS FOR CURRENT *CRF*
00307  M01S00044.ns2023  +++| LTST     CON    0           LOWEST TST ADDRESS FOR *CRF*
00308  M01S00233.tafrec  +++|
00309  M01S00234.tafrec  +++|*         TABLE OF RECOVERED TRANSACTION TYPES.
00310  M01S00235.tafrec  +++|
00311  M01S00236.tafrec  +++| TNRC     BSS    0
00312  M01S00237.tafrec  +++|          LOC    0
00313  M01S00238.tafrec  +++|          CON    0           DUMMY ENTRY FOR UNUSED RECOVERY UNITS
00314  M01S00239.tafrec  +++|          CON    0           NUMBER TERMINALS RECOVERED
00315  M01S00240.tafrec  +++|          CON    0           NUMBER OF *BTRAN-S* RECOVERED
00316  M01S00241.tafrec  +++|          CON    0           NUMBER CONCURRENT BATCH/*CRM* RECOVERED
00317  M01S00242.tafrec  +++|          LOC    *O
00318  M01S00243.tafrec  +++|
00319  M01S00244.tafrec  +++| TINT     CON    0           NUMBER NEW TERMINALS INTRODUCED
00320  M01S00245.tafrec  +++| TDEL     CON    0           NUMBER EXISTING TERMINALS DELETED
00321  M01S00246.tafrec  +++| TERR     CON    0           NUMBER OF RECOVERY UNIT ERRORS
00322  M01S00247.tafrec  +++| BLNK     DATA   20H
00323  M01S00248.tafrec  +++| PMSG     BSS    3           SCRATCH AREA FOR *PFM* ERROR MESSAGES
00324  M01S00249.tafrec  +++| DAYB     BSSZ   5           BUFFER FOR DAYFILE MESSAGES
00325  M01S00250.tafrec  +++|
00326  M01S00251.tafrec  +++|*         HEADING FOR REPORT FILE.
00327  M01S00252.tafrec  +++|
00328  M01S00253.tafrec  +++| HEAD     DATA   1L1
00329  M01S00254.tafrec  +++|          DATA   60H     TAF  INITIALIZATION  AND RECOVERY  REPORT
00330  M01S00255.tafrec  +++|, PAGE -
00331  M01S00256.tafrec  +++| HEAD1    BSS    1           PAGE NUMBER
00332  M01S00257.tafrec  +++|          CON    0           END OF LINE
00333  M01S00258.tafrec  +++|          DATA   1L          BLANK LINE
00334  M01S00259.tafrec  +++|          DATA   10H
00335  M01S00260.tafrec  +++|          DATA   20HMODE = "PROD"
00336  M01S00261.tafrec  +++| .A       IFEQ   IPTAR,1
00337  M01S00262.tafrec  +++|          DATA   20HRECOVERY ENABLED
00338  M01S00263.tafrec  +++| .A       ELSE
00339  M01S00264.tafrec  +++|          DATA   20HRECOVERY DISABLED
00340  M01S00265.tafrec  +++| .A       ENDIF
00341  M01S00266.tafrec  +++| HEAD2    DATA   10H              RESTART INDICATOR
00342  M01S00267.tafrec  +++|          CON    0           END OF LINE
00343  M01S00268.tafrec  +++|          DATA   1L          TWO BLANK LINES
00344  M01S00269.tafrec  +++|          DATA   1L
00345  M01S00270.tafrec  +++| HEADL    EQU    *-HEAD
00346  M01S00271.tafrec  +++|
Line S00272 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00347  M02S00272.ns2023  ---|*         SUBHEADING FOR TRF REPORT.
00348  M01S00045.ns2023  +++|*         SUBHEADING FOR CRF REPORT.
00349  M01S00273.tafrec  +++|
00350  M01S00274.tafrec  +++| RFSH     DATA   10H
00351  M01S00275.tafrec  +++|          DATA   20H INITIALIZING - ZZCR
00352  M01S00276.tafrec  +++|          DATA   10HFI
00353  M01S00277.tafrec  +++|          DATA   10HSHUTDOWN -
00354  M01S00278.tafrec  +++|          DATA   10H NORMAL
00355  M01S00279.tafrec  +++|          CON    0           END OF LINE
00356  M01S00280.tafrec  +++|          DATA   1L          BLANK LINE
00357  M01S00281.tafrec  +++|          DATA   C* TERMINAL    TSEQ     TYPE       STEP      DATE
00358  M01S00282.tafrec  +++|,TIME     COMMENT*
00359  M01S00283.tafrec  +++|          DATA   1L
00360  M01S00284.tafrec  +++| RFSHL    EQU    *-RFSH
00361  M01S00285.tafrec  +++|
00362  M01S00286.tafrec  +++|*         SUBHEADING FOR SUMMARY.
00363  M01S00287.tafrec  +++|
00364  M01S00288.tafrec  +++| SMSH     DATA   30H
00365  M01S00289.tafrec  +++|          DATA   C*SUMMARY*
00366  M01S00290.tafrec  +++|          DATA   1L          BLANK LINE
00367  M01S00291.tafrec  +++| SMSHL    EQU    *-SMSH
00368  M01S00292.tafrec  +++|
00369  M01S00293.tafrec  +++|*         SUMMARY BUFFER.
00370  M01S00294.tafrec  +++|
00371  M01S00295.tafrec  +++| SMBF     DATA   10H
00372  M01S00296.tafrec  +++| SMB1     CON    0           NUMBER OF TERMINALS RECOVERED
00373  M01S00297.tafrec  +++|          DATA   C* TERMINALS RECOVERED.*
00374  M01S00298.tafrec  +++|          DATA   10H
00375  M01S00299.tafrec  +++| SMB2     CON    0           NUMBER OF *BTRAN-S* RECOVERED
00376  M01S00300.tafrec  +++|          DATA   C* BATCH TRANSACTIONS RECOVERED.*
00377  M01S00301.tafrec  +++|          DATA   10H
00378  M01S00302.tafrec  +++| SMB3     CON    0           NUMBER CONCURRENT BATCH *CRM* REQUESTS
00379  M01S00303.tafrec  +++|          DATA   C* CONCURRENT BATCH/CRM REQUESTS RECOVERED.*
00380  M01S00304.tafrec  +++|          DATA   10H
00381  M01S00305.tafrec  +++| SMB4     CON    0           NUMBER OF RECOVERY UNITS INTRODUCED
00382  M01S00306.tafrec  +++|          DATA   C* USER NAMES ADDED.*
00383  M01S00307.tafrec  +++|          DATA   10H
00384  M01S00308.tafrec  +++| SMB5     CON    0           NUMBER OF RECOVERY UNITS DELETED
00385  M01S00309.tafrec  +++|          DATA   C* RECOVERABLE RUN UNITS DELETED.*
00386  M01S00310.tafrec  +++| SMBFL    EQU    *-SMBF
00387  M01S00311.tafrec  +++|
00388  M01S00312.tafrec  +++| SBHD     BSS    3           SUBHEADING ADDRESS,WORD COUNT,LINE COUNT
00389  M01S00313.tafrec  +++| LCNT     CON    60          REPORT FILE LINE COUNT
00390  M01S00314.tafrec  +++| PCNT     CON    0           REPORT FILE PAGE COUNT
00391  M01S00315.tafrec  +++|
00392  M01S00316.tafrec  +++| TAFREC   EJECT
00393  M01S00317.tafrec  +++|*         TAFREC MAINLINE.
00394  M01S00318.tafrec  +++|
00395  M01S00319.tafrec  +++|
00396  M01S00320.tafrec  +++| TAFREC   RJ     PRS         PRESET TAFREC
00397  M01S00321.tafrec  +++|          SX1    IPTAR
00398  M01S00322.tafrec  +++|          ZR     X1,TAF5     IF *TAF* AUTOMATIC RECOVERY ENABLED
00399  M01S00323.tafrec  +++|          SX7    -1
00400  M01S00324.tafrec  +++|          SA7    CUID        INITIALIZE ID
00401  M01S00325.tafrec  +++|          SX6    RFSH        SET SUBHEADING ADDRESS AND LENGTH
00402  M01S00326.tafrec  +++|          SX7    RFSHL
00403  M01S00327.tafrec  +++|          SA6    SBHD
Line S00328 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2338
Seq #  *Modification Id* Act 
----------------------------+
00404  M02S00328.ns2338  ---|          SA7    A6+B1
00405  M01S00001.ns2338  +++|          SA7    A6+1
00406  M01S00329.tafrec  +++|          SX6    4           LINE COUNT OF NEXT SUBHEADING
00407  M01S00330.tafrec  +++|          SA6    SBHD+2
Line S00331 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2338
Seq #  *Modification Id* Act 
----------------------------+
00408  M02S00331.ns2338  ---|          ONSW   10B         SET SWITCH FOUR FOR AUTOMATIC RESTART
00409  M01S00332.tafrec  +++|
Line S00333 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00410  M02S00333.ns2023  ---|*         INITIALIZE OR RECOVER ALL *TAF* RECOVERY FILES.
00411  M01S00046.ns2023  +++|*         INITIALIZE OR RECOVER ALL COMMUNICATIONS RECOVERY FILES.
00412  M01S00334.tafrec  +++|
00413  M01S00335.tafrec  +++| TAF1     SX6    LINP        FORCE NEW PAGE
00414  M01S00336.tafrec  +++|          SA6    LCNT
00415  M01S00337.tafrec  +++|          SA1    CUID
00416  M01S00338.tafrec  +++|          SX6    X1+B1
00417  M01S00339.tafrec  +++|          SX7    X6-MAXRC
00418  M01S00340.tafrec  +++|          ZR     X7,TAF4     IF ALL RECOVERY FILES PROCESSED
00419  M01S00341.tafrec  +++|          SA6    A1
00420  M01S00342.tafrec  +++|          SA1    TREC+X6
00421  M01S00343.tafrec  +++|          ZR     X1,TAF1     IF NO RECOVERY FILE WITH THIS ORDINAL
00422  M01S00344.tafrec  +++|          MX0    -3
00423  M01S00345.tafrec  +++|          BX2    -X0*X1      GET STATUS OF RECOVERY FILE
00424  M01S00346.tafrec  +++|          SX3    X2-IST
00425  M01S00347.tafrec  +++|          NZ     X3,TAF2     IF NOT INITIALIZE
Line S00348 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00426  M02S00348.ns2023  ---|          RJ     ITR         INITIALIZE *TAF* RECOVERY FILE
00427  M01S00047.ns2023  +++|          RJ     ITR         INITIALIZE COMMUNICATIONS RECOVERY FILE
00428  M01S00349.tafrec  +++|          EQ     TAF3        INITIALIZE NETWORK FILE IDENTIFIER
00429  M01S00350.tafrec  +++|
Line S00351 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00430  M02S00351.ns2023  ---|*         RECOVER *TAF* RECOVERY FILE.
00431  M01S00048.ns2023  +++|*         RECOVER COMMUNICATIONS RECOVERY FILE.
00432  M01S00352.tafrec  +++|
Line S00353 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00433  M02S00353.ns2023  ---| TAF2     RJ     PTR         PERFORM TRF RECOVERY
00434  M01S00049.ns2023  +++| TAF2     RJ     PTR         PERFORM *CRF* RECOVERY
00435  M01S00354.tafrec  +++| TAF3     SA1    CUID
00436  M01S00355.tafrec  +++|          BX6    X1
00437  M01S00356.tafrec  +++|          LX6    TFIDS-TFIDN+1  INITIALIZE NETWORK FILE IDENTIFIER
00438  M01S00357.tafrec  +++|          SX2    TTFTE
00439  M01S00358.tafrec  +++|          IX2    X2*X1
00440  M01S00359.tafrec  +++|          SA1    TSTHD+X2+TFTSW
00441  M01S00360.tafrec  +++|          BX6    X6+X1
00442  M01S00361.tafrec  +++|          SA6    A1
Line S00362 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00443  M02S00362.ns2023  ---|          EQ     TAF1        PROCESS NEXT *TAF* RECOVERY FILE
00444  M01S00050.ns2023  +++|          EQ     TAF1        PROCESS NEXT COMMUNICATIONS RECOVERY FILE
00445  M01S00363.tafrec  +++|
00446  M01S00364.tafrec  +++|*         WRITE RECOVERY REPORT SUMMARY.
00447  M01S00365.tafrec  +++|
00448  M01S00366.tafrec  +++| TAF4     SX6    SMSH        SUBHEADING ADDRESS
00449  M01S00367.tafrec  +++|          SX7    SMSHL       LENGTH
00450  M01S00368.tafrec  +++|          SA6    SBHD
00451  M01S00369.tafrec  +++|          SA7    A6+B1
00452  M01S00370.tafrec  +++|          SX6    B1+B1       LINE COUNT
00453  M01S00371.tafrec  +++|          SA6    A7+B1
00454  M01S00372.tafrec  +++|          SX6    LINP        FORCE NEW PAGE
00455  M01S00373.tafrec  +++|          SA6    LCNT
00456  M01S00374.tafrec  +++|          SA1    TNRC+B1     TERMINALS RECOVERED
00457  M01S00375.tafrec  +++|          RJ     CDD         CONVERT TO DISPLAY
00458  M01S00376.tafrec  +++|          SA6    SMB1
00459  M01S00377.tafrec  +++|          SA1    A1+1        *BTRAN* JOBS RECOVERED
00460  M01S00378.tafrec  +++|          RJ     CDD
00461  M01S00379.tafrec  +++|          SA6    SMB2
00462  M01S00380.tafrec  +++|          SA1    A1+1        BATCH/*CRM* REQUESTS RECOVERED
00463  M01S00381.tafrec  +++|          RJ     CDD
00464  M01S00382.tafrec  +++|          SA6    SMB3
00465  M01S00383.tafrec  +++|          SA1    TINT        RECOVERY UNITS INTRODUCED
00466  M01S00384.tafrec  +++|          RJ     CDD
00467  M01S00385.tafrec  +++|          SA6    SMB4
00468  M01S00386.tafrec  +++|          SA1    TDEL        RECOVERY UNITS DELETED
00469  M01S00387.tafrec  +++|          RJ     CDD
00470  M01S00388.tafrec  +++|          SA6    SMB5
00471  M01S00389.tafrec  +++|          SB2    5
00472  M01S00390.tafrec  +++|          RJ     ALC         ADVANCE LINE COUNT
00473  M01S00391.tafrec  +++|          WRITEW  R,SMBF,SMBFL  WRITE SUMMARY
00474  M01S00392.tafrec  +++|
00475  M01S00393.tafrec  +++|*         FLUSH BUFFERS AND TERMINATE *TAFREC*.
00476  M01S00394.tafrec  +++|
00477  M01S00395.tafrec  +++| TAF5     SA1     TSTLW
00478  M01S00396.tafrec  +++|          WRITEW TIF,TSTLW,X1+1  WRITE TST TO TIF
00479  M01S00397.tafrec  +++|          WRITER  TIF,R      FLUSH BUFFER
00480  M01S00398.tafrec  +++|          REWIND  TIF,R
00481  M01S00399.tafrec  +++|          WRITER  R,R        FLUSH REPORT FILE BUFFER
Line S00400 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00482  M02S00400.ns22000 ---|          ENFAM  DFFM        RESET TO DEFAULT FAMILY
Line S00401 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00483  M02S00401.ns22000 ---|          SETUI  TRUI        RESET TO *TAF-S* USER INDEX
00484  M01S00016.ns22000 +++|          SA1    DFFM        DEFAULT FAMILY
00485  M01S00017.ns22000 +++|          SX0    13B         *SETPFP* FLAGS
00486  M01S00018.ns22000 +++|          SA2    USRC        USER NAME / USER INDEX
00487  M01S00019.ns22000 +++|          BX6    X0+X1
00488  M01S00020.ns22000 +++|          BX7    X2
00489  M01S00021.ns22000 +++|          SA6    PFPA        SET UP *SETPFP* CALL BLOCK
00490  M01S00022.ns22000 +++|          SA7    A6+2
00491  M01S00023.ns22000 +++|          SETPFP PFPA        SET PERMANENT FILE PARAMETERS
00492  M01S00402.tafrec  +++|          MESSAGE  TAFA,0,R  COMPLETE MESSAGE
00493  M01S00403.tafrec  +++|          ENDRUN             END
00494  M01S00404.tafrec  +++|
00495  M01S00405.tafrec  +++| TAFA     DATA   C* CRF RECOVERY/INITIALIZATION COMPLETE.*
00496  M01S00406.tafrec  +++|          TITLE  MISCELLANEOUS SUBROUTINES.
00497  M01S00407.tafrec  +++| ITR      SPACE  4,20
Line S00408 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00498  M02S00408.ns2023  ---|**        ITR - INITIALIZE *TAF* RECOVERY FILE.
00499  M01S00051.ns2023  +++|**        ITR - INITIALIZE COMMUNICATIONS RECOVERY FILE.
00500  M01S00409.tafrec  +++|*
Line S00410 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00501  M02S00410.ns2023  ---|*         PREALLOCATE AND INITIALIZE THE TRF.  THE FILE IS WRITTEN
Line S00411 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00502  M02S00411.ns2023  ---|*         SEQUENTIALLY, THE TRF HEADER FIRST, FOLLOWED BY A RECOVERY
00503  M01S00052.ns2023  +++|*         PREALLOCATE AND INITIALIZE THE *CRF*.  THE FILE IS WRITTEN
00504  M01S00053.ns2023  +++|*         SEQUENTIALLY, THE *CRF* HEADER FIRST, FOLLOWED BY A RECOVERY
00505  M01S00412.tafrec  +++|*         UNIT FOR EACH TERMINAL IN THE CORRESPONDING NETWORK FILE.
00506  M01S00413.tafrec  +++|*
Line S00414 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00507  M02S00414.ns2023  ---|*         ENTRY  (CUID) = TRF ID.
00508  M01S00054.ns2023  +++|*         ENTRY  (CUID) = *CRF* ID.
00509  M01S00415.tafrec  +++|*                (RFN) = RECOVERY FILE NAME.
00510  M01S00416.tafrec  +++|*
Line S00417 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00511  M02S00417.ns2023  ---|*         EXIT   TRF INITIALIZED.
00512  M01S00055.ns2023  +++|*         EXIT   CRF INITIALIZED.
00513  M01S00418.tafrec  +++|*
00514  M01S00419.tafrec  +++|*         USES   X - 0, 1, 2, 3, 5, 6, 7.
00515  M01S00420.tafrec  +++|*                A - 1, 2, 3, 6, 7.
00516  M01S00421.tafrec  +++|*                B - 4, 5, 6.
00517  M01S00422.tafrec  +++|*
00518  M01S00423.tafrec  +++|*         CALLS  GHL, PRU, ZFB.
00519  M01S00424.tafrec  +++|*
00520  M01S00425.tafrec  +++|*         MACROS REWIND, WRITER, WRITEW.
00521  M01S00426.tafrec  +++|
00522  M01S00427.tafrec  +++|
00523  M01S00428.tafrec  +++| ITR      SUBR               ENTRY/EXIT
00524  M01S00429.tafrec  +++|          SA1    CUID        GET ID
00525  M01S00430.tafrec  +++|          SX2    1R0
00526  M01S00431.tafrec  +++|          IX2    X1+X2       BINARY TO DISPLAY
00527  M01S00432.tafrec  +++|          LX2    29-5
00528  M01S00433.tafrec  +++|          SA3    RFN
Line S00434 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00529  M02S00434.ns2023  ---|          BX6    X3+X2       FORM FILE NAME - TRFI
00530  M01S00056.ns2023  +++|          BX6    X3+X2       FORM FILE NAME - CRFI
00531  M01S00435.tafrec  +++|          SA6    PBUF+TRFIW  STORE FILE NAME IN HEADER
00532  M01S00436.tafrec  +++|          SA1    ITRA        SET UP SUBHEADING FOR REPORT
00533  M01S00437.tafrec  +++|          BX7    X1
00534  M01S00438.tafrec  +++|          SA7    RFSH+1
00535  M01S00439.tafrec  +++|          SA1    A1+B1
00536  M01S00440.tafrec  +++|          LX6    24
00537  M01S00441.tafrec  +++|          MX0    -24
00538  M01S00442.tafrec  +++|          BX2    -X0*X6
00539  M01S00443.tafrec  +++|          BX7    X1+X2
00540  M01S00444.tafrec  +++|          SA7    A7+B1
00541  M01S00445.tafrec  +++|          BX7    X0*X6
00542  M01S00446.tafrec  +++|          SA7    A7+B1
00543  M01S00447.tafrec  +++|          LX6    36
00544  M01S00448.tafrec  +++|          SA1    BLNK
00545  M01S00449.tafrec  +++|          BX7    X1
00546  M01S00450.tafrec  +++|          SA7    A7+2
00547  M01S00451.tafrec  +++|          SA7    A7+B1
00548  M01S00452.tafrec  +++|          SX2    B1
00549  M01S00453.tafrec  +++|          BX6    X6+X2       COMPLETE BIT
Line S00454 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00550  M02S00454.ns2023  ---|          SA6    TRF         STORE IN FET
00551  M01S00057.ns2023  +++|          SA6    CRF         STORE IN FET
00552  M01S00455.tafrec  +++|          RJ     GHL         GET HIGHEST/LOWEST TST ENTRY ADDRESSES
00553  M01S00456.tafrec  +++|          SA6    HTST        SAVE HIGHEST ADDRESS
00554  M01S00457.tafrec  +++|          SA7    A6+B1       SAVE LOWEST ADDRESS
00555  M01S00458.tafrec  +++|          IX1    X6-X7
00556  M01S00459.tafrec  +++|          SX1    X1+TSTLLE
00557  M01S00460.tafrec  +++|          SX2    TSTLLE
00558  M01S00461.tafrec  +++|          IX6    X1/X2       NUMBER TERMINALS
00559  M01S00462.tafrec  +++|          SA1    CUID
00560  M01S00463.tafrec  +++|
Line S00464 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00561  M02S00464.ns2023  ---|*         INITIALIZE TRF HEADER.
00562  M01S00058.ns2023  +++|*         INITIALIZE *CRF* HEADER.
00563  M01S00465.tafrec  +++|
00564  M01S00466.tafrec  +++|          SA1    TREC+X1     FILE INFORMATION
00565  M01S00467.tafrec  +++|          MX0    24
00566  M01S00468.tafrec  +++|          LX0    36
00567  M01S00469.tafrec  +++|          BX7    X0*X1       *NM* AND *MS*
00568  M01S00470.tafrec  +++|          IX7    X7+X6       ADD NUMBER OF RECOVERY UNITS
00569  M01S00471.tafrec  +++|          MX6    1
00570  M01S00472.tafrec  +++|          BX7    X7+X6       ABNORMAL SHUTDOWN
00571  M01S00473.tafrec  +++|          SA7    PBUF+TRNRW  STORE FILE PARAMETERS
00572  M01S00474.tafrec  +++|          SA1    DATE
00573  M01S00475.tafrec  +++|          SA2    TIME
00574  M01S00476.tafrec  +++|          BX6    X1
00575  M01S00477.tafrec  +++|          BX7    X2
00576  M01S00478.tafrec  +++|          SA6    A7+B1       STARTUP DATE
00577  M01S00479.tafrec  +++|          SA7    A6+B1       STARTUP TIME
00578  M01S00480.tafrec  +++|          SB5    A7+B1       FWA TO ZERO
00579  M01S00481.tafrec  +++|          SB6    TRHWL-TRTDW NUMBER OF WORDS
00580  M01S00482.tafrec  +++|          RJ     ZFB         ZERO FILL BUFFER
00581  M01S00483.tafrec  +++|          SX7    TRBUF
Line S00484 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00582  M02S00484.ns2023  ---|          SA7    TRF+2       RESET BUFFER POINTERS
00583  M01S00059.ns2023  +++|          SA7    CRF+2       RESET BUFFER POINTERS
00584  M01S00485.tafrec  +++|          SA7    A7+B1
Line S00486 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00585  M02S00486.ns2023  ---|          WRITEW TRF,PBUF,TRHWL  WRITE HEADER
00586  M01S00060.ns2023  +++|          WRITEW CRF,PBUF,TRHWL  WRITE HEADER
00587  M01S00487.tafrec  +++| ITR1     SA2    HTST        HIGHEST TST ADDRESS
00588  M01S00488.tafrec  +++|          SA1    A2+B1       NEXT TST ADDRESS
00589  M01S00489.tafrec  +++|          IX2    X2-X1
00590  M01S00490.tafrec  +++|          NG     X2,ITR2     IF ALL DONE
00591  M01S00491.tafrec  +++|          SX6    X1+TSTLLE
00592  M01S00492.tafrec  +++|          SA6    A1
00593  M01S00493.tafrec  +++|          SA1    X1+B1       TERMINAL NAME
Line S00494 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00594  M02S00494.ns2023  ---|          SX5    TRF         FET ADDRESS
00595  M01S00061.ns2023  +++|          SX5    CRF         FET ADDRESS
00596  M01S00495.tafrec  +++|          SB4    CSNR        STEP = NON RECOVERABLE TRANSACTION
00597  M01S00496.tafrec  +++|          RJ     PRU         PREALLOCATE RECOVERY UNIT
00598  M01S00497.tafrec  +++|          SA1    TINT
00599  M01S00498.tafrec  +++|          SX6    X1+B1       INCREMENT INTRODUCED RECOVERY UNITS
00600  M01S00499.tafrec  +++|          SA6    A1
00601  M01S00500.tafrec  +++|          EQ     ITR1        NEXT TERMINAL
00602  M01S00501.tafrec  +++|
Line S00502 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00603  M02S00502.ns2023  ---| ITR2     WRITER TRF,R       FLUSH BUFFER
Line S00503 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00604  M02S00503.ns2023  ---|          WRITER TRF,R       WRITE END OF RECORD MARK
Line S00504 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00605  M02S00504.ns2023  ---|          REWIND TRF,R
00606  M01S00062.ns2023  +++| ITR2     WRITER CRF,R       FLUSH BUFFER
00607  M01S00063.ns2023  +++|          WRITER CRF,R       WRITE END OF RECORD MARK
00608  M01S00064.ns2023  +++|          REWIND CRF,R
00609  M01S00505.tafrec  +++|          SA1    CUID
00610  M01S00506.tafrec  +++|          SA2    TREC+X1
00611  M01S00507.tafrec  +++|          MX0    -3
00612  M01S00508.tafrec  +++|          BX6    X0*X2
00613  M01S00509.tafrec  +++|          SX0    CST
00614  M01S00510.tafrec  +++|          BX6    X6+X0
00615  M01S00511.tafrec  +++|          SA6    A2          SET FILE = COMPLETE
00616  M01S00512.tafrec  +++|          EQ     ITRX        RETURN
00617  M01S00513.tafrec  +++|
00618  M01S00514.tafrec  +++| ITRA     DATA   C* INITIALIZING - *
00619  M01S00515.tafrec  +++|          CON    0
00620  M01S00516.tafrec  +++| PTR      SPACE  4,25
Line S00517 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00621  M02S00517.ns2023  ---|**        PTR - PERFORM TRF RECOVERY.
00622  M01S00065.ns2023  +++|**        PTR - PERFORM *CRF* RECOVERY.
00623  M01S00518.tafrec  +++|*
Line S00519 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00624  M02S00519.ns2023  ---|*         RECOVER A TRF AND DETERMINE THE TERMINALS TO BE RECOVERED.
Line S00520 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00625  M02S00520.ns2023  ---|*         THE TRF MAY BE REFORMATTED BECAUSE OF -
00626  M01S00066.ns2023  +++|*         RECOVER A *CRF* AND DETERMINE THE TERMINALS TO BE RECOVERED.
00627  M01S00067.ns2023  +++|*         THE *CRF* MAY BE REFORMATTED BECAUSE OF -
00628  M01S00521.tafrec  +++|*                AN INCREASE IN THE SIZE OF MESSAGE RECORDS.
00629  M01S00522.tafrec  +++|*                AN INCREASE IN THE NUMBER OF MESSAGE RECORDS.
00630  M01S00523.tafrec  +++|*                CHANGES IN TERMINALS ON NETWORK FILE.
00631  M01S00524.tafrec  +++|*                RECOVERY UNIT ERROR AND ERROR OVERRIDE SET.
00632  M01S00525.tafrec  +++|*         TERMINALS ACTIVE AT *TAF* SHUTDOWN WILL HAVE THE RECOVERY
00633  M01S00526.tafrec  +++|*         FLAG SET IN THE TST.
00634  M01S00527.tafrec  +++|*         INFORMATION ON RECOVERED TERMINALS WILL BE WRITTEN TO THE
00635  M01S00528.tafrec  +++|*         REPORT FILE.
00636  M01S00529.tafrec  +++|*
00637  M01S00530.tafrec  +++|*         ENTRY  (CUID) = CURRENT ID.
00638  M01S00531.tafrec  +++|*
Line S00532 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00639  M02S00532.ns2023  ---|*         EXIT   TRF RECOVERED/REFORMATTED.
00640  M01S00068.ns2023  +++|*         EXIT   *CRF* RECOVERED/REFORMATTED.
00641  M01S00533.tafrec  +++|*                RECOVERY FLAG SET IN THE TST FOR ACTIVE TERMINALS.
00642  M01S00534.tafrec  +++|*                TO *ERR* IF REFORMATTED FILE CANNOT BE DEFINED.
00643  M01S00535.tafrec  +++|*
00644  M01S00536.tafrec  +++|*         USES   X - ALL.
00645  M01S00537.tafrec  +++|*                A - ALL.
00646  M01S00538.tafrec  +++|*                B - 2, 3, 4, 5, 6.
00647  M01S00539.tafrec  +++|*
00648  M01S00540.tafrec  +++|*         CALLS  ALC, BDR, CDD, FIO, FRL, GHL, PRU, RFH, RRU, SNM, STN,
00649  M01S00541.tafrec  +++|*                ZFB.
00650  M01S00542.tafrec  +++|*
Line S00543 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00651  M02S00543.ns22000 ---|*         MACROS CHANGE, DEFINE, ENFAM, PURGE, RECALL, RENAME, REWIND,
Line S00544 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00652  M02S00544.ns22000 ---|*                SETUI, WRITER, WRITEW.
00653  M01S00024.ns22000 +++|*         MACROS CHANGE, DEFINE, PURGE, RECALL, RENAME, REWIND, SETPFP,
00654  M01S00025.ns22000 +++|*                WRITER, WRITEW.
00655  M01S00545.tafrec  +++|
00656  M01S00546.tafrec  +++|
00657  M01S00547.tafrec  +++| PTR      SUBR               ENTRY/EXIT
00658  M01S00548.tafrec  +++|          SX6    B0+
00659  M01S00549.tafrec  +++|          SA6    TERR        CLEAR ERROR COUNT
00660  M01S00550.tafrec  +++|          SA1    CUID
00661  M01S00551.tafrec  +++|          SX2    1R0
00662  M01S00552.tafrec  +++|          IX2    X2+X1       BINARY TO DISPLAY
00663  M01S00553.tafrec  +++|          LX2    23-5
Line S00554 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00664  M02S00554.ns2023  ---|          SA3    RFNA        *TRFA*
00665  M01S00069.ns2023  +++|          SA3    RFNA        *CRFA*
00666  M01S00555.tafrec  +++|          BX6    X3+X2
Line S00556 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00667  M02S00556.ns2023  ---|          SA6    TRFA+CFPN   PERMANENT FILE NAME
00668  M01S00070.ns2023  +++|          SA6    CRFA+CFPN   PERMANENT FILE NAME
00669  M01S00557.tafrec  +++|          SX4    3
00670  M01S00558.tafrec  +++|          BX6    X6+X4       ADD BINARY/COMPLETE BITS
Line S00559 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00671  M02S00559.ns2023  ---|          SA6    TRFA
00672  M01S00071.ns2023  +++|          SA6    CRFA
00673  M01S00560.tafrec  +++|          LX2    6
Line S00561 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00674  M02S00561.ns2023  ---|          SA3    RFN         *TRF*
Line S00562 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00675  M02S00562.ns2023  ---|          BX6    X3+X2       FORM FILE NAME - *TRFI*
Line S00563 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00676  M02S00563.ns2023  ---|          SA6    CUFN        SAVE CURRENT TRF FILE NAME
Line S00564 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00677  M02S00564.ns2023  ---|          SA6    TRF+CFPN    PERMANENT FILE NAME
Line S00565 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00678  M02S00565.ns2023  ---|          SA6    TRFA+CFNF
00679  M01S00072.ns2023  +++|          SA3    RFN         *CRF*
00680  M01S00073.ns2023  +++|          BX6    X3+X2       FORM FILE NAME - *CRFI*
00681  M01S00074.ns2023  +++|          SA6    CUFN        SAVE CURRENT *CRF* FILE NAME
00682  M01S00075.ns2023  +++|          SA6    CRF+CFPN    PERMANENT FILE NAME
00683  M01S00076.ns2023  +++|          SA6    CRFA+CFNF
00684  M01S00566.tafrec  +++|          BX6    X6+X4       ADD COMPLETE/BINARY BITS
Line S00567 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00685  M02S00567.ns2023  ---|          SA6    TRF
00686  M01S00077.ns2023  +++|          SA6    CRF
00687  M01S00568.tafrec  +++|          RJ     GHL         GET HIGHEST/LOWEST TST ADDRESSES
00688  M01S00569.tafrec  +++|          SA6    HTST        SAVE HIGHEST
00689  M01S00570.tafrec  +++|          SA7    LTST        SAVE LOWEST
Line S00571 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00690  M02S00571.ns2023  ---|          RJ     RFH         READ TRF HEADER
00691  M01S00078.ns2023  +++|          RJ     RFH         READ *CRF* HEADER
00692  M01S00572.tafrec  +++|          SA1    SDST        SET UP SUBHEADING FOR REPORT
00693  M01S00573.tafrec  +++|          LX1    0-TRRSS
00694  M01S00574.tafrec  +++|          MX0    -TRRSN
00695  M01S00575.tafrec  +++|          BX1    -X0*X1
00696  M01S00576.tafrec  +++|          SA1    PTRG+X1     SHUTDOWN STATUS
00697  M01S00577.tafrec  +++|          SA2    PTRH
00698  M01S00578.tafrec  +++|          BX6    X1
00699  M01S00579.tafrec  +++|          BX7    X2
00700  M01S00580.tafrec  +++|          SA7    RFSH+4
00701  M01S00581.tafrec  +++|          SA6    A7+B1
00702  M01S00582.tafrec  +++|          RJ     BDR         BUILD DIRECTORY OF RECOVERY UNITS
00703  M01S00583.tafrec  +++|          SA6    PTRB        SAVE REFORMAT FLAG
00704  M01S00584.tafrec  +++|          SA3    HTST
00705  M01S00585.tafrec  +++|          SA4    LTST
00706  M01S00586.tafrec  +++|          IX1    X3-X4
00707  M01S00587.tafrec  +++|          SX2    TSTLLE
00708  M01S00588.tafrec  +++|          IX1    X1+X2
00709  M01S00589.tafrec  +++|          IX2    X1/X2       NUMBER OF RECOVERY UNITS
00710  M01S00590.tafrec  +++|          SB5    PBUF
00711  M01S00591.tafrec  +++|          SB6    TRHWL
00712  M01S00592.tafrec  +++|          RJ     ZFB         ZERO FILL BUFFER
00713  M01S00593.tafrec  +++|
Line S00594 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00714  M02S00594.ns2023  ---|*         UPDATE TRF HEADER.  SET ABNORMAL SHUTDOWN, DATE, TIME.
00715  M01S00079.ns2023  +++|*         UPDATE *CRF* HEADER.  SET ABNORMAL SHUTDOWN, DATE, TIME.
00716  M01S00595.tafrec  +++|*         NUMBER OF USER MESSAGES AND SIZE OF USER MESSAGES.
00717  M01S00596.tafrec  +++|
00718  M01S00597.tafrec  +++|          SA1    CUID
00719  M01S00598.tafrec  +++|          SA1    TREC+X1     FILE INFORMATION
00720  M01S00599.tafrec  +++|          MX0    24
00721  M01S00600.tafrec  +++|          LX0    36
00722  M01S00601.tafrec  +++|          BX7    X0*X1       *NM* AND *MS*
00723  M01S00602.tafrec  +++|          BX7    X7+X2       ADD NUMBER OF RECOVERY UNITS
00724  M01S00603.tafrec  +++|          MX6    1
00725  M01S00604.tafrec  +++|          BX7    X7+X6       ABNORMAL SHUTDOWN
00726  M01S00605.tafrec  +++|          SA7    PBUF+TRNRW
00727  M01S00606.tafrec  +++|          SA1    DATE
00728  M01S00607.tafrec  +++|          SA2    TIME
00729  M01S00608.tafrec  +++|          BX6    X1
00730  M01S00609.tafrec  +++|          BX7    X2
00731  M01S00610.tafrec  +++|          SA6    PBUF+TRSDW  STARTUP DATE
00732  M01S00611.tafrec  +++|          SA7    PBUF+TRSTW  STARTUP TIME
00733  M01S00612.tafrec  +++|          SA1    CUFN
00734  M01S00613.tafrec  +++|          BX6    X1
00735  M01S00614.tafrec  +++|          SA6    PBUF+TRFIW  TRF FILE NAME
00736  M01S00615.tafrec  +++|          SA1    PTRB
00737  M01S00616.tafrec  +++|          ZR     X1,PTR6     IF REFORMAT NOT NECESSARY
00738  M01S00617.tafrec  +++|
Line S00618 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00739  M02S00618.ns2023  ---|*         REFORMAT *TRF* ONTO ALTERNATE FILE.
00740  M01S00080.ns2023  +++|*         REFORMAT *CRF* ONTO ALTERNATE FILE.
00741  M01S00619.tafrec  +++|
00742  M01S00620.tafrec  +++|          SA5    CUID        ID
00743  M01S00621.tafrec  +++|          LX5    1           OFFSET INTO *TFAM*
Line S00622 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00744  M02S00622.ns22000 ---|          ENFAM  TFAM+X5     SET FAMILY
00745  M01S00026.ns22000 +++|          SA1    TFAM+X5     GET FAMILY
00746  M01S00027.ns22000 +++|          SX0    13B         *SETPFP* FLAGS
00747  M01S00028.ns22000 +++|          BX7    X0+X1
00748  M01S00029.ns22000 +++|          SA7    PFPA        SET UP *SETPFP* CALL BLOCK
00749  M01S00623.tafrec  +++|          SA5    TFAM+X5+1
Line S00624 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00750  M02S00624.ns22000 ---|          SETUI  X5          SET USER INDEX
00751  M01S00030.ns22000 +++|          BX7    X5
00752  M01S00031.ns22000 +++|          SA7    PFPA+2
00753  M01S00032.ns22000 +++|          SETPFP PFPA        SET PERMANENT FILE PARAMETERS
Line S00625 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00754  M02S00625.ns2023  ---|          DEFINE TRFA        DEFINE REFORMATTED TRF
Line S00626 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00755  M02S00626.ns2023  ---|          SA1    TRFA        CHECK FOR ERRORS
00756  M01S00081.ns2023  +++|          DEFINE CRFA        DEFINE REFORMATTED *CRF*
00757  M01S00082.ns2023  +++|          SA1    CRFA        CHECK FOR ERRORS
00758  M01S00627.tafrec  +++|          MX2    8
00759  M01S00628.tafrec  +++|          LX1    59-17
00760  M01S00629.tafrec  +++|          BX2    X2*X1
00761  M01S00630.tafrec  +++|          ZR     X2,PTR1     IF NO ERROR
00762  M01S00631.tafrec  +++|          MX2    42
00763  M01S00632.tafrec  +++|          LX1    17-59
00764  M01S00633.tafrec  +++|          BX1    X2*X1
00765  M01S00634.tafrec  +++|          SB2    1RX
00766  M01S00635.tafrec  +++|          SB5    PTRC        * CANNOT DEFINE REFORMATTED FILE.*
00767  M01S00636.tafrec  +++|          RJ     SNM         SET NAME IN MESSAGE
00768  M01S00637.tafrec  +++|          SX1    PTRC
00769  M01S00638.tafrec  +++|          EQ     ERR         PROCESS ERROR
00770  M01S00639.tafrec  +++|
Line S00640 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00771  M02S00640.ns2023  ---|*         REFORMAT RECOVERY FILE HEADER ONTO *TRFAI*.
00772  M01S00083.ns2023  +++|*         REFORMAT RECOVERY FILE HEADER ONTO *CRFAI*.
00773  M01S00641.tafrec  +++|
Line S00642 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00774  M02S00642.ns2023  ---| PTR1     WRITEW  TRFA,PBUF,TRHWL  WRITE HEADER
00775  M01S00084.ns2023  +++| PTR1     WRITEW  CRFA,PBUF,TRHWL  WRITE HEADER
00776  M01S00643.tafrec  +++|          SA1    CUFN        COMPLETE SUBHEADING FOR REPORT
00777  M01S00644.tafrec  +++|          SA2    PTRF
00778  M01S00645.tafrec  +++|          SA3    A2+B1
00779  M01S00646.tafrec  +++|          BX6    X2
00780  M01S00647.tafrec  +++|          SA6    RFSH+1
00781  M01S00648.tafrec  +++|          LX1    24
00782  M01S00649.tafrec  +++|          MX0    -24
00783  M01S00650.tafrec  +++|          BX6    -X0*X1
00784  M01S00651.tafrec  +++|          BX6    X6+X3
00785  M01S00652.tafrec  +++|          SA6    A6+B1
00786  M01S00653.tafrec  +++|          SA2    PTRJ
00787  M01S00654.tafrec  +++|          BX7    X0*X1
00788  M01S00655.tafrec  +++|          BX7    X2+X7
00789  M01S00656.tafrec  +++|          SA7    A6+1
00790  M01S00657.tafrec  +++|
00791  M01S00658.tafrec  +++|*         REFORMAT RECOVERY UNITS.
00792  M01S00659.tafrec  +++|
00793  M01S00660.tafrec  +++| PTR2     SA2    HTST        HIGHEST TST ADDRESS
00794  M01S00661.tafrec  +++|          SA1    LTST        NEXT TST ADDRESS
00795  M01S00662.tafrec  +++|          IX2    X2-X1
00796  M01S00663.tafrec  +++|          NG     X2,PTR5     IF ALL DONE
00797  M01S00664.tafrec  +++|          SX6    X1+TSTLLE
00798  M01S00665.tafrec  +++|          SA6    A1
00799  M01S00666.tafrec  +++|          MX0    TSTNN
00800  M01S00667.tafrec  +++|          SA1    X1+TSTNW    TERMINAL NAME
00801  M01S00668.tafrec  +++|          SB3    DIR         FWA OF TABLE
00802  M01S00669.tafrec  +++|          BX1    X0*X1       EXTRACT TERMINAL NAME
00803  M01S00670.tafrec  +++|          SB4    RUDL        LENGTH OF ENTRY
00804  M01S00671.tafrec  +++|          SX2    B4
00805  M01S00672.tafrec  +++|          SA3    NMRU
00806  M01S00673.tafrec  +++|          IX3    X3*X2
00807  M01S00674.tafrec  +++|          SB5    X3+B3       LWA+1 OF DIRECTORY
00808  M01S00675.tafrec  +++|          RJ     STN         SEARCH DIRECTORY OF RECOVERY UNITS
00809  M01S00676.tafrec  +++|          ZR     X5,PTR3     IF NEW TERMINAL
00810  M01S00677.tafrec  +++|          SA2    X5+B1
00811  M01S00678.tafrec  +++|          LX2    59-58
00812  M01S00679.tafrec  +++|          SB4    CSTN        STEP = I/O ERROR ON RECOVERY UNIT
00813  M01S00680.tafrec  +++|          NG     X2,PTR4     IF RECOVERY UNIT ERROR
00814  M01S00681.tafrec  +++|          RJ     RRU         REFORMAT RECOVERY UNIT
00815  M01S00682.tafrec  +++|          EQ     PTR2        NEXT TST ENTRY
00816  M01S00683.tafrec  +++|
00817  M01S00684.tafrec  +++|*         INITIALIZE NEW RECOVERY UNITS ADDED TO NETWORK FILE.
00818  M01S00685.tafrec  +++|
00819  M01S00686.tafrec  +++| PTR3     SB4    CSNR        STEP = NON RECOVERABLE TRANSACTION
00820  M01S00687.tafrec  +++|          SA2    TINT
00821  M01S00688.tafrec  +++|          SX6    X2+B1       INCREMENT INTRODUCED RECOVERY UNITS
00822  M01S00689.tafrec  +++|          SA6    A2
00823  M01S00690.tafrec  +++|
00824  M01S00691.tafrec  +++|*         INITIALIZE RECOVERY UNITS WHICH HAD I/O ERRORS.
00825  M01S00692.tafrec  +++|
Line S00693 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00826  M02S00693.ns2023  ---| PTR4     SX5    TRFA        FET ADDRESS
00827  M01S00085.ns2023  +++| PTR4     SX5    CRFA        FET ADDRESS
00828  M01S00694.tafrec  +++|          RJ     PRU         INITIALIZE RECOVERY UNIT
00829  M01S00695.tafrec  +++|          EQ     PTR2        NEXT TST ENTRY
00830  M01S00696.tafrec  +++|
Line S00697 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00831  M02S00697.ns2023  ---|*         THE RECOVERY FILE *TRFI* HAS BEEN REFORMATTED ONTO FILE
Line S00698 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00832  M02S00698.ns2023  ---|*         *TRFAI*.  CHANGE BOTH PERMANENT AND LOCAL FILE NAMES
Line S00699 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00833  M02S00699.ns2023  ---|*         FROM *TRFAI* TO *TRFI*.
00834  M01S00086.ns2023  +++|*         THE RECOVERY FILE *CRFI* HAS BEEN REFORMATTED ONTO FILE
00835  M01S00087.ns2023  +++|*         *CRFAI*.  CHANGE BOTH PERMANENT AND LOCAL FILE NAMES
00836  M01S00088.ns2023  +++|*         FROM *CRFAI* TO *CRFI*.
00837  M01S00700.tafrec  +++|
00838  M01S00701.tafrec  +++|
Line S00702 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00839  M02S00702.ns2023  ---| PTR5     WRITER TRFA,R      FLUSH BUFFER
Line S00703 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00840  M02S00703.ns2023  ---|          WRITER TRFA,R      WRITE END OF RECORD MARK
Line S00704 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00841  M02S00704.ns2023  ---|          REWIND TRFA,R
Line S00705 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00842  M02S00705.ns2023  ---|          PURGE  TRF         PURGE OLD TRF
Line S00706 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00843  M02S00706.ns2023  ---|          CHANGE TRFA        CHANGE NAME FROM TRFAI TO TRFI
Line S00707 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00844  M02S00707.ns2023  ---|          RENAME TRFA,CUFN   CHANGE LOCAL FILE NAME ALSO
00845  M01S00089.ns2023  +++| PTR5     WRITER CRFA,R      FLUSH BUFFER
00846  M01S00090.ns2023  +++|          WRITER CRFA,R      WRITE END OF RECORD MARK
00847  M01S00091.ns2023  +++|          REWIND CRFA,R
00848  M01S00092.ns2023  +++|          PURGE  CRF         PURGE OLD *CRF*
00849  M01S00093.ns2023  +++|          CHANGE CRFA        CHANGE NAME FROM *CRFAI* TO *CRFI*
00850  M01S00094.ns2023  +++|          RENAME CRFA,CUFN   CHANGE LOCAL FILE NAME ALSO
00851  M01S00708.tafrec  +++|
00852  M01S00709.tafrec  +++|*         REPORT RECOVERY UNIT ERRORS.
00853  M01S00710.tafrec  +++|
00854  M01S00711.tafrec  +++|          SA1    TERR
00855  M01S00712.tafrec  +++|          ZR     X1,PTRX     IF NO RECOVERY UNIT ERRORS
00856  M01S00713.tafrec  +++|          RJ     CDD         CONVERT TO DISPLAY
00857  M01S00714.tafrec  +++|          SA6    PTRI+1
00858  M01S00715.tafrec  +++|          SB2    B1+B1
00859  M01S00716.tafrec  +++|          RJ     ALC         ADVANCE LINE COUNT
00860  M01S00717.tafrec  +++|          WRITEW R,PTRI,PTRIL  REPORT NUMBER OF RECOVERY UNIT ERRORS
Line S00718 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00861  M02S00718.ns2023  ---|          REWIND TRFA,R
00862  M01S00095.ns2023  +++|          REWIND CRFA,R
00863  M01S00719.tafrec  +++|          EQ     PTRX        RETURN
00864  M01S00720.tafrec  +++|
Line S00721 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00865  M02S00721.ns2023  ---|*         REWRITE THE TRF HEADER.
00866  M01S00096.ns2023  +++|*         REWRITE THE *CRF* HEADER.
00867  M01S00722.tafrec  +++|
00868  M01S00723.tafrec  +++| PTR6     SX7    TRBUF       RESET BUFFER POINTERS
Line S00724 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00869  M02S00724.ns2023  ---|          SA7    TRF+2
00870  M01S00097.ns2023  +++|          SA7    CRF+2
00871  M01S00725.tafrec  +++|          SA7    A7+B1
Line S00726 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00872  M02S00726.ns2023  ---|          WRITEW TRF,PBUF,TRHWL  WRITE TRF HEADER
00873  M01S00098.ns2023  +++|          WRITEW CRF,PBUF,TRHWL  WRITE *CRF* HEADER
00874  M01S00727.tafrec  +++|          SX1    CIORW
00875  M01S00728.tafrec  +++|          SX2    B1          ONE PRU TO WRITE
Line S00729 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00876  M02S00729.ns2023  ---|          SX5    TRF
00877  M01S00099.ns2023  +++|          SX5    CRF
00878  M01S00730.tafrec  +++|          SX6    1           PRU ADDRESS
00879  M01S00731.tafrec  +++|          RJ     FIO         REWRITE HEADER
00880  M01S00732.tafrec  +++|          SA1    CUFN        COMPLETE SUBHEADING FOR REPORT
00881  M01S00733.tafrec  +++|          SA2    PTRE
00882  M01S00734.tafrec  +++|          SA3    A2+B1
00883  M01S00735.tafrec  +++|          BX6    X2
00884  M01S00736.tafrec  +++|          SA6    RFSH+1
00885  M01S00737.tafrec  +++|          LX1    24
00886  M01S00738.tafrec  +++|          MX0    -24
00887  M01S00739.tafrec  +++|          BX6    -X0*X1
00888  M01S00740.tafrec  +++|          BX6    X6+X3
00889  M01S00741.tafrec  +++|          SA6    A6+B1
00890  M01S00742.tafrec  +++|          SA2    PTRJ
00891  M01S00743.tafrec  +++|          BX7    X0*X1
00892  M01S00744.tafrec  +++|          BX7    X2+X7
00893  M01S00745.tafrec  +++|          SA7    A6+B1
00894  M01S00746.tafrec  +++|          SX5    DIR-RUDL
00895  M01S00747.tafrec  +++|          SA0    B0          COMMENT=RECOVERED
00896  M01S00748.tafrec  +++|
00897  M01S00749.tafrec  +++|*         REPORT RECOVERY UNITS RECOVERED.
00898  M01S00750.tafrec  +++|
00899  M01S00751.tafrec  +++| PTR7     SX5    X5+RUDL     NEXT DIRECTORY ADDRESS
00900  M01S00752.tafrec  +++|          RJ     FRL         FORMAT REPORT LINE
00901  M01S00753.tafrec  +++|          SA1    NMRU
00902  M01S00754.tafrec  +++|          SX6    X1-1        DECREMENT NUMBER OF RECOVERY UNITS
00903  M01S00755.tafrec  +++|          SA6    A1
00904  M01S00756.tafrec  +++|          NZ     X6,PTR7     IF MORE RECOVERY UNITS TO REPORT
Line S00757 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00905  M02S00757.ns2023  ---|          RECALL TRF         WAIT TRF I/O TO COMPLETE
Line S00758 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00906  M02S00758.ns2023  ---|          REWIND TRF,R
00907  M01S00100.ns2023  +++|          RECALL CRF         WAIT *CRF* I/O TO COMPLETE
00908  M01S00101.ns2023  +++|          REWIND CRF,R
00909  M01S00759.tafrec  +++|          EQ     PTRX        RETURN
00910  M01S00760.tafrec  +++|
00911  M01S00761.tafrec  +++| PTRB     CON    0           REFORMAT FLAG
00912  M01S00762.tafrec  +++| PTRC     DATA   C* CANNOT DEFINE REFORMATTED FILE - XXXXXXX.*
00913  M01S00763.tafrec  +++| PTRE     DATA   C*   RECOVERING - *
00914  M01S00764.tafrec  +++| PTRF     DATA   C* REFORMATTING - *
00915  M01S00765.tafrec  +++| PTRG     DATA   10H NORMAL
00916  M01S00766.tafrec  +++|          DATA   10H ABNORMAL
00917  M01S00767.tafrec  +++| PTRH     DATA   10HSHUTDOWN -
00918  M01S00768.tafrec  +++| PTRI     DATA   1L          BLANK LINE
00919  M01S00769.tafrec  +++|          DATA   C*         0 RECOVERY UNIT ERRORS ENCOUNTERED.*
00920  M01S00770.tafrec  +++| PTRIL    EQU    *-PTRI
00921  M01S00771.tafrec  +++| PTRJ     VFD    12/0,48/8H
00922  M01S00772.tafrec  +++| RRU      SPACE  4,25
00923  M01S00773.tafrec  +++|**        RRU - REFORMAT RECOVERY UNIT.
00924  M01S00774.tafrec  +++|*
Line S00775 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00925  M02S00775.ns2023  ---|*         COPY A RECOVERY UNIT FROM *TRFI* TO *TRFAI*.  IN THE
00926  M01S00102.ns2023  +++|*         COPY A RECOVERY UNIT FROM *CRFI* TO *CRFAI*.  IN THE
00927  M01S00776.tafrec  +++|*         PROCESS IT MAY INCREASE THE SIZE OF THE MESSAGE RECORDS OR
00928  M01S00777.tafrec  +++|*         THE NUMBER OF MESSAGES.  INFORMATION ON THE RECOVERY UNIT IS
00929  M01S00778.tafrec  +++|*         WRITTEN TO THE REPORT FILE.
00930  M01S00779.tafrec  +++|*
00931  M01S00780.tafrec  +++|*         ENTRY  (X1) = TERMINAL NAME.
00932  M01S00781.tafrec  +++|*                (X5) = DIRECTORY ENTRY ADDRESS.
Line S00782 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00933  M02S00782.ns2023  ---|*                (NUMO) = NUMBER OF MESSAGES ON OLD TRF.
Line S00783 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00934  M02S00783.ns2023  ---|*                (ADMN) = ADDITIONAL MESSAGES ON NEW TRF.
00935  M01S00103.ns2023  +++|*                (NUMO) = NUMBER OF MESSAGES ON OLD *CRF*.
00936  M01S00104.ns2023  +++|*                (ADMN) = ADDITIONAL MESSAGES ON NEW *CRF*.
00937  M01S00784.tafrec  +++|*
00938  M01S00785.tafrec  +++|*         EXIT   RECOVERY UNIT COPIED/REFORMATTED.
00939  M01S00786.tafrec  +++|*
00940  M01S00787.tafrec  +++|*         USES   X - 0, 1, 2, 3, 5, 6, 7.
00941  M01S00788.tafrec  +++|*                A - 0, 1, 2, 3, 5, 6, 7.
00942  M01S00789.tafrec  +++|*                B - 5, 6
00943  M01S00790.tafrec  +++|*
00944  M01S00791.tafrec  +++|*         CALLS  FIO, FRL, ZFB.
00945  M01S00792.tafrec  +++|*
00946  M01S00793.tafrec  +++|*         MACROS MESSAGE, RECALL, READW, WRITEW.
00947  M01S00794.tafrec  +++|
00948  M01S00795.tafrec  +++|
00949  M01S00796.tafrec  +++| RRU      SUBR               ENTRY/EXIT
Line S00797 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00950  M02S00797.ns2023  ---|          SA2    NUMO        NUMBER MESSAGES ON OLD TRF.
Line S00798 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00951  M02S00798.ns2023  ---|          SA3    ADMN        ADDITIONAL MESSAGES ON NEW TRF.
00952  M01S00105.ns2023  +++|          SA2    NUMO        NUMBER MESSAGES ON OLD *CRF*.
00953  M01S00106.ns2023  +++|          SA3    ADMN        ADDITIONAL MESSAGES ON NEW *CRF*.
00954  M01S00799.tafrec  +++|          SX6    X2+B1       INCLUDE *SECURE* MESSAGE
00955  M01S00800.tafrec  +++|          BX7    X3
00956  M01S00801.tafrec  +++|          SA6    RRUA
00957  M01S00802.tafrec  +++|          SA7    A6+B1
00958  M01S00803.tafrec  +++|          BX6    X1
00959  M01S00804.tafrec  +++|          SA6    RRUC+2
00960  M01S00805.tafrec  +++|          MESSAGE  RRUC,B1   *B-DISPLAY* MESSAGE
00961  M01S00806.tafrec  +++|          SA0    B0          COMMENT=RECOVERED
00962  M01S00807.tafrec  +++|          RJ     FRL         FORMAT REPORT LINE
00963  M01S00808.tafrec  +++|
00964  M01S00809.tafrec  +++|*         COPY RECOVERY UNIT HEADER AND TRANSACTION INPUT.
00965  M01S00810.tafrec  +++|
00966  M01S00811.tafrec  +++|          MX0    -30
00967  M01S00812.tafrec  +++|          SA1    X5+1
00968  M01S00813.tafrec  +++|          BX6    -X0*X1      PRU ADDRESS OF RECOVERY UNIT
Line S00814 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00969  M02S00814.ns2023  ---|          SX5    TRF         FET ADDRESS
00970  M01S00107.ns2023  +++|          SX5    CRF         FET ADDRESS
00971  M01S00815.tafrec  +++|          SX1    CIORD       READ
00972  M01S00816.tafrec  +++|          SX2    TRUPL+MRIPL PRU-S TO READ
00973  M01S00817.tafrec  +++|          RJ     FIO         READ RECOVERY UNIT HEADER
00974  M01S00818.tafrec  +++|          RECALL X5          WAIT I/O
00975  M01S00819.tafrec  +++|          SX7    TRBUF
00976  M01S00820.tafrec  +++|          SA7    X5+3        SET OUT=FIRST
Line S00821 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00977  M02S00821.ns2023  ---|          READW  TRF,PBUF,TRUWL+MRIWL
Line S00822 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00978  M02S00822.ns2023  ---|          WRITEW TRFA,PBUF,TRUWL+MRIWL
Line S00823 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00979  M02S00823.ns2023  ---|          SA5    WPMO        MESSGAE SIZE ON OLD TRF
00980  M01S00108.ns2023  +++|          READW  CRF,PBUF,TRUWL+MRIWL
00981  M01S00109.ns2023  +++|          WRITEW CRFA,PBUF,TRUWL+MRIWL
00982  M01S00110.ns2023  +++|          SA5    WPMO        MESSGAE SIZE ON OLD *CRF*
00983  M01S00824.tafrec  +++|
00984  M01S00825.tafrec  +++|*         COPY *SECURE* AND *RPUT* MESSAGES.
00985  M01S00826.tafrec  +++|
Line S00827 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00986  M02S00827.ns2023  ---| RRU1     RECALL TRF
Line S00828 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00987  M02S00828.ns2023  ---|          READW  TRF,PBUF,X5 COPY MESSAGE RECORD
Line S00829 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00988  M02S00829.ns2023  ---|          WRITEW TRFA,PBUF,X5
Line S00830 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00989  M02S00830.ns2023  ---|          SA1    WPMN        MESSAGE SIZE ON NEW TRF
00990  M01S00111.ns2023  +++| RRU1     RECALL CRF
00991  M01S00112.ns2023  +++|          READW  CRF,PBUF,X5 COPY MESSAGE RECORD
00992  M01S00113.ns2023  +++|          WRITEW CRFA,PBUF,X5
00993  M01S00114.ns2023  +++|          SA1    WPMN        MESSAGE SIZE ON NEW *CRF*
00994  M01S00831.tafrec  +++|          IX1    X1-X5
00995  M01S00832.tafrec  +++|          ZR     X1,RRU2     IF MESSAGE RECORD SIZE NOT INCREASED
00996  M01S00833.tafrec  +++|          SB5    PBUF
00997  M01S00834.tafrec  +++|          SB6    X1
00998  M01S00835.tafrec  +++|          RJ     ZFB         ZERO FILL BUFFER
Line S00836 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
00999  M02S00836.ns2023  ---|          WRITEW  TRFA,PBUF,X1  INCREASE MESSAGE SIZE
01000  M01S00115.ns2023  +++|          WRITEW  CRFA,PBUF,X1  INCREASE MESSAGE SIZE
01001  M01S00837.tafrec  +++| RRU2     SA1    RRUA
01002  M01S00838.tafrec  +++|          SX6    X1-1
01003  M01S00839.tafrec  +++|          SA6    A1
01004  M01S00840.tafrec  +++|          NZ     X6,RRU1     IF MORE MESSAGES TO GO
01005  M01S00841.tafrec  +++|          SA1    RRUB
01006  M01S00842.tafrec  +++|          ZR     X1,RRUX     IF NO ADDITIONAL MESSAGE RECORDS
Line S00843 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01007  M02S00843.ns2023  ---|          SA5    WPMN        SIZE OF MESSAGE ON NEW TRF
01008  M01S00116.ns2023  +++|          SA5    WPMN        SIZE OF MESSAGE ON NEW *CRF*
01009  M01S00844.tafrec  +++|          SB5    PBUF
01010  M01S00845.tafrec  +++|          SB6    X5
01011  M01S00846.tafrec  +++|          RJ     ZFB         ZERO FILL BUFFER
Line S00847 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01012  M02S00847.ns2023  ---| RRU3     WRITEW TRFA,PBUF,X5  WRITE ADDITIONAL MESSAGE RECORDS
01013  M01S00117.ns2023  +++| RRU3     WRITEW CRFA,PBUF,X5  WRITE ADDITIONAL MESSAGE RECORDS
01014  M01S00848.tafrec  +++|          SA1    RRUB
01015  M01S00849.tafrec  +++|          SX6    X1-1
01016  M01S00850.tafrec  +++|          SA6    A1
01017  M01S00851.tafrec  +++|          NZ     X6,RRU3     IF MORE MESSAGES TO ADD
01018  M01S00852.tafrec  +++|          EQ     RRUX        RETURN
01019  M01S00853.tafrec  +++|
Line S00854 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01020  M02S00854.ns2023  ---| RRUA     CON    0           NUMBER MESSAGES ON OLD TRF
Line S00855 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01021  M02S00855.ns2023  ---| RRUB     CON    0           ADDITIONAL MESSAGES ON NEW TRF
01022  M01S00118.ns2023  +++| RRUA     CON    0           NUMBER MESSAGES ON OLD *CRF*
01023  M01S00119.ns2023  +++| RRUB     CON    0           ADDITIONAL MESSAGES ON NEW *CRF*
01024  M01S00856.tafrec  +++| RRUC     DATA   30H     REFORMATTING - XXXXXXX.
01025  M01S00857.tafrec  +++| PRU      SPACE  4,20
01026  M01S00858.tafrec  +++|**        PRU - PREALLOCATE RECOVERY UNIT.
01027  M01S00859.tafrec  +++|*
Line S00860 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01028  M02S00860.ns2023  ---|*         INITIALIZE A RECOVERY UNIT ON THE TRF.  THE RECOVERY
01029  M01S00120.ns2023  +++|*         INITIALIZE A RECOVERY UNIT ON THE *CRF*.  THE RECOVERY
01030  M01S00861.tafrec  +++|*         UNIT NUMBER IS WRITTEN, FOLLOWED BY ZERO-FILLED, MESSAGE
01031  M01S00862.tafrec  +++|*         RECORDS.
01032  M01S00863.tafrec  +++|*
01033  M01S00864.tafrec  +++|*         ENTRY  (X1) = TERMINAL NAME.
01034  M01S00865.tafrec  +++|*                (X5) = FET ADDRESS.
01035  M01S00866.tafrec  +++|*                (B4) = TRANSACTION STEP.
01036  M01S00867.tafrec  +++|*                (CUID) = CURRENT ID.
01037  M01S00868.tafrec  +++|*
01038  M01S00869.tafrec  +++|*         EXIT   RECOVERY UNIT WRITTEN.
01039  M01S00870.tafrec  +++|*
01040  M01S00871.tafrec  +++|*         USES   X - 0, 1, 2, 3, 5, 6, 7.
01041  M01S00872.tafrec  +++|*                A - 0, 1, 6, 7.
01042  M01S00873.tafrec  +++|*                B - 5, 6.
01043  M01S00874.tafrec  +++|*
01044  M01S00875.tafrec  +++|*         CALLS  FRL, ZFB.
01045  M01S00876.tafrec  +++|*
01046  M01S00877.tafrec  +++|*         MACROS MESSAGE, WRITEW.
01047  M01S00878.tafrec  +++|
01048  M01S00879.tafrec  +++|
01049  M01S00880.tafrec  +++| PRU      SUBR               ENTRY/EXIT
01050  M01S00881.tafrec  +++|          SB5    PBUF
01051  M01S00882.tafrec  +++|          SB6    PBUFL
01052  M01S00883.tafrec  +++|          RJ     ZFB         ZERO FILL BUFFER
01053  M01S00884.tafrec  +++|          BX6    X1
01054  M01S00885.tafrec  +++|          SA6    PBUF+TRUNW  STORE TERMINAL NAME
01055  M01S00886.tafrec  +++|          SX7    B4
01056  M01S00887.tafrec  +++|          SA7    PBUF+TRCSW  STORE STEP
01057  M01S00888.tafrec  +++|          SA6    PRUA+2
01058  M01S00889.tafrec  +++|          SA6    PRUB        STORE IN DUMMY DIRECTORY ENTRY
01059  M01S00890.tafrec  +++|          MESSAGE  PRUA,B1   *B-DISPLAY* MESSAGE
01060  M01S00891.tafrec  +++|          WRITEW X5,PBUF,TRUWL  WRITE RECOVERY UNIT HEADER
01061  M01S00892.tafrec  +++|          BX6    X6-X6
01062  M01S00893.tafrec  +++|          SA6    PBUF
01063  M01S00894.tafrec  +++|          SA6    A6+B1
01064  M01S00895.tafrec  +++|          SA1    CUID
01065  M01S00896.tafrec  +++|          SA1    TREC+X1
01066  M01S00897.tafrec  +++|          MX0    -12
01067  M01S00898.tafrec  +++|          LX1    24
01068  M01S00899.tafrec  +++|          BX2    -X0*X1      PRU-S IN USER MESSAGE RECORD
01069  M01S00900.tafrec  +++|          LX1    12
01070  M01S00901.tafrec  +++|          BX3    -X0*X1      NUMBER OF USER MESSAGE RECORDS
01071  M01S00902.tafrec  +++|          SX3    X3+B1       INCLUDE SECURE MESSAGE
01072  M01S00903.tafrec  +++|          IX0    X3*X2       PRU-S OF MESSAGE RECORDS
01073  M01S00904.tafrec  +++|          SX0    X0+MRIPL    INCLUDE INITIAL INPUT MESSAGE
01074  M01S00905.tafrec  +++| PRU1     WRITEW X5,PBUF,64
01075  M01S00906.tafrec  +++|          SX0    X0-1
01076  M01S00907.tafrec  +++|          NZ     X0,PRU1     IF MORE TO WRITE
01077  M01S00908.tafrec  +++|          SA0    2           COMMENT=INITIALIZED
01078  M01S00909.tafrec  +++|          SX5    PRUB        DIRECTORY ENTRY ADDRESS
01079  M01S00910.tafrec  +++|          RJ     FRL         FORMAT REPORT LINE
01080  M01S00911.tafrec  +++|          EQ     PRUX        RETURN
01081  M01S00912.tafrec  +++|
01082  M01S00913.tafrec  +++| PRUA     DATA   30H     INITIALIZING - XXXXXXX.
01083  M01S00914.tafrec  +++| PRUB     BSSZ   RUDL        DUMMY DIRECTORY ENTRY
01084  M01S00915.tafrec  +++| RFH      SPACE  4,20
01085  M01S00916.tafrec  +++|**        RFH - READ FILE HEADER.
01086  M01S00917.tafrec  +++|*
Line S00918 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01087  M02S00918.ns2023  ---|*         READ THE TRF HEADER RECORD AND CHECK FOR ANY ERRORS
01088  M01S00121.ns2023  +++|*         READ THE *CRF* HEADER RECORD AND CHECK FOR ANY ERRORS
01089  M01S00919.tafrec  +++|*         WHICH WOULD PREVENT CORRECT AND CONSISTENT RECOVERY.
01090  M01S00920.tafrec  +++|*
Line S00921 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01091  M02S00921.ns2023  ---|*         ENTRY  TRF FET SET UP.
01092  M01S00122.ns2023  +++|*         ENTRY  *CRF* FET SET UP.
01093  M01S00922.tafrec  +++|*
01094  M01S00923.tafrec  +++|*         EXIT   HEADER VALIDATED.  TAF CHARACTERISTICS STORED.
01095  M01S00924.tafrec  +++|*
01096  M01S00925.tafrec  +++|*         ERROR  TO *ERR* IF I/O OR LOGICAL ERROR IN HEADER OR IF
01097  M01S00926.tafrec  +++|*                NUMBER OF MESSAGES OR MESSAGE SIZE DECREASED.
01098  M01S00927.tafrec  +++|*                (B5) = FWA OF ERROR MESSAGE.
01099  M01S00928.tafrec  +++|*
01100  M01S00929.tafrec  +++|*         USES   X - ALL.
01101  M01S00930.tafrec  +++|*                A - 1, 2, 3, 4, 6, 7.
01102  M01S00931.tafrec  +++|*                B - 2, 5.
01103  M01S00932.tafrec  +++|*
01104  M01S00933.tafrec  +++|*         CALLS  CES, FIO, SNM.
01105  M01S00934.tafrec  +++|*
01106  M01S00935.tafrec  +++|*         MACROS RECALL.
01107  M01S00936.tafrec  +++|
01108  M01S00937.tafrec  +++|
01109  M01S00938.tafrec  +++| RFH      SUBR               ENTRY/EXIT
01110  M01S00939.tafrec  +++|
Line S00940 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01111  M02S00940.ns2023  ---|*         READ TRF HEADER.
01112  M01S00123.ns2023  +++|*         READ *CRF* HEADER.
01113  M01S00941.tafrec  +++|
Line S00942 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01114  M02S00942.ns2023  ---|          SX5    TRF         FET ADDRESS
01115  M01S00124.ns2023  +++|          SX5    CRF         FET ADDRESS
01116  M01S00943.tafrec  +++|          SX1    CIORD       READ
01117  M01S00944.tafrec  +++|          SX2    B1          ONE PRU TO READ
01118  M01S00945.tafrec  +++|          SX6    B1          PRU ADDRESS
01119  M01S00946.tafrec  +++|          RJ     FIO         INITIATE READ
Line S00947 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01120  M02S00947.ns2023  ---|          RECALL X5          WAIT TRF I/O TO COMPLETE
01121  M01S00125.ns2023  +++|          RECALL X5          WAIT *CRF* I/O TO COMPLETE
01122  M01S00948.tafrec  +++|          RJ     CES         CHECK ERROR STATUS
01123  M01S00949.tafrec  +++|          SB5    RFHC
01124  M01S00950.tafrec  +++|          NZ     X1,RFH1     IF I/O ERROR
01125  M01S00951.tafrec  +++|
Line S00952 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01126  M02S00952.ns2023  ---|*         IF INVALID TRF HEADER, PRINT ERROR MESSAGE ON
Line S00126 Modification History
M01 (Added by) ns2023
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01127  M02S00126.v23l617 ---|*         IF INVALID *CRF* HEADER, PRINT ERROR MESSAGE ON
01128  M01S00006.v23l617 +++|*         IF INCORRECT *CRF* HEADER, PRINT ERROR MESSAGE ON
01129  M01S00953.tafrec  +++|*         RECOVERY REPORT AND ABORT *TAFREC*.
01130  M01S00954.tafrec  +++|
01131  M01S00955.tafrec  +++|          SA2    TRBUF+TRFIW FILE NAME FOR HEADER
01132  M01S00956.tafrec  +++|          SA1    CUFN        FILE NAME FROM RECOVER DIRECTIVE
01133  M01S00957.tafrec  +++|          BX3    X2-X1
01134  M01S00958.tafrec  +++|          NZ     X3,RFH1     IF NOT SAME
01135  M01S00959.tafrec  +++|          SA2    TRBUF+TRRSW SAVE SHUTDOWN STATUS
01136  M01S00960.tafrec  +++|          BX6    X2
01137  M01S00961.tafrec  +++|          SA6    SDST
01138  M01S00962.tafrec  +++|          SA3    CUID
01139  M01S00963.tafrec  +++|
01140  M01S00964.tafrec  +++|*         IF *RECOVER* DIRECTIVE HAS REDUCED NUMBER OF MESSAGES
01141  M01S00965.tafrec  +++|*         OR MESSAGE SIZE, PRINT ERROR ON RECOVERY REPORT AND
01142  M01S00966.tafrec  +++|*         ABORT *TAFREC*.
01143  M01S00967.tafrec  +++|
01144  M01S00968.tafrec  +++|          SA4    TREC+X3
01145  M01S00969.tafrec  +++|          MX0    TRNWN
01146  M01S00970.tafrec  +++|          LX0    TRNWS-59
Line S00971 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01147  M02S00971.ns2023  ---|          BX5    X0*X2       *MS* FROM *TRF*
01148  M01S00127.ns2023  +++|          BX5    X0*X2       *MS* FROM *CRF*
01149  M01S00972.tafrec  +++|          BX1    X0*X4       *MS* FROM RECOVER DIRECTIVE
01150  M01S00973.tafrec  +++|          IX7    X1-X5
01151  M01S00974.tafrec  +++|          SB5    RFHA
01152  M01S00975.tafrec  +++|          NG     X7,RFH1     IF *MS* HAS BEEN DECREASED
01153  M01S00976.tafrec  +++|          LX5    TRNWN-TRNWS-1
01154  M01S00977.tafrec  +++|          LX1    TRNWN-TRNWS-1
01155  M01S00978.tafrec  +++|          SX7    X5-MAXMS-1
01156  M01S00979.tafrec  +++|          SB5    RFHC
01157  M01S00980.tafrec  +++|          PL     X7,RFH1     IF LOGICAL ERROR
01158  M01S00981.tafrec  +++|          SX6    X5+TRMWL+77B
01159  M01S00982.tafrec  +++|          AX6    6           MESSAGE LENGTH IN PRU-S
01160  M01S00983.tafrec  +++|          SA6    PPMO
01161  M01S00984.tafrec  +++|          LX6    6           MESSAGE LENGTH IN WORDS ROUNDED TO N*64
01162  M01S00985.tafrec  +++|          SA6    WPMO
01163  M01S00986.tafrec  +++|          SX6    X1+TRMWL+77B
01164  M01S00987.tafrec  +++|          AX6    6
Line S00988 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01165  M02S00988.ns2023  ---|          LX6    6           SAME FOR NEW *TRF*
01166  M01S00128.ns2023  +++|          LX6    6           SAME FOR NEW *CRF*
01167  M01S00989.tafrec  +++|          SA6    WPMN
01168  M01S00990.tafrec  +++|          LX0    TRNMS-59+59-TRNWS
Line S00991 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01169  M02S00991.ns2023  ---|          BX5    X0*X2       *NM* FROM TRF
01170  M01S00129.ns2023  +++|          BX5    X0*X2       *NM* FROM *CRF*
01171  M01S00992.tafrec  +++|          BX6    X0*X4       *NM* FROM *RECOVER* DIRECTIVE
01172  M01S00993.tafrec  +++|          LX5    TRNMN-TRNMS-1
01173  M01S00994.tafrec  +++|          LX6    TRNMN-TRNMS-1
01174  M01S00995.tafrec  +++|          SX7    X5-TRMM-1
01175  M01S00996.tafrec  +++|          PL     X7,RFH1     IF LOGICAL ERROR
01176  M01S00997.tafrec  +++|          IX7    X6-X5
Line S00998 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01177  M02S00998.ns2023  ---|          SA7    ADMN        ADDITIONAL MESSAGES ON NEW TRF
01178  M01S00130.ns2023  +++|          SA7    ADMN        ADDITIONAL MESSAGES ON NEW *CRF*
01179  M01S00999.tafrec  +++|          BX6    X5
Line S01000 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01180  M02S01000.ns2023  ---|          SA6    NUMO        NUMBER OF MESSAGES ON OLD TRF
01181  M01S00131.ns2023  +++|          SA6    NUMO        NUMBER OF MESSAGES ON OLD *CRF*
01182  M01S01001.tafrec  +++|          SB5    RFHB
01183  M01S01002.tafrec  +++|          NG     X7,RFH1     IF *NM* REDUCED
01184  M01S01003.tafrec  +++|          LX0    -24
01185  M01S01004.tafrec  +++|          BX6    X0*X2       NUMBER OF RECOVERY UNITS
01186  M01S01005.tafrec  +++|          SA6    NMRU
01187  M01S01006.tafrec  +++|          EQ     RFHX        RETURN
01188  M01S01007.tafrec  +++|
Line S01008 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01189  M02S01008.ns2023  ---|*         TRF HEADER ERROR OR *RECOVER* DIRECTIVE INVALID.
Line S00132 Modification History
M01 (Added by) ns2023
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01190  M02S00132.v23l617 ---|*         *CRF* HEADER ERROR OR *RECOVER* DIRECTIVE INVALID.
01191  M01S00007.v23l617 +++|*         *CRF* HEADER ERROR OR *RECOVER* DIRECTIVE INCORRECT.
01192  M01S01009.tafrec  +++|
01193  M01S01010.tafrec  +++| RFH1     SB2    1RX
01194  M01S01011.tafrec  +++|          SA1    CUFN
01195  M01S01012.tafrec  +++|          RJ     SNM         SET NAME IN MESSAGE
01196  M01S01013.tafrec  +++|          EQ     ERR         ERROR
01197  M01S01014.tafrec  +++|
Line S01015 Modification History
M01 (Added by) tafrec
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01198  M02S01015.v23l617 ---| RFHA     DATA   C* MS REDUCTION INVALID - XXXXXXX.*
Line S01016 Modification History
M01 (Added by) tafrec
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01199  M02S01016.v23l617 ---| RFHB     DATA   C* NM REDUCTION INVALID - XXXXXXX.*
01200  M01S00008.v23l617 +++| RFHA     DATA   C* MS REDUCTION INCORRECT - XXXXXXX.*
01201  M01S00009.v23l617 +++| RFHB     DATA   C* NM REDUCTION INCORRECT - XXXXXXX.*
01202  M01S01017.tafrec  +++| RFHC     DATA   C* CRF HEADER ERROR - XXXXXXX.*
01203  M01S01018.tafrec  +++| BDR      SPACE  4,50
01204  M01S01019.tafrec  +++|**        BDR - BUILD DIRECTORY OF RECOVERY UNITS.
01205  M01S01020.tafrec  +++|*
Line S01021 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01206  M02S01021.ns2023  ---|*         READ THE TRF AND CREATE A SORTED DIRECTORY OF
01207  M01S00133.ns2023  +++|*         READ THE *CRF* AND CREATE A SORTED DIRECTORY OF
01208  M01S01022.tafrec  +++|*         RECOVERY UNITS.  THE AUTOMATIC RECOVERY BIT IS SET IN THE
01209  M01S01023.tafrec  +++|*         TST FOR EACH ACTIVE RECOVERY UNIT, IF TAF WAS
01210  M01S01024.tafrec  +++|*         SHUT DOWN ABNORMALLY.
01211  M01S01025.tafrec  +++|*
01212  M01S01026.tafrec  +++|*         DIRECTORY ENTRY FORMAT.
01213  M01S01027.tafrec  +++|*
01214  M01S01028.tafrec  +++|*T  W1    42/TERMINAL,6/ TY,12/ STEP
Figure W1

01112171829 STEP TYTERMINAL3059TERMINAL

01215  M01S01029.tafrec  +++|*T, W2    1/ I,1/ E,1/ D,1/ C,2/ ,24/ TSEQ,30/ DA
Figure W2

029 DA3053545556575859 TSEQ C D E I

01216  M01S01030.tafrec  +++|*T, W3    60/ DATE
Figure W3

029 DATE3059 DATE

01217  M01S01031.tafrec  +++|*T, W4    60/ TIME
Figure W4

029 TIME3059 TIME

01218  M01S01032.tafrec  +++|*
01219  M01S01033.tafrec  +++|*         WORD 1.
01220  M01S01034.tafrec  +++|*                TERMINAL = TERMINAL NAME.
01221  M01S01035.tafrec  +++|*                TY       = TRANSACTION TYPE.
01222  M01S01036.tafrec  +++|*                STEP     = TRANSACTION STEP.
01223  M01S01037.tafrec  +++|*
01224  M01S01038.tafrec  +++|*         WORD 2.
01225  M01S01039.tafrec  +++|*                I        = TERMINAL INACTIVE FLAG.
01226  M01S01040.tafrec  +++|*                E        = ERROR IN RECOVERY UNIT.
01227  M01S01041.tafrec  +++|*                D        = *CDCS* MAY BE USED BY THE TRANSACTION.
01228  M01S01042.tafrec  +++|*                C        = *CRM* MAY BE USED BY THE TRANSACTION.
01229  M01S01043.tafrec  +++|*                TSEQ     = TRANSACTION SEQUENCE NUMBER.
01230  M01S01044.tafrec  +++|*                DA       = RANDOM PRU ADDRESS OF RECOVERY UNIT.
01231  M01S01045.tafrec  +++|*
01232  M01S01046.tafrec  +++|*         WORD 3.
01233  M01S01047.tafrec  +++|*                DATE     = DATE OF LAST RECORDED TRANSACTION.
01234  M01S01048.tafrec  +++|*
01235  M01S01049.tafrec  +++|*         WORD 4.
01236  M01S01050.tafrec  +++|*                TIME     = TIME OF LAST RECORDED TRANSACTION.
01237  M01S01051.tafrec  +++|*
01238  M01S01052.tafrec  +++|*
Line S01053 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01239  M02S01053.ns2023  ---|*         ENTRY  (NMRU) = NUMBER OF RECOVERY UNITS ON OLD TRF.
Line S01054 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01240  M02S01054.ns2023  ---|*                (NUMO) = NUMBER OF USER MESSAGES ON OLD TRF.
Line S01055 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01241  M02S01055.ns2023  ---|*                (WPMO) = WORDS PER USER MESSAGE ON OLD TRF.
01242  M01S00134.ns2023  +++|*         ENTRY  (NMRU) = NUMBER OF RECOVERY UNITS ON OLD *CRF*.
01243  M01S00135.ns2023  +++|*                (NUMO) = NUMBER OF USER MESSAGES ON OLD *CRF*.
01244  M01S00136.ns2023  +++|*                (WPMO) = WORDS PER USER MESSAGE ON OLD *CRF*.
01245  M01S01056.tafrec  +++|*
01246  M01S01057.tafrec  +++|*         EXIT   (X6) = 0 IF REFORMAT NOT NECESSARY.
01247  M01S01058.tafrec  +++|*                (B5) = FWA OF ERROR MESSAGE IF ERROR.
01248  M01S01059.tafrec  +++|*                DIRECTORY BUILT.
01249  M01S01060.tafrec  +++|*                TO *ERR* IF I/O OR LOGICAL ERROR OR
01250  M01S01061.tafrec  +++|*                IF ACTIVE RECOVERY UNIT DELETED FROM NETWORK FILE.
01251  M01S01062.tafrec  +++|*
01252  M01S01063.tafrec  +++|*         USES   X - ALL.
01253  M01S01064.tafrec  +++|*                A - ALL.
01254  M01S01065.tafrec  +++|*                B - 2, 3, 4, 5.
01255  M01S01066.tafrec  +++|*
01256  M01S01067.tafrec  +++|*         CALLS  CES, FIO, RMR, SDR, SNM.
01257  M01S01068.tafrec  +++|*
01258  M01S01069.tafrec  +++|*         MACROS MESSAGE, RECALL.
01259  M01S01070.tafrec  +++|
01260  M01S01071.tafrec  +++|
01261  M01S01072.tafrec  +++| BDR      SUBR               ENTRY/EXIT
01262  M01S01073.tafrec  +++|          SA1    NMRU
01263  M01S01074.tafrec  +++|          SA0    X1          NUMBER OF RECOVERY UNITS
01264  M01S01075.tafrec  +++|          BX6    X6-X6       CLEAR ERROR FLAG
01265  M01S01076.tafrec  +++|          SA6    BDRE
01266  M01S01077.tafrec  +++|
01267  M01S01078.tafrec  +++|*         COMPUTE PRU-S IN RECOVERY UNIT TO READ.
01268  M01S01079.tafrec  +++|
Line S01080 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01269  M02S01080.ns2023  ---|          SA3    NUMO        NUMBER MESSGAES ON OLD TRF
Line S01081 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01270  M02S01081.ns2023  ---|          SA5    WPMO        WORDS PER MESSAGE ON OLD TRF
01271  M01S00137.ns2023  +++|          SA3    NUMO        NUMBER MESSAGES ON OLD *CRF*
01272  M01S00138.ns2023  +++|          SA5    WPMO        WORDS PER MESSAGE ON OLD *CRF*
01273  M01S01082.tafrec  +++|          BX6    X5
01274  M01S01083.tafrec  +++|          AX6    6           PRU-S PER MESSAGE
01275  M01S01084.tafrec  +++|          SX3    X3+B1       INCLUDE *SECURE* MESSAGE
01276  M01S01085.tafrec  +++|          IX6    X6*X3
01277  M01S01086.tafrec  +++|          SX6    X6+B1       INCLUDE RECOVERY UNIT HEADER
01278  M01S01087.tafrec  +++|          SX6    X6+MRIPL    INCLUDE INITIAL INPUT
01279  M01S01088.tafrec  +++|          SA6    BDRA        PRU-S PER RECOVERY UNIT
01280  M01S01089.tafrec  +++|          IX7    X3*X5       WORDS IN ALL MESSAGES
01281  M01S01090.tafrec  +++|          SX7    X7+MRIWL    INCLUDE INITIAL INPUT
01282  M01S01091.tafrec  +++|          SA7    A6+B1
01283  M01S01092.tafrec  +++|          SX7    DIR         START OF DIRECTORY
01284  M01S01093.tafrec  +++|          SA7    BDRD
Line S01094 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01285  M02S01094.ns2023  ---|          SX5    TRF
01286  M01S00139.ns2023  +++|          SX5    CRF
01287  M01S01095.tafrec  +++|          SX6    2
01288  M01S01096.tafrec  +++|          SA6    BDRC        INITIALIZE DISK ADDRESS
01289  M01S01097.tafrec  +++|
01290  M01S01098.tafrec  +++|*         READ RECOVERY UNITS.  RECOVERY UNITS BEGIN AT PRU 2.
01291  M01S01099.tafrec  +++|
01292  M01S01100.tafrec  +++| BDR1     SX2    B1+         ONE PRU TO READ
01293  M01S01101.tafrec  +++|          SX1    CIORD
01294  M01S01102.tafrec  +++|          RJ     FIO         READ RECOVERY UNIT HEADER
01295  M01S01103.tafrec  +++|          RECALL X5          WAIT I/O
01296  M01S01104.tafrec  +++|          RJ     CES
01297  M01S01105.tafrec  +++|          ZR     X1,BDR4     IF NO I/O ERROR
01298  M01S01106.tafrec  +++|
Line S01107 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01299  M02S01107.ns2023  ---|*         AN I/O ERROR OR BAD DATA HAS BEEN DETECTED ON THE TRF.
01300  M01S00140.ns2023  +++|*         AN I/O ERROR OR BAD DATA HAS BEEN DETECTED ON THE *CRF*.
01301  M01S01108.tafrec  +++|*         IF ERROR OVERRIDE HAS NOT BEEN SET, REPORT ERROR AND
01302  M01S01109.tafrec  +++|*         ABORT *TAFREC*.
01303  M01S01110.tafrec  +++|
01304  M01S01111.tafrec  +++| BDR2     SA1    OVRD
01305  M01S01112.tafrec  +++|          SA2    TERR
01306  M01S01113.tafrec  +++|          SX6    X2+B1       INCREMENT ERROR COUNT
01307  M01S01114.tafrec  +++|          SA6    A2
01308  M01S01115.tafrec  +++|          SA6    BDRE        INDICATE REFORMAT NECESSARY
01309  M01S01116.tafrec  +++|          NZ     X1,BDR11    IF ERROR OVERIDE SET
Line S01117 Modification History
M01 (Added by) tafrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
01310  M02S01117.ns2023  ---| BDR3     SB2    1RX         TRF RECOVERY UNIT ERROR
01311  M01S00141.ns2023  +++| BDR3     SB2    1RX         *CRF* RECOVERY UNIT ERROR
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/tafrec.txt ยท Last modified: by 127.0.0.1