Deck BTASK

3 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.btask   +++|          IDENT  BTASK
00002  M01S00002.btask   +++|          ENTRY  BTASK
00003  M01S00003.btask   +++|          LCC    OVERLAY(BTASK,0,0)

Line S00004 Modification History
`M01` (Added by)	`btask`
`M02` (Updated by)	`253l688`

Seq #  *Modification Id* Act 
----------------------------+
00004  M02S00004.253l688 ---|          SST    BEGN
00005  M01S00001.253l688 +++|          SST    BEGN,CMBL
00006  M01S00005.btask   +++|          SYSCOM B1
00007  M01S00006.btask   +++| BTASK    TITLE  BTASK - RECOVER *BTRAN* USERS.
00008  M01S00007.btask   +++|*COMMENT  BTASK - RECOVER *BTRAN* USERS.

Line S00008 Modification History
`M01` (Added by)	`btask`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00009  M02S00008.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORPORATION.  1980.
00010  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00011  M01S00009.btask   +++| BTASK    SPACE  4,10
00012  M01S00010.btask   +++|***       BTASK - RECOVER *BTRAN* USERS.
00013  M01S00011.btask   +++|*
00014  M01S00012.btask   +++|*         E. D. REDIG.       80/10/06.
00015  M01S00013.btask   +++| BTASK    SPACE  4,25
00016  M01S00014.btask   +++|***       *BTASK* RECOVERS RERUNNABLE *BTRAN* TRANSACTIONS AND
00017  M01S00015.btask   +++|*         MUST BE INSTALLED ON THE TAF SYSTEM LIBRARY.
00018  M01S00016.btask   +++|*
00019  M01S00017.btask   +++|*         *BTASK* READS THE ENTIRE *CRF* BY ISSUING *TSTAT* REQUESTS
00020  M01S00018.btask   +++|*         TO OBTAIN INFORMATION ABOUT EACH USER AND PROCESSES THIS
00021  M01S00019.btask   +++|*         INFORMATION AS FOLLOWS.
00022  M01S00020.btask   +++|*
00023  M01S00021.btask   +++|*         1.  IF THE TRANSACTION TYPE IS NOT A *BTRAN* USER, THEN
00024  M01S00022.btask   +++|*             READ THE NEXT *CRF* ENTRY.
00025  M01S00023.btask   +++|*
00026  M01S00024.btask   +++|*         2.  IF THE TRANSACTION STEP IS NOT RECOVERABLE, THEN
00027  M01S00025.btask   +++|*             READ THE NEXT *CRF* ENTRY.
00028  M01S00026.btask   +++|*
00029  M01S00027.btask   +++|*         3.  MOVE THE *OLDID*, *NEWID*, USERNAME, AND *BTRAN* USER
00030  M01S00028.btask   +++|*             CASE TO THE COMMUNICATION BLOCK.
00031  M01S00029.btask   +++|*

Line S00030 Modification History
`M01` (Added by)	`btask`
`M02` (Updated by)	`btask1`

Seq #  *Modification Id* Act 
----------------------------+
00032  M02S00030.btask1  ---|*         4.  IF THE CURRENT BEGIN-COMMIT ID (*NEWID*) IS NOT

Line S00031 Modification History
`M01` (Added by)	`btask`
`M02` (Updated by)	`btask1`

