cdc:nos2.source:opl.opl871:deck:ctask
Deck CTASK
4 Modifications
Source
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
Figure TMSW
00107 M01S00104.ctask +++|*T, TMSW+1 60/ RECOVERY FLAG (RF)
Figure TMSW+1
00108 M01S00105.ctask +++|*T, TMSW+2 60/ OLDID
Figure TMSW+2
00109 M01S00106.ctask +++|*T, TMSW+3 60/ NEWID
Figure TMSW+3
00110 M01S00107.ctask +++|*T, TMSW+4 60/ USERNAME
Figure TMSW+4
00111 M01S00108.ctask +++|*T, TMSW+5 60/ *SRERUN* STATUS (RS)
Figure TMSW+5
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
cdc/nos2.source/opl.opl871/deck/ctask.txt · Last modified: by 127.0.0.1