cdc:nos2.source:opl.opl871:deck:ctask
Deck CTASK
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.ctask +++| IDENT CTASK 00002 M00S00002.ctask +++| LCC OVERLAY(CTASK,0,0)
| Line S00003 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00003 M01S00003.253l688 ---| SST BEGN
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00004 M01S00001.253l688 +++| SST BEGN,CMBL 00005 M00S00004.ctask +++| ENTRY CTASK 00006 M00S00005.ctask +++| SYSCOM B1 00007 M00S00006.ctask +++| CTASK TITLE CTASK - RECOVER DATA BASE OR USER TASK. 00008 M00S00007.ctask +++|*COMMENT CTASK - RECOVER DATA BASE OR USER TASK.
| Line S00008 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00009 M01S00008.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1980.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00010 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00011 M00S00009.ctask +++| CTASK SPACE 4,10 00012 M00S00010.ctask +++|*** CTASK - RECOVER DATA BASE OR USER TASK. 00013 M00S00011.ctask +++|* 00014 M00S00012.ctask +++|* E. D. REDIG. 80/06/11. 00015 M00S00013.ctask +++| CTASK SPACE 4,10 00016 M00S00014.ctask +++|*** *CTASK* HANDLES THE FOLLOWING RECOVERY CASES: 00017 M00S00015.ctask +++|* 00018 M00S00016.ctask +++|* 1. INTERACTIVE USERS. 00019 M00S00017.ctask +++|* 2. *BTRAN* (BATCH) USERS. 00020 M00S00018.ctask +++|* 3. *CRM* DATA BASES. 00021 M00S00019.ctask +++|* 4. TERMINAL FAILURES. 00022 M00S00020.ctask +++|* 00023 M00S00021.ctask +++|* FOR A MORE COMPLETE DESCRIPTION REFER TO THE 00024 M00S00022.ctask +++|* APPROPRIATE PROCESSOR WITHIN *CTASK*. 00025 M00S00023.ctask +++| CTASK SPACE 4,50 00026 M00S00024.ctask +++|*** DAYFILE MESSAGES ISSUED. 00027 M00S00025.ctask +++|* 00028 M00S00026.ctask +++|* ABNORMAL COMPLETION. 00029 M00S00027.ctask +++|* 00030 M00S00028.ctask +++|* * CTASK - DATA BASE OR FILE DOWN.* 00031 M00S00029.ctask +++|* THE DATA BASE, *TAF*/*CRM*, OR FILE IS DOWN ON 00032 M00S00030.ctask +++|* AN *RSTDBI* REQUEST. 00033 M00S00031.ctask +++|* 00034 M00S00032.ctask +++|* * CTASK - DATA BASE OR FILE IDLE.* 00035 M00S00033.ctask +++|* THE DATA BASE, *TAF/CRM*, OR FILE IS IDLE ON 00036 M00S00034.ctask +++|* AN *RSTDBI* REQUEST. 00037 M00S00035.ctask +++|* 00038 M00S00036.ctask +++|* * CTASK - FILE IS NOT INSTALLED.* 00039 M00S00037.ctask +++|* DATA BASE OR FILE NOT AVAILABLE IN *XXJ* FILE 00040 M00S00038.ctask +++|* ON A *CRMSTAT* REQUEST. 00041 M00S00039.ctask +++|*
| Line S00040 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00042 M01S00040.v23l617 ---|* * CTASK - ILLEGAL RECOVERY CASE.*
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00043 M01S00001.v23l617 +++|* * CTASK - INCORRECT RECOVERY CASE.* 00044 M00S00041.ctask +++|* RECOVER CASE NOT VALID. 00045 M00S00042.ctask +++|* 00046 M00S00043.ctask +++|* * CTASK - NO CRM RECOVERY FILES FOR DATA BASE.* 00047 M00S00044.ctask +++|* NO RECOVERY FILE ASSIGNED TO THE DATA BASE ON 00048 M00S00045.ctask +++|* AN *RSTDBI* REQUEST. 00049 M00S00046.ctask +++|* 00050 M00S00047.ctask +++|* * CTASK - SYSTEM IDENTIFIER UNKNOWN.* 00051 M00S00048.ctask +++|* OLD SYSTEM IDENTIFIER UNKNOWN WHEN ISSUING A 00052 M00S00049.ctask +++|* *TINVOKE* REQUEST. 00053 M00S00050.ctask +++|* 00054 M00S00051.ctask +++|* * CTASK - TABLE AREA NOT LARGE ENOUGH.* 00055 M00S00052.ctask +++|* THE TABLE AREA SUPPLIED BY *CTASK* FOR A *CRMSTAT* 00056 M00S00053.ctask +++|* REQUEST IS NOT LARGE ENOUGH. 00057 M00S00054.ctask +++|* 00058 M00S00055.ctask +++|* * CTASK - TASK LOGICAL ERROR.* 00059 M00S00056.ctask +++|* A LOGICAL ERROR OCCURRED THAT WAS NOT EXPECTED. 00060 M00S00057.ctask +++|* 00061 M00S00058.ctask +++|* * CTASK - TRANSACTION NOT RERUNNABLE.* 00062 M00S00059.ctask +++|* A TRANSACTION IS NOT RERUNNABLE AND A *RERUN* 00063 M00S00060.ctask +++|* WAS ATTEMPTED. 00064 M00S00061.ctask +++|* 00065 M00S00062.ctask +++|* * CTASK - TRMREC ERROR.* 00066 M00S00063.ctask +++|* ONE OF THE FOLLOWING OCCURRED. 00067 M00S00064.ctask +++|* 1. THERE WAS NO OUTSTANDING *DBEGIN* REQUEST. 00068 M00S00065.ctask +++|* 2. AN ERROR WAS ENCOUNTERED ON A DATA BASE OR 00069 M00S00066.ctask +++|* RECOVERY FILE. 00070 M00S00067.ctask +++|* 3. THE DATA BASE OR *TAF*/*CRM* IS DOWN. 00071 M00S00068.ctask +++|* 00072 M00S00069.ctask +++|* * CTASK - USER NOT DEFINED IN NETWORK FILE.* 00073 M00S00070.ctask +++|* THE *USER* IS NOT DEFINED IN THE *NETWORK* FILE 00074 M00S00071.ctask +++|* ON AN *SRERUN*, *TSTAT* OR *WSTAT* REQUEST. 00075 M00S00072.ctask +++| 00076 M00S00073.ctask +++| 00077 M00S00074.ctask +++|* COMMON DECKS. 00078 M00S00075.ctask +++| 00079 M00S00076.ctask +++| 00080 M00S00077.ctask +++|*CALL COMCMAC 00081 M00S00078.ctask +++|*CALL COMKTAF 00082 M00S00079.ctask +++|*CALL COMKFLD 00083 M00S00080.ctask +++|*CALL COMKIPR 00084 M00S00081.ctask +++|*CALL COMKMAC 00085 M00S00082.ctask +++| 00086 M00S00083.ctask +++|* SAVE ORIGIN COUNTER TO REMOVE COMMON DECK STORAGE IN 00087 M00S00084.ctask +++|* *COMKCBD*, *COMKCRM*, *COMKTDM*, *COMKTER*, AND *COMKTSC*. 00088 M00S00085.ctask +++| 00089 M00S00086.ctask +++| BEGN BSS 0 00090 M00S00087.ctask +++|*CALL COMKCBD 00091 M00S00088.ctask +++| LIST X 00092 M00S00089.ctask +++|*CALL COMKCRM 00093 M00S00090.ctask +++|*CALL COMKTDM 00094 M00S00091.ctask +++|*CALL COMKTER 00095 M00S00092.ctask +++|*CALL COMKTRF 00096 M00S00093.ctask +++| LIST -X 00097 M00S00094.ctask +++|*CALL COMKTSC 00098 M00S00095.ctask +++| ORG BEGN RESTORE ORIGIN COUNTER 00099 M00S00096.ctask +++| TITLE CTASK ROUTINES. 00100 M00S00097.ctask +++| CTASK SPACE 4,15 00101 M00S00098.ctask +++|*** COMMUNICATION BLOCK HEADER WORDS AND MESSAGES. 00102 M00S00099.ctask +++|* 00103 M00S00100.ctask +++|* INPUT TO *CTASK* APPEARS IN THE COMMUNICATION BLOCK. 00104 M00S00101.ctask +++|* THE INPUT IS AS FOLLOWS. 00105 M00S00102.ctask +++|* 00106 M00S00103.ctask +++|*T TMSW 60/ CASE
Figure TMSW
00107 M00S00104.ctask +++|*T, TMSW+1 60/ RECOVERY FLAG (RF)
Figure TMSW+1
00108 M00S00105.ctask +++|*T, TMSW+2 60/ OLDID
Figure TMSW+2
00109 M00S00106.ctask +++|*T, TMSW+3 60/ NEWID
Figure TMSW+3
00110 M00S00107.ctask +++|*T, TMSW+4 60/ USERNAME
Figure TMSW+4
00111 M00S00108.ctask +++|*T, TMSW+5 60/ *SRERUN* STATUS (RS)
Figure TMSW+5
00112 M00S00109.ctask +++|* 00113 M00S00110.ctask +++|* CASE = 1 RECOVER INTERACTIVE USER. 00114 M00S00111.ctask +++|* = 2 RECOVER *BTRAN* USER. 00115 M00S00112.ctask +++|* = 3 RECOVER *CRM* DATA BASE. 00116 M00S00113.ctask +++|* = 4 RECOVER TERMINAL FAILURE. 00117 M00S00114.ctask +++|* RF BIT 59 = 1, IF *CRM* AUTOMATIC RECOVERY USED. 00118 M00S00115.ctask +++|* BIT 0 = 1, IF *TAF* AUTOMATIC RECOVERY USED. 00119 M00S00116.ctask +++|* OLDID = PREVIOUS *CRM* IDENTIFIER. 00120 M00S00117.ctask +++|* NEWID = CURRENT *CRM* IDENTIFIER. 00121 M00S00118.ctask +++|* USERNAME = ONE-TO-SEVEN CHARACTER USERNAME LEFT-JUSTIFIED 00122 M00S00119.ctask +++|* WITH BLANK FILL. 00123 M00S00120.ctask +++|* RS = 0, IF *SRERUN* SUCCESSFUL. 00124 M00S00121.ctask +++|* = 1, IF *SRERUN* NOT SUCCESSFUL. 00125 M00S00122.ctask +++|* = -1, IF DATA BASE FILE DOWN. 00126 M00S00123.ctask +++| 00127 M00S00124.ctask +++| 00128 M00S00125.ctask +++| BSS CMBL RESERVE SPACE FOR COMMUNICATION BLOCK 00129 M00S00126.ctask +++| CTASK SPACE 4,20 00130 M00S00127.ctask +++|** CTASK - RECOVER DATA BASE OR USER TASK. 00131 M00S00128.ctask +++|* 00132 M00S00129.ctask +++|* ENTRY (TMSW) = RECOVERY MESSAGE (DATA BASE OR USER). 00133 M00S00130.ctask +++|* 00134 M00S00131.ctask +++|* EXIT SPECIFIED RECOVERY CASE PROCESSED. 00135 M00S00132.ctask +++|*
| Line S00133 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00136 M01S00133.v23l617 ---|* ERROR TO *CTA1* IF ILLEGAL CASE.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00137 M01S00002.v23l617 +++|* ERROR TO *CTA1* IF INCORRECT CASE. 00138 M00S00134.ctask +++|* 00139 M00S00135.ctask +++|* USES X - 3, 6. 00140 M00S00136.ctask +++|* A - 3. 00141 M00S00137.ctask +++|* B - 1, 2. 00142 M00S00138.ctask +++|* 00143 M00S00139.ctask +++|* CALLS RBU, RDB, RIU, RTF. 00144 M00S00140.ctask +++|* 00145 M00S00141.ctask +++|* MACROS CEASE, SCALL. 00146 M00S00142.ctask +++| 00147 M00S00143.ctask +++| 00148 M00S00144.ctask +++| CTASK SB1 1 00149 M00S00145.ctask +++| SA3 TMSW GET RECOVER CASE 00150 M00S00146.ctask +++| LX3 -1 00151 M00S00147.ctask +++| SX6 X3-TCTAL 00152 M00S00148.ctask +++| SB2 X3
| Line S00149 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00153 M01S00149.v23l617 ---| PL X6,CTA1 IF ILLEGAL RECOVERY CASE.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00154 M01S00003.v23l617 +++| PL X6,CTA1 IF INCORRECT RECOVERY CASE. 00155 M00S00150.ctask +++| JP B2+TCTA JUMP THRU TABLE 00156 M00S00151.ctask +++| 00157 M00S00152.ctask +++| TCTA PL X3,CTA1 UNUSED CASE 00158 M00S00153.ctask +++| EQ RIU RECOVER INTERACTIVE USER 00159 M00S00154.ctask +++| PL X3,RBU RECOVER *BTRAN* USER 00160 M00S00155.ctask +++| EQ RDB RECOVER *CRM* DATA BASE 00161 M00S00156.ctask +++| PL X3,RTF RECOVER TERMINAL FAILURE
| Line S00157 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00162 M01S00157.v23l617 ---| EQ CTA1 ILLEGAL RECOVERY CASE
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00163 M01S00004.v23l617 +++| EQ CTA1 INCORRECT RECOVERY CASE 00164 M00S00158.ctask +++| TCTAL EQU *-TCTA LENGTH OF *CTASK* JUMP TABLE 00165 M00S00159.ctask +++| 00166 M00S00160.ctask +++|* THE PROCESSORS *RIU*, *RBU*, *RDB*, AND *RTF* 00167 M00S00161.ctask +++|* RETURN TO THE CODE BELOW TO TERMINATE PROCESSING. 00168 M00S00162.ctask +++|
| Line S00163 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00169 M01S00163.v23l617 ---| CTA1 SX3 CTAD ILLEGAL RECOVERY CASE
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00170 M01S00005.v23l617 +++| CTA1 SX3 CTAD INCORRECT RECOVERY CASE 00171 M00S00164.ctask +++| CTA2 SA3 X3 00172 M00S00165.ctask +++| AX3 18 00173 M00S00166.ctask +++| SCALL TMSG,(X3,A3) SEND DAYFILE MESSAGE 00174 M00S00167.ctask +++| CTA3 CEASE EXIT TASK WITH CEASE 00175 M00S00168.ctask +++| 00176 M00S00169.ctask +++| CTA4 SA3 X3 00177 M00S00170.ctask +++| AX3 18 00178 M00S00171.ctask +++| SCALL TMSG,(X3,A3) SEND DAYFILE MESSAGE 00179 M00S00172.ctask +++| CTA5 CEASE 2 ABNORMAL CEASE WITH MEMORY DUMP 00180 M00S00173.ctask +++| 00181 M00S00174.ctask +++|* DAYFILE MESSAGES. 00182 M00S00175.ctask +++| 00183 M00S00176.ctask +++| CTAAM DATA C* CTASK - DATA BASE OR FILE DOWN.* 00184 M00S00177.ctask +++| CTAA VFD 42/CTAAM,18/**10-CTAAM*10 00185 M00S00178.ctask +++| CTACM DATA C* CTASK - FILE IS NOT INSTALLED.* 00186 M00S00179.ctask +++| CTAC VFD 42/CTACM,18/**10-CTACM*10
| Line S00180 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00187 M01S00180.v23l617 ---| CTADM DATA C* CTASK - ILLEGAL RECOVERY CASE.*
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00188 M01S00006.v23l617 +++| CTADM DATA C* CTASK - INCORRECT RECOVERY CASE.* 00189 M00S00181.ctask +++| CTAD VFD 42/CTADM,18/**10-CTADM*10 00190 M00S00182.ctask +++| CTAEM DATA C* CTASK - NO CRM RECOVERY FILES FOR DATA BASE.* 00191 M00S00183.ctask +++| CTAE VFD 42/CTAEM,18/**10-CTAEM*10 00192 M00S00184.ctask +++| CTAFM DATA C* CTASK - SYSTEM IDENTIFIER UNKNOWN.* 00193 M00S00185.ctask +++| CTAF VFD 42/CTAFM,18/**10-CTAFM*10 00194 M00S00186.ctask +++| CTAGM DATA C* CTASK - TABLE AREA NOT LARGE ENOUGH.* 00195 M00S00187.ctask +++| CTAG VFD 42/CTAGM,18/**10-CTAGM*10 00196 M00S00188.ctask +++| CTAHM DATA C* CTASK - TASK LOGICAL ERROR.* 00197 M00S00189.ctask +++| CTAH VFD 42/CTAHM,18/**10-CTAHM*10 00198 M00S00190.ctask +++| CTAIM DATA C* CTASK - TRANSACTION NOT RERUNNABLE.* 00199 M00S00191.ctask +++| CTAI VFD 42/CTAIM,18/**10-CTAIM*10 00200 M00S00192.ctask +++| CTAJM DATA C* CTASK - TRMREC ERROR.* 00201 M00S00193.ctask +++| CTAJ VFD 42/CTAJM,18/**10-CTAJM*10 00202 M00S00194.ctask +++| CTAKM DATA C* CTASK - USER NOT DEFINED IN NETWORK FILE.* 00203 M00S00195.ctask +++| CTAK VFD 42/CTAKM,18/**10-CTAKM*10 00204 M00S00196.ctask +++| CTALM DATA C* CTASK - DATA BASE OR FILE IDLE.* 00205 M00S00197.ctask +++| CTAL VFD 42/CTALM,18/**10-CTALM*10 00206 M00S00198.ctask +++| CTASK SPACE 4,35 00207 M00S00199.ctask +++|** RIU - RECOVER INTERACTIVE USER. 00208 M00S00200.ctask +++|* 00209 M00S00201.ctask +++|* TO RECOVER AN INTERACTIVE USER A *TINVOKE* REQUEST IS 00210 M00S00202.ctask +++|* ISSUED USING ONLY THE *NEW-SYS-ID* PARAMETER. THIS 00211 M00S00203.ctask +++|* RETURNS A NEW SYSTEM IDENTIFIER (TRANSACTION SEQUENCE 00212 M00S00204.ctask +++|* NUMBER) TO BE USED FOR ALL TASKS IN THE RECOVERY UNIT. 00213 M00S00205.ctask +++|* 00214 M00S00206.ctask +++|* NEXT, AN *RSTDBI* REQUEST IS USED TO RESTORE THE 00215 M00S00207.ctask +++|* BEGIN IDENTIFIERS TO *CRM* FOR A RECOVERED TRANSACTION. 00216 M00S00208.ctask +++|* 00217 M00S00209.ctask +++|* THEN, AN *SRERUN* REQUEST IS ISSUED TO CAUSE THE INITIAL 00218 M00S00210.ctask +++|* TERMINAL INPUT FOR A RERUNNABLE TRANSACTION TO BE 00219 M00S00211.ctask +++|* RESUBMITTED TO THE TRANSACTION SYSTEM. 00220 M00S00212.ctask +++|* 00221 M00S00213.ctask +++|* FINALLY, A *RECOVERY, RERUNNING TRANSACTION.* MESSAGE IS 00222 M00S00214.ctask +++|* SENT TO THE ORIGINATING TERMINAL. WHEN *CTASK* CEASES, 00223 M00S00215.ctask +++|* *ITASK* IS CALLED AS IF THE INPUT CAME FROM THE TERMINAL. 00224 M00S00216.ctask +++|* 00225 M00S00217.ctask +++|* ENTRY RECOVER INTERACTIVE USER CASE SELECTED. 00226 M00S00218.ctask +++|* (TMSW+1) = RECOVERY FLAG. 00227 M00S00219.ctask +++|* 00228 M00S00220.ctask +++|* EXIT TO *CTA3* FOR CEASE. 00229 M00S00221.ctask +++|* (TMSW+5) = 0, IF *SRERUN* SUCCESSFUL. 00230 M00S00222.ctask +++|* = 1, IF *SRERUN* NOT SUCCESSFUL. 00231 M00S00223.ctask +++|* = -1, IF DATA BASE FILE DOWN. 00232 M00S00224.ctask +++|* 00233 M00S00225.ctask +++|* ERROR (X3) = FWA OF DAYFILE MESSAGE PARAMETERS. 00234 M00S00226.ctask +++|* (TMSW+5) = *SRERUN* STATUS. 00235 M00S00227.ctask +++|* TO *CTA2* IF ERROR AND NORMAL CEASE. 00236 M00S00228.ctask +++|* TO *CTA4* IF ERROR AND ABNORMAL CEASE. 00237 M00S00229.ctask +++|* 00238 M00S00230.ctask +++|* USES X - 2, 3, 4, 6. 00239 M00S00231.ctask +++|* A - 2, 3, 6. 00240 M00S00232.ctask +++|* 00241 M00S00233.ctask +++|* CALLS RID. 00242 M00S00234.ctask +++|* 00243 M00S00235.ctask +++|* MACROS SCALL, TRMREC. 00244 M00S00236.ctask +++| 00245 M00S00237.ctask +++| 00246 M00S00238.ctask +++| RIU SA2 TMSW+1 GET RECOVERY FLAG 00247 M00S00239.ctask +++| SX3 B0 00248 M00S00240.ctask +++| SX6 B1 00249 M00S00241.ctask +++| PL X2,RIU1 IF NO *CRM* RECOVERY 00250 M00S00242.ctask +++| 00251 M00S00243.ctask +++|* ISSUE *TINVOKE* USING *NEW-ID* TO GET NEW SEQUENCE NUMBER. 00252 M00S00244.ctask +++| 00253 M00S00245.ctask +++| SCALL TINVOKE,(RIUC,RIUD) 00254 M00S00246.ctask +++| SA2 RIUC GET STATUS OF REQUEST 00255 M00S00247.ctask +++| SX3 CTAH TASK LOGICAL ERROR 00256 M00S00248.ctask +++| SX4 X2-TSNE NO ERRORS STATUS 00257 M00S00249.ctask +++| SX6 B1+ 00258 M00S00250.ctask +++| NZ X4,RIU2 IF ERRORS IN *TINVOKE* 00259 M00S00251.ctask +++| 00260 M00S00252.ctask +++|* RETURN BEGIN-COMMIT HISTORY TO *CRM* WITH *RSTDBI*. 00261 M00S00253.ctask +++| 00262 M00S00254.ctask +++| RJ RID RESTORE DATA BASE IDENTIFIERS 00263 M00S00255.ctask +++| SX3 CTAE RECOVERY FILE NOT ASSIGNED TO DATA BASE 00264 M00S00256.ctask +++| SX4 X2-TERAF 00265 M00S00257.ctask +++| SX6 B1+ 00266 M00S00258.ctask +++| ZR X4,RIU2 IF NO RECOVERY FILE FOR DATA BASE 00267 M00S00259.ctask +++| SX3 CTAA DATA BASE OR FILE DOWN 00268 M00S00260.ctask +++| SX4 X2-TERAK 00269 M00S00261.ctask +++| SX6 -1 00270 M00S00262.ctask +++| ZR X4,RIU2 IF DATA BASE OR FILE DOWN 00271 M00S00263.ctask +++| SX3 CTAL DATA BASE OR FILE IDLE 00272 M00S00264.ctask +++| SX4 X2-TERAG 00273 M00S00265.ctask +++| ZR X4,RIU2 IF DATA BASE OR FILE IDLE 00274 M00S00266.ctask +++| SX3 CTAH TASK LOGICAL ERROR 00275 M00S00267.ctask +++| SX6 B1+ 00276 M00S00268.ctask +++| NZ X2,RIU2 IF REQUEST NOT SUCCESSFUL 00277 M00S00269.ctask +++| SX4 B0+ 00278 M00S00270.ctask +++| SX3 B0+ 00279 M00S00271.ctask +++| RIU1 SA2 TMSW+1 GET RECOVERY FLAG 00280 M00S00272.ctask +++| SX2 X2+ 00281 M00S00273.ctask +++| ZR X2,RIU2 IF NO *TAF* AUTOMATIC RECOVERY 00282 M00S00274.ctask +++| 00283 M00S00275.ctask +++|* ISSUE *SRERUN* REQUEST TO RERUN TRANSACTION. 00284 M00S00276.ctask +++| 00285 M00S00277.ctask +++| SCALL SRERUN,(RIUB) 00286 M00S00278.ctask +++| SA2 RIUB GET STATUS OF REQUEST 00287 M00S00279.ctask +++| SX3 CTAI TRANSACTION NOT RERUNNABLE 00288 M00S00280.ctask +++| SX4 X2-TSNO 00289 M00S00281.ctask +++| SX6 B1+ 00290 M00S00282.ctask +++| ZR X4,RIU2 IF TRANSACTION NOT RERUNNABLE 00291 M00S00283.ctask +++| SX3 CTAK USER NOT DEFINED IN NETWORK FILE 00292 M00S00284.ctask +++| SX4 X2-TSUU 00293 M00S00285.ctask +++| ZR X4,RIU2 IF USER UNKNOWN 00294 M00S00286.ctask +++| SX3 CTAH TASK LOGICAL ERROR 00295 M00S00287.ctask +++| SX4 X2-TSNE NO ERRORS STATUS 00296 M00S00288.ctask +++| NZ X4,RIU2 IF ERRORS IN *SRERUN* 00297 M00S00289.ctask +++| SX6 B0+ 00298 M00S00290.ctask +++| SA6 TMSW+5 STORE *RERUN* SUCCESSFUL 00299 M00S00291.ctask +++| EQ CTA3 CEASE 00300 M00S00292.ctask +++| 00301 M00S00293.ctask +++| RIU2 SA6 TMSW+5 STORE *SRERUN* NOT SUCCESSFUL 00302 M00S00294.ctask +++| SX6 X4 00303 M00S00295.ctask +++| SA6 A6+B1 STORE CEASE TYPE 00304 M00S00296.ctask +++| SX6 X3 00305 M00S00297.ctask +++| SA6 A6+B1 STORE DAYFILE MESSAGE 00306 M00S00298.ctask +++| SA2 TMSW+5 00307 M00S00299.ctask +++| NG X2,RIU3 IF FILE DOWN OR IDLE 00308 M00S00300.ctask +++| SA2 TMSW+1 GET RECOVERY FLAG 00309 M00S00301.ctask +++| PL X2,RIU3 IF NO *CRM* RECOVERY 00310 M00S00302.ctask +++| 00311 M00S00303.ctask +++|* ISSUE *TRMREC* REQUEST TO CLEAR *CRM* TABLES ON ERROR. 00312 M00S00304.ctask +++| 00313 M00S00305.ctask +++| TRMREC RIUE 00314 M00S00306.ctask +++| SA2 RIUG GET STATUS OF REQUEST 00315 M00S00307.ctask +++| SX3 CTAJ *TRMREC* ERROR 00316 M00S00308.ctask +++| NZ X2,CTA2 IF REQUEST NOT SUCCESSFUL 00317 M00S00309.ctask +++| RIU3 SA3 TMSW+7 GET DAYFILE MESSAGE 00318 M00S00310.ctask +++| ZR X3,CTA3 IF NO MESSAGE THEN CEASE 00319 M00S00311.ctask +++| SA2 TMSW+6 GET CEASE TYPE 00320 M00S00312.ctask +++| ZR X2,CTA2 IF ERROR WITH NORMAL CEASE 00321 M00S00313.ctask +++| EQ CTA4 ERROR WITH ABNORMAL CEASE 00322 M00S00314.ctask +++| 00323 M00S00315.ctask +++|* *SRERUN* REQUEST PARAMETER. 00324 M00S00316.ctask +++| 00325 M00S00317.ctask +++| RIUB CON 0 STATUS OF REQUEST 00326 M00S00318.ctask +++| 00327 M00S00319.ctask +++|* *TINVOKE* REQUEST PARAMETERS. 00328 M00S00320.ctask +++| 00329 M00S00321.ctask +++| RIUC CON 0 STATUS OF REQUEST 00330 M00S00322.ctask +++| RIUD CON 0 NEW SYSTEM IDENTIFIER 00331 M00S00323.ctask +++| 00332 M00S00324.ctask +++|* *TRMREC* REQUEST PARAMETERS. 00333 M00S00325.ctask +++| 00334 M00S00326.ctask +++| RIUE VFD 42/0,18/RIUF 00335 M00S00327.ctask +++| VFD 42/0,18/RIUG 00336 M00S00328.ctask +++| CON 0 00337 M00S00329.ctask +++| 00338 M00S00330.ctask +++| RIUF CON 0 ZERO WORD 00339 M00S00331.ctask +++| RIUG CON 0 STATUS OF REQUEST 00340 M00S00332.ctask +++| CTASK SPACE 4,30 00341 M00S00333.ctask +++|** RBU - RECOVER *BTRAN* USER. 00342 M00S00334.ctask +++|* 00343 M00S00335.ctask +++|* TO RECOVER A *BTRAN* USER A *TINVOKE* REQUEST IS ISSUED 00344 M00S00336.ctask +++|* USING ONLY THE *NEW-SYS-ID* PARAMETER. THIS RETURNS A 00345 M00S00337.ctask +++|* NEW SYSTEM IDENTIFIER (TRANSACTION SEQUENCE NUMBER) TO 00346 M00S00338.ctask +++|* BE USED FOR ALL TASKS IN THE RECOVERY UNIT. 00347 M00S00339.ctask +++|* 00348 M00S00340.ctask +++|* THEN AN *RSTDBI* REQUEST IS USED TO RESTORE THE BEGIN 00349 M00S00341.ctask +++|* IDENTIFIERS TO *CRM* FOR A RECOVERED TRANSACTION. 00350 M00S00342.ctask +++|* 00351 M00S00343.ctask +++|* FINALLY, AN *SRERUN* REQUEST IS USED TO CAUSE THE INITIAL 00352 M00S00344.ctask +++|* INPUT FOR A RERUNNABLE TRANSACTION TO BE RESUBMITTED TO 00353 M00S00345.ctask +++|* THE TRANSACTION SYSTEM. THIS PROCESS CAUSES *ITASK* TO 00354 M00S00346.ctask +++|* BE CALLED JUST AS IF THE INPUT CAME FROM THE TERMINAL. 00355 M00S00347.ctask +++|* 00356 M00S00348.ctask +++|* ENTRY RECOVER *BTRAN* USER CASE SELECTED. 00357 M00S00349.ctask +++|* (TMSW+1) = RECOVERY FLAG. 00358 M00S00350.ctask +++|* (TMSW+4) = USERNAME. 00359 M00S00351.ctask +++|* 00360 M00S00352.ctask +++|* EXIT TO *CTA3* FOR CEASE. 00361 M00S00353.ctask +++|* 00362 M00S00354.ctask +++|* ERROR (X7) = FWA OF DAYFILE MESSAGE PARAMETERS. 00363 M00S00355.ctask +++|* TO *CTA2* IF ERROR AND NORMAL CEASE. 00364 M00S00356.ctask +++|* TO *CTA4* IF ERROR AND ABNORMAL CEASE. 00365 M00S00357.ctask +++|* 00366 M00S00358.ctask +++|* USES X - 2, 3, 4, 6. 00367 M00S00359.ctask +++|* A - 2, 6. 00368 M00S00360.ctask +++|* 00369 M00S00361.ctask +++|* CALLS RID. 00370 M00S00362.ctask +++|* 00371 M00S00363.ctask +++|* MACROS SCALL. 00372 M00S00364.ctask +++| 00373 M00S00365.ctask +++| 00374 M00S00366.ctask +++| RBU SA2 TMSW+1 GET RECOVERY FLAG 00375 M00S00367.ctask +++| PL X1,RBU1 IF NO *CRM* RECOVERY 00376 M00S00368.ctask +++| 00377 M00S00369.ctask +++|* ISSUE *TINVOKE* USING *NEW-ID* TO GET NEW SEQUENCE NUMBER. 00378 M00S00370.ctask +++| 00379 M00S00371.ctask +++| SCALL TINVOKE,(RBUC,RBUD) 00380 M00S00372.ctask +++| SA2 RBUC GET STATUS OF REQUEST 00381 M00S00373.ctask +++| SX3 CTAH TASK LOGICAL ERROR 00382 M00S00374.ctask +++| SX4 X2-TSNE NO ERRORS STATUS 00383 M00S00375.ctask +++| NZ X4,CTA4 IF ERRORS IN *TINVOKE* 00384 M00S00376.ctask +++| 00385 M00S00377.ctask +++|* RETURN BEGIN-COMMIT HISTORY TO *CRM* WITH *RSTDBI*. 00386 M00S00378.ctask +++| 00387 M00S00379.ctask +++| RJ RID RESTORE DATA BASE IDENTIFIERS 00388 M00S00380.ctask +++| SX3 CTAE RECOVERY FILE NOT ASSIGNED TO DATA BASE 00389 M00S00381.ctask +++| SX4 X2-TERAF 00390 M00S00382.ctask +++| ZR X4,CTA2 IF NO RECOVERY FILE FOR DATA BASE 00391 M00S00383.ctask +++| SX3 CTAA DATA BASE OR FILE DOWN 00392 M00S00384.ctask +++| SX4 X2-TERAK 00393 M00S00385.ctask +++| ZR X4,CTA2 IF DATA BASE OR FILE DOWN 00394 M00S00386.ctask +++| SX3 CTAL DATA BASE OR FILE IDLE 00395 M00S00387.ctask +++| SX4 X2-TERAG 00396 M00S00388.ctask +++| ZR X4,CTA2 IF DATA BASE OR FILE IDLE 00397 M00S00389.ctask +++| SX3 CTAH TASK LOGICAL ERROR 00398 M00S00390.ctask +++| NZ X2,CTA4 IF REQUEST NOT SUCCESSFUL 00399 M00S00391.ctask +++| RBU1 SA2 TMSW+1 GET RECOVERY FLAG 00400 M00S00392.ctask +++| SX2 X2+ 00401 M00S00393.ctask +++| ZR X2,CTA3 IF NO *TAF* AUTOMATIC RECOVERY 00402 M00S00394.ctask +++| 00403 M00S00395.ctask +++|* ISSUE *SRERUN* REQUEST TO RERUN TRANSACTION USING USERNAME. 00404 M00S00396.ctask +++| 00405 M00S00397.ctask +++| SCALL SRERUN,(RBUA,TMSW+4) 00406 M00S00398.ctask +++| SA2 RBUA GET STATUS OF REQUEST 00407 M00S00399.ctask +++| SX3 CTAI TRANSACTON NOT RERUNNABLE 00408 M00S00400.ctask +++| SX4 X2-TSNO 00409 M00S00401.ctask +++| ZR X4,CTA2 IF TRANSACTION NOT RERUNNABLE 00410 M00S00402.ctask +++| SX3 CTAH TASK LOGICAL ERROR 00411 M00S00403.ctask +++| SX4 X2-TSNE NO ERRORS STATUS 00412 M00S00404.ctask +++| NZ X4,CTA4 IF ERRORS IN *RERUN* 00413 M00S00405.ctask +++| EQ CTA3 CEASE 00414 M00S00406.ctask +++| 00415 M00S00407.ctask +++|* *SRERUN* REQUEST PARAMETER. 00416 M00S00408.ctask +++| 00417 M00S00409.ctask +++| RBUA CON 0 STATUS OF REQUEST 00418 M00S00410.ctask +++| 00419 M00S00411.ctask +++|* *TINVOKE* REQUEST PARAMETERS. 00420 M00S00412.ctask +++| 00421 M00S00413.ctask +++| RBUC CON 0 STATUS OF REQUEST 00422 M00S00414.ctask +++| RBUD CON 0 NEW SYSTEM IDENTIFIER 00423 M00S00415.ctask +++| CTASK SPACE 4,50 00424 M00S00416.ctask +++|** RDB - RECOVER *CRM* DATA BASE. 00425 M00S00417.ctask +++|* 00426 M00S00418.ctask +++|* TO RECOVER THE *CRM* DATA BASE A *TAF* *CRM* REQUEST 00427 M00S00419.ctask +++|* *CRMSTAT* IS USED TO RETURN THE BEGIN-COMMIT HISTORY. 00428 M00S00420.ctask +++|* THIS INFORMATION IS PRIMARILY THE TRANSACTION SEQUENCE 00429 M00S00421.ctask +++|* TABLE (TSEQ) IN ITS ENTIRITY AS IT EXITS AT THE TIME 00430 M00S00422.ctask +++|* THE REQUEST IS PROCESSED. THE TABLE IS DEFINED WITH 00431 M00S00423.ctask +++|* *FIELD* MACROS IN *COMKCRM*. THIS DECK ALSO DEFINES 00432 M00S00424.ctask +++|* THE LENGTH OF EACH ENTRY OF THIS TABLE (TSEQE SYMBOL). 00433 M00S00425.ctask +++|* THE NUMBER OF ENTRIES IN THIS TABLE IS *CMDM*, WHICH 00434 M00S00426.ctask +++|* IS AN INSTALLATION PARAMETER DEFINED IN *COMKIPR*. 00435 M00S00427.ctask +++|* THE FIRST WORD OF EACH ENTRY OF THIS TABLE IS ZERO IF 00436 M00S00428.ctask +++|* THE ENTRY DOES NOT CONTAIN A TRANSACTION ENTRY. 00437 M00S00429.ctask +++|* 00438 M00S00430.ctask +++|* WITH THE INFORMATION IN THE *CRMSTAT* TABLE, RECOVERY 00439 M00S00431.ctask +++|* PROCESSING IS INITIATED. SUBROUTINE *RBC* HANDLES THE 00440 M00S00432.ctask +++|* PROCESSING BY CHECKING THE TRANSACTION SEQUENCE NUMBER OF 00441 M00S00433.ctask +++|* EACH ENTRY IN THE *CRMSTAT* TABLE AGAINST THE *TAF* RECOVERY 00442 M00S00434.ctask +++|* FILE. WHEN A MATCH IS FOUND, THE BEGIN IDENTIFIERS FROM 00443 M00S00435.ctask +++|* THE *CRMSTAT* TABLE ARE USED AS INPUT PARAMETERS INTO 00444 M00S00436.ctask +++|* THE APPROPRIATE PARAMETERS IN *WSTAT*. THEN A *WSTAT* 00445 M00S00437.ctask +++|* REQUEST IS ISSUED TO RECORD THE BEGIN-COMMIT HISTORY ON 00446 M00S00438.ctask +++|* THE *TAF* RECOVERY FILE. SUBROUTINE *CSN* COMPARES THE 00447 M00S00439.ctask +++|* TRANSACTION SEQUENCE NUMBERS FROM THE *TAF* RECOVERY FILE 00448 M00S00440.ctask +++|* AND THE *CRMSTAT* TABLE. 00449 M00S00441.ctask +++|* 00450 M00S00442.ctask +++|* WHEN RECOVERY PROCESSING IS COMPLETE, ROLL BACK PRO- 00451 M00S00443.ctask +++|* CESSING IS INITIATED. SUBROUTINE *RDC* HANDLES THE ROLL 00452 M00S00444.ctask +++|* BACK PROCESSING BY USING THE TRANSACTION SEQUENCE NUMBER OF 00453 M00S00445.ctask +++|* EACH *CRMSTAT* ENTRY AS THE *OLD-SYS-ID* ON THE *TINVOKE* 00454 M00S00446.ctask +++|* REQUEST. THIS WOULD ESTABLISH THE TASK/JOB AS A CONTIN- 00455 M00S00447.ctask +++|* UATION OF A PREVIOUS ONE FOR THE PURPOSE OF ISSUING A TRMREC 00456 M00S00448.ctask +++|* REQUEST TO ROLL BACK THE DATA TO A CONSISTENT STATE. 00457 M00S00449.ctask +++|* 00458 M00S00450.ctask +++|* WITH THE SUCCESSFUL COMPLETION OF ROLL BACK PROCESSING, 00459 M00S00451.ctask +++|* *BTASK* IS CALLED TO RECOVER *BTRAN* TRANSACTIONS. UPON 00460 M00S00452.ctask +++|* THE COMPLETION OF *BTASK*, A *WSTAT* REQUEST IS ISSUED 00461 M00S00453.ctask +++|* TO START INPUT TO TAF AND DATA BASE RECOVERY IS COMPLETE. 00462 M00S00454.ctask +++|* 00463 M00S00455.ctask +++|* ENTRY RECOVER *CRM* DATA BASE CASE SELECTED. 00464 M00S00456.ctask +++|* (TMSW+1) = RECOVERY FLAG. 00465 M00S00457.ctask +++|* 00466 M00S00458.ctask +++|* EXIT TO *CTA3* FOR NORMAL CEASE. 00467 M00S00459.ctask +++|* TO *CTA5* FOR ABNORMAL CEASE. 00468 M00S00460.ctask +++|* 00469 M00S00461.ctask +++|* ERROR APPROPRIATE ERROR MESSAGE ISSUED TO DAYFILE. 00470 M00S00462.ctask +++|* TO *CTA4* IF NOT SYSTEM ORIGIN TRANSACTION. 00471 M00S00463.ctask +++|* 00472 M00S00464.ctask +++|* USES X - 2, 3, 4, 6, 7. 00473 M00S00465.ctask +++|* A - 2, 6. 00474 M00S00466.ctask +++|* 00475 M00S00467.ctask +++|* CALLS RBC, RDC. 00476 M00S00468.ctask +++|* 00477 M00S00469.ctask +++|* MACROS CALLRTN, CRMSTAT, SCALL. 00478 M00S00470.ctask +++| 00479 M00S00471.ctask +++| 00480 M00S00472.ctask +++| RDB SA2 TNAM 00481 M00S00473.ctask +++| SX3 -CTAH TASK LOGICAL ERROR 00482 M00S00474.ctask +++| LX2 59-CBSYS 00483 M00S00475.ctask +++| PL X2,CTA4 IF NOT SYSTEM ORIGIN TRANSACTION 00484 M00S00476.ctask +++| SX6 B0 00485 M00S00477.ctask +++| SA2 TMSW+1 GET RECOVERY FLAG 00486 M00S00478.ctask +++| SA6 RDBM INITIALIZE NORMAL CEASE 00487 M00S00479.ctask +++| PL X2,RDB4 IF NO *CRM* RECOVERY 00488 M00S00480.ctask +++| 00489 M00S00481.ctask +++|* ISSUE *CRMSTAT* REQUEST TO GET BEGIN-COMMIT HISTORY. 00490 M00S00482.ctask +++| 00491 M00S00483.ctask +++| CRMSTAT RDBD 00492 M00S00484.ctask +++| SA2 RDBF GET STATUS OF REQUEST 00493 M00S00485.ctask +++| SX3 CTAC FILE IS NOT INSTALLED 00494 M00S00486.ctask +++| SX4 X2-TERB 00495 M00S00487.ctask +++| ZR X4,RDB2 IF FILE IS NOT INSTALLED 00496 M00S00488.ctask +++| SX3 CTAG TABLE AREA NOT LARGE ENOUGH 00497 M00S00489.ctask +++| SX4 X2-TERAN 00498 M00S00490.ctask +++| ZR X4,RDB2 IF TABLE AREA NOT LARGE ENOUGH 00499 M00S00491.ctask +++| SX3 -CTAH TASK LOGICAL ERROR 00500 M00S00492.ctask +++| NZ X2,RDB2 IF REQUEST NOT SUCCESSFUL 00501 M00S00493.ctask +++| SA2 TMSW+1 GET RECOVERY FLAG 00502 M00S00494.ctask +++| SX2 X2 00503 M00S00495.ctask +++| ZR X2,RDB1 IF NO *TAF* AUTOMATIC RECOVERY 00504 M00S00496.ctask +++| SX6 B1 00505 M00S00497.ctask +++| SA6 RDBN RECOVERY PROCESSING NOT COMPLETE 00506 M00S00498.ctask +++| 00507 M00S00499.ctask +++|* RECOVER *TAF* *CRM* DATA BASE BEGIN-COMMIT HISTORY. 00508 M00S00500.ctask +++| 00509 M00S00501.ctask +++| RJ RBC RECOVER BEGIN-COMMIT HISTORY 00510 M00S00502.ctask +++| SA2 RDBN 00511 M00S00503.ctask +++| NZ X2,RDB2 IF RECOVERY PROCESSING NOT COMPLETE 00512 M00S00504.ctask +++| RDB1 SX6 B0+ 00513 M00S00505.ctask +++| SA6 RDBL INITIALIZE *TRMREC* COUNTER 00514 M00S00506.ctask +++| 00515 M00S00507.ctask +++|* ROLL BACK THE DATA BASE TO A CONSISTENT STATE. 00516 M00S00508.ctask +++| 00517 M00S00509.ctask +++| RJ RDC ROLL BACK DATA BASE 00518 M00S00510.ctask +++| SX6 X3+ 00519 M00S00511.ctask +++| SA6 TMSW+6 SAVE ERROR MESSAGE 00520 M00S00512.ctask +++| SA2 TRSQ GET TRANSACTION SEQUENCE NUMBER 00521 M00S00513.ctask +++| MX4 -CBTSN 00522 M00S00514.ctask +++| BX6 -X4*X2 00523 M00S00515.ctask +++| SA6 RDBK SET OLD SYSTEM IDENTIFIER 00524 M00S00516.ctask +++| 00525 M00S00517.ctask +++|* RESTORE *CTASK* SEQUENCE NUMBER BEFORE CEASING. 00526 M00S00518.ctask +++| 00527 M00S00519.ctask +++| SCALL TINVOKE,(RDBI,RDBJ,RDBK) 00528 M00S00520.ctask +++| SA2 RDBI 00529 M00S00521.ctask +++| SX3 -CTAH TASK LOGICAL ERROR 00530 M00S00522.ctask +++| SX4 X2-TSNE 00531 M00S00523.ctask +++| NZ X4,RDB2 IF ERRORS IN *TINVOKE* 00532 M00S00524.ctask +++| SA3 TMSW+6 00533 M00S00525.ctask +++| SA2 RDBL 00534 M00S00526.ctask +++| NZ X2,RDB2 IF *TRMREC* ERRORS 00535 M00S00527.ctask +++| EQ RDB4 START TERMINAL INPUT 00536 M00S00528.ctask +++| 00537 M00S00529.ctask +++| RDB2 SX6 CSTT TERMINATE *TAF* 00538 M00S00530.ctask +++| SA6 RDBC TRANSACTION STEP 00539 M00S00531.ctask +++| PL X3,RDB3 IF NORMAL CEASE 00540 M00S00532.ctask +++| SX7 B1 00541 M00S00533.ctask +++| BX3 -X3 00542 M00S00534.ctask +++| SA7 RDBM ABNORMAL CEASE 00543 M00S00535.ctask +++| RDB3 SA3 X3 00544 M00S00536.ctask +++| AX3 18 00545 M00S00537.ctask +++| SCALL TMSG,(X3,A3) SEND DAYFILE MESSAGE 00546 M00S00538.ctask +++| EQ RDB5 ISSUE *WSTAT* REQUEST 00547 M00S00539.ctask +++| 00548 M00S00540.ctask +++| RDB4 SX6 CSST START TERMINAL/JOB INPUT 00549 M00S00541.ctask +++| SA6 RDBC TRANSACTION STEP 00550 M00S00542.ctask +++| 00551 M00S00543.ctask +++|* ISSUE A *CALLRTN* TO *BTASK* TO RECOVER *BTRAN* TRANSACTIONS 00552 M00S00544.ctask +++|* AND A *WSTAT* REQUEST TO TERMINATE TAF OR START INPUT. 00553 M00S00545.ctask +++| 00554 M00S00546.ctask +++| RDB5 CALLRTN RDBO 00555 M00S00547.ctask +++| SCALL WSTAT,(RDBA,RDBB,RDBC) 00556 M00S00548.ctask +++| SA2 RDBA 00557 M00S00549.ctask +++| SX3 CTAH TASK LOGICAL ERROR 00558 M00S00550.ctask +++| SX4 X2-TSNE 00559 M00S00551.ctask +++| NZ X4,CTA4 IF ERRORS IN *WSTAT* 00560 M00S00552.ctask +++| SA2 RDBM 00561 M00S00553.ctask +++| ZR X2,CTA3 IF NORMAL CEASE 00562 M00S00554.ctask +++| EQ CTA5 ABNORMAL CEASE WITH MEMORY DUMP 00563 M00S00555.ctask +++| 00564 M00S00556.ctask +++|* *WSTAT* REQUEST PARAMETERS. 00565 M00S00557.ctask +++| 00566 M00S00558.ctask +++| RDBA CON 0 STATUS OF REQUEST 00567 M00S00559.ctask +++| RDBB DATA 4HSTEP KEYWORD *STEP* 00568 M00S00560.ctask +++| RDBC CON 0 TRANSACTION STEP 00569 M00S00561.ctask +++| 00570 M00S00562.ctask +++|* *CRMSTAT* REQUEST PARAMETERS. 00571 M00S00563.ctask +++| 00572 M00S00564.ctask +++| RDBD VFD 42/0,18/RDBE 00573 M00S00565.ctask +++| VFD 42/0,18/RDBF 00574 M00S00566.ctask +++| VFD 42/0,18/RDBG 00575 M00S00567.ctask +++| VFD 42/0,18/RDBH 00576 M00S00568.ctask +++| CON 0 00577 M00S00569.ctask +++| 00578 M00S00570.ctask +++| RDBE CON 0 *CRM* STATUS FUNCTION 00579 M00S00571.ctask +++| RDBF CON 0 STATUS OF REQUEST 00580 M00S00572.ctask +++| RDBG BSSZ RMDM*CMDM*TSEQE+TSEQE+1+2*AAMQFL+AIBFL+AOBFL+1 00581 M00S00573.ctask +++| RDBH CON *-RDBG LENGTH OF *CRMSTAT* TABLE 00582 M00S00574.ctask +++| 00583 M00S00575.ctask +++|* *TINVOKE* REQUEST PARAMETERS. 00584 M00S00576.ctask +++| 00585 M00S00577.ctask +++| RDBI CON 0 STATUS OF REQUEST 00586 M00S00578.ctask +++| RDBJ CON 0 NEW SYSTEM IDENTIFIER 00587 M00S00579.ctask +++| RDBK CON 0 OLD SYSTEM IDENTIFIER 00588 M00S00580.ctask +++| 00589 M00S00581.ctask +++| RDBL CON 0 *TRMREC* ERROR COUNTER 00590 M00S00582.ctask +++| RDBM CON 0 NORMAL CEASE FLAG 00591 M00S00583.ctask +++| RDBN CON 0 RECOVERY PROCESSING COMPLETE FLAG 00592 M00S00584.ctask +++| 00593 M00S00585.ctask +++|* *CALLRTN* TASK LIST. 00594 M00S00586.ctask +++| 00595 M00S00587.ctask +++| RDBO CON 5LBTASK 00596 M00S00588.ctask +++| CON 0 00597 M00S00589.ctask +++| RTF SPACE 4,40 00598 M00S00590.ctask +++|** RTF - RECOVER TERMINAL FAILURE. 00599 M00S00591.ctask +++|* 00600 M00S00592.ctask +++|* TO RECOVER TERMINAL FAILURES, SUBROUTINE *RBH* HANDLES THE 00601 M00S00593.ctask +++|* PROCESSING BY CHECKING THE TRANSACTION SEQUENCE NUMBER 00602 M00S00594.ctask +++|* FROM THE *TAF* RECOVERY FILE AGAINST THE ENTRIES IN 00603 M00S00595.ctask +++|* THE *CRMSTAT* TABLE. IF A MATCH IS FOUND, THE BEGIN 00604 M00S00596.ctask +++|* IDENTIFIERS FROM THE *CRMSTAT* TABLE ARE USED AS INPUT 00605 M00S00597.ctask +++|* PARAMETERS IN *WSTAT*. THEN A *WSTAT* REQUEST IS 00606 M00S00598.ctask +++|* ISSUED TO RECORD THE BEGIN-COMMIT HISTORY ON THE *TAF* 00607 M00S00599.ctask +++|* RECOVERY FILE. SUBROUTINE *CSN* COMPARES THE TRANSACTION 00608 M00S00600.ctask +++|* SEQUENCE NUMBERS FROM THE *TRF* AND THE *CRMSTAT* TABLE. 00609 M00S00601.ctask +++|* 00610 M00S00602.ctask +++|* WHEN RECOVERY PROCESSING IS COMPLETE, ROLL BACK PRO- 00611 M00S00603.ctask +++|* CESSING IS STARTED. SUBROUTINE *RCS* HANDLES THE ROLL 00612 M00S00604.ctask +++|* BACK PROCESSING BY USING THE TRANSACTION SEQUENCE NUMBER 00613 M00S00605.ctask +++|* FROM THE *TRF* AS THE *OLD-SYS-ID* ON THE *TINVOKE* 00614 M00S00606.ctask +++|* REQUEST. THIS ESTABLISHES THE TASK/JOB AS A CONTINUATION 00615 M00S00607.ctask +++|* OF A PREVIOUS ONE FOR THE PURPOSE OF ISSUING A *TRMREC* 00616 M00S00608.ctask +++|* REQUEST TO ROLL BACK THE DATA TO A CONSISTENT STATE. 00617 M00S00609.ctask +++|* 00618 M00S00610.ctask +++|* WITH THE COMPLETION OF ROLL BACK PROCESSING, A *WSTAT* 00619 M00S00611.ctask +++|* REQUEST IS ISSUED TO START TERMINAL INPUT TO *TAF* AND 00620 M00S00612.ctask +++|* TERMINAL FAILURE RECOVERY IS COMPLETE. 00621 M00S00613.ctask +++|* 00622 M00S00614.ctask +++|* ENTRY (TMSW+1) = RECOVERY FLAG. 00623 M00S00615.ctask +++|* 00624 M00S00616.ctask +++|* EXIT TO *CTA3* FOR NORMAL CEASE. 00625 M00S00617.ctask +++|* TO *CTA5* FOR ABNORMAL CEASE. 00626 M00S00618.ctask +++|* 00627 M00S00619.ctask +++|* ERROR APPROPRIATE ERROR MESSAGE ISSUED TO DAYFILE. 00628 M00S00620.ctask +++|* TO *CTA4* IF NOT SYSTEM ORIGIN TRANSACTION. 00629 M00S00621.ctask +++|* 00630 M00S00622.ctask +++|* USES X - 2, 3, 4, 6, 7. 00631 M00S00623.ctask +++|* A - 2, 6, 7. 00632 M00S00624.ctask +++|* 00633 M00S00625.ctask +++|* CALLS RBH, RCS. 00634 M00S00626.ctask +++|* 00635 M00S00627.ctask +++|* MACROS SCALL. 00636 M00S00628.ctask +++| 00637 M00S00629.ctask +++| 00638 M00S00630.ctask +++| RTF SA2 TNAM 00639 M00S00631.ctask +++| SX3 -CTAH TASK LOGICAL ERROR 00640 M00S00632.ctask +++| LX2 59-CBSYS 00641 M00S00633.ctask +++| PL X2,CTA4 IF NOT SYSTEM ORIGIN TRANSACTION 00642 M00S00634.ctask +++| SX7 B0 00643 M00S00635.ctask +++| SA2 TMSW+1 GET RECOVERY FLAG 00644 M00S00636.ctask +++| SA7 RDBM INITIALIZE NORMAL CEASE 00645 M00S00637.ctask +++| PL X2,RTF3 IF NO *CRM* RECOVERY 00646 M00S00638.ctask +++| SX7 B1+ 00647 M00S00639.ctask +++| SA7 RDBN RECOVERY PROCESSING NOT COMPLETE 00648 M00S00640.ctask +++| 00649 M00S00641.ctask +++|* RECOVER *TAF/CRM* DATA BASE BEGIN-COMMIT HISTORY. 00650 M00S00642.ctask +++| 00651 M00S00643.ctask +++| RJ RBH RECOVER BEGIN-COMMIT HISTORY 00652 M00S00644.ctask +++| SA2 RDBN 00653 M00S00645.ctask +++| NZ X2,RTF1 IF RECOVERY PROCESSING NOT COMPLETE 00654 M00S00646.ctask +++| SA2 RBHA 00655 M00S00647.ctask +++| NZ X2,RTF3 IF ROLL BACK PROCESSING NOT NECESSARY 00656 M00S00648.ctask +++| SX7 B0+ 00657 M00S00649.ctask +++| SA7 RDBL INITIALIZE *TRMREC* COUNTER 00658 M00S00650.ctask +++| 00659 M00S00651.ctask +++|* ROLL BACK THE DATA BASE TO A CONSISTENT STATE. 00660 M00S00652.ctask +++| 00661 M00S00653.ctask +++| RJ RCS ROLL BACK TO CONSISTENT STATE 00662 M00S00654.ctask +++| SX6 X3+ 00663 M00S00655.ctask +++| SA6 TMSW+6 SAVE ERROR MESSAGE 00664 M00S00656.ctask +++| SA2 TRSQ GET TRANSACTION SEQUENCE NUMBER 00665 M00S00657.ctask +++| MX4 -CBTSN 00666 M00S00658.ctask +++| BX6 -X4*X2 00667 M00S00659.ctask +++| SA6 RDBK SET OLD SYSTEM IDENTIFIER 00668 M00S00660.ctask +++| 00669 M00S00661.ctask +++|* RESTORE *CTASK* SEQUENCE NUMBER BEFORE CEASING. 00670 M00S00662.ctask +++| 00671 M00S00663.ctask +++| SCALL TINVOKE,(RDBI,RDBJ,RDBK) 00672 M00S00664.ctask +++| SA2 RDBI GET STATUS OF REQUEST 00673 M00S00665.ctask +++| SX3 -CTAH TASK LOGICAL ERROR 00674 M00S00666.ctask +++| SX4 X2-TSNE 00675 M00S00667.ctask +++| NZ X4,RTF1 IF ERRORS IN *TINVOKE* 00676 M00S00668.ctask +++| SA3 TMSW+6 00677 M00S00669.ctask +++| SA2 RDBL 00678 M00S00670.ctask +++| NZ X2,RTF1 IF *TRMREC* ERRORS 00679 M00S00671.ctask +++| EQ RTF3 START TERMINAL INPUT 00680 M00S00672.ctask +++| 00681 M00S00673.ctask +++| RTF1 SX6 CSTT TERMINATE *TAF* 00682 M00S00674.ctask +++| SA6 RDBC TRANSACTION STEP 00683 M00S00675.ctask +++| PL X3,RTF2 IF NORMAL CEASE 00684 M00S00676.ctask +++| SX7 B1 00685 M00S00677.ctask +++| BX3 -X3 00686 M00S00678.ctask +++| SA7 RDBM ABNORMAL CEASE WITH DUMP 00687 M00S00679.ctask +++| RTF2 SA3 X3 00688 M00S00680.ctask +++| AX3 18 00689 M00S00681.ctask +++| SCALL TMSG,(X3,A3) SEND DAYFILE MESSAGE 00690 M00S00682.ctask +++| EQ RTF4 ISSUE *WSTAT* REQUEST 00691 M00S00683.ctask +++| 00692 M00S00684.ctask +++| RTF3 SX6 CSST START TERMINAL/JOB INPUT 00693 M00S00685.ctask +++| SA6 RDBC TRANSACTION STEP 00694 M00S00686.ctask +++| 00695 M00S00687.ctask +++|* ISSUE *WSTAT* REQUEST TO TERMINATE *TAF* OR START INPUT. 00696 M00S00688.ctask +++| 00697 M00S00689.ctask +++| RTF4 SCALL WSTAT,(RDBA,RDBB,RDBC) 00698 M00S00690.ctask +++| SA2 RDBA GET STATUS OF REQUEST 00699 M00S00691.ctask +++| SX3 CTAH TASK LOGICAL ERROR 00700 M00S00692.ctask +++| SX4 X2-TSNE 00701 M00S00693.ctask +++| NZ X4,CTA4 IF ERRORS IN *WSTAT* 00702 M00S00694.ctask +++| SA2 RDBM 00703 M00S00695.ctask +++| ZR X2,CTA3 IF NORMAL CEASE 00704 M00S00696.ctask +++| EQ CTA5 ABNORMAL CEASE WITH MEMORY DUMP 00705 M00S00697.ctask +++| CTASK SPACE 4,10 00706 M00S00698.ctask +++|** CCE - COUNT *CRMSTAT* ENTRIES. 00707 M00S00699.ctask +++|* 00708 M00S00700.ctask +++|* ENTRY (B2) = NUMBER OF ENTRIES IN *CRMSTAT* TABLE. 00709 M00S00701.ctask +++|* RDBG = FWA OF *CRMSTAT* TABLE. 00710 M00S00702.ctask +++|* 00711 M00S00703.ctask +++|* EXIT (B3) = NUMBER OF VALID ENTRIES IN *CRMSTAT* TABLE. 00712 M00S00704.ctask +++|* 00713 M00S00705.ctask +++|* USES X - 2, 3. 00714 M00S00706.ctask +++|* A - 2, 3. 00715 M00S00707.ctask +++|* B - 2, 3. 00716 M00S00708.ctask +++| 00717 M00S00709.ctask +++| 00718 M00S00710.ctask +++| CCE SUBR ENTRY/EXIT 00719 M00S00711.ctask +++| SB3 B0+ VALID ENTRY COUNT 00720 M00S00712.ctask +++| SA2 RDBG+TSSQW-TSEQE INITIALIZE FWA OF *CRMSTAT* TABLE 00721 M00S00713.ctask +++| CCE1 SB2 B2-1 DECREMENT ENTRY COUNT 00722 M00S00714.ctask +++| ZR B2,CCEX IF END OF *CRMSTAT* TABLE 00723 M00S00715.ctask +++| SA2 A2+TSEQE GET NEXT ENTRY FROM *CRMSTAT* TABLE 00724 M00S00716.ctask +++| ZR X2,CCE1 IF NULL ENTRY 00725 M00S00717.ctask +++| SA3 A2+TSRCW 00726 M00S00718.ctask +++| LX3 59-TSRCS TASK RECOVERED FROM *BRF* BIT 00727 M00S00719.ctask +++| PL X3,CCE1 IF TASK NOT RECOVERED FROM *BRF* 00728 M00S00720.ctask +++| SB3 B3+1 INCREMENT VALID ENTRY COUNT 00729 M00S00721.ctask +++| EQ CCE1 LOOP FOR NEXT ENTRY IN *CRMSTAT* TABLE 00730 M00S00722.ctask +++| CTASK SPACE 4,15 00731 M00S00723.ctask +++|** CSN - COMPARE SEQUENCE NUMBERS. 00732 M00S00724.ctask +++|* 00733 M00S00725.ctask +++|* ENTRY (RBCF) = *TSTAT* SEQUENCE NUMBER.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2001 |
Seq # *Modification Id* Act ----------------------------+ 00734 M01S00001.ns2001 +++|* (RBCD) = *TSTAT* USER NAME. 00735 M00S00726.ctask +++|* RDBG = FWA OF *CRMSTAT* TABLE. 00736 M00S00727.ctask +++|* 00737 M00S00728.ctask +++|* EXIT (X0) = 0, IF MATCH FOUND. 00738 M00S00729.ctask +++|* 1, IF NO MATCH.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2001 |
Seq # *Modification Id* Act ----------------------------+ 00739 M01S00002.ns2001 +++|* (A3) = FWA OF *CRMSTAT* ENTRY IF MATCH FOUND. 00740 M00S00730.ctask +++|* 00741 M00S00731.ctask +++|* USES X - 0, 1, 2, 3, 4, 5, 6. 00742 M00S00732.ctask +++|* A - 1, 2, 3, 6. 00743 M00S00733.ctask +++|* B - 3, 4. 00744 M00S00734.ctask +++| 00745 M00S00735.ctask +++| 00746 M00S00736.ctask +++| CSN SUBR ENTRY/EXIT 00747 M00S00737.ctask +++| SA2 TMSW TERMINAL FAILURE CASE 00748 M00S00738.ctask +++| SB4 X2-TYTF 00749 M00S00739.ctask +++| SB3 RMDM*CMDM+2 INITIALIZE ENTRY COUNTER 00750 M00S00740.ctask +++| SA2 RBCF GET *SEQ* NUMBER FROM *TSTAT* 00751 M00S00741.ctask +++| SX0 B1+ NO MATCH 00752 M00S00742.ctask +++| SA3 RDBG+TSSQW-TSEQE INITIALIZE FWA OF *CRMSTAT* TABLE 00753 M00S00743.ctask +++| CSN1 SB3 B3-1 DECREMENT ENTRY COUNT 00754 M00S00744.ctask +++| ZR B3,CSNX IF END OF *CRMSTAT* TABLE, RETURN 00755 M00S00745.ctask +++| SA3 A3+TSEQE GET NEXT ENTRY FROM *CRMSTAT* TABLE 00756 M00S00746.ctask +++| ZR X3,CSN1 IF NULL ENTRY 00757 M00S00747.ctask +++| ZR B4,CSN2 IF TERMINAL FAILURE CASE 00758 M00S00748.ctask +++| SA1 A3+TSRCW 00759 M00S00749.ctask +++| LX1 59-TSRCS TASK RECOVERED FROM *BRF* BIT 00760 M00S00750.ctask +++| PL X1,CSN1 IF TASK NOT RECOVERED FROM *BRF* 00761 M00S00751.ctask +++| CSN2 MX4 TSSQN 00762 M00S00752.ctask +++| BX5 X4*X3 MASK OFF *CRM* SEQUENCE NUMBER 00763 M00S00753.ctask +++| LX5 TSSQN-1-TSSQS RIGHT JUSTIFY *CRM* SEQUENCE NUMBER 00764 M00S00754.ctask +++| IX3 X5-X2 00765 M00S00755.ctask +++| NZ X3,CSN1 IF NO MATCH
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2001 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00756.ctask +++| SX0 B0+ MATCH FOUND 00774 M00S00757.ctask +++| EQ CSNX RETURN 00775 M00S00758.ctask +++| CTASK SPACE 4,20 00776 M00S00759.ctask +++|** RBC - RECOVER BEGIN-COMMIT HISTORY. 00777 M00S00760.ctask +++|* 00778 M00S00761.ctask +++|* ENTRY *CRMSTAT* TABLE LOADED. 00779 M00S00762.ctask +++|* (RDBN) = 1, FOR RECOVERY PROCESSING NOT COMPLETE. 00780 M00S00763.ctask +++|* 00781 M00S00764.ctask +++|* EXIT (RDBN) = 0, IF RECOVERY PROCESSING COMPLETE. 00782 M00S00765.ctask +++|* = 1, IF NOT COMPLETE. 00783 M00S00766.ctask +++|* 00784 M00S00767.ctask +++|* ERROR (X3) = ADDRESS OF ERROR MESSAGE WHEN NOT COMPLETE. 00785 M00S00768.ctask +++|* 00786 M00S00769.ctask +++|* USES X - 2, 3, 4, 6, 7. 00787 M00S00770.ctask +++|* A - 2, 3, 6, 7. 00788 M00S00771.ctask +++|* B - 2. 00789 M00S00772.ctask +++|* 00790 M00S00773.ctask +++|* CALLS CCE, CSN. 00791 M00S00774.ctask +++|* 00792 M00S00775.ctask +++|* MACROS SCALL. 00793 M00S00776.ctask +++| 00794 M00S00777.ctask +++| 00795 M00S00778.ctask +++| RBC SUBR ENTRY/EXIT 00796 M00S00779.ctask +++| SB2 RMDM*CMDM+2 00797 M00S00780.ctask +++| SA3 RBCS GET BLANK WORD 00798 M00S00781.ctask +++| BX6 X3 00799 M00S00782.ctask +++| RJ CCE COUNT *CRMSTAT* ENTRIES 00800 M00S00783.ctask +++| SX7 B3+B1 VALID ENTRY COUNT 00801 M00S00784.ctask +++| SA6 RBCD INITIALIZE *NEXT* FOR *TSTAT* 00802 M00S00785.ctask +++| SA7 RBCT 00803 M00S00786.ctask +++| RBC1 SA1 RBCT 00804 M00S00787.ctask +++| SX6 X1-1 DECREMENT ENTRY COUNT 00805 M00S00788.ctask +++| ZR X6,RBC4 IF END OF *CRMSTAT* TABLE 00806 M00S00789.ctask +++| SA6 A1+ 00807 M00S00790.ctask +++| 00808 M00S00791.ctask +++|* ISSUE *TSTAT* REQUEST TO RETURN OPERATIONAL ENVIRONMENT. 00809 M00S00792.ctask +++| 00810 M00S00793.ctask +++| RBC2 SCALL TSTAT,(RBCA,RBCC,RBCD,RBCE,RBCF,RBCG,RBCH,RBCI,RBCJ,RBC 00811 M00S00794.ctask +++|,K,RBCL,RBCM,RBCN) ISSUE *TSTAT* REQUEST 00812 M00S00795.ctask +++| SA2 RBCA GET STATUS OF REQUEST 00813 M00S00796.ctask +++| SX4 X2-TSRU RECOVERY UNAVAILABLE STATUS 00814 M00S00797.ctask +++| ZR X4,RBC4 IF RECOVERY UNAVAILABLE 00815 M00S00798.ctask +++| SX4 X2-TSEN 00816 M00S00799.ctask +++| ZR X4,RBC4 IF END OF *NEXT* PROCESSING 00817 M00S00800.ctask +++| SX3 CTAK USER NOT DEFINED IN NETWORK FILE 00818 M00S00801.ctask +++| SX4 X2-TSUU USER UNKNOWN STATUS 00819 M00S00802.ctask +++| ZR X4,RBCX IF USER UNKNOWN, RETURN 00820 M00S00803.ctask +++| SX3 -CTAH TASK LOGICAL ERROR 00821 M00S00804.ctask +++| SX4 X2-TSNE NO ERRORS STATUS 00822 M00S00805.ctask +++| NZ X4,RBCX IF ERRORS IN *TSTAT*, RETURN 00823 M00S00806.ctask +++| RJ CSN COMPARE SEQUENCE NUMBERS 00824 M00S00807.ctask +++| NZ X0,RBC2 IF NO MATCH FOUND 00825 M00S00808.ctask +++| SX6 CSBC 00826 M00S00809.ctask +++| SA6 RBCH SET TRANSACTION STEP 00827 M00S00810.ctask +++| SA3 A3+TSBCW GET BEGIN IDENTIFIERS FROM *CRMSTAT* TABLE 00828 M00S00811.ctask +++| ERRNZ TSBPW-TSBCW ID-S NOT IN SAME WORD 00829 M00S00812.ctask +++| MX4 -TSBCN 00830 M00S00813.ctask +++| ERRNZ TSBPN-TSBCN ID-LENGTH NOT EQUAL 00831 M00S00814.ctask +++| BX6 -X4*X3 MASK OFF CURRENT BEGIN IDENTIFIER 00832 M00S00815.ctask +++| LX3 TSBPN-1-TSBPS RIGHT JUSTIFY PREVIOUS BEGIN IDENTIFIER 00833 M00S00816.ctask +++| BX7 -X4*X3 MASK OFF PREVIOUS BEGIN IDENTIFIER 00834 M00S00817.ctask +++| SA6 RBCR CURRENT *CRM* IDENTIFIER 00835 M00S00818.ctask +++| SA7 RBCP PREVIOUS *CRM* IDENTIFIER 00836 M00S00819.ctask +++| 00837 M00S00820.ctask +++|* ISSUE *WSTAT* REQUEST TO RECORD BEGIN-COMMIT HISTORY. 00838 M00S00821.ctask +++| 00839 M00S00822.ctask +++| SCALL WSTAT,(RBCA,RBCB,RBCD,RBCE,RBCF,RBCG,RBCH,RBCI,RBCJ,RBC 00840 M00S00823.ctask +++|,K,RBCL,RBCM,RBCN,RBCO,RBCP,RBCQ,RBCR) ISSUE *WSTAT* REQUEST 00841 M00S00824.ctask +++| SA2 RBCA GET STATUS OF REQUEST 00842 M00S00825.ctask +++| SX3 CTAK USER NOT DEFINED IN NETWORK FILE 00843 M00S00826.ctask +++| SX4 X2-TSUU USER UNKNOWN STATUS 00844 M00S00827.ctask +++| ZR X4,RBCX IF USER UNKNOWN, RETURN 00845 M00S00828.ctask +++| SX3 -CTAH TASK LOGICAL ERROR 00846 M00S00829.ctask +++| SX4 X2-TSNE NO ERRORS STATUS 00847 M00S00830.ctask +++| NZ X4,RBCX IF ERRORS IN *WSTAT*, RETURN 00848 M00S00831.ctask +++| EQ RBC1 LOOP FOR NEXT ENTRY IN *CRMSTAT* TABLE 00849 M00S00832.ctask +++| 00850 M00S00833.ctask +++| RBC4 SX7 B0+ RECOVER PROCESSING COMPLETE 00851 M00S00834.ctask +++| SA7 RDBN 00852 M00S00835.ctask +++| EQ RBCX RETURN 00853 M00S00836.ctask +++| 00854 M00S00837.ctask +++|* *TSTAT* AND *WSTAT* REQUEST PARAMETERS. 00855 M00S00838.ctask +++| 00856 M00S00839.ctask +++| RBCA CON 0 STATUS OF REQUEST 00857 M00S00840.ctask +++| RBCB DATA 4HUSER KEYWORD *USER* 00858 M00S00841.ctask +++| RBCC DATA 4HNEXT KEYWORD *NEXT* 00859 M00S00842.ctask +++| RBCD CON 0 NEXT USER FROM *TAF* RECOVERY FILE 00860 M00S00843.ctask +++| RBCE DATA 3HSEQ KEYWORD *SEQ* 00861 M00S00844.ctask +++| RBCF CON 0 TRANSACTION SEQUENCE NUMBER 00862 M00S00845.ctask +++| RBCG DATA 4HSTEP KEYWORD *STEP* 00863 M00S00846.ctask +++| RBCH CON 0 TRANSACTION STEP 00864 M00S00847.ctask +++| RBCI DATA 4HTRAN KEYWORD *TRAN* 00865 M00S00848.ctask +++| RBCJ CON 0 TRANSACTION TYPE 00866 M00S00849.ctask +++| RBCK DATA 3HCRM KEYWORD *CRM* 00867 M00S00850.ctask +++| RBCL CON 0 *CRM* TRANSACTION USAGE 00868 M00S00851.ctask +++| RBCM DATA 4HCDCS KEYWORD *CDCS* 00869 M00S00852.ctask +++| RBCN CON 0 *CDCS* TRANSACTION USAGE 00870 M00S00853.ctask +++| RBCO DATA 5HOLDID KEYWORD *OLDID* 00871 M00S00854.ctask +++| RBCP CON 0 PREVIOUS *CRM* IDENTIFIER 00872 M00S00855.ctask +++| RBCQ DATA 5HNEWID KEYWORD *NEWID* 00873 M00S00856.ctask +++| RBCR CON 0 CURRENT *CRM* IDENTIFIER 00874 M00S00857.ctask +++| RBCS DATA 1H BLANK WORD 00875 M00S00858.ctask +++| RBCT CON 0 ENTRY COUNT 00876 M00S00859.ctask +++| RBH SPACE 4,20 00877 M00S00860.ctask +++|** RBH - RECOVER BEGIN-COMMIT HISTORY FOR TERMINAL FAILURES. 00878 M00S00861.ctask +++|* 00879 M00S00862.ctask +++|* ENTRY (RDBN) = 1 FOR RECOVERY PROCESSING NOT COMPLETE. 00880 M00S00863.ctask +++|* 00881 M00S00864.ctask +++|* EXIT (RDBN) = 0, IF RECOVERY PROCESSING COMPLETE. 00882 M00S00865.ctask +++|* = 1, IF NOT COMPLETE. 00883 M00S00866.ctask +++|* (RBHA) = 0, IF ROLL BACK PROCESSING NECESSARY. 00884 M00S00867.ctask +++|* = 1, IF NOT NECESSARY. 00885 M00S00868.ctask +++|* 00886 M00S00869.ctask +++|* ERROR (X3) = FWA OF ERROR MESSAGE PARAMETERS WHEN NOT 00887 M00S00870.ctask +++|* COMPLETE. 00888 M00S00871.ctask +++|* 00889 M00S00872.ctask +++|* USES X - 2, 3, 4, 6, 7. 00890 M00S00873.ctask +++|* A - 2, 3, 6, 7. 00891 M00S00874.ctask +++|* 00892 M00S00875.ctask +++|* CALLS CSN. 00893 M00S00876.ctask +++|* 00894 M00S00877.ctask +++|* MACROS CRMSTAT, SCALL. 00895 M00S00878.ctask +++| 00896 M00S00879.ctask +++| 00897 M00S00880.ctask +++| RBH SUBR ENTRY/EXIT
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | ns2001 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00881.ctask +++| 00903 M00S00882.ctask +++|* ISSUE *TSTAT* REQUEST TO RETURN OPERATIONAL ENVIRONMENT. 00904 M00S00883.ctask +++|
| Line S00884 Modification History | |
|---|---|
M01 (Removed by) | ns2001 |
Seq # *Modification Id* Act ----------------------------+ 00905 M01S00884.ns2001 ---| SCALL TSTAT,(RBCA,RBCE,RBCF,RBCG,RBCH,RBCI,RBCJ,RBCK,RBCL,RBC 00906 M01S00885.ns2001 ---|,M,RBCN)
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | ns2001 |
Seq # *Modification Id* Act ----------------------------+ 00907 M01S00014.ns2001 +++| SCALL TSTAT,(RBCA,RBCB,RBCD,RBCE,RBCF,RBCG,RBCH,RBCI,RBCJ,RBC 00908 M01S00015.ns2001 +++|,K,RBCL,RBCM,RBCN) 00909 M00S00886.ctask +++| SA2 RBCA GET STATUS OF REQUEST 00910 M00S00887.ctask +++| SX3 CTAK USER NOT DEFINED IN NETWORK FILE 00911 M00S00888.ctask +++| SX4 X2-TSUU 00912 M00S00889.ctask +++| ZR X4,RBHX IF USER UNKNOWN 00913 M00S00890.ctask +++| SX3 -CTAH TASK LOGICAL ERROR 00914 M00S00891.ctask +++| SX4 X2-TSNE 00915 M00S00892.ctask +++| NZ X4,RBHX IF ERRORS IN *TSTAT* 00916 M00S00893.ctask +++| SA2 RBCL GET *CRM* USAGE 00917 M00S00894.ctask +++| SX6 B1+ 00918 M00S00895.ctask +++| ZR X2,RBH2 IF *CRM* MAY NOT BE USED 00919 M00S00896.ctask +++| 00920 M00S00897.ctask +++|* ISSUE *CRMSTAT* REQUEST TO GET BEGIN-COMMIT HISTORY. 00921 M00S00898.ctask +++| 00922 M00S00899.ctask +++| CRMSTAT RDBD 00923 M00S00900.ctask +++| SA2 RDBF GET STATUS OF REQUEST 00924 M00S00901.ctask +++| SX3 CTAC FILE IS NOT INSTALLED 00925 M00S00902.ctask +++| SX4 X2-TERB 00926 M00S00903.ctask +++| ZR X4,RBHX IF FILE IS NOT INSTALLED 00927 M00S00904.ctask +++| SX3 CTAG TABLE AREA NOT LARGE ENOUGH 00928 M00S00905.ctask +++| SX4 X2-TERAN 00929 M00S00906.ctask +++| ZR X4,RBHX IF TABLE AREA NOT LARGE ENOUGH 00930 M00S00907.ctask +++| SX3 -CTAH TASK LOGICAL ERROR 00931 M00S00908.ctask +++| NZ X2,RBHX IF REQUEST NOT SUCCESSFUL 00932 M00S00909.ctask +++| RJ CSN COMPARE SEQUENCE NUMBERS 00933 M00S00910.ctask +++| SX6 B1+ 00934 M00S00911.ctask +++| NZ X0,RBH2 IF NO MATCH FOUND 00935 M00S00912.ctask +++| SA2 RBCH GET TRANSACTION STEP 00936 M00S00913.ctask +++| SX4 X2-CSTI 00937 M00S00914.ctask +++| ZR X4,RBH1 IF RECOVERABLE TRANSACTION/JOB INPUT 00938 M00S00915.ctask +++| SX4 X2-CSBC 00939 M00S00916.ctask +++| ZR X4,RBH1 IF BEGIN-COMMIT *CRM* ID-S LOGGED 00940 M00S00917.ctask +++| SX4 X2-CSND 00941 M00S00918.ctask +++| SX6 B0+ 00942 M00S00919.ctask +++| NZ X4,RBH2 IF *NAM* NOT DOWN 00943 M00S00920.ctask +++| RBH1 SX6 CSBC 00944 M00S00921.ctask +++| SA6 RBCH SET ID-S LOGGED STEP 00945 M00S00922.ctask +++| SA3 A3+TSBCW GET ID-S FROM *CRMSTAT* TABLE 00946 M00S00923.ctask +++| MX4 -TSBCN 00947 M00S00924.ctask +++| BX6 -X4*X3 00948 M00S00925.ctask +++| LX3 TSBPN-1-TSBPS 00949 M00S00926.ctask +++| BX7 -X4*X3 00950 M00S00927.ctask +++| SA6 RBCR CURRENT *CRM* ID 00951 M00S00928.ctask +++| SA7 RBCP PREVIOUS *CRM* ID 00952 M00S00929.ctask +++| 00953 M00S00930.ctask +++|* ISSUE *WSTAT* REQUEST TO RECORD BEGIN-COMMIT HISTORY. 00954 M00S00931.ctask +++|
| Line S00932 Modification History | |
|---|---|
M01 (Removed by) | ns2001 |
Seq # *Modification Id* Act ----------------------------+ 00955 M01S00932.ns2001 ---| SCALL WSTAT,(RBCA,RBCE,RBCF,RBCG,RBCH,RBCI,RBCJ,RBCK,RBCL,RBC 00956 M01S00933.ns2001 ---|,M,RBCN,RBCO,RBCP,RBCQ,RBCR)
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | ns2001 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00934.ctask +++| SA2 RBCA GET STATUS OF REQUEST 00960 M00S00935.ctask +++| SX3 CTAK USER NOT DEFINED IN NETWORK FILE 00961 M00S00936.ctask +++| SX4 X2-TSUU 00962 M00S00937.ctask +++| ZR X4,RBHX IF USER UNKNOWN 00963 M00S00938.ctask +++| SX3 -CTAH TASK LOGICAL ERROR 00964 M00S00939.ctask +++| SX4 X2-TSNE 00965 M00S00940.ctask +++| NZ X4,RBHX IF ERRORS IN *WSTAT* 00966 M00S00941.ctask +++| SX6 B0+ 00967 M00S00942.ctask +++| RBH2 SX7 B0+ 00968 M00S00943.ctask +++| SA6 RBHA ROLL BACK PROCESSING FLAG 00969 M00S00944.ctask +++| SA7 RDBN RECOVERY PROCESSING COMPLETE 00970 M00S00945.ctask +++| EQ RBHX RETURN 00971 M00S00946.ctask +++| 00972 M00S00947.ctask +++| RBHA CON 0 ROLL BACK PROCESSING FLAG 00973 M00S00948.ctask +++| CTASK SPACE 4,15 00974 M00S00949.ctask +++|** RDC - ROLL BACK DATA TO CONSISTENT STATE. 00975 M00S00950.ctask +++|* 00976 M00S00951.ctask +++|* ENTRY RDBG = FWA OF *CRMSTAT* TABLE. 00977 M00S00952.ctask +++|* 00978 M00S00953.ctask +++|* EXIT (RDBL) = 0, IF ROLL BACK PROCESSING COMPLETE. 00979 M00S00954.ctask +++|* = NON-ZERO, IF NOT COMPLETE. 00980 M00S00955.ctask +++|* 00981 M00S00956.ctask +++|* ERROR (X3) = FWA OF ERROR MESSAGE PARAMETERS WHEN NOT 00982 M00S00957.ctask +++|* COMPLETE. 00983 M00S00958.ctask +++|* 00984 M00S00959.ctask +++|* USES X - 2, 3, 4, 5, 6, 7. 00985 M00S00960.ctask +++|* A - 2, 3, 6, 7. 00986 M00S00961.ctask +++|* 00987 M00S00962.ctask +++|* MACROS SCALL, TRMREC. 00988 M00S00963.ctask +++| 00989 M00S00964.ctask +++| 00990 M00S00965.ctask +++| RDC SUBR ENTRY/EXIT 00991 M00S00966.ctask +++| SX6 RMDM*CMDM+2 00992 M00S00967.ctask +++| SX7 RDBG+TSSQW-TSEQE 00993 M00S00968.ctask +++| SA6 RDCG 00994 M00S00969.ctask +++| SA7 RDCH 00995 M00S00970.ctask +++| RDC1 SA2 RDCG 00996 M00S00971.ctask +++| SX6 X2-1 00997 M00S00972.ctask +++| ZR X6,RDC2 IF END OF *CRMSTAT* TABLE 00998 M00S00973.ctask +++| SA6 A2 00999 M00S00974.ctask +++| SA2 A2+B1 01000 M00S00975.ctask +++| SA3 X2+TSEQE GET NEXT ENTRY FROM *CRMSTAT* TABLE 01001 M00S00976.ctask +++| SX7 A3 01002 M00S00977.ctask +++| SA7 A2 01003 M00S00978.ctask +++| ZR X3,RDC1 IF NULL ENTRY 01004 M00S00979.ctask +++| MX5 TSSQN 01005 M00S00980.ctask +++| BX6 X5*X3 MASK OFF *CRM* SEQUENCE NUMBER 01006 M00S00981.ctask +++| LX6 TSSQN-1-TSSQS RIGHT JUSTIFY *CRM* SEQUENCE NUMBER 01007 M00S00982.ctask +++| SA6 RDCC OLD SYSTEM IDENTIFIER 01008 M00S00983.ctask +++| 01009 M00S00984.ctask +++|* ISSUE *TINVOKE* REQUEST TO GET NEW SYSTEM IDENTIFIER. 01010 M00S00985.ctask +++| 01011 M00S00986.ctask +++| SCALL TINVOKE,(RDCA,RDCB,RDCC) ISSUE *TINVOKE* REQUEST 01012 M00S00987.ctask +++| SA2 RDCA GET STATUS OF REQUEST 01013 M00S00988.ctask +++| SX3 CTAF SYSTEM IDENTIFIER UNKNOWN STATUS 01014 M00S00989.ctask +++| SX4 X2-TSSU 01015 M00S00990.ctask +++| ZR X4,RDC3 IF SYSTEM ID UNKNOWN 01016 M00S00991.ctask +++| SX3 -CTAH TASK LOGICAL ERROR 01017 M00S00992.ctask +++| SX4 X2-TSNE NO ERRORS STATUS 01018 M00S00993.ctask +++| NZ X4,RDC3 IF ERRORS IN *TINVOKE* 01019 M00S00994.ctask +++| 01020 M00S00995.ctask +++|* ISSUE *TRMREC* REQUEST TO ROLL BACK DATA TO CONSISTENT STATE. 01021 M00S00996.ctask +++| 01022 M00S00997.ctask +++| TRMREC RDCD 01023 M00S00998.ctask +++| SA2 RDCF GET STATUS OF REQUEST 01024 M00S00999.ctask +++| ZR X2,RDC1 IF REQUEST SUCCESSFUL 01025 M00S01000.ctask +++| SA1 RDBL *TRMREC* ERROR COUNTER 01026 M00S01001.ctask +++| SX7 X1+1 01027 M00S01002.ctask +++| SA7 A1+ INCREMENT ERROR COUNTER 01028 M00S01003.ctask +++| EQ RDC1 LOOP FOR NEXT ENTRY IN *CRMSTAT* TABLE 01029 M00S01004.ctask +++| 01030 M00S01005.ctask +++| RDC2 SX3 CTAJ *TRMREC* ERROR 01031 M00S01006.ctask +++| EQ RDCX RETURN 01032 M00S01007.ctask +++| 01033 M00S01008.ctask +++| RDC3 SX6 CMDM+1 01034 M00S01009.ctask +++| SA6 RDBL *TINVOKE* ERROR 01035 M00S01010.ctask +++| EQ RDCX RETURN 01036 M00S01011.ctask +++| 01037 M00S01012.ctask +++|* *TINVOKE* REQUEST PARAMETERS. 01038 M00S01013.ctask +++| 01039 M00S01014.ctask +++| RDCA CON 0 STATUS OF REQUEST 01040 M00S01015.ctask +++| RDCB CON 0 NEW SYSTEM IDENTIFIER 01041 M00S01016.ctask +++| RDCC CON 0 OLD SYSTEM IDENTIFIER 01042 M00S01017.ctask +++| 01043 M00S01018.ctask +++|* *TRMREC* REQUEST PARAMETERS. 01044 M00S01019.ctask +++| 01045 M00S01020.ctask +++| RDCD VFD 42/0,18/RDCE 01046 M00S01021.ctask +++| VFD 42/0,18/RDCF 01047 M00S01022.ctask +++| CON 0 01048 M00S01023.ctask +++| 01049 M00S01024.ctask +++| RDCE CON 0 ZERO WORD 01050 M00S01025.ctask +++| RDCF CON 0 STATUS OF REQUEST 01051 M00S01026.ctask +++| RDCG CON 0 NUMBER OF *CRMSTAT* ENTRIES 01052 M00S01027.ctask +++| RDCH CON 0 FWA OF *CRMSTAT* TABLE 01053 M00S01028.ctask +++| RCS SPACE 4,15 01054 M00S01029.ctask +++|** RCS - ROLL BACK DATA TO CONSISTENT STATE FOR 01055 M00S01030.ctask +++|* TERMINAL FAILURES. 01056 M00S01031.ctask +++|* 01057 M00S01032.ctask +++|* ENTRY (RBCF) = SEQUENCE NUMBER. 01058 M00S01033.ctask +++|* 01059 M00S01034.ctask +++|* EXIT (RDBL) = 0, IF ROLL BACK PROCESSING COMPLETE. 01060 M00S01035.ctask +++|* = NON-ZERO, IF NOT COMPLETE. 01061 M00S01036.ctask +++|* 01062 M00S01037.ctask +++|* ERROR (X3) = FWA OF ERROR MESSAGE PARAMETERS WHEN NOT 01063 M00S01038.ctask +++|* COMPLETE. 01064 M00S01039.ctask +++|* 01065 M00S01040.ctask +++|* USES X - 2, 3, 4, 7. 01066 M00S01041.ctask +++|* A - 2, 7. 01067 M00S01042.ctask +++|* 01068 M00S01043.ctask +++|* MACROS SCALL, TRMREC. 01069 M00S01044.ctask +++| 01070 M00S01045.ctask +++| 01071 M00S01046.ctask +++| RCS SUBR ENTRY/EXIT 01072 M00S01047.ctask +++| 01073 M00S01048.ctask +++|* ISSUE *TINVOKE* REQUEST TO GET NEW SYSTEM ID. 01074 M00S01049.ctask +++| 01075 M00S01050.ctask +++| SCALL TINVOKE,(RDCA,RDCB,RBCF) 01076 M00S01051.ctask +++| SA2 RDCA GET STATUS OF REQUEST 01077 M00S01052.ctask +++| SX3 CTAF SYSTEM ID UNKNOWN 01078 M00S01053.ctask +++| SX4 X2-TSUU 01079 M00S01054.ctask +++| ZR X4,RCS3 IF SYSTEM ID UNKNOWN 01080 M00S01055.ctask +++| SX3 -CTAH TASK LOGICAL ERROR 01081 M00S01056.ctask +++| SX4 X2-TSNE 01082 M00S01057.ctask +++| NZ X4,RCS3 IF ERRORS IN *TINVOKE* 01083 M00S01058.ctask +++| 01084 M00S01059.ctask +++|* ISSUE *TRMREC* REQUEST TO ROLL BACK DATA TO CONSISTENT STATE. 01085 M00S01060.ctask +++| 01086 M00S01061.ctask +++| TRMREC RDCD 01087 M00S01062.ctask +++| SA2 RDCF GET STATUS OF REQUEST 01088 M00S01063.ctask +++| ZR X2,RCSX IF REQUEST SUCCESSFUL 01089 M00S01064.ctask +++| SX3 CTAJ *TRMREC* ERROR 01090 M00S01065.ctask +++| SX7 B1+ 01091 M00S01066.ctask +++| RCS2 SA7 RDBL *TRMREC* ERROR COUNTER 01092 M00S01067.ctask +++| EQ RCSX RETURN 01093 M00S01068.ctask +++| 01094 M00S01069.ctask +++| RCS3 SX7 CMDM+1 *TINVOKE* ERROR 01095 M00S01070.ctask +++| EQ RCS2 SET *TRMREC* COUNT 01096 M00S01071.ctask +++| CTASK SPACE 4,15 01097 M00S01072.ctask +++|** RID - RESTORE DATA BASE IDENTIFIERS. 01098 M00S01073.ctask +++|* 01099 M00S01074.ctask +++|* ENTRY (TMSW+2) = *OLDID* FROM COMMUNICATION BLOCK. 01100 M00S01075.ctask +++|* (TMSW+3) = *NEWID* FROM COMMUNICATION BLOCK. 01101 M00S01076.ctask +++|* 01102 M00S01077.ctask +++|* EXIT (X2) = STATUS OF *RSTDBI* REQUEST. 01103 M00S01078.ctask +++|* 01104 M00S01079.ctask +++|* USES X - 2, 3, 6, 7. 01105 M00S01080.ctask +++|* A - 2, 3, 6, 7. 01106 M00S01081.ctask +++|* 01107 M00S01082.ctask +++|* MACROS RSTDBI. 01108 M00S01083.ctask +++| 01109 M00S01084.ctask +++| 01110 M00S01085.ctask +++| RID SUBR ENTRY/EXIT 01111 M00S01086.ctask +++| SA2 TMSW+2 GET *OLDID* 01112 M00S01087.ctask +++| SA3 TMSW+3 GET *NEWID* 01113 M00S01088.ctask +++| BX6 X2 01114 M00S01089.ctask +++| BX7 X3 01115 M00S01090.ctask +++| SA6 RIDD PREVIOUS BEGIN IDENTIFIER 01116 M00S01091.ctask +++| SA7 RIDB CURRENT BEGIN IDENTIFIER 01117 M00S01092.ctask +++| RSTDBI RIDA RESTORE BEGIN IDENTIFIERS 01118 M00S01093.ctask +++| SA2 RIDC GET STATUS OF REQUEST 01119 M00S01094.ctask +++| EQ RIDX RETURN 01120 M00S01095.ctask +++| 01121 M00S01096.ctask +++|* *RSTDBI* REQUEST PARAMETERS. 01122 M00S01097.ctask +++| 01123 M00S01098.ctask +++| RIDA VFD 42/0,18/RIDB 01124 M00S01099.ctask +++| VFD 42/0,18/RIDC 01125 M00S01100.ctask +++| VFD 42/0,18/RIDD 01126 M00S01101.ctask +++| CON 0 01127 M00S01102.ctask +++| 01128 M00S01103.ctask +++| RIDB CON 0 CURRENT BEGIN IDENTIFIER 01129 M00S01104.ctask +++| RIDC CON 0 STATUS OF REQUEST 01130 M00S01105.ctask +++| RIDD CON 0 PREVIOUS BEGIN IDENTIFIER 01131 M00S01106.ctask +++| 01132 M00S01107.ctask +++| END CTASK
cdc/nos2.source/opl.opl871/deck/ctask.txt · Last modified: by 127.0.0.1