Seq #  *Modification Id* Act 
----------------------------+
00033  M02S00031.btask1  ---|*             SUCCESSFUL THEN ISSUE A *CALLRTN* TO *CTASK* TO RERUN
00034  M01S00001.btask1  +++|*         4.  ISSUE A *CALLRTN* TO *CTASK* TO RERUN
00035  M01S00032.btask   +++|*             THE TRANSACTION AND READ THE NEXT *CRF* ENTRY.
00036  M01S00033.btask   +++| BTASK    SPACE  4,20
00037  M01S00034.btask   +++|***       DAYFILE MESSAGES ISSUED.
00038  M01S00035.btask   +++|*
00039  M01S00036.btask   +++|*         ABNORMAL COMPLETION.
00040  M01S00037.btask   +++|*
00041  M01S00038.btask   +++|*         * BTASK - TAF AUTOMATIC RECOVERY NOT INSTALLED.*
00042  M01S00039.btask   +++|*                KEYWORD SPECIFIED IN A *TSTAT* REQUEST REQUIRES
00043  M01S00040.btask   +++|*                *TAF* AUTOMATIC RECOVERY.
00044  M01S00041.btask   +++|*
00045  M01S00042.btask   +++|*         * BTASK - TASK LOGICAL ERROR.*
00046  M01S00043.btask   +++|*                A LOGICAL ERROR OCCURRED THAT WAS NOT EXPECTED.
00047  M01S00044.btask   +++|*
00048  M01S00045.btask   +++|*         * BTASK - USER NOT DEFINED IN NETWORK FILE.*
00049  M01S00046.btask   +++|*                THE USER IS NOT DEFINED IN THE NETWORK FILE
00050  M01S00047.btask   +++|*                ON A *TSTAT* REQUEST.
00051  M01S00048.btask   +++|*
00052  M01S00049.btask   +++|*         * BTASK - XXXXXXX TRANSACTION NOT RERUNNABLE NOW.*
00053  M01S00050.btask   +++|*                THIS OCCURS WHEN AN I/O ERROR IS DETECTED AND THE
00054  M01S00051.btask   +++|*                DATA CANNOT BE RECOVERED FOR THE USER XXXXXXX.
00055  M01S00052.btask   +++| BTASK    SPACE  4,10
00056  M01S00053.btask   +++|***       COMMON DECKS.
00057  M01S00054.btask   +++|
00058  M01S00055.btask   +++|
00059  M01S00056.btask   +++|*CALL     COMCMAC
00060  M01S00057.btask   +++|*CALL     COMKTAF
00061  M01S00058.btask   +++|*CALL     COMKFLD
00062  M01S00059.btask   +++|*CALL     COMKIPR
00063  M01S00060.btask   +++|*CALL     COMKMAC
00064  M01S00061.btask   +++|
00065  M01S00062.btask   +++|*         SAVE ORIGIN COUNTER TO REMOVE COMMON DECK STORAGE
00066  M01S00063.btask   +++|*         IN *COMKCBD*, *COMKTSC*.
00067  M01S00064.btask   +++|
00068  M01S00065.btask   +++| BEGN     BSS    0           SAVE ORIGIN COUNTER
00069  M01S00066.btask   +++|*CALL     COMKCBD
00070  M01S00067.btask   +++|          LIST   X
00071  M01S00068.btask   +++|*CALL     COMKTRF
00072  M01S00069.btask   +++|          LIST   -X
00073  M01S00070.btask   +++|*CALL     COMKTSC
00074  M01S00071.btask   +++|          ORG    BEGN        RESTORE ORIGIN COUNTER
00075  M01S00072.btask   +++| BTASK    SPACE  4,15
00076  M01S00073.btask   +++|***       COMMUNICATION BLOCK HEADER WORDS AND MESSAGES.
00077  M01S00074.btask   +++|*
00078  M01S00075.btask   +++|*T  TMSW    60/  CASE

Figure TMSW

00079  M01S00076.btask   +++|*T, TMSW+1  60/  RECOVERY FLAG (RF)

Figure TMSW+1

00080  M01S00077.btask   +++|*T, TMSW+2  60/  OLDID

Figure TMSW+2

00081  M01S00078.btask   +++|*T, TMSW+3  60/  NEWID

Figure TMSW+3

00082  M01S00079.btask   +++|*T, TMSW+4  60/  USERNAME

Figure TMSW+4

