cdc:nos2.source:opl.opl871:deck:btask
Deck BTASK
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.btask +++| IDENT BTASK 00002 M00S00002.btask +++| ENTRY BTASK 00003 M00S00003.btask +++| LCC OVERLAY(BTASK,0,0)
| Line S00004 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00004 M01S00004.253l688 ---| SST BEGN
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00005 M01S00001.253l688 +++| SST BEGN,CMBL 00006 M00S00005.btask +++| SYSCOM B1 00007 M00S00006.btask +++| BTASK TITLE BTASK - RECOVER *BTRAN* USERS. 00008 M00S00007.btask +++|*COMMENT BTASK - RECOVER *BTRAN* USERS.
| 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.btask +++| BTASK SPACE 4,10 00012 M00S00010.btask +++|*** BTASK - RECOVER *BTRAN* USERS. 00013 M00S00011.btask +++|* 00014 M00S00012.btask +++|* E. D. REDIG. 80/10/06. 00015 M00S00013.btask +++| BTASK SPACE 4,25 00016 M00S00014.btask +++|*** *BTASK* RECOVERS RERUNNABLE *BTRAN* TRANSACTIONS AND 00017 M00S00015.btask +++|* MUST BE INSTALLED ON THE TAF SYSTEM LIBRARY. 00018 M00S00016.btask +++|* 00019 M00S00017.btask +++|* *BTASK* READS THE ENTIRE *CRF* BY ISSUING *TSTAT* REQUESTS 00020 M00S00018.btask +++|* TO OBTAIN INFORMATION ABOUT EACH USER AND PROCESSES THIS 00021 M00S00019.btask +++|* INFORMATION AS FOLLOWS. 00022 M00S00020.btask +++|* 00023 M00S00021.btask +++|* 1. IF THE TRANSACTION TYPE IS NOT A *BTRAN* USER, THEN 00024 M00S00022.btask +++|* READ THE NEXT *CRF* ENTRY. 00025 M00S00023.btask +++|* 00026 M00S00024.btask +++|* 2. IF THE TRANSACTION STEP IS NOT RECOVERABLE, THEN 00027 M00S00025.btask +++|* READ THE NEXT *CRF* ENTRY. 00028 M00S00026.btask +++|* 00029 M00S00027.btask +++|* 3. MOVE THE *OLDID*, *NEWID*, USERNAME, AND *BTRAN* USER 00030 M00S00028.btask +++|* CASE TO THE COMMUNICATION BLOCK. 00031 M00S00029.btask +++|*
| Line S00030 Modification History | |
|---|---|
M01 (Removed by) | btask1 |
Seq # *Modification Id* Act ----------------------------+ 00032 M01S00030.btask1 ---|* 4. IF THE CURRENT BEGIN-COMMIT ID (*NEWID*) IS NOT 00033 M01S00031.btask1 ---|* SUCCESSFUL THEN ISSUE A *CALLRTN* TO *CTASK* TO RERUN
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | btask1 |
Seq # *Modification Id* Act ----------------------------+ 00034 M01S00001.btask1 +++|* 4. ISSUE A *CALLRTN* TO *CTASK* TO RERUN 00035 M00S00032.btask +++|* THE TRANSACTION AND READ THE NEXT *CRF* ENTRY. 00036 M00S00033.btask +++| BTASK SPACE 4,20 00037 M00S00034.btask +++|*** DAYFILE MESSAGES ISSUED. 00038 M00S00035.btask +++|* 00039 M00S00036.btask +++|* ABNORMAL COMPLETION. 00040 M00S00037.btask +++|* 00041 M00S00038.btask +++|* * BTASK - TAF AUTOMATIC RECOVERY NOT INSTALLED.* 00042 M00S00039.btask +++|* KEYWORD SPECIFIED IN A *TSTAT* REQUEST REQUIRES 00043 M00S00040.btask +++|* *TAF* AUTOMATIC RECOVERY. 00044 M00S00041.btask +++|* 00045 M00S00042.btask +++|* * BTASK - TASK LOGICAL ERROR.* 00046 M00S00043.btask +++|* A LOGICAL ERROR OCCURRED THAT WAS NOT EXPECTED. 00047 M00S00044.btask +++|* 00048 M00S00045.btask +++|* * BTASK - USER NOT DEFINED IN NETWORK FILE.* 00049 M00S00046.btask +++|* THE USER IS NOT DEFINED IN THE NETWORK FILE 00050 M00S00047.btask +++|* ON A *TSTAT* REQUEST. 00051 M00S00048.btask +++|* 00052 M00S00049.btask +++|* * BTASK - XXXXXXX TRANSACTION NOT RERUNNABLE NOW.* 00053 M00S00050.btask +++|* THIS OCCURS WHEN AN I/O ERROR IS DETECTED AND THE 00054 M00S00051.btask +++|* DATA CANNOT BE RECOVERED FOR THE USER XXXXXXX. 00055 M00S00052.btask +++| BTASK SPACE 4,10 00056 M00S00053.btask +++|*** COMMON DECKS. 00057 M00S00054.btask +++| 00058 M00S00055.btask +++| 00059 M00S00056.btask +++|*CALL COMCMAC 00060 M00S00057.btask +++|*CALL COMKTAF 00061 M00S00058.btask +++|*CALL COMKFLD 00062 M00S00059.btask +++|*CALL COMKIPR 00063 M00S00060.btask +++|*CALL COMKMAC 00064 M00S00061.btask +++| 00065 M00S00062.btask +++|* SAVE ORIGIN COUNTER TO REMOVE COMMON DECK STORAGE 00066 M00S00063.btask +++|* IN *COMKCBD*, *COMKTSC*. 00067 M00S00064.btask +++| 00068 M00S00065.btask +++| BEGN BSS 0 SAVE ORIGIN COUNTER 00069 M00S00066.btask +++|*CALL COMKCBD 00070 M00S00067.btask +++| LIST X 00071 M00S00068.btask +++|*CALL COMKTRF 00072 M00S00069.btask +++| LIST -X 00073 M00S00070.btask +++|*CALL COMKTSC 00074 M00S00071.btask +++| ORG BEGN RESTORE ORIGIN COUNTER 00075 M00S00072.btask +++| BTASK SPACE 4,15 00076 M00S00073.btask +++|*** COMMUNICATION BLOCK HEADER WORDS AND MESSAGES. 00077 M00S00074.btask +++|* 00078 M00S00075.btask +++|*T TMSW 60/ CASE
Figure TMSW
00079 M00S00076.btask +++|*T, TMSW+1 60/ RECOVERY FLAG (RF)
Figure TMSW+1
00080 M00S00077.btask +++|*T, TMSW+2 60/ OLDID
Figure TMSW+2
00081 M00S00078.btask +++|*T, TMSW+3 60/ NEWID
Figure TMSW+3
00082 M00S00079.btask +++|*T, TMSW+4 60/ USERNAME
Figure TMSW+4
00083 M00S00080.btask +++|* 00084 M00S00081.btask +++|* CASE = 2 RECOVER *BTRAN* USER. 00085 M00S00082.btask +++|* RF IF BIT 59 = 1, *CRM* AUTOMATIC RECOVERY IS USED. 00086 M00S00083.btask +++|* IF BIT 0 = 1, *TAF* AUTOMATIC RECOVERY IS USED. 00087 M00S00084.btask +++|* OLDID = PREVIOUS *CRM* IDENTIFIER. 00088 M00S00085.btask +++|* NEWID = CURRENT *CRM* IDENTIFIER. 00089 M00S00086.btask +++|* USERNAME = ONE-TO-SEVEN CHARACTER USERNAME LEFT-JUSTIFIED 00090 M00S00087.btask +++|* WITH BLANK FILL. 00091 M00S00088.btask +++| 00092 M00S00089.btask +++| 00093 M00S00090.btask +++| BSS CMBL RESERVE SPACE FOR COMMUNICATION BLOCK 00094 M00S00091.btask +++| BTASK SPACE 4,25 00095 M00S00092.btask +++|** BTASK - RECOVER *BTRAN* USERS. 00096 M00S00093.btask +++|* 00097 M00S00094.btask +++|* ENTRY BOI OF *CRF*. 00098 M00S00095.btask +++|* 00099 M00S00096.btask +++|* EXIT RERUNNABLE *BTRAN* TRANSACTIONS RECOVERED. 00100 M00S00097.btask +++|* TO *CTASK* TO RERUN TRANSACTIONS AND RETURN. 00101 M00S00098.btask +++|* (TMSW) = RECOVER *BTRAN* USER CASE. 00102 M00S00099.btask +++|* (TMSW+1) = RECOVERY FLAG. 00103 M00S00100.btask +++|* (TMSW+2) = OLDID. 00104 M00S00101.btask +++|* (TMSW+3) = NEWID. 00105 M00S00102.btask +++|* (TMSW+4) = USERNAME. 00106 M00S00103.btask +++|*
| Line S00104 Modification History | |
|---|---|
M01 (Removed by) | btask1 |
Seq # *Modification Id* Act ----------------------------+ 00107 M01S00104.btask1 ---|* ERROR TO *BTA5* IF ERROR ENCOUNTERED.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | btask1 |
Seq # *Modification Id* Act ----------------------------+ 00108 M01S00002.btask1 +++|* ERROR TO *BTA4* IF ERROR ENCOUNTERED. 00109 M00S00105.btask +++|* 00110 M00S00106.btask +++|* USES X - 1, 2, 3, 5, 6, 7. 00111 M00S00107.btask +++|* A - 1, 2, 6, 7. 00112 M00S00108.btask +++|* B - 1, 2, 3, 5. 00113 M00S00109.btask +++|* 00114 M00S00110.btask +++|* CALLS SNM. 00115 M00S00111.btask +++|* 00116 M00S00112.btask +++|* MACROS CALLRTN, CEASE, SCALL. 00117 M00S00113.btask +++| 00118 M00S00114.btask +++| 00119 M00S00115.btask +++| BTASK SB1 1 ENTRY 00120 M00S00116.btask +++| SA2 TNAM 00121 M00S00117.btask +++| SX5 BTAC DAYFILE MESSAGE 00122 M00S00118.btask +++| SA1 BTAW 00123 M00S00119.btask +++| LX2 59-CBSYS 00124 M00S00120.btask +++| BX6 X1 00125 M00S00121.btask +++| SB3 BTACL MESSAGE LENGTH
| Line S00122 Modification History | |
|---|---|
M01 (Removed by) | btask1 |
Seq # *Modification Id* Act ----------------------------+ 00126 M01S00122.btask1 ---| PL X2,BTA5 IF NOT SYSTEM ORIGIN TRANSACTION
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | btask1 |
Seq # *Modification Id* Act ----------------------------+ 00127 M01S00003.btask1 +++| PL X2,BTA4 IF NOT SYSTEM ORIGIN TRANSACTION 00128 M00S00123.btask +++| SA6 BTAN INITIALIZE *NEXT* FOR *TSTAT* 00129 M00S00124.btask +++| 00130 M00S00125.btask +++|* ISSUE *TSTAT* REQUEST TO OBTAIN STATUS OF TRANSACTION. 00131 M00S00126.btask +++| 00132 M00S00127.btask +++| BTA1 SCALL TSTAT,(BTAL,BTAM,BTAN,BTAO,BTAP,BTAQ,BTAR,BTAS,BTAT,BTA 00133 M00S00128.btask +++|,U,BTAV) 00134 M00S00129.btask +++| SA1 BTAL GET STATUS OF REQUEST 00135 M00S00130.btask +++| SX5 BTAB DAYFILE MESSAGE 00136 M00S00131.btask +++| SX2 X1-TSRU 00137 M00S00132.btask +++| SB3 BTABL MESSAGE LENGTH
| Line S00133 Modification History | |
|---|---|
M01 (Removed by) | btask1 |
Seq # *Modification Id* Act ----------------------------+ 00138 M01S00133.btask1 ---| ZR X2,BTA5 IF RECOVERY UNAVAILABLE
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | btask1 |
Seq # *Modification Id* Act ----------------------------+ 00139 M01S00004.btask1 +++| ZR X2,BTA4 IF RECOVERY UNAVAILABLE 00140 M00S00134.btask +++| SX2 X1-TSEN
| Line S00135 Modification History | |
|---|---|
M01 (Removed by) | btask1 |
Seq # *Modification Id* Act ----------------------------+ 00141 M01S00135.btask1 ---| ZR X2,BTA6 IF END OF *NEXT* PROCESSING
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | btask1 |
Seq # *Modification Id* Act ----------------------------+ 00142 M01S00005.btask1 +++| ZR X2,BTA5 IF END OF *NEXT* PROCESSING 00143 M00S00136.btask +++| SX5 BTAD DAYFILE MESSAGE 00144 M00S00137.btask +++| SX2 X1-TSUU 00145 M00S00138.btask +++| SB3 BTADL MESSAGE LENGTH
| Line S00139 Modification History | |
|---|---|
M01 (Removed by) | btask1 |
Seq # *Modification Id* Act ----------------------------+ 00146 M01S00139.btask1 ---| ZR X2,BTA5 IF USER UNKNOWN
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | btask1 |
Seq # *Modification Id* Act ----------------------------+ 00147 M01S00006.btask1 +++| ZR X2,BTA4 IF USER UNKNOWN 00148 M00S00140.btask +++| SX5 BTAC DAYFILE MESSAGE 00149 M00S00141.btask +++| SX2 X1-TSNE 00150 M00S00142.btask +++| SB3 BTACL MESSAGE LENGTH
| Line S00143 Modification History | |
|---|---|
M01 (Removed by) | btask1 |
Seq # *Modification Id* Act ----------------------------+ 00151 M01S00143.btask1 ---| NZ X2,BTA5 IF ERRORS IN *TSTAT*
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | btask1 |
Seq # *Modification Id* Act ----------------------------+ 00152 M01S00007.btask1 +++| NZ X2,BTA4 IF ERRORS IN *TSTAT* 00153 M00S00144.btask +++| SA1 BTAR GET TRANSACTION TYPE 00154 M00S00145.btask +++| SX2 X1-TYBT 00155 M00S00146.btask +++| NZ X2,BTA1 IF NOT *BTRAN* USER 00156 M00S00147.btask +++| SA1 BTAP GET TRANSACTION STEP 00157 M00S00148.btask +++| SX2 X1-CSCD 00158 M00S00149.btask +++| ZR X2,BTA3 IF *CDCS2* DOWN 00159 M00S00150.btask +++| SX2 X1-CSTN 00160 M00S00151.btask +++| NZ X2,BTA2 IF NOT TRANSACTION NO LONGER RERUNNABLE 00161 M00S00152.btask +++| 00162 M00S00153.btask +++|* THIS OCCURS WHEN AN I/O ERROR IS DETECTED AND THE 00163 M00S00154.btask +++|* DATA CANNOT BE RECOVERED FOR THE USER. 00164 M00S00155.btask +++| 00165 M00S00156.btask +++| SB2 1RX 00166 M00S00157.btask +++| SA1 BTAN GET RECOVERY UNIT NAME 00167 M00S00158.btask +++| SB3 BTAX MESSAGE ASSEMBLY AREA 00168 M00S00159.btask +++| SB5 -BTAE 00169 M00S00160.btask +++| RJ SNM SET NAME IN MESSAGE 00170 M00S00161.btask +++| SB3 BTAEL MESSAGE LENGTH 00171 M00S00162.btask +++| SA2 BTAX 00172 M00S00163.btask +++| SCALL TMSG,(A2,B3) SEND MESSAGE TO DAYFILE 00173 M00S00164.btask +++| EQ BTA1 GET NEXT *BTRAN* USER 00174 M00S00165.btask +++| 00175 M00S00166.btask +++| BTA2 PL X2,BTA3 IF STEP IS TO BE RECOVERED 00176 M00S00167.btask +++| EQ BTA1 GET NEXT *BTRAN* USER 00177 M00S00168.btask +++|
| Line S00169 Modification History | |
|---|---|
M01 (Removed by) | btask1 |
Seq # *Modification Id* Act ----------------------------+ 00178 M01S00169.btask1 ---|* TRANSACTION WILL BE RERUN IF THE CURRENT BEGIN-COMMIT 00179 M01S00170.btask1 ---|* ID IS NOT SUCCESSFUL.
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | btask1 |
Seq # *Modification Id* Act ----------------------------+ 00180 M01S00008.btask1 +++|* ISSUE A *CALLRTN* TO *CTASK* TO RERUN THE TRANSACTION 00181 M01S00009.btask1 +++|* AND READ THE NEXT *CRF* ENTRY. 00182 M00S00171.btask +++| 00183 M00S00172.btask +++| BTA3 SX6 TYBT SET *BTRAN* USER CASE 00184 M00S00173.btask +++| SA1 BTAT GET *OLDID* 00185 M00S00174.btask +++| SA2 BTAV GET *NEWID* 00186 M00S00175.btask +++| SA6 TMSW STORE CASE IN COMMUNICATION BLOCK 00187 M00S00176.btask +++| BX6 X1 00188 M00S00177.btask +++| BX7 X2 00189 M00S00178.btask +++| SA6 TMSW+2 STORE *OLDID* IN COMMUNICATION BLOCK 00190 M00S00179.btask +++| SA7 TMSW+3 STORE *NEWID* IN COMMUNICATION BLOCK 00191 M00S00180.btask +++| SA1 BTAN GET USERNAME 00192 M00S00181.btask +++| BX7 X1 00193 M00S00182.btask +++| SA7 A7+B1 STORE USERNAME IN COMMUNICATION BLOCK
| Line S00183 Modification History | |
|---|---|
M01 (Removed by) | btask1 |
Seq # *Modification Id* Act ----------------------------+ 00194 M01S00183.btask1 ---| 00195 M01S00184.btask1 ---|* IF *CRM* CURRENT BEGIN-COMMIT ID IS NOT SUCCESSFUL, 00196 M01S00185.btask1 ---|* CALL *CTASK* TO RERUN THE TRANSACTION. 00197 M01S00186.btask1 ---| 00198 M01S00187.btask1 ---| SA1 BTAV GET *NEWID* 00199 M01S00188.btask1 ---| ZR X1,BTA1 IF *NEWID* IS SUCCESSFUL 00200 M01S00189.btask1 ---| BTA4 CALLRTN BTAA CALL *CTASK* TO RERUN TRANSACTION
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | btask1 |
Seq # *Modification Id* Act ----------------------------+ 00201 M01S00010.btask1 +++| CALLRTN BTAA CALL *CTASK* TO RERUN TRANSACTION 00202 M00S00190.btask +++| EQ BTA1 GET NEXT *BTRAN* USER 00203 M00S00191.btask +++|
| Line S00192 Modification History | |
|---|---|
M01 (Removed by) | btask1 |
Seq # *Modification Id* Act ----------------------------+ 00204 M01S00192.btask1 ---| BTA5 SCALL TMSG,(X5,B3) SEND MESSAGE TO DAYFILE
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | btask1 |
Seq # *Modification Id* Act ----------------------------+ 00205 M01S00011.btask1 +++| BTA4 SCALL TMSG,(X5,B3) SEND MESSAGE TO DAYFILE 00206 M00S00193.btask +++| CEASE 2 ABNORMAL CEASE WITH DUMP 00207 M00S00194.btask +++|
| Line S00195 Modification History | |
|---|---|
M01 (Removed by) | btask1 |
Seq # *Modification Id* Act ----------------------------+ 00208 M01S00195.btask1 ---| BTA6 CEASE EXIT TASK WITH CEASE
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | btask1 |
Seq # *Modification Id* Act ----------------------------+ 00209 M01S00012.btask1 +++| BTA5 CEASE EXIT TASK WITH CEASE 00210 M00S00196.btask +++| 00211 M00S00197.btask +++|* *CALLRTN* TASK LIST. 00212 M00S00198.btask +++| 00213 M00S00199.btask +++| BTAA DATA 5LCTASK CALL TO *CTASK* 00214 M00S00200.btask +++| CON 0 00215 M00S00201.btask +++| 00216 M00S00202.btask +++|* DAYFILE MESSAGES. 00217 M00S00203.btask +++| 00218 M00S00204.btask +++| BTAB DATA C* BTASK - TAF AUTOMATIC RECOVERY NOT INSTALLED.* 00219 M00S00205.btask +++| BTABL CON **10-BTAB*10 00220 M00S00206.btask +++| BTAC DATA C* BTASK - TASK LOGICAL ERROR.* 00221 M00S00207.btask +++| BTACL CON **10-BTAC*10 00222 M00S00208.btask +++| BTAD DATA C* BTASK - USER NOT DEFINED IN NETWORK FILE.* 00223 M00S00209.btask +++| BTADL CON **10-BTAD*10 00224 M00S00210.btask +++| BTAE DATA C* BTASK - XXXXXXX TRANSACTION NOT RERUNNABLE NOW.* 00225 M00S00211.btask +++| BTAEL CON **10-BTAE*10 00226 M00S00212.btask +++| 00227 M00S00213.btask +++|* *TSTAT* REQUEST PARAMETERS. 00228 M00S00214.btask +++| 00229 M00S00215.btask +++| BTAL CON 0 STATUS OF *TSTAT* REQUEST 00230 M00S00216.btask +++| BTAM DATA 4HNEXT 00231 M00S00217.btask +++| BTAN CON 0 NEXT USER FROM *TRF* 00232 M00S00218.btask +++| BTAO DATA 4HSTEP 00233 M00S00219.btask +++| BTAP CON 0 TRANSACTION STEP 00234 M00S00220.btask +++| BTAQ DATA 4HTRAN 00235 M00S00221.btask +++| BTAR CON 0 TRANSACTION TYPE 00236 M00S00222.btask +++| BTAS DATA 5HOLDID 00237 M00S00223.btask +++| BTAT CON 0 PREVIOUS *CRM* IDENTIFIER 00238 M00S00224.btask +++| BTAU DATA 5HNEWID 00239 M00S00225.btask +++| BTAV CON 0 CURRENT *CRM* IDENTIFIER 00240 M00S00226.btask +++| 00241 M00S00227.btask +++| BTAW DATA 1H BLANK WORD 00242 M00S00228.btask +++| BTAX BSSZ 7 DAYFILE MESSAGE ASSEMBLY AREA 00243 M00S00229.btask +++| BTASK SPACE 4,10 00244 M00S00230.btask +++|** COMMON DECKS. 00245 M00S00231.btask +++| 00246 M00S00232.btask +++| 00247 M00S00233.btask +++|*CALL COMCSNM 00248 M00S00234.btask +++| 00249 M00S00235.btask +++| 00250 M00S00236.btask +++| END BTASK
cdc/nos2.source/opl.opl871/deck/btask.txt · Last modified: (external edit)