Deck BTASK

Library Member Format: MODIFY

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.btask   +++|          IDENT  BTASK
00002  M00S00002.btask   +++|          ENTRY  BTASK
00003  M00S00003.btask   +++|          LCC    OVERLAY(BTASK,0,0)

Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00004.253l688 ---|          SST    BEGN

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.

Seq #  *Modification Id* Act 
----------------------------+
00009  M01S00008.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORPORATION.  1980.

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   +++|*

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

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   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00107  M01S00104.btask1  ---|*         ERROR  TO *BTA5* IF ERROR ENCOUNTERED.

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

Seq #  *Modification Id* Act 
----------------------------+
00126  M01S00122.btask1  ---|          PL     X2,BTA5     IF NOT SYSTEM ORIGIN TRANSACTION

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

Seq #  *Modification Id* Act 
----------------------------+
00138  M01S00133.btask1  ---|          ZR     X2,BTA5     IF RECOVERY UNAVAILABLE

Seq #  *Modification Id* Act 
----------------------------+
00139  M01S00004.btask1  +++|          ZR     X2,BTA4     IF RECOVERY UNAVAILABLE
00140  M00S00134.btask   +++|          SX2    X1-TSEN

Seq #  *Modification Id* Act 
----------------------------+
00141  M01S00135.btask1  ---|          ZR     X2,BTA6     IF END OF *NEXT* PROCESSING

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

Seq #  *Modification Id* Act 
----------------------------+
00146  M01S00139.btask1  ---|          ZR     X2,BTA5     IF USER UNKNOWN

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

Seq #  *Modification Id* Act 
----------------------------+
00151  M01S00143.btask1  ---|          NZ     X2,BTA5     IF ERRORS IN *TSTAT*

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   +++|

Seq #  *Modification Id* Act 
----------------------------+
00178  M01S00169.btask1  ---|*         TRANSACTION WILL BE RERUN IF THE CURRENT BEGIN-COMMIT
00179  M01S00170.btask1  ---|*         ID IS NOT SUCCESSFUL.

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

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

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   +++|

Seq #  *Modification Id* Act 
----------------------------+
00204  M01S00192.btask1  ---| BTA5     SCALL  TMSG,(X5,B3)  SEND MESSAGE TO DAYFILE

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   +++|

Seq #  *Modification Id* Act 
----------------------------+
00208  M01S00195.btask1  ---| BTA6     CEASE              EXIT TASK WITH CEASE

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