00083  M01S00080.btask   +++|*
00084  M01S00081.btask   +++|*         CASE     = 2 RECOVER *BTRAN* USER.
00085  M01S00082.btask   +++|*         RF       IF BIT 59 = 1, *CRM* AUTOMATIC RECOVERY IS USED.
00086  M01S00083.btask   +++|*                  IF BIT 0 = 1, *TAF* AUTOMATIC RECOVERY IS USED.
00087  M01S00084.btask   +++|*         OLDID    = PREVIOUS *CRM* IDENTIFIER.
00088  M01S00085.btask   +++|*         NEWID    = CURRENT *CRM* IDENTIFIER.
00089  M01S00086.btask   +++|*         USERNAME = ONE-TO-SEVEN CHARACTER USERNAME LEFT-JUSTIFIED
00090  M01S00087.btask   +++|*                    WITH BLANK FILL.
00091  M01S00088.btask   +++|
00092  M01S00089.btask   +++|
00093  M01S00090.btask   +++|          BSS    CMBL        RESERVE SPACE FOR COMMUNICATION BLOCK
00094  M01S00091.btask   +++| BTASK    SPACE  4,25
00095  M01S00092.btask   +++|**        BTASK - RECOVER *BTRAN* USERS.
00096  M01S00093.btask   +++|*
00097  M01S00094.btask   +++|*         ENTRY  BOI OF *CRF*.
00098  M01S00095.btask   +++|*
00099  M01S00096.btask   +++|*         EXIT   RERUNNABLE *BTRAN* TRANSACTIONS RECOVERED.
00100  M01S00097.btask   +++|*                TO *CTASK* TO RERUN TRANSACTIONS AND RETURN.
00101  M01S00098.btask   +++|*                (TMSW) = RECOVER *BTRAN* USER CASE.
00102  M01S00099.btask   +++|*                (TMSW+1) = RECOVERY FLAG.
00103  M01S00100.btask   +++|*                (TMSW+2) = OLDID.
00104  M01S00101.btask   +++|*                (TMSW+3) = NEWID.
00105  M01S00102.btask   +++|*                (TMSW+4) = USERNAME.
00106  M01S00103.btask   +++|*

Line S00104 Modification History
`M01` (Added by)	`btask`
`M02` (Updated by)	`btask1`

Seq #  *Modification Id* Act 
----------------------------+
00107  M02S00104.btask1  ---|*         ERROR  TO *BTA5* IF ERROR ENCOUNTERED.
00108  M01S00002.btask1  +++|*         ERROR  TO *BTA4* IF ERROR ENCOUNTERED.
00109  M01S00105.btask   +++|*
00110  M01S00106.btask   +++|*         USES   X - 1, 2, 3, 5, 6, 7.
00111  M01S00107.btask   +++|*                A - 1, 2, 6, 7.
00112  M01S00108.btask   +++|*                B - 1, 2, 3, 5.
00113  M01S00109.btask   +++|*
00114  M01S00110.btask   +++|*         CALLS  SNM.
00115  M01S00111.btask   +++|*
00116  M01S00112.btask   +++|*         MACROS CALLRTN, CEASE, SCALL.
00117  M01S00113.btask   +++|
00118  M01S00114.btask   +++|
00119  M01S00115.btask   +++| BTASK    SB1    1           ENTRY
00120  M01S00116.btask   +++|          SA2    TNAM
00121  M01S00117.btask   +++|          SX5    BTAC        DAYFILE MESSAGE
00122  M01S00118.btask   +++|          SA1    BTAW
00123  M01S00119.btask   +++|          LX2    59-CBSYS
00124  M01S00120.btask   +++|          BX6    X1
00125  M01S00121.btask   +++|          SB3    BTACL       MESSAGE LENGTH

Line S00122 Modification History
`M01` (Added by)	`btask`
`M02` (Updated by)	`btask1`

Seq #  *Modification Id* Act 
----------------------------+
00126  M02S00122.btask1  ---|          PL     X2,BTA5     IF NOT SYSTEM ORIGIN TRANSACTION
00127  M01S00003.btask1  +++|          PL     X2,BTA4     IF NOT SYSTEM ORIGIN TRANSACTION
00128  M01S00123.btask   +++|          SA6    BTAN        INITIALIZE *NEXT* FOR *TSTAT*
00129  M01S00124.btask   +++|
00130  M01S00125.btask   +++|*         ISSUE *TSTAT* REQUEST TO OBTAIN STATUS OF TRANSACTION.
00131  M01S00126.btask   +++|
00132  M01S00127.btask   +++| BTA1     SCALL  TSTAT,(BTAL,BTAM,BTAN,BTAO,BTAP,BTAQ,BTAR,BTAS,BTAT,BTA
00133  M01S00128.btask   +++|,U,BTAV)
00134  M01S00129.btask   +++|          SA1    BTAL        GET STATUS OF REQUEST
00135  M01S00130.btask   +++|          SX5    BTAB        DAYFILE MESSAGE
00136  M01S00131.btask   +++|          SX2    X1-TSRU
00137  M01S00132.btask   +++|          SB3    BTABL       MESSAGE LENGTH

