Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.ctask +++| IDENT CTASK
00002 M01S00002.ctask +++| LCC OVERLAY(CTASK,0,0)
Line S00003 Modification History
M01 (Added by) ctask
M02 (Updated by) 253l688
Seq # *Modification Id* Act
----------------------------+
00003 M02S00003.253l688 ---| SST BEGN
00004 M01S00001.253l688 +++| SST BEGN,CMBL
00005 M01S00004.ctask +++| ENTRY CTASK
00006 M01S00005.ctask +++| SYSCOM B1
00007 M01S00006.ctask +++| CTASK TITLE CTASK - RECOVER DATA BASE OR USER TASK.
00008 M01S00007.ctask +++|*COMMENT CTASK - RECOVER DATA BASE OR USER TASK.
Line S00008 Modification History
M01 (Added by) ctask
M02 (Updated by) 281l803
Seq # *Modification Id* Act
----------------------------+
00009 M02S00008.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1980.
00010 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00011 M01S00009.ctask +++| CTASK SPACE 4,10
00012 M01S00010.ctask +++|*** CTASK - RECOVER DATA BASE OR USER TASK.
00013 M01S00011.ctask +++|*
00014 M01S00012.ctask +++|* E. D. REDIG. 80/06/11.
00015 M01S00013.ctask +++| CTASK SPACE 4,10
00016 M01S00014.ctask +++|*** *CTASK* HANDLES THE FOLLOWING RECOVERY CASES:
00017 M01S00015.ctask +++|*
00018 M01S00016.ctask +++|* 1. INTERACTIVE USERS.
00019 M01S00017.ctask +++|* 2. *BTRAN* (BATCH) USERS.
00020 M01S00018.ctask +++|* 3. *CRM* DATA BASES.
00021 M01S00019.ctask +++|* 4. TERMINAL FAILURES.
00022 M01S00020.ctask +++|*
00023 M01S00021.ctask +++|* FOR A MORE COMPLETE DESCRIPTION REFER TO THE
00024 M01S00022.ctask +++|* APPROPRIATE PROCESSOR WITHIN *CTASK*.
00025 M01S00023.ctask +++| CTASK SPACE 4,50
00026 M01S00024.ctask +++|*** DAYFILE MESSAGES ISSUED.
00027 M01S00025.ctask +++|*
00028 M01S00026.ctask +++|* ABNORMAL COMPLETION.
00029 M01S00027.ctask +++|*
00030 M01S00028.ctask +++|* * CTASK - DATA BASE OR FILE DOWN.*
00031 M01S00029.ctask +++|* THE DATA BASE, *TAF*/*CRM*, OR FILE IS DOWN ON
00032 M01S00030.ctask +++|* AN *RSTDBI* REQUEST.
00033 M01S00031.ctask +++|*
00034 M01S00032.ctask +++|* * CTASK - DATA BASE OR FILE IDLE.*
00035 M01S00033.ctask +++|* THE DATA BASE, *TAF/CRM*, OR FILE IS IDLE ON
00036 M01S00034.ctask +++|* AN *RSTDBI* REQUEST.
00037 M01S00035.ctask +++|*
00038 M01S00036.ctask +++|* * CTASK - FILE IS NOT INSTALLED.*
00039 M01S00037.ctask +++|* DATA BASE OR FILE NOT AVAILABLE IN *XXJ* FILE
00040 M01S00038.ctask +++|* ON A *CRMSTAT* REQUEST.
00041 M01S00039.ctask +++|*
Line S00040 Modification History
M01 (Added by) ctask
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
00042 M02S00040.v23l617 ---|* * CTASK - ILLEGAL RECOVERY CASE.*
00043 M01S00001.v23l617 +++|* * CTASK - INCORRECT RECOVERY CASE.*
00044 M01S00041.ctask +++|* RECOVER CASE NOT VALID.
00045 M01S00042.ctask +++|*
00046 M01S00043.ctask +++|* * CTASK - NO CRM RECOVERY FILES FOR DATA BASE.*
00047 M01S00044.ctask +++|* NO RECOVERY FILE ASSIGNED TO THE DATA BASE ON
00048 M01S00045.ctask +++|* AN *RSTDBI* REQUEST.
00049 M01S00046.ctask +++|*
00050 M01S00047.ctask +++|* * CTASK - SYSTEM IDENTIFIER UNKNOWN.*
00051 M01S00048.ctask +++|* OLD SYSTEM IDENTIFIER UNKNOWN WHEN ISSUING A
00052 M01S00049.ctask +++|* *TINVOKE* REQUEST.
00053 M01S00050.ctask +++|*
00054 M01S00051.ctask +++|* * CTASK - TABLE AREA NOT LARGE ENOUGH.*
00055 M01S00052.ctask +++|* THE TABLE AREA SUPPLIED BY *CTASK* FOR A *CRMSTAT*
00056 M01S00053.ctask +++|* REQUEST IS NOT LARGE ENOUGH.
00057 M01S00054.ctask +++|*
00058 M01S00055.ctask +++|* * CTASK - TASK LOGICAL ERROR.*
00059 M01S00056.ctask +++|* A LOGICAL ERROR OCCURRED THAT WAS NOT EXPECTED.
00060 M01S00057.ctask +++|*
00061 M01S00058.ctask +++|* * CTASK - TRANSACTION NOT RERUNNABLE.*
00062 M01S00059.ctask +++|* A TRANSACTION IS NOT RERUNNABLE AND A *RERUN*
00063 M01S00060.ctask +++|* WAS ATTEMPTED.
00064 M01S00061.ctask +++|*
00065 M01S00062.ctask +++|* * CTASK - TRMREC ERROR.*
00066 M01S00063.ctask +++|* ONE OF THE FOLLOWING OCCURRED.
00067 M01S00064.ctask +++|* 1. THERE WAS NO OUTSTANDING *DBEGIN* REQUEST.
00068 M01S00065.ctask +++|* 2. AN ERROR WAS ENCOUNTERED ON A DATA BASE OR
00069 M01S00066.ctask +++|* RECOVERY FILE.
00070 M01S00067.ctask +++|* 3. THE DATA BASE OR *TAF*/*CRM* IS DOWN.
00071 M01S00068.ctask +++|*
00072 M01S00069.ctask +++|* * CTASK - USER NOT DEFINED IN NETWORK FILE.*
00073 M01S00070.ctask +++|* THE *USER* IS NOT DEFINED IN THE *NETWORK* FILE
00074 M01S00071.ctask +++|* ON AN *SRERUN*, *TSTAT* OR *WSTAT* REQUEST.
00075 M01S00072.ctask +++|
00076 M01S00073.ctask +++|
00077 M01S00074.ctask +++|* COMMON DECKS.
00078 M01S00075.ctask +++|
00079 M01S00076.ctask +++|
00080 M01S00077.ctask +++|*CALL COMCMAC
00081 M01S00078.ctask +++|*CALL COMKTAF
00082 M01S00079.ctask +++|*CALL COMKFLD
00083 M01S00080.ctask +++|*CALL COMKIPR
00084 M01S00081.ctask +++|*CALL COMKMAC
00085 M01S00082.ctask +++|
00086 M01S00083.ctask +++|* SAVE ORIGIN COUNTER TO REMOVE COMMON DECK STORAGE IN
00087 M01S00084.ctask +++|* *COMKCBD*, *COMKCRM*, *COMKTDM*, *COMKTER*, AND *COMKTSC*.
00088 M01S00085.ctask +++|
00089 M01S00086.ctask +++| BEGN BSS 0
00090 M01S00087.ctask +++|*CALL COMKCBD
00091 M01S00088.ctask +++| LIST X
00092 M01S00089.ctask +++|*CALL COMKCRM
00093 M01S00090.ctask +++|*CALL COMKTDM
00094 M01S00091.ctask +++|*CALL COMKTER
00095 M01S00092.ctask +++|*CALL COMKTRF
00096 M01S00093.ctask +++| LIST -X
00097 M01S00094.ctask +++|*CALL COMKTSC
00098 M01S00095.ctask +++| ORG BEGN RESTORE ORIGIN COUNTER
00099 M01S00096.ctask +++| TITLE CTASK ROUTINES.
00100 M01S00097.ctask +++| CTASK SPACE 4,15
00101 M01S00098.ctask +++|*** COMMUNICATION BLOCK HEADER WORDS AND MESSAGES.
00102 M01S00099.ctask +++|*
00103 M01S00100.ctask +++|* INPUT TO *CTASK* APPEARS IN THE COMMUNICATION BLOCK.
00104 M01S00101.ctask +++|* THE INPUT IS AS FOLLOWS.
00105 M01S00102.ctask +++|*
00106 M01S00103.ctask +++|*T TMSW 60/ CASE
00107 M01S00104.ctask +++|*T, TMSW+1 60/ RECOVERY FLAG (RF)
Figure
TMSW+1
0 29 RECOVERY FLAG (RF) 30 59 RECOVERY FLAG (RF)
00108 M01S00105.ctask +++|*T, TMSW+2 60/ OLDID
00109 M01S00106.ctask +++|*T, TMSW+3 60/ NEWID
00110 M01S00107.ctask +++|*T, TMSW+4 60/ USERNAME
Figure
TMSW+4
0 29 USERNAME 30 59 USERNAME
00111 M01S00108.ctask +++|*T, TMSW+5 60/ *SRERUN* STATUS (RS)
Figure
TMSW+5
0 29 *SRERUN* STATUS (RS) 30 59 *SRERUN* STATUS (RS)
00112 M01S00109.ctask +++|*
00113 M01S00110.ctask +++|* CASE = 1 RECOVER INTERACTIVE USER.
00114 M01S00111.ctask +++|* = 2 RECOVER *BTRAN* USER.
00115 M01S00112.ctask +++|* = 3 RECOVER *CRM* DATA BASE.
00116 M01S00113.ctask +++|* = 4 RECOVER TERMINAL FAILURE.
00117 M01S00114.ctask +++|* RF BIT 59 = 1, IF *CRM* AUTOMATIC RECOVERY USED.
00118 M01S00115.ctask +++|* BIT 0 = 1, IF *TAF* AUTOMATIC RECOVERY USED.
00119 M01S00116.ctask +++|* OLDID = PREVIOUS *CRM* IDENTIFIER.
00120 M01S00117.ctask +++|* NEWID = CURRENT *CRM* IDENTIFIER.
00121 M01S00118.ctask +++|* USERNAME = ONE-TO-SEVEN CHARACTER USERNAME LEFT-JUSTIFIED
00122 M01S00119.ctask +++|* WITH BLANK FILL.
00123 M01S00120.ctask +++|* RS = 0, IF *SRERUN* SUCCESSFUL.
00124 M01S00121.ctask +++|* = 1, IF *SRERUN* NOT SUCCESSFUL.
00125 M01S00122.ctask +++|* = -1, IF DATA BASE FILE DOWN.
00126 M01S00123.ctask +++|
00127 M01S00124.ctask +++|
00128 M01S00125.ctask +++| BSS CMBL RESERVE SPACE FOR COMMUNICATION BLOCK
00129 M01S00126.ctask +++| CTASK SPACE 4,20
00130 M01S00127.ctask +++|** CTASK - RECOVER DATA BASE OR USER TASK.
00131 M01S00128.ctask +++|*
00132 M01S00129.ctask +++|* ENTRY (TMSW) = RECOVERY MESSAGE (DATA BASE OR USER).
00133 M01S00130.ctask +++|*
00134 M01S00131.ctask +++|* EXIT SPECIFIED RECOVERY CASE PROCESSED.
00135 M01S00132.ctask +++|*
Line S00133 Modification History
M01 (Added by) ctask
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
00136 M02S00133.v23l617 ---|* ERROR TO *CTA1* IF ILLEGAL CASE.
00137 M01S00002.v23l617 +++|* ERROR TO *CTA1* IF INCORRECT CASE.
00138 M01S00134.ctask +++|*
00139 M01S00135.ctask +++|* USES X - 3, 6.
00140 M01S00136.ctask +++|* A - 3.
00141 M01S00137.ctask +++|* B - 1, 2.
00142 M01S00138.ctask +++|*
00143 M01S00139.ctask +++|* CALLS RBU, RDB, RIU, RTF.
00144 M01S00140.ctask +++|*
00145 M01S00141.ctask +++|* MACROS CEASE, SCALL.
00146 M01S00142.ctask +++|
00147 M01S00143.ctask +++|
00148 M01S00144.ctask +++| CTASK SB1 1
00149 M01S00145.ctask +++| SA3 TMSW GET RECOVER CASE
00150 M01S00146.ctask +++| LX3 -1
00151 M01S00147.ctask +++| SX6 X3-TCTAL
00152 M01S00148.ctask +++| SB2 X3
Line S00149 Modification History
M01 (Added by) ctask
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
00153 M02S00149.v23l617 ---| PL X6,CTA1 IF ILLEGAL RECOVERY CASE.
00154 M01S00003.v23l617 +++| PL X6,CTA1 IF INCORRECT RECOVERY CASE.
00155 M01S00150.ctask +++| JP B2+TCTA JUMP THRU TABLE
00156 M01S00151.ctask +++|
00157 M01S00152.ctask +++| TCTA PL X3,CTA1 UNUSED CASE
00158 M01S00153.ctask +++| EQ RIU RECOVER INTERACTIVE USER
00159 M01S00154.ctask +++| PL X3,RBU RECOVER *BTRAN* USER
00160 M01S00155.ctask +++| EQ RDB RECOVER *CRM* DATA BASE
00161 M01S00156.ctask +++| PL X3,RTF RECOVER TERMINAL FAILURE
Line S00157 Modification History
M01 (Added by) ctask
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
00162 M02S00157.v23l617 ---| EQ CTA1 ILLEGAL RECOVERY CASE
00163 M01S00004.v23l617 +++| EQ CTA1 INCORRECT RECOVERY CASE
00164 M01S00158.ctask +++| TCTAL EQU *-TCTA LENGTH OF *CTASK* JUMP TABLE
00165 M01S00159.ctask +++|
00166 M01S00160.ctask +++|* THE PROCESSORS *RIU*, *RBU*, *RDB*, AND *RTF*
00167 M01S00161.ctask +++|* RETURN TO THE CODE BELOW TO TERMINATE PROCESSING.
00168 M01S00162.ctask +++|
Line S00163 Modification History
M01 (Added by) ctask
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
00169 M02S00163.v23l617 ---| CTA1 SX3 CTAD ILLEGAL RECOVERY CASE
00170 M01S00005.v23l617 +++| CTA1 SX3 CTAD INCORRECT RECOVERY CASE
00171 M01S00164.ctask +++| CTA2 SA3 X3
00172 M01S00165.ctask +++| AX3 18
00173 M01S00166.ctask +++| SCALL TMSG,(X3,A3) SEND DAYFILE MESSAGE
00174 M01S00167.ctask +++| CTA3 CEASE EXIT TASK WITH CEASE
00175 M01S00168.ctask +++|
00176 M01S00169.ctask +++| CTA4 SA3 X3
00177 M01S00170.ctask +++| AX3 18
00178 M01S00171.ctask +++| SCALL TMSG,(X3,A3) SEND DAYFILE MESSAGE
00179 M01S00172.ctask +++| CTA5 CEASE 2 ABNORMAL CEASE WITH MEMORY DUMP
00180 M01S00173.ctask +++|
00181 M01S00174.ctask +++|* DAYFILE MESSAGES.
00182 M01S00175.ctask +++|
00183 M01S00176.ctask +++| CTAAM DATA C* CTASK - DATA BASE OR FILE DOWN.*
00184 M01S00177.ctask +++| CTAA VFD 42/CTAAM,18/**10-CTAAM*10
00185 M01S00178.ctask +++| CTACM DATA C* CTASK - FILE IS NOT INSTALLED.*
00186 M01S00179.ctask +++| CTAC VFD 42/CTACM,18/**10-CTACM*10
Line S00180 Modification History
M01 (Added by) ctask
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
00187 M02S00180.v23l617 ---| CTADM DATA C* CTASK - ILLEGAL RECOVERY CASE.*
00188 M01S00006.v23l617 +++| CTADM DATA C* CTASK - INCORRECT RECOVERY CASE.*
00189 M01S00181.ctask +++| CTAD VFD 42/CTADM,18/**10-CTADM*10
00190 M01S00182.ctask +++| CTAEM DATA C* CTASK - NO CRM RECOVERY FILES FOR DATA BASE.*
00191 M01S00183.ctask +++| CTAE VFD 42/CTAEM,18/**10-CTAEM*10
00192 M01S00184.ctask +++| CTAFM DATA C* CTASK - SYSTEM IDENTIFIER UNKNOWN.*
00193 M01S00185.ctask +++| CTAF VFD 42/CTAFM,18/**10-CTAFM*10
00194 M01S00186.ctask +++| CTAGM DATA C* CTASK - TABLE AREA NOT LARGE ENOUGH.*
00195 M01S00187.ctask +++| CTAG VFD 42/CTAGM,18/**10-CTAGM*10
00196 M01S00188.ctask +++| CTAHM DATA C* CTASK - TASK LOGICAL ERROR.*
00197 M01S00189.ctask +++| CTAH VFD 42/CTAHM,18/**10-CTAHM*10
00198 M01S00190.ctask +++| CTAIM DATA C* CTASK - TRANSACTION NOT RERUNNABLE.*
00199 M01S00191.ctask +++| CTAI VFD 42/CTAIM,18/**10-CTAIM*10
00200 M01S00192.ctask +++| CTAJM DATA C* CTASK - TRMREC ERROR.*
00201 M01S00193.ctask +++| CTAJ VFD 42/CTAJM,18/**10-CTAJM*10
00202 M01S00194.ctask +++| CTAKM DATA C* CTASK - USER NOT DEFINED IN NETWORK FILE.*
00203 M01S00195.ctask +++| CTAK VFD 42/CTAKM,18/**10-CTAKM*10
00204 M01S00196.ctask +++| CTALM DATA C* CTASK - DATA BASE OR FILE IDLE.*
00205 M01S00197.ctask +++| CTAL VFD 42/CTALM,18/**10-CTALM*10
00206 M01S00198.ctask +++| CTASK SPACE 4,35
00207 M01S00199.ctask +++|** RIU - RECOVER INTERACTIVE USER.
00208 M01S00200.ctask +++|*
00209 M01S00201.ctask +++|* TO RECOVER AN INTERACTIVE USER A *TINVOKE* REQUEST IS
00210 M01S00202.ctask +++|* ISSUED USING ONLY THE *NEW-SYS-ID* PARAMETER. THIS
00211 M01S00203.ctask +++|* RETURNS A NEW SYSTEM IDENTIFIER (TRANSACTION SEQUENCE
00212 M01S00204.ctask +++|* NUMBER) TO BE USED FOR ALL TASKS IN THE RECOVERY UNIT.
00213 M01S00205.ctask +++|*
00214 M01S00206.ctask +++|* NEXT, AN *RSTDBI* REQUEST IS USED TO RESTORE THE
00215 M01S00207.ctask +++|* BEGIN IDENTIFIERS TO *CRM* FOR A RECOVERED TRANSACTION.
00216 M01S00208.ctask +++|*
00217 M01S00209.ctask +++|* THEN, AN *SRERUN* REQUEST IS ISSUED TO CAUSE THE INITIAL
00218 M01S00210.ctask +++|* TERMINAL INPUT FOR A RERUNNABLE TRANSACTION TO BE
00219 M01S00211.ctask +++|* RESUBMITTED TO THE TRANSACTION SYSTEM.
00220 M01S00212.ctask +++|*
00221 M01S00213.ctask +++|* FINALLY, A *RECOVERY, RERUNNING TRANSACTION.* MESSAGE IS
00222 M01S00214.ctask +++|* SENT TO THE ORIGINATING TERMINAL. WHEN *CTASK* CEASES,
00223 M01S00215.ctask +++|* *ITASK* IS CALLED AS IF THE INPUT CAME FROM THE TERMINAL.
00224 M01S00216.ctask +++|*
00225 M01S00217.ctask +++|* ENTRY RECOVER INTERACTIVE USER CASE SELECTED.
00226 M01S00218.ctask +++|* (TMSW+1) = RECOVERY FLAG.
00227 M01S00219.ctask +++|*
00228 M01S00220.ctask +++|* EXIT TO *CTA3* FOR CEASE.
00229 M01S00221.ctask +++|* (TMSW+5) = 0, IF *SRERUN* SUCCESSFUL.
00230 M01S00222.ctask +++|* = 1, IF *SRERUN* NOT SUCCESSFUL.
00231 M01S00223.ctask +++|* = -1, IF DATA BASE FILE DOWN.
00232 M01S00224.ctask +++|*
00233 M01S00225.ctask +++|* ERROR (X3) = FWA OF DAYFILE MESSAGE PARAMETERS.
00234 M01S00226.ctask +++|* (TMSW+5) = *SRERUN* STATUS.
00235 M01S00227.ctask +++|* TO *CTA2* IF ERROR AND NORMAL CEASE.
00236 M01S00228.ctask +++|* TO *CTA4* IF ERROR AND ABNORMAL CEASE.
00237 M01S00229.ctask +++|*
00238 M01S00230.ctask +++|* USES X - 2, 3, 4, 6.
00239 M01S00231.ctask +++|* A - 2, 3, 6.
00240 M01S00232.ctask +++|*
00241 M01S00233.ctask +++|* CALLS RID.
00242 M01S00234.ctask +++|*
00243 M01S00235.ctask +++|* MACROS SCALL, TRMREC.
00244 M01S00236.ctask +++|
00245 M01S00237.ctask +++|
00246 M01S00238.ctask +++| RIU SA2 TMSW+1 GET RECOVERY FLAG
00247 M01S00239.ctask +++| SX3 B0
00248 M01S00240.ctask +++| SX6 B1
00249 M01S00241.ctask +++| PL X2,RIU1 IF NO *CRM* RECOVERY
00250 M01S00242.ctask +++|
00251 M01S00243.ctask +++|* ISSUE *TINVOKE* USING *NEW-ID* TO GET NEW SEQUENCE NUMBER.
00252 M01S00244.ctask +++|
00253 M01S00245.ctask +++| SCALL TINVOKE,(RIUC,RIUD)
00254 M01S00246.ctask +++| SA2 RIUC GET STATUS OF REQUEST
00255 M01S00247.ctask +++| SX3 CTAH TASK LOGICAL ERROR
00256 M01S00248.ctask +++| SX4 X2-TSNE NO ERRORS STATUS
00257 M01S00249.ctask +++| SX6 B1+
00258 M01S00250.ctask +++| NZ X4,RIU2 IF ERRORS IN *TINVOKE*
00259 M01S00251.ctask +++|
00260 M01S00252.ctask +++|* RETURN BEGIN-COMMIT HISTORY TO *CRM* WITH *RSTDBI*.
00261 M01S00253.ctask +++|
00262 M01S00254.ctask +++| RJ RID RESTORE DATA BASE IDENTIFIERS
00263 M01S00255.ctask +++| SX3 CTAE RECOVERY FILE NOT ASSIGNED TO DATA BASE
00264 M01S00256.ctask +++| SX4 X2-TERAF
00265 M01S00257.ctask +++| SX6 B1+
00266 M01S00258.ctask +++| ZR X4,RIU2 IF NO RECOVERY FILE FOR DATA BASE
00267 M01S00259.ctask +++| SX3 CTAA DATA BASE OR FILE DOWN
00268 M01S00260.ctask +++| SX4 X2-TERAK
00269 M01S00261.ctask +++| SX6 -1
00270 M01S00262.ctask +++| ZR X4,RIU2 IF DATA BASE OR FILE DOWN
00271 M01S00263.ctask +++| SX3 CTAL DATA BASE OR FILE IDLE
00272 M01S00264.ctask +++| SX4 X2-TERAG
00273 M01S00265.ctask +++| ZR X4,RIU2 IF DATA BASE OR FILE IDLE
00274 M01S00266.ctask +++| SX3 CTAH TASK LOGICAL ERROR
00275 M01S00267.ctask +++| SX6 B1+
00276 M01S00268.ctask +++| NZ X2,RIU2 IF REQUEST NOT SUCCESSFUL
00277 M01S00269.ctask +++| SX4 B0+
00278 M01S00270.ctask +++| SX3 B0+
00279 M01S00271.ctask +++| RIU1 SA2 TMSW+1 GET RECOVERY FLAG
00280 M01S00272.ctask +++| SX2 X2+
00281 M01S00273.ctask +++| ZR X2,RIU2 IF NO *TAF* AUTOMATIC RECOVERY
00282 M01S00274.ctask +++|
00283 M01S00275.ctask +++|* ISSUE *SRERUN* REQUEST TO RERUN TRANSACTION.
00284 M01S00276.ctask +++|
00285 M01S00277.ctask +++| SCALL SRERUN,(RIUB)
00286 M01S00278.ctask +++| SA2 RIUB GET STATUS OF REQUEST
00287 M01S00279.ctask +++| SX3 CTAI TRANSACTION NOT RERUNNABLE
00288 M01S00280.ctask +++| SX4 X2-TSNO
00289 M01S00281.ctask +++| SX6 B1+
00290 M01S00282.ctask +++| ZR X4,RIU2 IF TRANSACTION NOT RERUNNABLE
00291 M01S00283.ctask +++| SX3 CTAK USER NOT DEFINED IN NETWORK FILE
00292 M01S00284.ctask +++| SX4 X2-TSUU
00293 M01S00285.ctask +++| ZR X4,RIU2 IF USER UNKNOWN
00294 M01S00286.ctask +++| SX3 CTAH TASK LOGICAL ERROR
00295 M01S00287.ctask +++| SX4 X2-TSNE NO ERRORS STATUS
00296 M01S00288.ctask +++| NZ X4,RIU2 IF ERRORS IN *SRERUN*
00297 M01S00289.ctask +++| SX6 B0+
00298 M01S00290.ctask +++| SA6 TMSW+5 STORE *RERUN* SUCCESSFUL
00299 M01S00291.ctask +++| EQ CTA3 CEASE
00300 M01S00292.ctask +++|
00301 M01S00293.ctask +++| RIU2 SA6 TMSW+5 STORE *SRERUN* NOT SUCCESSFUL
00302 M01S00294.ctask +++| SX6 X4
00303 M01S00295.ctask +++| SA6 A6+B1 STORE CEASE TYPE
00304 M01S00296.ctask +++| SX6 X3
00305 M01S00297.ctask +++| SA6 A6+B1 STORE DAYFILE MESSAGE
00306 M01S00298.ctask +++| SA2 TMSW+5
00307 M01S00299.ctask +++| NG X2,RIU3 IF FILE DOWN OR IDLE
00308 M01S00300.ctask +++| SA2 TMSW+1 GET RECOVERY FLAG
00309 M01S00301.ctask +++| PL X2,RIU3 IF NO *CRM* RECOVERY
00310 M01S00302.ctask +++|
00311 M01S00303.ctask +++|* ISSUE *TRMREC* REQUEST TO CLEAR *CRM* TABLES ON ERROR.
00312 M01S00304.ctask +++|
00313 M01S00305.ctask +++| TRMREC RIUE
00314 M01S00306.ctask +++| SA2 RIUG GET STATUS OF REQUEST
00315 M01S00307.ctask +++| SX3 CTAJ *TRMREC* ERROR
00316 M01S00308.ctask +++| NZ X2,CTA2 IF REQUEST NOT SUCCESSFUL
00317 M01S00309.ctask +++| RIU3 SA3 TMSW+7 GET DAYFILE MESSAGE
00318 M01S00310.ctask +++| ZR X3,CTA3 IF NO MESSAGE THEN CEASE
00319 M01S00311.ctask +++| SA2 TMSW+6 GET CEASE TYPE
00320 M01S00312.ctask +++| ZR X2,CTA2 IF ERROR WITH NORMAL CEASE
00321 M01S00313.ctask +++| EQ CTA4 ERROR WITH ABNORMAL CEASE
00322 M01S00314.ctask +++|
00323 M01S00315.ctask +++|* *SRERUN* REQUEST PARAMETER.
00324 M01S00316.ctask +++|
00325 M01S00317.ctask +++| RIUB CON 0 STATUS OF REQUEST
00326 M01S00318.ctask +++|
00327 M01S00319.ctask +++|* *TINVOKE* REQUEST PARAMETERS.
00328 M01S00320.ctask +++|
00329 M01S00321.ctask +++| RIUC CON 0 STATUS OF REQUEST
00330 M01S00322.ctask +++| RIUD CON 0 NEW SYSTEM IDENTIFIER
00331 M01S00323.ctask +++|
00332 M01S00324.ctask +++|* *TRMREC* REQUEST PARAMETERS.
00333 M01S00325.ctask +++|
00334 M01S00326.ctask +++| RIUE VFD 42/0,18/RIUF
00335 M01S00327.ctask +++| VFD 42/0,18/RIUG
00336 M01S00328.ctask +++| CON 0
00337 M01S00329.ctask +++|
00338 M01S00330.ctask +++| RIUF CON 0 ZERO WORD
00339 M01S00331.ctask +++| RIUG CON 0 STATUS OF REQUEST
00340 M01S00332.ctask +++| CTASK SPACE 4,30
00341 M01S00333.ctask +++|** RBU - RECOVER *BTRAN* USER.
00342 M01S00334.ctask +++|*
00343 M01S00335.ctask +++|* TO RECOVER A *BTRAN* USER A *TINVOKE* REQUEST IS ISSUED
00344 M01S00336.ctask +++|* USING ONLY THE *NEW-SYS-ID* PARAMETER. THIS RETURNS A
00345 M01S00337.ctask +++|* NEW SYSTEM IDENTIFIER (TRANSACTION SEQUENCE NUMBER) TO
00346 M01S00338.ctask +++|* BE USED FOR ALL TASKS IN THE RECOVERY UNIT.
00347 M01S00339.ctask +++|*
00348 M01S00340.ctask +++|* THEN AN *RSTDBI* REQUEST IS USED TO RESTORE THE BEGIN
00349 M01S00341.ctask +++|* IDENTIFIERS TO *CRM* FOR A RECOVERED TRANSACTION.
00350 M01S00342.ctask +++|*
00351 M01S00343.ctask +++|* FINALLY, AN *SRERUN* REQUEST IS USED TO CAUSE THE INITIAL
00352 M01S00344.ctask +++|* INPUT FOR A RERUNNABLE TRANSACTION TO BE RESUBMITTED TO
00353 M01S00345.ctask +++|* THE TRANSACTION SYSTEM. THIS PROCESS CAUSES *ITASK* TO
00354 M01S00346.ctask +++|* BE CALLED JUST AS IF THE INPUT CAME FROM THE TERMINAL.
00355 M01S00347.ctask +++|*
00356 M01S00348.ctask +++|* ENTRY RECOVER *BTRAN* USER CASE SELECTED.
00357 M01S00349.ctask +++|* (TMSW+1) = RECOVERY FLAG.
00358 M01S00350.ctask +++|* (TMSW+4) = USERNAME.
00359 M01S00351.ctask +++|*
00360 M01S00352.ctask +++|* EXIT TO *CTA3* FOR CEASE.
00361 M01S00353.ctask +++|*
00362 M01S00354.ctask +++|* ERROR (X7) = FWA OF DAYFILE MESSAGE PARAMETERS.
00363 M01S00355.ctask +++|* TO *CTA2* IF ERROR AND NORMAL CEASE.
00364 M01S00356.ctask +++|* TO *CTA4* IF ERROR AND ABNORMAL CEASE.
00365 M01S00357.ctask +++|*
00366 M01S00358.ctask +++|* USES X - 2, 3, 4, 6.
00367 M01S00359.ctask +++|* A - 2, 6.
00368 M01S00360.ctask +++|*
00369 M01S00361.ctask +++|* CALLS RID.
00370 M01S00362.ctask +++|*
00371 M01S00363.ctask +++|* MACROS SCALL.
00372 M01S00364.ctask +++|
00373 M01S00365.ctask +++|
00374 M01S00366.ctask +++| RBU SA2 TMSW+1 GET RECOVERY FLAG
00375 M01S00367.ctask +++| PL X1,RBU1 IF NO *CRM* RECOVERY
00376 M01S00368.ctask +++|
00377 M01S00369.ctask +++|* ISSUE *TINVOKE* USING *NEW-ID* TO GET NEW SEQUENCE NUMBER.
00378 M01S00370.ctask +++|
00379 M01S00371.ctask +++| SCALL TINVOKE,(RBUC,RBUD)
00380 M01S00372.ctask +++| SA2 RBUC GET STATUS OF REQUEST
00381 M01S00373.ctask +++| SX3 CTAH TASK LOGICAL ERROR
00382 M01S00374.ctask +++| SX4 X2-TSNE NO ERRORS STATUS
00383 M01S00375.ctask +++| NZ X4,CTA4 IF ERRORS IN *TINVOKE*
00384 M01S00376.ctask +++|
00385 M01S00377.ctask +++|* RETURN BEGIN-COMMIT HISTORY TO *CRM* WITH *RSTDBI*.
00386 M01S00378.ctask +++|
00387 M01S00379.ctask +++| RJ RID RESTORE DATA BASE IDENTIFIERS
00388 M01S00380.ctask +++| SX3 CTAE RECOVERY FILE NOT ASSIGNED TO DATA BASE
00389 M01S00381.ctask +++| SX4 X2-TERAF
00390 M01S00382.ctask +++| ZR X4,CTA2 IF NO RECOVERY FILE FOR DATA BASE
00391 M01S00383.ctask +++| SX3 CTAA DATA BASE OR FILE DOWN
00392 M01S00384.ctask +++| SX4 X2-TERAK
00393 M01S00385.ctask +++| ZR X4,CTA2 IF DATA BASE OR FILE DOWN
00394 M01S00386.ctask +++| SX3 CTAL DATA BASE OR FILE IDLE
00395 M01S00387.ctask +++| SX4 X2-TERAG
00396 M01S00388.ctask +++| ZR X4,CTA2 IF DATA BASE OR FILE IDLE
00397 M01S00389.ctask +++| SX3 CTAH TASK LOGICAL ERROR
00398 M01S00390.ctask +++| NZ X2,CTA4 IF REQUEST NOT SUCCESSFUL
00399 M01S00391.ctask +++| RBU1 SA2 TMSW+1 GET RECOVERY FLAG
00400 M01S00392.ctask +++| SX2 X2+
00401 M01S00393.ctask +++| ZR X2,CTA3 IF NO *TAF* AUTOMATIC RECOVERY
00402 M01S00394.ctask +++|
00403 M01S00395.ctask +++|* ISSUE *SRERUN* REQUEST TO RERUN TRANSACTION USING USERNAME.
00404 M01S00396.ctask +++|
00405 M01S00397.ctask +++| SCALL SRERUN,(RBUA,TMSW+4)
00406 M01S00398.ctask +++| SA2 RBUA GET STATUS OF REQUEST
00407 M01S00399.ctask +++| SX3 CTAI TRANSACTON NOT RERUNNABLE
00408 M01S00400.ctask +++| SX4 X2-TSNO
00409 M01S00401.ctask +++| ZR X4,CTA2 IF TRANSACTION NOT RERUNNABLE
00410 M01S00402.ctask +++| SX3 CTAH TASK LOGICAL ERROR
00411 M01S00403.ctask +++| SX4 X2-TSNE NO ERRORS STATUS
00412 M01S00404.ctask +++| NZ X4,CTA4 IF ERRORS IN *RERUN*
00413 M01S00405.ctask +++| EQ CTA3 CEASE
00414 M01S00406.ctask +++|
00415 M01S00407.ctask +++|* *SRERUN* REQUEST PARAMETER.
00416 M01S00408.ctask +++|
00417 M01S00409.ctask +++| RBUA CON 0 STATUS OF REQUEST
00418 M01S00410.ctask +++|
00419 M01S00411.ctask +++|* *TINVOKE* REQUEST PARAMETERS.
00420 M01S00412.ctask +++|
00421 M01S00413.ctask +++| RBUC CON 0 STATUS OF REQUEST
00422 M01S00414.ctask +++| RBUD CON 0 NEW SYSTEM IDENTIFIER
00423 M01S00415.ctask +++| CTASK SPACE 4,50
00424 M01S00416.ctask +++|** RDB - RECOVER *CRM* DATA BASE.
00425 M01S00417.ctask +++|*
00426 M01S00418.ctask +++|* TO RECOVER THE *CRM* DATA BASE A *TAF* *CRM* REQUEST
00427 M01S00419.ctask +++|* *CRMSTAT* IS USED TO RETURN THE BEGIN-COMMIT HISTORY.
00428 M01S00420.ctask +++|* THIS INFORMATION IS PRIMARILY THE TRANSACTION SEQUENCE
00429 M01S00421.ctask +++|* TABLE (TSEQ) IN ITS ENTIRITY AS IT EXITS AT THE TIME
00430 M01S00422.ctask +++|* THE REQUEST IS PROCESSED. THE TABLE IS DEFINED WITH
00431 M01S00423.ctask +++|* *FIELD* MACROS IN *COMKCRM*. THIS DECK ALSO DEFINES
00432 M01S00424.ctask +++|* THE LENGTH OF EACH ENTRY OF THIS TABLE (TSEQE SYMBOL).
00433 M01S00425.ctask +++|* THE NUMBER OF ENTRIES IN THIS TABLE IS *CMDM*, WHICH
00434 M01S00426.ctask +++|* IS AN INSTALLATION PARAMETER DEFINED IN *COMKIPR*.
00435 M01S00427.ctask +++|* THE FIRST WORD OF EACH ENTRY OF THIS TABLE IS ZERO IF
00436 M01S00428.ctask +++|* THE ENTRY DOES NOT CONTAIN A TRANSACTION ENTRY.
00437 M01S00429.ctask +++|*
00438 M01S00430.ctask +++|* WITH THE INFORMATION IN THE *CRMSTAT* TABLE, RECOVERY
00439 M01S00431.ctask +++|* PROCESSING IS INITIATED. SUBROUTINE *RBC* HANDLES THE
00440 M01S00432.ctask +++|* PROCESSING BY CHECKING THE TRANSACTION SEQUENCE NUMBER OF
00441 M01S00433.ctask +++|* EACH ENTRY IN THE *CRMSTAT* TABLE AGAINST THE *TAF* RECOVERY
00442 M01S00434.ctask +++|* FILE. WHEN A MATCH IS FOUND, THE BEGIN IDENTIFIERS FROM
00443 M01S00435.ctask +++|* THE *CRMSTAT* TABLE ARE USED AS INPUT PARAMETERS INTO
00444 M01S00436.ctask +++|* THE APPROPRIATE PARAMETERS IN *WSTAT*. THEN A *WSTAT*
00445 M01S00437.ctask +++|* REQUEST IS ISSUED TO RECORD THE BEGIN-COMMIT HISTORY ON
00446 M01S00438.ctask +++|* THE *TAF* RECOVERY FILE. SUBROUTINE *CSN* COMPARES THE
00447 M01S00439.ctask +++|* TRANSACTION SEQUENCE NUMBERS FROM THE *TAF* RECOVERY FILE
00448 M01S00440.ctask +++|* AND THE *CRMSTAT* TABLE.
00449 M01S00441.ctask +++|*
00450 M01S00442.ctask +++|* WHEN RECOVERY PROCESSING IS COMPLETE, ROLL BACK PRO-
00451 M01S00443.ctask +++|* CESSING IS INITIATED. SUBROUTINE *RDC* HANDLES THE ROLL
00452 M01S00444.ctask +++|* BACK PROCESSING BY USING THE TRANSACTION SEQUENCE NUMBER OF
00453 M01S00445.ctask +++|* EACH *CRMSTAT* ENTRY AS THE *OLD-SYS-ID* ON THE *TINVOKE*
00454 M01S00446.ctask +++|* REQUEST. THIS WOULD ESTABLISH THE TASK/JOB AS A CONTIN-
00455 M01S00447.ctask +++|* UATION OF A PREVIOUS ONE FOR THE PURPOSE OF ISSUING A TRMREC
00456 M01S00448.ctask +++|* REQUEST TO ROLL BACK THE DATA TO A CONSISTENT STATE.
00457 M01S00449.ctask +++|*
00458 M01S00450.ctask +++|* WITH THE SUCCESSFUL COMPLETION OF ROLL BACK PROCESSING,
00459 M01S00451.ctask +++|* *BTASK* IS CALLED TO RECOVER *BTRAN* TRANSACTIONS. UPON
00460 M01S00452.ctask +++|* THE COMPLETION OF *BTASK*, A *WSTAT* REQUEST IS ISSUED
00461 M01S00453.ctask +++|* TO START INPUT TO TAF AND DATA BASE RECOVERY IS COMPLETE.
00462 M01S00454.ctask +++|*
00463 M01S00455.ctask +++|* ENTRY RECOVER *CRM* DATA BASE CASE SELECTED.
00464 M01S00456.ctask +++|* (TMSW+1) = RECOVERY FLAG.
00465 M01S00457.ctask +++|*
00466 M01S00458.ctask +++|* EXIT TO *CTA3* FOR NORMAL CEASE.
00467 M01S00459.ctask +++|* TO *CTA5* FOR ABNORMAL CEASE.
00468 M01S00460.ctask +++|*
00469 M01S00461.ctask +++|* ERROR APPROPRIATE ERROR MESSAGE ISSUED TO DAYFILE.
00470 M01S00462.ctask +++|* TO *CTA4* IF NOT SYSTEM ORIGIN TRANSACTION.
00471 M01S00463.ctask +++|*
00472 M01S00464.ctask +++|* USES X - 2, 3, 4, 6, 7.
00473 M01S00465.ctask +++|* A - 2, 6.
00474 M01S00466.ctask +++|*
00475 M01S00467.ctask +++|* CALLS RBC, RDC.
00476 M01S00468.ctask +++|*
00477 M01S00469.ctask +++|* MACROS CALLRTN, CRMSTAT, SCALL.
00478 M01S00470.ctask +++|
00479 M01S00471.ctask +++|
00480 M01S00472.ctask +++| RDB SA2 TNAM
00481 M01S00473.ctask +++| SX3 -CTAH TASK LOGICAL ERROR
00482 M01S00474.ctask +++| LX2 59-CBSYS
00483 M01S00475.ctask +++| PL X2,CTA4 IF NOT SYSTEM ORIGIN TRANSACTION
00484 M01S00476.ctask +++| SX6 B0
00485 M01S00477.ctask +++| SA2 TMSW+1 GET RECOVERY FLAG
00486 M01S00478.ctask +++| SA6 RDBM INITIALIZE NORMAL CEASE
00487 M01S00479.ctask +++| PL X2,RDB4 IF NO *CRM* RECOVERY
00488 M01S00480.ctask +++|
00489 M01S00481.ctask +++|* ISSUE *CRMSTAT* REQUEST TO GET BEGIN-COMMIT HISTORY.
00490 M01S00482.ctask +++|
00491 M01S00483.ctask +++| CRMSTAT RDBD
00492 M01S00484.ctask +++| SA2 RDBF GET STATUS OF REQUEST
00493 M01S00485.ctask +++| SX3 CTAC FILE IS NOT INSTALLED
00494 M01S00486.ctask +++| SX4 X2-TERB
00495 M01S00487.ctask +++| ZR X4,RDB2 IF FILE IS NOT INSTALLED
00496 M01S00488.ctask +++| SX3 CTAG TABLE AREA NOT LARGE ENOUGH
00497 M01S00489.ctask +++| SX4 X2-TERAN
00498 M01S00490.ctask +++| ZR X4,RDB2 IF TABLE AREA NOT LARGE ENOUGH
00499 M01S00491.ctask +++| SX3 -CTAH TASK LOGICAL ERROR
00500 M01S00492.ctask +++| NZ X2,RDB2 IF REQUEST NOT SUCCESSFUL
00501 M01S00493.ctask +++| SA2 TMSW+1 GET RECOVERY FLAG
00502 M01S00494.ctask +++| SX2 X2
00503 M01S00495.ctask +++| ZR X2,RDB1 IF NO *TAF* AUTOMATIC RECOVERY
00504 M01S00496.ctask +++| SX6 B1
00505 M01S00497.ctask +++| SA6 RDBN RECOVERY PROCESSING NOT COMPLETE
00506 M01S00498.ctask +++|
00507 M01S00499.ctask +++|* RECOVER *TAF* *CRM* DATA BASE BEGIN-COMMIT HISTORY.
00508 M01S00500.ctask +++|
00509 M01S00501.ctask +++| RJ RBC RECOVER BEGIN-COMMIT HISTORY
00510 M01S00502.ctask +++| SA2 RDBN
00511 M01S00503.ctask +++| NZ X2,RDB2 IF RECOVERY PROCESSING NOT COMPLETE
00512 M01S00504.ctask +++| RDB1 SX6 B0+
00513 M01S00505.ctask +++| SA6 RDBL INITIALIZE *TRMREC* COUNTER
00514 M01S00506.ctask +++|
00515 M01S00507.ctask +++|* ROLL BACK THE DATA BASE TO A CONSISTENT STATE.
00516 M01S00508.ctask +++|
00517 M01S00509.ctask +++| RJ RDC ROLL BACK DATA BASE
00518 M01S00510.ctask +++| SX6 X3+
00519 M01S00511.ctask +++| SA6 TMSW+6 SAVE ERROR MESSAGE
00520 M01S00512.ctask +++| SA2 TRSQ GET TRANSACTION SEQUENCE NUMBER
00521 M01S00513.ctask +++| MX4 -CBTSN
00522 M01S00514.ctask +++| BX6 -X4*X2
00523 M01S00515.ctask +++| SA6 RDBK SET OLD SYSTEM IDENTIFIER
00524 M01S00516.ctask +++|
00525 M01S00517.ctask +++|* RESTORE *CTASK* SEQUENCE NUMBER BEFORE CEASING.
00526 M01S00518.ctask +++|
00527 M01S00519.ctask +++| SCALL TINVOKE,(RDBI,RDBJ,RDBK)
00528 M01S00520.ctask +++| SA2 RDBI
00529 M01S00521.ctask +++| SX3 -CTAH TASK LOGICAL ERROR
00530 M01S00522.ctask +++| SX4 X2-TSNE
00531 M01S00523.ctask +++| NZ X4,RDB2 IF ERRORS IN *TINVOKE*
00532 M01S00524.ctask +++| SA3 TMSW+6
00533 M01S00525.ctask +++| SA2 RDBL
00534 M01S00526.ctask +++| NZ X2,RDB2 IF *TRMREC* ERRORS
00535 M01S00527.ctask +++| EQ RDB4 START TERMINAL INPUT
00536 M01S00528.ctask +++|
00537 M01S00529.ctask +++| RDB2 SX6 CSTT TERMINATE *TAF*
00538 M01S00530.ctask +++| SA6 RDBC TRANSACTION STEP
00539 M01S00531.ctask +++| PL X3,RDB3 IF NORMAL CEASE
00540 M01S00532.ctask +++| SX7 B1
00541 M01S00533.ctask +++| BX3 -X3
00542 M01S00534.ctask +++| SA7 RDBM ABNORMAL CEASE
00543 M01S00535.ctask +++| RDB3 SA3 X3
00544 M01S00536.ctask +++| AX3 18
00545 M01S00537.ctask +++| SCALL TMSG,(X3,A3) SEND DAYFILE MESSAGE
00546 M01S00538.ctask +++| EQ RDB5 ISSUE *WSTAT* REQUEST
00547 M01S00539.ctask +++|
00548 M01S00540.ctask +++| RDB4 SX6 CSST START TERMINAL/JOB INPUT
00549 M01S00541.ctask +++| SA6 RDBC TRANSACTION STEP
00550 M01S00542.ctask +++|
00551 M01S00543.ctask +++|* ISSUE A *CALLRTN* TO *BTASK* TO RECOVER *BTRAN* TRANSACTIONS
00552 M01S00544.ctask +++|* AND A *WSTAT* REQUEST TO TERMINATE TAF OR START INPUT.
00553 M01S00545.ctask +++|
00554 M01S00546.ctask +++| RDB5 CALLRTN RDBO
00555 M01S00547.ctask +++| SCALL WSTAT,(RDBA,RDBB,RDBC)
00556 M01S00548.ctask +++| SA2 RDBA
00557 M01S00549.ctask +++| SX3 CTAH TASK LOGICAL ERROR
00558 M01S00550.ctask +++| SX4 X2-TSNE
00559 M01S00551.ctask +++| NZ X4,CTA4 IF ERRORS IN *WSTAT*
00560 M01S00552.ctask +++| SA2 RDBM
00561 M01S00553.ctask +++| ZR X2,CTA3 IF NORMAL CEASE
00562 M01S00554.ctask +++| EQ CTA5 ABNORMAL CEASE WITH MEMORY DUMP
00563 M01S00555.ctask +++|
00564 M01S00556.ctask +++|* *WSTAT* REQUEST PARAMETERS.
00565 M01S00557.ctask +++|
00566 M01S00558.ctask +++| RDBA CON 0 STATUS OF REQUEST
00567 M01S00559.ctask +++| RDBB DATA 4HSTEP KEYWORD *STEP*
00568 M01S00560.ctask +++| RDBC CON 0 TRANSACTION STEP
00569 M01S00561.ctask +++|
00570 M01S00562.ctask +++|* *CRMSTAT* REQUEST PARAMETERS.
00571 M01S00563.ctask +++|
00572 M01S00564.ctask +++| RDBD VFD 42/0,18/RDBE
00573 M01S00565.ctask +++| VFD 42/0,18/RDBF
00574 M01S00566.ctask +++| VFD 42/0,18/RDBG
00575 M01S00567.ctask +++| VFD 42/0,18/RDBH
00576 M01S00568.ctask +++| CON 0
00577 M01S00569.ctask +++|
00578 M01S00570.ctask +++| RDBE CON 0 *CRM* STATUS FUNCTION
00579 M01S00571.ctask +++| RDBF CON 0 STATUS OF REQUEST
00580 M01S00572.ctask +++| RDBG BSSZ RMDM*CMDM*TSEQE+TSEQE+1+2*AAMQFL+AIBFL+AOBFL+1
00581 M01S00573.ctask +++| RDBH CON *-RDBG LENGTH OF *CRMSTAT* TABLE
00582 M01S00574.ctask +++|
00583 M01S00575.ctask +++|* *TINVOKE* REQUEST PARAMETERS.
00584 M01S00576.ctask +++|
00585 M01S00577.ctask +++| RDBI CON 0 STATUS OF REQUEST
00586 M01S00578.ctask +++| RDBJ CON 0 NEW SYSTEM IDENTIFIER
00587 M01S00579.ctask +++| RDBK CON 0 OLD SYSTEM IDENTIFIER
00588 M01S00580.ctask +++|
00589 M01S00581.ctask +++| RDBL CON 0 *TRMREC* ERROR COUNTER
00590 M01S00582.ctask +++| RDBM CON 0 NORMAL CEASE FLAG
00591 M01S00583.ctask +++| RDBN CON 0 RECOVERY PROCESSING COMPLETE FLAG
00592 M01S00584.ctask +++|
00593 M01S00585.ctask +++|* *CALLRTN* TASK LIST.
00594 M01S00586.ctask +++|
00595 M01S00587.ctask +++| RDBO CON 5LBTASK
00596 M01S00588.ctask +++| CON 0
00597 M01S00589.ctask +++| RTF SPACE 4,40
00598 M01S00590.ctask +++|** RTF - RECOVER TERMINAL FAILURE.
00599 M01S00591.ctask +++|*
00600 M01S00592.ctask +++|* TO RECOVER TERMINAL FAILURES, SUBROUTINE *RBH* HANDLES THE
00601 M01S00593.ctask +++|* PROCESSING BY CHECKING THE TRANSACTION SEQUENCE NUMBER
00602 M01S00594.ctask +++|* FROM THE *TAF* RECOVERY FILE AGAINST THE ENTRIES IN
00603 M01S00595.ctask +++|* THE *CRMSTAT* TABLE. IF A MATCH IS FOUND, THE BEGIN
00604 M01S00596.ctask +++|* IDENTIFIERS FROM THE *CRMSTAT* TABLE ARE USED AS INPUT
00605 M01S00597.ctask +++|* PARAMETERS IN *WSTAT*. THEN A *WSTAT* REQUEST IS
00606 M01S00598.ctask +++|* ISSUED TO RECORD THE BEGIN-COMMIT HISTORY ON THE *TAF*
00607 M01S00599.ctask +++|* RECOVERY FILE. SUBROUTINE *CSN* COMPARES THE TRANSACTION
00608 M01S00600.ctask +++|* SEQUENCE NUMBERS FROM THE *TRF* AND THE *CRMSTAT* TABLE.
00609 M01S00601.ctask +++|*
00610 M01S00602.ctask +++|* WHEN RECOVERY PROCESSING IS COMPLETE, ROLL BACK PRO-
00611 M01S00603.ctask +++|* CESSING IS STARTED. SUBROUTINE *RCS* HANDLES THE ROLL
00612 M01S00604.ctask +++|* BACK PROCESSING BY USING THE TRANSACTION SEQUENCE NUMBER
00613 M01S00605.ctask +++|* FROM THE *TRF* AS THE *OLD-SYS-ID* ON THE *TINVOKE*
00614 M01S00606.ctask +++|* REQUEST. THIS ESTABLISHES THE TASK/JOB AS A CONTINUATION
00615 M01S00607.ctask +++|* OF A PREVIOUS ONE FOR THE PURPOSE OF ISSUING A *TRMREC*
00616 M01S00608.ctask +++|* REQUEST TO ROLL BACK THE DATA TO A CONSISTENT STATE.
00617 M01S00609.ctask +++|*
00618 M01S00610.ctask +++|* WITH THE COMPLETION OF ROLL BACK PROCESSING, A *WSTAT*
00619 M01S00611.ctask +++|* REQUEST IS ISSUED TO START TERMINAL INPUT TO *TAF* AND
00620 M01S00612.ctask +++|* TERMINAL FAILURE RECOVERY IS COMPLETE.
00621 M01S00613.ctask +++|*
00622 M01S00614.ctask +++|* ENTRY (TMSW+1) = RECOVERY FLAG.
00623 M01S00615.ctask +++|*
00624 M01S00616.ctask +++|* EXIT TO *CTA3* FOR NORMAL CEASE.
00625 M01S00617.ctask +++|* TO *CTA5* FOR ABNORMAL CEASE.
00626 M01S00618.ctask +++|*
00627 M01S00619.ctask +++|* ERROR APPROPRIATE ERROR MESSAGE ISSUED TO DAYFILE.
00628 M01S00620.ctask +++|* TO *CTA4* IF NOT SYSTEM ORIGIN TRANSACTION.
00629 M01S00621.ctask +++|*
00630 M01S00622.ctask +++|* USES X - 2, 3, 4, 6, 7.
00631 M01S00623.ctask +++|* A - 2, 6, 7.
00632 M01S00624.ctask +++|*
00633 M01S00625.ctask +++|* CALLS RBH, RCS.
00634 M01S00626.ctask +++|*
00635 M01S00627.ctask +++|* MACROS SCALL.
00636 M01S00628.ctask +++|
00637 M01S00629.ctask +++|
00638 M01S00630.ctask +++| RTF SA2 TNAM
00639 M01S00631.ctask +++| SX3 -CTAH TASK LOGICAL ERROR
00640 M01S00632.ctask +++| LX2 59-CBSYS
00641 M01S00633.ctask +++| PL X2,CTA4 IF NOT SYSTEM ORIGIN TRANSACTION
00642 M01S00634.ctask +++| SX7 B0
00643 M01S00635.ctask +++| SA2 TMSW+1 GET RECOVERY FLAG
00644 M01S00636.ctask +++| SA7 RDBM INITIALIZE NORMAL CEASE
00645 M01S00637.ctask +++| PL X2,RTF3 IF NO *CRM* RECOVERY
00646 M01S00638.ctask +++| SX7 B1+
00647 M01S00639.ctask +++| SA7 RDBN RECOVERY PROCESSING NOT COMPLETE
00648 M01S00640.ctask +++|
00649 M01S00641.ctask +++|* RECOVER *TAF/CRM* DATA BASE BEGIN-COMMIT HISTORY.
00650 M01S00642.ctask +++|
00651 M01S00643.ctask +++| RJ RBH RECOVER BEGIN-COMMIT HISTORY
00652 M01S00644.ctask +++| SA2 RDBN
00653 M01S00645.ctask +++| NZ X2,RTF1 IF RECOVERY PROCESSING NOT COMPLETE
00654 M01S00646.ctask +++| SA2 RBHA
00655 M01S00647.ctask +++| NZ X2,RTF3 IF ROLL BACK PROCESSING NOT NECESSARY
00656 M01S00648.ctask +++| SX7 B0+
00657 M01S00649.ctask +++| SA7 RDBL INITIALIZE *TRMREC* COUNTER
00658 M01S00650.ctask +++|
00659 M01S00651.ctask +++|* ROLL BACK THE DATA BASE TO A CONSISTENT STATE.
00660 M01S00652.ctask +++|
00661 M01S00653.ctask +++| RJ RCS ROLL BACK TO CONSISTENT STATE
00662 M01S00654.ctask +++| SX6 X3+
00663 M01S00655.ctask +++| SA6 TMSW+6 SAVE ERROR MESSAGE
00664 M01S00656.ctask +++| SA2 TRSQ GET TRANSACTION SEQUENCE NUMBER
00665 M01S00657.ctask +++| MX4 -CBTSN
00666 M01S00658.ctask +++| BX6 -X4*X2
00667 M01S00659.ctask +++| SA6 RDBK SET OLD SYSTEM IDENTIFIER
00668 M01S00660.ctask +++|
00669 M01S00661.ctask +++|* RESTORE *CTASK* SEQUENCE NUMBER BEFORE CEASING.
00670 M01S00662.ctask +++|
00671 M01S00663.ctask +++| SCALL TINVOKE,(RDBI,RDBJ,RDBK)
00672 M01S00664.ctask +++| SA2 RDBI GET STATUS OF REQUEST
00673 M01S00665.ctask +++| SX3 -CTAH TASK LOGICAL ERROR
00674 M01S00666.ctask +++| SX4 X2-TSNE
00675 M01S00667.ctask +++| NZ X4,RTF1 IF ERRORS IN *TINVOKE*
00676 M01S00668.ctask +++| SA3 TMSW+6
00677 M01S00669.ctask +++| SA2 RDBL
00678 M01S00670.ctask +++| NZ X2,RTF1 IF *TRMREC* ERRORS
00679 M01S00671.ctask +++| EQ RTF3 START TERMINAL INPUT
00680 M01S00672.ctask +++|
00681 M01S00673.ctask +++| RTF1 SX6 CSTT TERMINATE *TAF*
00682 M01S00674.ctask +++| SA6 RDBC TRANSACTION STEP
00683 M01S00675.ctask +++| PL X3,RTF2 IF NORMAL CEASE
00684 M01S00676.ctask +++| SX7 B1
00685 M01S00677.ctask +++| BX3 -X3
00686 M01S00678.ctask +++| SA7 RDBM ABNORMAL CEASE WITH DUMP
00687 M01S00679.ctask +++| RTF2 SA3 X3
00688 M01S00680.ctask +++| AX3 18
00689 M01S00681.ctask +++| SCALL TMSG,(X3,A3) SEND DAYFILE MESSAGE
00690 M01S00682.ctask +++| EQ RTF4 ISSUE *WSTAT* REQUEST
00691 M01S00683.ctask +++|
00692 M01S00684.ctask +++| RTF3 SX6 CSST START TERMINAL/JOB INPUT
00693 M01S00685.ctask +++| SA6 RDBC TRANSACTION STEP
00694 M01S00686.ctask +++|
00695 M01S00687.ctask +++|* ISSUE *WSTAT* REQUEST TO TERMINATE *TAF* OR START INPUT.
00696 M01S00688.ctask +++|
00697 M01S00689.ctask +++| RTF4 SCALL WSTAT,(RDBA,RDBB,RDBC)
00698 M01S00690.ctask +++| SA2 RDBA GET STATUS OF REQUEST
00699 M01S00691.ctask +++| SX3 CTAH TASK LOGICAL ERROR
00700 M01S00692.ctask +++| SX4 X2-TSNE
00701 M01S00693.ctask +++| NZ X4,CTA4 IF ERRORS IN *WSTAT*
00702 M01S00694.ctask +++| SA2 RDBM
00703 M01S00695.ctask +++| ZR X2,CTA3 IF NORMAL CEASE
00704 M01S00696.ctask +++| EQ CTA5 ABNORMAL CEASE WITH MEMORY DUMP
00705 M01S00697.ctask +++| CTASK SPACE 4,10
00706 M01S00698.ctask +++|** CCE - COUNT *CRMSTAT* ENTRIES.
00707 M01S00699.ctask +++|*
00708 M01S00700.ctask +++|* ENTRY (B2) = NUMBER OF ENTRIES IN *CRMSTAT* TABLE.
00709 M01S00701.ctask +++|* RDBG = FWA OF *CRMSTAT* TABLE.
00710 M01S00702.ctask +++|*
00711 M01S00703.ctask +++|* EXIT (B3) = NUMBER OF VALID ENTRIES IN *CRMSTAT* TABLE.
00712 M01S00704.ctask +++|*
00713 M01S00705.ctask +++|* USES X - 2, 3.
00714 M01S00706.ctask +++|* A - 2, 3.
00715 M01S00707.ctask +++|* B - 2, 3.
00716 M01S00708.ctask +++|
00717 M01S00709.ctask +++|
00718 M01S00710.ctask +++| CCE SUBR ENTRY/EXIT
00719 M01S00711.ctask +++| SB3 B0+ VALID ENTRY COUNT
00720 M01S00712.ctask +++| SA2 RDBG+TSSQW-TSEQE INITIALIZE FWA OF *CRMSTAT* TABLE
00721 M01S00713.ctask +++| CCE1 SB2 B2-1 DECREMENT ENTRY COUNT
00722 M01S00714.ctask +++| ZR B2,CCEX IF END OF *CRMSTAT* TABLE
00723 M01S00715.ctask +++| SA2 A2+TSEQE GET NEXT ENTRY FROM *CRMSTAT* TABLE
00724 M01S00716.ctask +++| ZR X2,CCE1 IF NULL ENTRY
00725 M01S00717.ctask +++| SA3 A2+TSRCW
00726 M01S00718.ctask +++| LX3 59-TSRCS TASK RECOVERED FROM *BRF* BIT
00727 M01S00719.ctask +++| PL X3,CCE1 IF TASK NOT RECOVERED FROM *BRF*
00728 M01S00720.ctask +++| SB3 B3+1 INCREMENT VALID ENTRY COUNT
00729 M01S00721.ctask +++| EQ CCE1 LOOP FOR NEXT ENTRY IN *CRMSTAT* TABLE
00730 M01S00722.ctask +++| CTASK SPACE 4,15
00731 M01S00723.ctask +++|** CSN - COMPARE SEQUENCE NUMBERS.
00732 M01S00724.ctask +++|*
00733 M01S00725.ctask +++|* ENTRY (RBCF) = *TSTAT* SEQUENCE NUMBER.
00734 M01S00001.ns2001 +++|* (RBCD) = *TSTAT* USER NAME.
00735 M01S00726.ctask +++|* RDBG = FWA OF *CRMSTAT* TABLE.
00736 M01S00727.ctask +++|*
00737 M01S00728.ctask +++|* EXIT (X0) = 0, IF MATCH FOUND.
00738 M01S00729.ctask +++|* 1, IF NO MATCH.
00739 M01S00002.ns2001 +++|* (A3) = FWA OF *CRMSTAT* ENTRY IF MATCH FOUND.
00740 M01S00730.ctask +++|*
00741 M01S00731.ctask +++|* USES X - 0, 1, 2, 3, 4, 5, 6.
00742 M01S00732.ctask +++|* A - 1, 2, 3, 6.
00743 M01S00733.ctask +++|* B - 3, 4.
00744 M01S00734.ctask +++|
00745 M01S00735.ctask +++|
00746 M01S00736.ctask +++| CSN SUBR ENTRY/EXIT
00747 M01S00737.ctask +++| SA2 TMSW TERMINAL FAILURE CASE
00748 M01S00738.ctask +++| SB4 X2-TYTF
00749 M01S00739.ctask +++| SB3 RMDM*CMDM+2 INITIALIZE ENTRY COUNTER
00750 M01S00740.ctask +++| SA2 RBCF GET *SEQ* NUMBER FROM *TSTAT*
00751 M01S00741.ctask +++| SX0 B1+ NO MATCH
00752 M01S00742.ctask +++| SA3 RDBG+TSSQW-TSEQE INITIALIZE FWA OF *CRMSTAT* TABLE
00753 M01S00743.ctask +++| CSN1 SB3 B3-1 DECREMENT ENTRY COUNT
00754 M01S00744.ctask +++| ZR B3,CSNX IF END OF *CRMSTAT* TABLE, RETURN
00755 M01S00745.ctask +++| SA3 A3+TSEQE GET NEXT ENTRY FROM *CRMSTAT* TABLE
00756 M01S00746.ctask +++| ZR X3,CSN1 IF NULL ENTRY
00757 M01S00747.ctask +++| ZR B4,CSN2 IF TERMINAL FAILURE CASE
00758 M01S00748.ctask +++| SA1 A3+TSRCW
00759 M01S00749.ctask +++| LX1 59-TSRCS TASK RECOVERED FROM *BRF* BIT
00760 M01S00750.ctask +++| PL X1,CSN1 IF TASK NOT RECOVERED FROM *BRF*
00761 M01S00751.ctask +++| CSN2 MX4 TSSQN
00762 M01S00752.ctask +++| BX5 X4*X3 MASK OFF *CRM* SEQUENCE NUMBER
00763 M01S00753.ctask +++| LX5 TSSQN-1-TSSQS RIGHT JUSTIFY *CRM* SEQUENCE NUMBER
00764 M01S00754.ctask +++| IX3 X5-X2
00765 M01S00755.ctask +++| NZ X3,CSN1 IF NO MATCH
00766 M01S00003.ns2001 +++| SA1 A3+TSUNW GET USER FROM *CRMSTAT* TABLE
00767 M01S00004.ns2001 +++| SA2 RBCD GET USER FROM *TSTAT*
00768 M01S00005.ns2001 +++| MX4 TSUNN
00769 M01S00006.ns2001 +++| BX1 X4*X1
00770 M01S00007.ns2001 +++| BX2 X4*X2
00771 M01S00008.ns2001 +++| BX4 X1-X2
00772 M01S00009.ns2001 +++| NZ X4,CSN1 IF USER NAMES DO NOT MATCH
00773 M01S00756.ctask +++| SX0 B0+ MATCH FOUND
00774 M01S00757.ctask +++| EQ CSNX RETURN
00775 M01S00758.ctask +++| CTASK SPACE 4,20
00776 M01S00759.ctask +++|** RBC - RECOVER BEGIN-COMMIT HISTORY.
00777 M01S00760.ctask +++|*
00778 M01S00761.ctask +++|* ENTRY *CRMSTAT* TABLE LOADED.
00779 M01S00762.ctask +++|* (RDBN) = 1, FOR RECOVERY PROCESSING NOT COMPLETE.
00780 M01S00763.ctask +++|*
00781 M01S00764.ctask +++|* EXIT (RDBN) = 0, IF RECOVERY PROCESSING COMPLETE.
00782 M01S00765.ctask +++|* = 1, IF NOT COMPLETE.
00783 M01S00766.ctask +++|*
00784 M01S00767.ctask +++|* ERROR (X3) = ADDRESS OF ERROR MESSAGE WHEN NOT COMPLETE.
00785 M01S00768.ctask +++|*
00786 M01S00769.ctask +++|* USES X - 2, 3, 4, 6, 7.
00787 M01S00770.ctask +++|* A - 2, 3, 6, 7.
00788 M01S00771.ctask +++|* B - 2.
00789 M01S00772.ctask +++|*
00790 M01S00773.ctask +++|* CALLS CCE, CSN.
00791 M01S00774.ctask +++|*
00792 M01S00775.ctask +++|* MACROS SCALL.
00793 M01S00776.ctask +++|
00794 M01S00777.ctask +++|
00795 M01S00778.ctask +++| RBC SUBR ENTRY/EXIT
00796 M01S00779.ctask +++| SB2 RMDM*CMDM+2
00797 M01S00780.ctask +++| SA3 RBCS GET BLANK WORD
00798 M01S00781.ctask +++| BX6 X3
00799 M01S00782.ctask +++| RJ CCE COUNT *CRMSTAT* ENTRIES
00800 M01S00783.ctask +++| SX7 B3+B1 VALID ENTRY COUNT
00801 M01S00784.ctask +++| SA6 RBCD INITIALIZE *NEXT* FOR *TSTAT*
00802 M01S00785.ctask +++| SA7 RBCT
00803 M01S00786.ctask +++| RBC1 SA1 RBCT
00804 M01S00787.ctask +++| SX6 X1-1 DECREMENT ENTRY COUNT
00805 M01S00788.ctask +++| ZR X6,RBC4 IF END OF *CRMSTAT* TABLE
00806 M01S00789.ctask +++| SA6 A1+
00807 M01S00790.ctask +++|
00808 M01S00791.ctask +++|* ISSUE *TSTAT* REQUEST TO RETURN OPERATIONAL ENVIRONMENT.
00809 M01S00792.ctask +++|
00810 M01S00793.ctask +++| RBC2 SCALL TSTAT,(RBCA,RBCC,RBCD,RBCE,RBCF,RBCG,RBCH,RBCI,RBCJ,RBC
00811 M01S00794.ctask +++|,K,RBCL,RBCM,RBCN) ISSUE *TSTAT* REQUEST
00812 M01S00795.ctask +++| SA2 RBCA GET STATUS OF REQUEST
00813 M01S00796.ctask +++| SX4 X2-TSRU RECOVERY UNAVAILABLE STATUS
00814 M01S00797.ctask +++| ZR X4,RBC4 IF RECOVERY UNAVAILABLE
00815 M01S00798.ctask +++| SX4 X2-TSEN
00816 M01S00799.ctask +++| ZR X4,RBC4 IF END OF *NEXT* PROCESSING
00817 M01S00800.ctask +++| SX3 CTAK USER NOT DEFINED IN NETWORK FILE
00818 M01S00801.ctask +++| SX4 X2-TSUU USER UNKNOWN STATUS
00819 M01S00802.ctask +++| ZR X4,RBCX IF USER UNKNOWN, RETURN
00820 M01S00803.ctask +++| SX3 -CTAH TASK LOGICAL ERROR
00821 M01S00804.ctask +++| SX4 X2-TSNE NO ERRORS STATUS
00822 M01S00805.ctask +++| NZ X4,RBCX IF ERRORS IN *TSTAT*, RETURN
00823 M01S00806.ctask +++| RJ CSN COMPARE SEQUENCE NUMBERS
00824 M01S00807.ctask +++| NZ X0,RBC2 IF NO MATCH FOUND
00825 M01S00808.ctask +++| SX6 CSBC
00826 M01S00809.ctask +++| SA6 RBCH SET TRANSACTION STEP
00827 M01S00810.ctask +++| SA3 A3+TSBCW GET BEGIN IDENTIFIERS FROM *CRMSTAT* TABLE
00828 M01S00811.ctask +++| ERRNZ TSBPW-TSBCW ID-S NOT IN SAME WORD
00829 M01S00812.ctask +++| MX4 -TSBCN
00830 M01S00813.ctask +++| ERRNZ TSBPN-TSBCN ID-LENGTH NOT EQUAL
00831 M01S00814.ctask +++| BX6 -X4*X3 MASK OFF CURRENT BEGIN IDENTIFIER
00832 M01S00815.ctask +++| LX3 TSBPN-1-TSBPS RIGHT JUSTIFY PREVIOUS BEGIN IDENTIFIER
00833 M01S00816.ctask +++| BX7 -X4*X3 MASK OFF PREVIOUS BEGIN IDENTIFIER
00834 M01S00817.ctask +++| SA6 RBCR CURRENT *CRM* IDENTIFIER
00835 M01S00818.ctask +++| SA7 RBCP PREVIOUS *CRM* IDENTIFIER
00836 M01S00819.ctask +++|
00837 M01S00820.ctask +++|* ISSUE *WSTAT* REQUEST TO RECORD BEGIN-COMMIT HISTORY.
00838 M01S00821.ctask +++|
00839 M01S00822.ctask +++| SCALL WSTAT,(RBCA,RBCB,RBCD,RBCE,RBCF,RBCG,RBCH,RBCI,RBCJ,RBC
00840 M01S00823.ctask +++|,K,RBCL,RBCM,RBCN,RBCO,RBCP,RBCQ,RBCR) ISSUE *WSTAT* REQUEST
00841 M01S00824.ctask +++| SA2 RBCA GET STATUS OF REQUEST
00842 M01S00825.ctask +++| SX3 CTAK USER NOT DEFINED IN NETWORK FILE
00843 M01S00826.ctask +++| SX4 X2-TSUU USER UNKNOWN STATUS
00844 M01S00827.ctask +++| ZR X4,RBCX IF USER UNKNOWN, RETURN
00845 M01S00828.ctask +++| SX3 -CTAH TASK LOGICAL ERROR
00846 M01S00829.ctask +++| SX4 X2-TSNE NO ERRORS STATUS
00847 M01S00830.ctask +++| NZ X4,RBCX IF ERRORS IN *WSTAT*, RETURN
00848 M01S00831.ctask +++| EQ RBC1 LOOP FOR NEXT ENTRY IN *CRMSTAT* TABLE
00849 M01S00832.ctask +++|
00850 M01S00833.ctask +++| RBC4 SX7 B0+ RECOVER PROCESSING COMPLETE
00851 M01S00834.ctask +++| SA7 RDBN
00852 M01S00835.ctask +++| EQ RBCX RETURN
00853 M01S00836.ctask +++|
00854 M01S00837.ctask +++|* *TSTAT* AND *WSTAT* REQUEST PARAMETERS.
00855 M01S00838.ctask +++|
00856 M01S00839.ctask +++| RBCA CON 0 STATUS OF REQUEST
00857 M01S00840.ctask +++| RBCB DATA 4HUSER KEYWORD *USER*
00858 M01S00841.ctask +++| RBCC DATA 4HNEXT KEYWORD *NEXT*
00859 M01S00842.ctask +++| RBCD CON 0 NEXT USER FROM *TAF* RECOVERY FILE
00860 M01S00843.ctask +++| RBCE DATA 3HSEQ KEYWORD *SEQ*
00861 M01S00844.ctask +++| RBCF CON 0 TRANSACTION SEQUENCE NUMBER
00862 M01S00845.ctask +++| RBCG DATA 4HSTEP KEYWORD *STEP*
00863 M01S00846.ctask +++| RBCH CON 0 TRANSACTION STEP
00864 M01S00847.ctask +++| RBCI DATA 4HTRAN KEYWORD *TRAN*
00865 M01S00848.ctask +++| RBCJ CON 0 TRANSACTION TYPE
00866 M01S00849.ctask +++| RBCK DATA 3HCRM KEYWORD *CRM*
00867 M01S00850.ctask +++| RBCL CON 0 *CRM* TRANSACTION USAGE
00868 M01S00851.ctask +++| RBCM DATA 4HCDCS KEYWORD *CDCS*
00869 M01S00852.ctask +++| RBCN CON 0 *CDCS* TRANSACTION USAGE
00870 M01S00853.ctask +++| RBCO DATA 5HOLDID KEYWORD *OLDID*
00871 M01S00854.ctask +++| RBCP CON 0 PREVIOUS *CRM* IDENTIFIER
00872 M01S00855.ctask +++| RBCQ DATA 5HNEWID KEYWORD *NEWID*
00873 M01S00856.ctask +++| RBCR CON 0 CURRENT *CRM* IDENTIFIER
00874 M01S00857.ctask +++| RBCS DATA 1H BLANK WORD
00875 M01S00858.ctask +++| RBCT CON 0 ENTRY COUNT
00876 M01S00859.ctask +++| RBH SPACE 4,20
00877 M01S00860.ctask +++|** RBH - RECOVER BEGIN-COMMIT HISTORY FOR TERMINAL FAILURES.
00878 M01S00861.ctask +++|*
00879 M01S00862.ctask +++|* ENTRY (RDBN) = 1 FOR RECOVERY PROCESSING NOT COMPLETE.
00880 M01S00863.ctask +++|*
00881 M01S00864.ctask +++|* EXIT (RDBN) = 0, IF RECOVERY PROCESSING COMPLETE.
00882 M01S00865.ctask +++|* = 1, IF NOT COMPLETE.
00883 M01S00866.ctask +++|* (RBHA) = 0, IF ROLL BACK PROCESSING NECESSARY.
00884 M01S00867.ctask +++|* = 1, IF NOT NECESSARY.
00885 M01S00868.ctask +++|*
00886 M01S00869.ctask +++|* ERROR (X3) = FWA OF ERROR MESSAGE PARAMETERS WHEN NOT
00887 M01S00870.ctask +++|* COMPLETE.
00888 M01S00871.ctask +++|*
00889 M01S00872.ctask +++|* USES X - 2, 3, 4, 6, 7.
00890 M01S00873.ctask +++|* A - 2, 3, 6, 7.
00891 M01S00874.ctask +++|*
00892 M01S00875.ctask +++|* CALLS CSN.
00893 M01S00876.ctask +++|*
00894 M01S00877.ctask +++|* MACROS CRMSTAT, SCALL.
00895 M01S00878.ctask +++|
00896 M01S00879.ctask +++|
00897 M01S00880.ctask +++| RBH SUBR ENTRY/EXIT
00898 M01S00010.ns2001 +++| SA2 TNAM GET TERMINAL NAME
00899 M01S00011.ns2001 +++| MX3 TSUNN
00900 M01S00012.ns2001 +++| BX6 X3*X2
00901 M01S00013.ns2001 +++| SA6 RBCD
00902 M01S00881.ctask +++|
00903 M01S00882.ctask +++|* ISSUE *TSTAT* REQUEST TO RETURN OPERATIONAL ENVIRONMENT.
00904 M01S00883.ctask +++|
Line S00884 Modification History
M01 (Added by) ctask
M02 (Updated by) ns2001
Seq # *Modification Id* Act
----------------------------+
00905 M02S00884.ns2001 ---| SCALL TSTAT,(RBCA,RBCE,RBCF,RBCG,RBCH,RBCI,RBCJ,RBCK,RBCL,RBC
Line S00885 Modification History
M01 (Added by) ctask
M02 (Updated by) ns2001
Seq # *Modification Id* Act
----------------------------+
00906 M02S00885.ns2001 ---|,M,RBCN)
00907 M01S00014.ns2001 +++| SCALL TSTAT,(RBCA,RBCB,RBCD,RBCE,RBCF,RBCG,RBCH,RBCI,RBCJ,RBC
00908 M01S00015.ns2001 +++|,K,RBCL,RBCM,RBCN)
00909 M01S00886.ctask +++| SA2 RBCA GET STATUS OF REQUEST
00910 M01S00887.ctask +++| SX3 CTAK USER NOT DEFINED IN NETWORK FILE
00911 M01S00888.ctask +++| SX4 X2-TSUU
00912 M01S00889.ctask +++| ZR X4,RBHX IF USER UNKNOWN
00913 M01S00890.ctask +++| SX3 -CTAH TASK LOGICAL ERROR
00914 M01S00891.ctask +++| SX4 X2-TSNE
00915 M01S00892.ctask +++| NZ X4,RBHX IF ERRORS IN *TSTAT*
00916 M01S00893.ctask +++| SA2 RBCL GET *CRM* USAGE
00917 M01S00894.ctask +++| SX6 B1+
00918 M01S00895.ctask +++| ZR X2,RBH2 IF *CRM* MAY NOT BE USED
00919 M01S00896.ctask +++|
00920 M01S00897.ctask +++|* ISSUE *CRMSTAT* REQUEST TO GET BEGIN-COMMIT HISTORY.
00921 M01S00898.ctask +++|
00922 M01S00899.ctask +++| CRMSTAT RDBD
00923 M01S00900.ctask +++| SA2 RDBF GET STATUS OF REQUEST
00924 M01S00901.ctask +++| SX3 CTAC FILE IS NOT INSTALLED
00925 M01S00902.ctask +++| SX4 X2-TERB
00926 M01S00903.ctask +++| ZR X4,RBHX IF FILE IS NOT INSTALLED
00927 M01S00904.ctask +++| SX3 CTAG TABLE AREA NOT LARGE ENOUGH
00928 M01S00905.ctask +++| SX4 X2-TERAN
00929 M01S00906.ctask +++| ZR X4,RBHX IF TABLE AREA NOT LARGE ENOUGH
00930 M01S00907.ctask +++| SX3 -CTAH TASK LOGICAL ERROR
00931 M01S00908.ctask +++| NZ X2,RBHX IF REQUEST NOT SUCCESSFUL
00932 M01S00909.ctask +++| RJ CSN COMPARE SEQUENCE NUMBERS
00933 M01S00910.ctask +++| SX6 B1+
00934 M01S00911.ctask +++| NZ X0,RBH2 IF NO MATCH FOUND
00935 M01S00912.ctask +++| SA2 RBCH GET TRANSACTION STEP
00936 M01S00913.ctask +++| SX4 X2-CSTI
00937 M01S00914.ctask +++| ZR X4,RBH1 IF RECOVERABLE TRANSACTION/JOB INPUT
00938 M01S00915.ctask +++| SX4 X2-CSBC
00939 M01S00916.ctask +++| ZR X4,RBH1 IF BEGIN-COMMIT *CRM* ID-S LOGGED
00940 M01S00917.ctask +++| SX4 X2-CSND
00941 M01S00918.ctask +++| SX6 B0+
00942 M01S00919.ctask +++| NZ X4,RBH2 IF *NAM* NOT DOWN
00943 M01S00920.ctask +++| RBH1 SX6 CSBC
00944 M01S00921.ctask +++| SA6 RBCH SET ID-S LOGGED STEP
00945 M01S00922.ctask +++| SA3 A3+TSBCW GET ID-S FROM *CRMSTAT* TABLE
00946 M01S00923.ctask +++| MX4 -TSBCN
00947 M01S00924.ctask +++| BX6 -X4*X3
00948 M01S00925.ctask +++| LX3 TSBPN-1-TSBPS
00949 M01S00926.ctask +++| BX7 -X4*X3
00950 M01S00927.ctask +++| SA6 RBCR CURRENT *CRM* ID
00951 M01S00928.ctask +++| SA7 RBCP PREVIOUS *CRM* ID
00952 M01S00929.ctask +++|
00953 M01S00930.ctask +++|* ISSUE *WSTAT* REQUEST TO RECORD BEGIN-COMMIT HISTORY.
00954 M01S00931.ctask +++|
Line S00932 Modification History
M01 (Added by) ctask
M02 (Updated by) ns2001
Seq # *Modification Id* Act
----------------------------+
00955 M02S00932.ns2001 ---| SCALL WSTAT,(RBCA,RBCE,RBCF,RBCG,RBCH,RBCI,RBCJ,RBCK,RBCL,RBC
Line S00933 Modification History
M01 (Added by) ctask
M02 (Updated by) ns2001
Seq # *Modification Id* Act
----------------------------+
00956 M02S00933.ns2001 ---|,M,RBCN,RBCO,RBCP,RBCQ,RBCR)
00957 M01S00016.ns2001 +++| SCALL WSTAT,(RBCA,RBCB,RBCD,RBCE,RBCF,RBCG,RBCH,RBCI,RBCJ,RBC
00958 M01S00017.ns2001 +++|,K,RBCL,RBCM,RBCN,RBCO,RBCP,RBCQ,RBCR)
00959 M01S00934.ctask +++| SA2 RBCA GET STATUS OF REQUEST
00960 M01S00935.ctask +++| SX3 CTAK USER NOT DEFINED IN NETWORK FILE
00961 M01S00936.ctask +++| SX4 X2-TSUU
00962 M01S00937.ctask +++| ZR X4,RBHX IF USER UNKNOWN
00963 M01S00938.ctask +++| SX3 -CTAH TASK LOGICAL ERROR
00964 M01S00939.ctask +++| SX4 X2-TSNE
00965 M01S00940.ctask +++| NZ X4,RBHX IF ERRORS IN *WSTAT*
00966 M01S00941.ctask +++| SX6 B0+
00967 M01S00942.ctask +++| RBH2 SX7 B0+
00968 M01S00943.ctask +++| SA6 RBHA ROLL BACK PROCESSING FLAG
00969 M01S00944.ctask +++| SA7 RDBN RECOVERY PROCESSING COMPLETE
00970 M01S00945.ctask +++| EQ RBHX RETURN
00971 M01S00946.ctask +++|
00972 M01S00947.ctask +++| RBHA CON 0 ROLL BACK PROCESSING FLAG
00973 M01S00948.ctask +++| CTASK SPACE 4,15
00974 M01S00949.ctask +++|** RDC - ROLL BACK DATA TO CONSISTENT STATE.
00975 M01S00950.ctask +++|*
00976 M01S00951.ctask +++|* ENTRY RDBG = FWA OF *CRMSTAT* TABLE.
00977 M01S00952.ctask +++|*
00978 M01S00953.ctask +++|* EXIT (RDBL) = 0, IF ROLL BACK PROCESSING COMPLETE.
00979 M01S00954.ctask +++|* = NON-ZERO, IF NOT COMPLETE.
00980 M01S00955.ctask +++|*
00981 M01S00956.ctask +++|* ERROR (X3) = FWA OF ERROR MESSAGE PARAMETERS WHEN NOT
00982 M01S00957.ctask +++|* COMPLETE.
00983 M01S00958.ctask +++|*
00984 M01S00959.ctask +++|* USES X - 2, 3, 4, 5, 6, 7.
00985 M01S00960.ctask +++|* A - 2, 3, 6, 7.
00986 M01S00961.ctask +++|*
00987 M01S00962.ctask +++|* MACROS SCALL, TRMREC.
00988 M01S00963.ctask +++|
00989 M01S00964.ctask +++|
00990 M01S00965.ctask +++| RDC SUBR ENTRY/EXIT
00991 M01S00966.ctask +++| SX6 RMDM*CMDM+2
00992 M01S00967.ctask +++| SX7 RDBG+TSSQW-TSEQE
00993 M01S00968.ctask +++| SA6 RDCG
00994 M01S00969.ctask +++| SA7 RDCH
00995 M01S00970.ctask +++| RDC1 SA2 RDCG
00996 M01S00971.ctask +++| SX6 X2-1
00997 M01S00972.ctask +++| ZR X6,RDC2 IF END OF *CRMSTAT* TABLE
00998 M01S00973.ctask +++| SA6 A2
00999 M01S00974.ctask +++| SA2 A2+B1
01000 M01S00975.ctask +++| SA3 X2+TSEQE GET NEXT ENTRY FROM *CRMSTAT* TABLE
01001 M01S00976.ctask +++| SX7 A3
01002 M01S00977.ctask +++| SA7 A2
01003 M01S00978.ctask +++| ZR X3,RDC1 IF NULL ENTRY
01004 M01S00979.ctask +++| MX5 TSSQN
01005 M01S00980.ctask +++| BX6 X5*X3 MASK OFF *CRM* SEQUENCE NUMBER
01006 M01S00981.ctask +++| LX6 TSSQN-1-TSSQS RIGHT JUSTIFY *CRM* SEQUENCE NUMBER
01007 M01S00982.ctask +++| SA6 RDCC OLD SYSTEM IDENTIFIER
01008 M01S00983.ctask +++|
01009 M01S00984.ctask +++|* ISSUE *TINVOKE* REQUEST TO GET NEW SYSTEM IDENTIFIER.
01010 M01S00985.ctask +++|
01011 M01S00986.ctask +++| SCALL TINVOKE,(RDCA,RDCB,RDCC) ISSUE *TINVOKE* REQUEST
01012 M01S00987.ctask +++| SA2 RDCA GET STATUS OF REQUEST
01013 M01S00988.ctask +++| SX3 CTAF SYSTEM IDENTIFIER UNKNOWN STATUS
01014 M01S00989.ctask +++| SX4 X2-TSSU
01015 M01S00990.ctask +++| ZR X4,RDC3 IF SYSTEM ID UNKNOWN
01016 M01S00991.ctask +++| SX3 -CTAH TASK LOGICAL ERROR
01017 M01S00992.ctask +++| SX4 X2-TSNE NO ERRORS STATUS
01018 M01S00993.ctask +++| NZ X4,RDC3 IF ERRORS IN *TINVOKE*
01019 M01S00994.ctask +++|
01020 M01S00995.ctask +++|* ISSUE *TRMREC* REQUEST TO ROLL BACK DATA TO CONSISTENT STATE.
01021 M01S00996.ctask +++|
01022 M01S00997.ctask +++| TRMREC RDCD
01023 M01S00998.ctask +++| SA2 RDCF GET STATUS OF REQUEST
01024 M01S00999.ctask +++| ZR X2,RDC1 IF REQUEST SUCCESSFUL
01025 M01S01000.ctask +++| SA1 RDBL *TRMREC* ERROR COUNTER
01026 M01S01001.ctask +++| SX7 X1+1
01027 M01S01002.ctask +++| SA7 A1+ INCREMENT ERROR COUNTER
01028 M01S01003.ctask +++| EQ RDC1 LOOP FOR NEXT ENTRY IN *CRMSTAT* TABLE
01029 M01S01004.ctask +++|
01030 M01S01005.ctask +++| RDC2 SX3 CTAJ *TRMREC* ERROR
01031 M01S01006.ctask +++| EQ RDCX RETURN
01032 M01S01007.ctask +++|
01033 M01S01008.ctask +++| RDC3 SX6 CMDM+1
01034 M01S01009.ctask +++| SA6 RDBL *TINVOKE* ERROR
01035 M01S01010.ctask +++| EQ RDCX RETURN
01036 M01S01011.ctask +++|
01037 M01S01012.ctask +++|* *TINVOKE* REQUEST PARAMETERS.
01038 M01S01013.ctask +++|
01039 M01S01014.ctask +++| RDCA CON 0 STATUS OF REQUEST
01040 M01S01015.ctask +++| RDCB CON 0 NEW SYSTEM IDENTIFIER
01041 M01S01016.ctask +++| RDCC CON 0 OLD SYSTEM IDENTIFIER
01042 M01S01017.ctask +++|
01043 M01S01018.ctask +++|* *TRMREC* REQUEST PARAMETERS.
01044 M01S01019.ctask +++|
01045 M01S01020.ctask +++| RDCD VFD 42/0,18/RDCE
01046 M01S01021.ctask +++| VFD 42/0,18/RDCF
01047 M01S01022.ctask +++| CON 0
01048 M01S01023.ctask +++|
01049 M01S01024.ctask +++| RDCE CON 0 ZERO WORD
01050 M01S01025.ctask +++| RDCF CON 0 STATUS OF REQUEST
01051 M01S01026.ctask +++| RDCG CON 0 NUMBER OF *CRMSTAT* ENTRIES
01052 M01S01027.ctask +++| RDCH CON 0 FWA OF *CRMSTAT* TABLE
01053 M01S01028.ctask +++| RCS SPACE 4,15
01054 M01S01029.ctask +++|** RCS - ROLL BACK DATA TO CONSISTENT STATE FOR
01055 M01S01030.ctask +++|* TERMINAL FAILURES.
01056 M01S01031.ctask +++|*
01057 M01S01032.ctask +++|* ENTRY (RBCF) = SEQUENCE NUMBER.
01058 M01S01033.ctask +++|*
01059 M01S01034.ctask +++|* EXIT (RDBL) = 0, IF ROLL BACK PROCESSING COMPLETE.
01060 M01S01035.ctask +++|* = NON-ZERO, IF NOT COMPLETE.
01061 M01S01036.ctask +++|*
01062 M01S01037.ctask +++|* ERROR (X3) = FWA OF ERROR MESSAGE PARAMETERS WHEN NOT
01063 M01S01038.ctask +++|* COMPLETE.
01064 M01S01039.ctask +++|*
01065 M01S01040.ctask +++|* USES X - 2, 3, 4, 7.
01066 M01S01041.ctask +++|* A - 2, 7.
01067 M01S01042.ctask +++|*
01068 M01S01043.ctask +++|* MACROS SCALL, TRMREC.
01069 M01S01044.ctask +++|
01070 M01S01045.ctask +++|
01071 M01S01046.ctask +++| RCS SUBR ENTRY/EXIT
01072 M01S01047.ctask +++|
01073 M01S01048.ctask +++|* ISSUE *TINVOKE* REQUEST TO GET NEW SYSTEM ID.
01074 M01S01049.ctask +++|
01075 M01S01050.ctask +++| SCALL TINVOKE,(RDCA,RDCB,RBCF)
01076 M01S01051.ctask +++| SA2 RDCA GET STATUS OF REQUEST
01077 M01S01052.ctask +++| SX3 CTAF SYSTEM ID UNKNOWN
01078 M01S01053.ctask +++| SX4 X2-TSUU
01079 M01S01054.ctask +++| ZR X4,RCS3 IF SYSTEM ID UNKNOWN
01080 M01S01055.ctask +++| SX3 -CTAH TASK LOGICAL ERROR
01081 M01S01056.ctask +++| SX4 X2-TSNE
01082 M01S01057.ctask +++| NZ X4,RCS3 IF ERRORS IN *TINVOKE*
01083 M01S01058.ctask +++|
01084 M01S01059.ctask +++|* ISSUE *TRMREC* REQUEST TO ROLL BACK DATA TO CONSISTENT STATE.
01085 M01S01060.ctask +++|
01086 M01S01061.ctask +++| TRMREC RDCD
01087 M01S01062.ctask +++| SA2 RDCF GET STATUS OF REQUEST
01088 M01S01063.ctask +++| ZR X2,RCSX IF REQUEST SUCCESSFUL
01089 M01S01064.ctask +++| SX3 CTAJ *TRMREC* ERROR
01090 M01S01065.ctask +++| SX7 B1+
01091 M01S01066.ctask +++| RCS2 SA7 RDBL *TRMREC* ERROR COUNTER
01092 M01S01067.ctask +++| EQ RCSX RETURN
01093 M01S01068.ctask +++|
01094 M01S01069.ctask +++| RCS3 SX7 CMDM+1 *TINVOKE* ERROR
01095 M01S01070.ctask +++| EQ RCS2 SET *TRMREC* COUNT
01096 M01S01071.ctask +++| CTASK SPACE 4,15
01097 M01S01072.ctask +++|** RID - RESTORE DATA BASE IDENTIFIERS.
01098 M01S01073.ctask +++|*
01099 M01S01074.ctask +++|* ENTRY (TMSW+2) = *OLDID* FROM COMMUNICATION BLOCK.
01100 M01S01075.ctask +++|* (TMSW+3) = *NEWID* FROM COMMUNICATION BLOCK.
01101 M01S01076.ctask +++|*
01102 M01S01077.ctask +++|* EXIT (X2) = STATUS OF *RSTDBI* REQUEST.
01103 M01S01078.ctask +++|*
01104 M01S01079.ctask +++|* USES X - 2, 3, 6, 7.
01105 M01S01080.ctask +++|* A - 2, 3, 6, 7.
01106 M01S01081.ctask +++|*
01107 M01S01082.ctask +++|* MACROS RSTDBI.
01108 M01S01083.ctask +++|
01109 M01S01084.ctask +++|
01110 M01S01085.ctask +++| RID SUBR ENTRY/EXIT
01111 M01S01086.ctask +++| SA2 TMSW+2 GET *OLDID*
01112 M01S01087.ctask +++| SA3 TMSW+3 GET *NEWID*
01113 M01S01088.ctask +++| BX6 X2
01114 M01S01089.ctask +++| BX7 X3
01115 M01S01090.ctask +++| SA6 RIDD PREVIOUS BEGIN IDENTIFIER
01116 M01S01091.ctask +++| SA7 RIDB CURRENT BEGIN IDENTIFIER
01117 M01S01092.ctask +++| RSTDBI RIDA RESTORE BEGIN IDENTIFIERS
01118 M01S01093.ctask +++| SA2 RIDC GET STATUS OF REQUEST
01119 M01S01094.ctask +++| EQ RIDX RETURN
01120 M01S01095.ctask +++|
01121 M01S01096.ctask +++|* *RSTDBI* REQUEST PARAMETERS.
01122 M01S01097.ctask +++|
01123 M01S01098.ctask +++| RIDA VFD 42/0,18/RIDB
01124 M01S01099.ctask +++| VFD 42/0,18/RIDC
01125 M01S01100.ctask +++| VFD 42/0,18/RIDD
01126 M01S01101.ctask +++| CON 0
01127 M01S01102.ctask +++|
01128 M01S01103.ctask +++| RIDB CON 0 CURRENT BEGIN IDENTIFIER
01129 M01S01104.ctask +++| RIDC CON 0 STATUS OF REQUEST
01130 M01S01105.ctask +++| RIDD CON 0 PREVIOUS BEGIN IDENTIFIER
01131 M01S01106.ctask +++|
01132 M01S01107.ctask +++| END CTASK