Line S00133 Modification History
`M01` (Added by)	`btask`
`M02` (Updated by)	`btask1`

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

Line S00135 Modification History
`M01` (Added by)	`btask`
`M02` (Updated by)	`btask1`

Seq #  *Modification Id* Act 
----------------------------+
00141  M02S00135.btask1  ---|          ZR     X2,BTA6     IF END OF *NEXT* PROCESSING
00142  M01S00005.btask1  +++|          ZR     X2,BTA5     IF END OF *NEXT* PROCESSING
00143  M01S00136.btask   +++|          SX5    BTAD        DAYFILE MESSAGE
00144  M01S00137.btask   +++|          SX2    X1-TSUU
00145  M01S00138.btask   +++|          SB3    BTADL       MESSAGE LENGTH

Line S00139 Modification History
`M01` (Added by)	`btask`
`M02` (Updated by)	`btask1`

Seq #  *Modification Id* Act 
----------------------------+
00146  M02S00139.btask1  ---|          ZR     X2,BTA5     IF USER UNKNOWN
00147  M01S00006.btask1  +++|          ZR     X2,BTA4     IF USER UNKNOWN
00148  M01S00140.btask   +++|          SX5    BTAC        DAYFILE MESSAGE
00149  M01S00141.btask   +++|          SX2    X1-TSNE
00150  M01S00142.btask   +++|          SB3    BTACL       MESSAGE LENGTH

Line S00143 Modification History
`M01` (Added by)	`btask`
`M02` (Updated by)	`btask1`

Seq #  *Modification Id* Act 
----------------------------+
00151  M02S00143.btask1  ---|          NZ     X2,BTA5     IF ERRORS IN *TSTAT*
00152  M01S00007.btask1  +++|          NZ     X2,BTA4     IF ERRORS IN *TSTAT*
00153  M01S00144.btask   +++|          SA1    BTAR        GET TRANSACTION TYPE
00154  M01S00145.btask   +++|          SX2    X1-TYBT
00155  M01S00146.btask   +++|          NZ     X2,BTA1     IF NOT *BTRAN* USER
00156  M01S00147.btask   +++|          SA1    BTAP        GET TRANSACTION STEP
00157  M01S00148.btask   +++|          SX2    X1-CSCD
00158  M01S00149.btask   +++|          ZR     X2,BTA3     IF *CDCS2* DOWN
00159  M01S00150.btask   +++|          SX2    X1-CSTN
00160  M01S00151.btask   +++|          NZ     X2,BTA2     IF NOT TRANSACTION NO LONGER RERUNNABLE
00161  M01S00152.btask   +++|
00162  M01S00153.btask   +++|*         THIS OCCURS WHEN AN I/O ERROR IS DETECTED AND THE
00163  M01S00154.btask   +++|*         DATA CANNOT BE RECOVERED FOR THE USER.
00164  M01S00155.btask   +++|
00165  M01S00156.btask   +++|          SB2    1RX
00166  M01S00157.btask   +++|          SA1    BTAN        GET RECOVERY UNIT NAME
00167  M01S00158.btask   +++|          SB3    BTAX        MESSAGE ASSEMBLY AREA
00168  M01S00159.btask   +++|          SB5    -BTAE
00169  M01S00160.btask   +++|          RJ     SNM         SET NAME IN MESSAGE
00170  M01S00161.btask   +++|          SB3    BTAEL       MESSAGE LENGTH
00171  M01S00162.btask   +++|          SA2    BTAX
00172  M01S00163.btask   +++|          SCALL  TMSG,(A2,B3)  SEND MESSAGE TO DAYFILE
00173  M01S00164.btask   +++|          EQ     BTA1        GET NEXT *BTRAN* USER
00174  M01S00165.btask   +++|
00175  M01S00166.btask   +++| BTA2     PL     X2,BTA3     IF STEP IS TO BE RECOVERED
00176  M01S00167.btask   +++|          EQ     BTA1        GET NEXT *BTRAN* USER
00177  M01S00168.btask   +++|

Line S00169 Modification History
`M01` (Added by)	`btask`
`M02` (Updated by)	`btask1`

Seq #  *Modification Id* Act 
----------------------------+
00178  M02S00169.btask1  ---|*         TRANSACTION WILL BE RERUN IF THE CURRENT BEGIN-COMMIT

Line S00170 Modification History
`M01` (Added by)	`btask`
`M02` (Updated by)	`btask1`

Seq #  *Modification Id* Act 
----------------------------+
00179  M02S00170.btask1  ---|*         ID IS NOT SUCCESSFUL.
00180  M01S00008.btask1  +++|*         ISSUE A *CALLRTN* TO *CTASK* TO RERUN THE TRANSACTION
00181  M01S00009.btask1  +++|*         AND READ THE NEXT *CRF* ENTRY.
00182  M01S00171.btask   +++|
00183  M01S00172.btask   +++| BTA3     SX6    TYBT        SET *BTRAN* USER CASE
00184  M01S00173.btask   +++|          SA1    BTAT        GET *OLDID*
00185  M01S00174.btask   +++|          SA2    BTAV        GET *NEWID*
00186  M01S00175.btask   +++|          SA6    TMSW        STORE CASE IN COMMUNICATION BLOCK
00187  M01S00176.btask   +++|          BX6    X1
00188  M01S00177.btask   +++|          BX7    X2
00189  M01S00178.btask   +++|          SA6    TMSW+2      STORE *OLDID* IN COMMUNICATION BLOCK
00190  M01S00179.btask   +++|          SA7    TMSW+3      STORE *NEWID* IN COMMUNICATION BLOCK
00191  M01S00180.btask   +++|          SA1    BTAN        GET USERNAME
00192  M01S00181.btask   +++|          BX7    X1
00193  M01S00182.btask   +++|          SA7    A7+B1       STORE USERNAME IN COMMUNICATION BLOCK

Line S00183 Modification History
`M01` (Added by)	`btask`
`M02` (Updated by)	`btask1`

Seq #  *Modification Id* Act 
----------------------------+
00194  M02S00183.btask1  ---|

Line S00184 Modification History
`M01` (Added by)	`btask`
`M02` (Updated by)	`btask1`

Seq #  *Modification Id* Act 
----------------------------+
00195  M02S00184.btask1  ---|*         IF *CRM* CURRENT BEGIN-COMMIT ID IS NOT SUCCESSFUL,

Line S00185 Modification History
`M01` (Added by)	`btask`
`M02` (Updated by)	`btask1`

Seq #  *Modification Id* Act 
----------------------------+
00196  M02S00185.btask1  ---|*         CALL *CTASK* TO RERUN THE TRANSACTION.

Line S00186 Modification History
`M01` (Added by)	`btask`
`M02` (Updated by)	`btask1`

Seq #  *Modification Id* Act 
----------------------------+
00197  M02S00186.btask1  ---|

Line S00187 Modification History
`M01` (Added by)	`btask`
`M02` (Updated by)	`btask1`

Seq #  *Modification Id* Act 
----------------------------+
00198  M02S00187.btask1  ---|          SA1    BTAV        GET *NEWID*

Line S00188 Modification History
`M01` (Added by)	`btask`
`M02` (Updated by)	`btask1`

Seq #  *Modification Id* Act 
----------------------------+
00199  M02S00188.btask1  ---|          ZR     X1,BTA1     IF *NEWID* IS SUCCESSFUL

Line S00189 Modification History
`M01` (Added by)	`btask`
`M02` (Updated by)	`btask1`

Seq #  *Modification Id* Act 
----------------------------+
00200  M02S00189.btask1  ---| BTA4     CALLRTN  BTAA      CALL *CTASK* TO RERUN TRANSACTION
00201  M01S00010.btask1  +++|          CALLRTN  BTAA      CALL *CTASK* TO RERUN TRANSACTION
00202  M01S00190.btask   +++|          EQ     BTA1        GET NEXT *BTRAN* USER
00203  M01S00191.btask   +++|

Line S00192 Modification History
`M01` (Added by)	`btask`
`M02` (Updated by)	`btask1`

Seq #  *Modification Id* Act 
----------------------------+
00204  M02S00192.btask1  ---| BTA5     SCALL  TMSG,(X5,B3)  SEND MESSAGE TO DAYFILE
00205  M01S00011.btask1  +++| BTA4     SCALL  TMSG,(X5,B3)  SEND MESSAGE TO DAYFILE
00206  M01S00193.btask   +++|          CEASE  2           ABNORMAL CEASE WITH DUMP
00207  M01S00194.btask   +++|

Line S00195 Modification History
`M01` (Added by)	`btask`
`M02` (Updated by)	`btask1`

Seq #  *Modification Id* Act 
----------------------------+
00208  M02S00195.btask1  ---| BTA6     CEASE              EXIT TASK WITH CEASE
00209  M01S00012.btask1  +++| BTA5     CEASE              EXIT TASK WITH CEASE
00210  M01S00196.btask   +++|
00211  M01S00197.btask   +++|*         *CALLRTN* TASK LIST.
00212  M01S00198.btask   +++|
00213  M01S00199.btask   +++| BTAA     DATA   5LCTASK     CALL TO *CTASK*
00214  M01S00200.btask   +++|          CON    0
00215  M01S00201.btask   +++|
00216  M01S00202.btask   +++|*         DAYFILE MESSAGES.
00217  M01S00203.btask   +++|
00218  M01S00204.btask   +++| BTAB     DATA   C* BTASK - TAF AUTOMATIC RECOVERY NOT INSTALLED.*
00219  M01S00205.btask   +++| BTABL    CON    **10-BTAB*10
00220  M01S00206.btask   +++| BTAC     DATA   C* BTASK - TASK LOGICAL ERROR.*
00221  M01S00207.btask   +++| BTACL    CON    **10-BTAC*10
00222  M01S00208.btask   +++| BTAD     DATA   C* BTASK - USER NOT DEFINED IN NETWORK FILE.*
00223  M01S00209.btask   +++| BTADL    CON    **10-BTAD*10
00224  M01S00210.btask   +++| BTAE     DATA   C* BTASK - XXXXXXX TRANSACTION NOT RERUNNABLE NOW.*
00225  M01S00211.btask   +++| BTAEL    CON    **10-BTAE*10
00226  M01S00212.btask   +++|
00227  M01S00213.btask   +++|*         *TSTAT* REQUEST PARAMETERS.
00228  M01S00214.btask   +++|
00229  M01S00215.btask   +++| BTAL     CON    0           STATUS OF *TSTAT* REQUEST
00230  M01S00216.btask   +++| BTAM     DATA   4HNEXT
00231  M01S00217.btask   +++| BTAN     CON    0           NEXT USER FROM *TRF*
00232  M01S00218.btask   +++| BTAO     DATA   4HSTEP
00233  M01S00219.btask   +++| BTAP     CON    0           TRANSACTION STEP
00234  M01S00220.btask   +++| BTAQ     DATA   4HTRAN
00235  M01S00221.btask   +++| BTAR     CON    0           TRANSACTION TYPE
00236  M01S00222.btask   +++| BTAS     DATA   5HOLDID
00237  M01S00223.btask   +++| BTAT     CON    0           PREVIOUS *CRM* IDENTIFIER
00238  M01S00224.btask   +++| BTAU     DATA   5HNEWID
00239  M01S00225.btask   +++| BTAV     CON    0           CURRENT *CRM* IDENTIFIER
00240  M01S00226.btask   +++|
00241  M01S00227.btask   +++| BTAW     DATA   1H          BLANK WORD
00242  M01S00228.btask   +++| BTAX     BSSZ   7           DAYFILE MESSAGE ASSEMBLY AREA
00243  M01S00229.btask   +++| BTASK    SPACE  4,10
00244  M01S00230.btask   +++|**        COMMON DECKS.
00245  M01S00231.btask   +++|
00246  M01S00232.btask   +++|
00247  M01S00233.btask   +++|*CALL     COMCSNM
00248  M01S00234.btask   +++|
00249  M01S00235.btask   +++|
00250  M01S00236.btask   +++|          END    BTASK