User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:ctask

Deck CTASK

4 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.ctask   +++|          IDENT  CTASK
00002  M01S00002.ctask   +++|          LCC    OVERLAY(CTASK,0,0)
Line S00003 Modification History
M01 (Added by) ctask
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00003  M02S00003.253l688 ---|          SST    BEGN
00004  M01S00001.253l688 +++|          SST    BEGN,CMBL
00005  M01S00004.ctask   +++|          ENTRY  CTASK
00006  M01S00005.ctask   +++|          SYSCOM B1
00007  M01S00006.ctask   +++| CTASK    TITLE  CTASK - RECOVER DATA BASE OR USER TASK.
00008  M01S00007.ctask   +++|*COMMENT  CTASK - RECOVER DATA BASE OR USER TASK.
Line S00008 Modification History
M01 (Added by) ctask
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00009  M02S00008.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORPORATION.  1980.
00010  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00011  M01S00009.ctask   +++| CTASK    SPACE  4,10
00012  M01S00010.ctask   +++|***       CTASK - RECOVER DATA BASE OR USER TASK.
00013  M01S00011.ctask   +++|*
00014  M01S00012.ctask   +++|*         E. D. REDIG.       80/06/11.
00015  M01S00013.ctask   +++| CTASK    SPACE  4,10
00016  M01S00014.ctask   +++|***       *CTASK* HANDLES THE FOLLOWING RECOVERY CASES:
00017  M01S00015.ctask   +++|*
00018  M01S00016.ctask   +++|*         1.  INTERACTIVE USERS.
00019  M01S00017.ctask   +++|*         2.  *BTRAN* (BATCH) USERS.
00020  M01S00018.ctask   +++|*         3.  *CRM* DATA BASES.
00021  M01S00019.ctask   +++|*         4.  TERMINAL FAILURES.
00022  M01S00020.ctask   +++|*
00023  M01S00021.ctask   +++|*         FOR A MORE COMPLETE DESCRIPTION REFER TO THE
00024  M01S00022.ctask   +++|*         APPROPRIATE PROCESSOR WITHIN *CTASK*.
00025  M01S00023.ctask   +++| CTASK    SPACE  4,50
00026  M01S00024.ctask   +++|***       DAYFILE MESSAGES ISSUED.
00027  M01S00025.ctask   +++|*
00028  M01S00026.ctask   +++|*         ABNORMAL COMPLETION.
00029  M01S00027.ctask   +++|*
00030  M01S00028.ctask   +++|*         * CTASK - DATA BASE OR FILE DOWN.*
00031  M01S00029.ctask   +++|*                THE DATA BASE, *TAF*/*CRM*, OR FILE IS DOWN ON
00032  M01S00030.ctask   +++|*                AN *RSTDBI* REQUEST.
00033  M01S00031.ctask   +++|*
00034  M01S00032.ctask   +++|*         * CTASK - DATA BASE OR FILE IDLE.*
00035  M01S00033.ctask   +++|*                THE DATA BASE, *TAF/CRM*, OR FILE IS IDLE ON
00036  M01S00034.ctask   +++|*                AN *RSTDBI* REQUEST.
00037  M01S00035.ctask   +++|*
00038  M01S00036.ctask   +++|*         * CTASK - FILE IS NOT INSTALLED.*
00039  M01S00037.ctask   +++|*                DATA BASE OR FILE NOT AVAILABLE IN *XXJ* FILE
00040  M01S00038.ctask   +++|*                ON A *CRMSTAT* REQUEST.
00041  M01S00039.ctask   +++|*
Line S00040 Modification History
M01 (Added by) ctask
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00042  M02S00040.v23l617 ---|*         * CTASK - ILLEGAL RECOVERY CASE.*
00043  M01S00001.v23l617 +++|*         * CTASK - INCORRECT RECOVERY CASE.*
00044  M01S00041.ctask   +++|*                RECOVER CASE NOT VALID.
00045  M01S00042.ctask   +++|*
00046  M01S00043.ctask   +++|*         * CTASK - NO CRM RECOVERY FILES FOR DATA BASE.*
00047  M01S00044.ctask   +++|*                NO RECOVERY FILE ASSIGNED TO THE DATA BASE ON
00048  M01S00045.ctask   +++|*                AN *RSTDBI* REQUEST.
00049  M01S00046.ctask   +++|*
00050  M01S00047.ctask   +++|*         * CTASK - SYSTEM IDENTIFIER UNKNOWN.*
00051  M01S00048.ctask   +++|*                OLD SYSTEM IDENTIFIER UNKNOWN WHEN ISSUING A
00052  M01S00049.ctask   +++|*                *TINVOKE* REQUEST.
00053  M01S00050.ctask   +++|*
00054  M01S00051.ctask   +++|*         * CTASK - TABLE AREA NOT LARGE ENOUGH.*
00055  M01S00052.ctask   +++|*                THE TABLE AREA SUPPLIED BY *CTASK* FOR A *CRMSTAT*
00056  M01S00053.ctask   +++|*                REQUEST IS NOT LARGE ENOUGH.
00057  M01S00054.ctask   +++|*
00058  M01S00055.ctask   +++|*         * CTASK - TASK LOGICAL ERROR.*
00059  M01S00056.ctask   +++|*                A LOGICAL ERROR OCCURRED THAT WAS NOT EXPECTED.
00060  M01S00057.ctask   +++|*
00061  M01S00058.ctask   +++|*         * CTASK - TRANSACTION NOT RERUNNABLE.*
00062  M01S00059.ctask   +++|*                A TRANSACTION IS NOT RERUNNABLE AND A *RERUN*
00063  M01S00060.ctask   +++|*                WAS ATTEMPTED.
00064  M01S00061.ctask   +++|*
00065  M01S00062.ctask   +++|*         * CTASK - TRMREC ERROR.*
00066  M01S00063.ctask   +++|*                ONE OF THE FOLLOWING OCCURRED.
00067  M01S00064.ctask   +++|*                1.  THERE WAS NO OUTSTANDING *DBEGIN* REQUEST.
00068  M01S00065.ctask   +++|*                2.  AN ERROR WAS ENCOUNTERED ON A DATA BASE OR
00069  M01S00066.ctask   +++|*                    RECOVERY FILE.
00070  M01S00067.ctask   +++|*                3.  THE DATA BASE OR *TAF*/*CRM* IS DOWN.
00071  M01S00068.ctask   +++|*
00072  M01S00069.ctask   +++|*         * CTASK - USER NOT DEFINED IN NETWORK FILE.*
00073  M01S00070.ctask   +++|*                THE *USER* IS NOT DEFINED IN THE *NETWORK* FILE
00074  M01S00071.ctask   +++|*                ON AN *SRERUN*, *TSTAT* OR *WSTAT* REQUEST.
00075  M01S00072.ctask   +++|
00076  M01S00073.ctask   +++|
00077  M01S00074.ctask   +++|*         COMMON DECKS.
00078  M01S00075.ctask   +++|
00079  M01S00076.ctask   +++|
00080  M01S00077.ctask   +++|*CALL     COMCMAC
00081  M01S00078.ctask   +++|*CALL     COMKTAF
00082  M01S00079.ctask   +++|*CALL     COMKFLD
00083  M01S00080.ctask   +++|*CALL     COMKIPR
00084  M01S00081.ctask   +++|*CALL     COMKMAC
00085  M01S00082.ctask   +++|
00086  M01S00083.ctask   +++|*         SAVE ORIGIN COUNTER TO REMOVE COMMON DECK STORAGE IN
00087  M01S00084.ctask   +++|*         *COMKCBD*, *COMKCRM*, *COMKTDM*, *COMKTER*, AND *COMKTSC*.
00088  M01S00085.ctask   +++|
00089  M01S00086.ctask   +++| BEGN     BSS    0
00090  M01S00087.ctask   +++|*CALL     COMKCBD
00091  M01S00088.ctask   +++|          LIST   X
00092  M01S00089.ctask   +++|*CALL     COMKCRM
00093  M01S00090.ctask   +++|*CALL     COMKTDM
00094  M01S00091.ctask   +++|*CALL     COMKTER
00095  M01S00092.ctask   +++|*CALL     COMKTRF
00096  M01S00093.ctask   +++|          LIST   -X
00097  M01S00094.ctask   +++|*CALL     COMKTSC
00098  M01S00095.ctask   +++|          ORG    BEGN        RESTORE ORIGIN COUNTER
00099  M01S00096.ctask   +++|          TITLE  CTASK ROUTINES.
00100  M01S00097.ctask   +++| CTASK    SPACE  4,15
00101  M01S00098.ctask   +++|***       COMMUNICATION BLOCK HEADER WORDS AND MESSAGES.
00102  M01S00099.ctask   +++|*
00103  M01S00100.ctask   +++|*         INPUT TO *CTASK* APPEARS IN THE COMMUNICATION BLOCK.
00104  M01S00101.ctask   +++|*         THE INPUT IS AS FOLLOWS.
00105  M01S00102.ctask   +++|*
00106  M01S00103.ctask   +++|*T  TMSW    60/  CASE
Figure TMSW

029 CASE3059 CASE

00107  M01S00104.ctask   +++|*T, TMSW+1  60/  RECOVERY FLAG (RF)
Figure TMSW+1

029 RECOVERY FLAG (RF)3059 RECOVERY FLAG (RF)

00108  M01S00105.ctask   +++|*T, TMSW+2  60/  OLDID
Figure TMSW+2

029 OLDID3059 OLDID

00109  M01S00106.ctask   +++|*T, TMSW+3  60/  NEWID
Figure TMSW+3

029 NEWID3059 NEWID

00110  M01S00107.ctask   +++|*T, TMSW+4  60/  USERNAME
Figure TMSW+4

029 USERNAME3059 USERNAME

00111  M01S00108.ctask   +++|*T, TMSW+5  60/  *SRERUN* STATUS (RS)
Figure TMSW+5

029 *SRERUN* STATUS (RS)3059 *SRERUN* STATUS (RS)

00112  M01S00109.ctask   +++|*
00113  M01S00110.ctask   +++|*         CASE     = 1 RECOVER INTERACTIVE USER.
00114  M01S00111.ctask   +++|*                  = 2 RECOVER *BTRAN* USER.
00115  M01S00112.ctask   +++|*                  = 3 RECOVER *CRM* DATA BASE.
00116  M01S00113.ctask   +++|*                  = 4 RECOVER TERMINAL FAILURE.
00117  M01S00114.ctask   +++|*         RF       BIT 59 = 1, IF *CRM* AUTOMATIC RECOVERY USED.
00118  M01S00115.ctask   +++|*                  BIT 0 = 1, IF *TAF* AUTOMATIC RECOVERY USED.
00119  M01S00116.ctask   +++|*         OLDID    = PREVIOUS *CRM* IDENTIFIER.
00120  M01S00117.ctask   +++|*         NEWID    = CURRENT *CRM* IDENTIFIER.
00121  M01S00118.ctask   +++|*         USERNAME = ONE-TO-SEVEN CHARACTER USERNAME LEFT-JUSTIFIED
00122  M01S00119.ctask   +++|*                    WITH BLANK FILL.
00123  M01S00120.ctask   +++|*         RS       = 0, IF *SRERUN* SUCCESSFUL.
00124  M01S00121.ctask   +++|*                  = 1, IF *SRERUN* NOT SUCCESSFUL.
00125  M01S00122.ctask   +++|*                  = -1, IF DATA BASE FILE DOWN.
00126  M01S00123.ctask   +++|
00127  M01S00124.ctask   +++|
00128  M01S00125.ctask   +++|          BSS    CMBL        RESERVE SPACE FOR COMMUNICATION BLOCK
00129  M01S00126.ctask   +++| CTASK    SPACE  4,20
00130  M01S00127.ctask   +++|**        CTASK - RECOVER DATA BASE OR USER TASK.
00131  M01S00128.ctask   +++|*
00132  M01S00129.ctask   +++|*         ENTRY  (TMSW) = RECOVERY MESSAGE (DATA BASE OR USER).
00133  M01S00130.ctask   +++|*
00134  M01S00131.ctask   +++|*         EXIT   SPECIFIED RECOVERY CASE PROCESSED.
00135  M01S00132.ctask   +++|*
Line S00133 Modification History
M01 (Added by) ctask
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00136  M02S00133.v23l617 ---|*         ERROR  TO *CTA1* IF ILLEGAL CASE.
00137  M01S00002.v23l617 +++|*         ERROR  TO *CTA1* IF INCORRECT CASE.
00138  M01S00134.ctask   +++|*
00139  M01S00135.ctask   +++|*         USES   X - 3, 6.
00140  M01S00136.ctask   +++|*                A - 3.
00141  M01S00137.ctask   +++|*                B - 1, 2.
00142  M01S00138.ctask   +++|*
00143  M01S00139.ctask   +++|*         CALLS  RBU, RDB, RIU, RTF.
00144  M01S00140.ctask   +++|*
00145  M01S00141.ctask   +++|*         MACROS CEASE, SCALL.
00146  M01S00142.ctask   +++|
00147  M01S00143.ctask   +++|
00148  M01S00144.ctask   +++| CTASK    SB1    1
00149  M01S00145.ctask   +++|          SA3    TMSW        GET RECOVER CASE
00150  M01S00146.ctask   +++|          LX3    -1
00151  M01S00147.ctask   +++|          SX6    X3-TCTAL
00152  M01S00148.ctask   +++|          SB2    X3
Line S00149 Modification History
M01 (Added by) ctask
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00153  M02S00149.v23l617 ---|          PL     X6,CTA1     IF ILLEGAL RECOVERY CASE.
00154  M01S00003.v23l617 +++|          PL     X6,CTA1     IF INCORRECT RECOVERY CASE.
00155  M01S00150.ctask   +++|          JP     B2+TCTA     JUMP THRU TABLE
00156  M01S00151.ctask   +++|
00157  M01S00152.ctask   +++| TCTA     PL     X3,CTA1     UNUSED CASE
00158  M01S00153.ctask   +++|          EQ     RIU         RECOVER INTERACTIVE USER
00159  M01S00154.ctask   +++|          PL     X3,RBU      RECOVER *BTRAN* USER
00160  M01S00155.ctask   +++|          EQ     RDB         RECOVER *CRM* DATA BASE
00161  M01S00156.ctask   +++|          PL     X3,RTF      RECOVER TERMINAL FAILURE
Line S00157 Modification History
M01 (Added by) ctask
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00162  M02S00157.v23l617 ---|          EQ     CTA1        ILLEGAL RECOVERY CASE
00163  M01S00004.v23l617 +++|          EQ     CTA1        INCORRECT RECOVERY CASE
00164  M01S00158.ctask   +++| TCTAL    EQU    *-TCTA      LENGTH OF *CTASK* JUMP TABLE
00165  M01S00159.ctask   +++|
00166  M01S00160.ctask   +++|*         THE PROCESSORS *RIU*, *RBU*, *RDB*, AND *RTF*
00167  M01S00161.ctask   +++|*         RETURN TO THE CODE BELOW TO TERMINATE PROCESSING.
00168  M01S00162.ctask   +++|
Line S00163 Modification History
M01 (Added by) ctask
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00169  M02S00163.v23l617 ---| CTA1     SX3    CTAD        ILLEGAL RECOVERY CASE
00170  M01S00005.v23l617 +++| CTA1     SX3    CTAD        INCORRECT RECOVERY CASE
00171  M01S00164.ctask   +++| CTA2     SA3    X3
00172  M01S00165.ctask   +++|          AX3    18
00173  M01S00166.ctask   +++|          SCALL  TMSG,(X3,A3)  SEND DAYFILE MESSAGE
00174  M01S00167.ctask   +++| CTA3     CEASE              EXIT TASK WITH CEASE
00175  M01S00168.ctask   +++|
00176  M01S00169.ctask   +++| CTA4     SA3    X3
00177  M01S00170.ctask   +++|          AX3    18
00178  M01S00171.ctask   +++|          SCALL  TMSG,(X3,A3)  SEND DAYFILE MESSAGE
00179  M01S00172.ctask   +++| CTA5     CEASE  2           ABNORMAL CEASE WITH MEMORY DUMP
00180  M01S00173.ctask   +++|
00181  M01S00174.ctask   +++|*         DAYFILE MESSAGES.
00182  M01S00175.ctask   +++|
00183  M01S00176.ctask   +++| CTAAM    DATA   C* CTASK - DATA BASE OR FILE DOWN.*
00184  M01S00177.ctask   +++| CTAA     VFD    42/CTAAM,18/**10-CTAAM*10
00185  M01S00178.ctask   +++| CTACM    DATA   C* CTASK - FILE IS NOT INSTALLED.*
00186  M01S00179.ctask   +++| CTAC     VFD    42/CTACM,18/**10-CTACM*10
Line S00180 Modification History
M01 (Added by) ctask
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00187  M02S00180.v23l617 ---| CTADM    DATA   C* CTASK - ILLEGAL RECOVERY CASE.*
00188  M01S00006.v23l617 +++| CTADM    DATA   C* CTASK - INCORRECT RECOVERY CASE.*
00189  M01S00181.ctask   +++| CTAD     VFD    42/CTADM,18/**10-CTADM*10
00190  M01S00182.ctask   +++| CTAEM    DATA   C* CTASK - NO CRM RECOVERY FILES FOR DATA BASE.*
00191  M01S00183.ctask   +++| CTAE     VFD    42/CTAEM,18/**10-CTAEM*10
00192  M01S00184.ctask   +++| CTAFM    DATA   C* CTASK - SYSTEM IDENTIFIER UNKNOWN.*
00193  M01S00185.ctask   +++| CTAF     VFD    42/CTAFM,18/**10-CTAFM*10
00194  M01S00186.ctask   +++| CTAGM    DATA   C* CTASK - TABLE AREA NOT LARGE ENOUGH.*
00195  M01S00187.ctask   +++| CTAG     VFD    42/CTAGM,18/**10-CTAGM*10
00196  M01S00188.ctask   +++| CTAHM    DATA   C* CTASK - TASK LOGICAL ERROR.*
00197  M01S00189.ctask   +++| CTAH     VFD    42/CTAHM,18/**10-CTAHM*10
00198  M01S00190.ctask   +++| CTAIM    DATA   C* CTASK - TRANSACTION NOT RERUNNABLE.*
00199  M01S00191.ctask   +++| CTAI     VFD    42/CTAIM,18/**10-CTAIM*10
00200  M01S00192.ctask   +++| CTAJM    DATA   C* CTASK - TRMREC ERROR.*
00201  M01S00193.ctask   +++| CTAJ     VFD    42/CTAJM,18/**10-CTAJM*10
00202  M01S00194.ctask   +++| CTAKM    DATA   C* CTASK - USER NOT DEFINED IN NETWORK FILE.*
00203  M01S00195.ctask   +++| CTAK     VFD    42/CTAKM,18/**10-CTAKM*10
00204  M01S00196.ctask   +++| CTALM    DATA   C* CTASK - DATA BASE OR FILE IDLE.*
00205  M01S00197.ctask   +++| CTAL     VFD    42/CTALM,18/**10-CTALM*10
00206  M01S00198.ctask   +++| CTASK    SPACE  4,35
00207  M01S00199.ctask   +++|**        RIU - RECOVER INTERACTIVE USER.
00208  M01S00200.ctask   +++|*
00209  M01S00201.ctask   +++|*         TO RECOVER AN INTERACTIVE USER A *TINVOKE* REQUEST IS
00210  M01S00202.ctask   +++|*         ISSUED USING ONLY THE *NEW-SYS-ID* PARAMETER.  THIS
00211  M01S00203.ctask   +++|*         RETURNS A NEW SYSTEM IDENTIFIER (TRANSACTION SEQUENCE
00212  M01S00204.ctask   +++|*         NUMBER) TO BE USED FOR ALL TASKS IN THE RECOVERY UNIT.
00213  M01S00205.ctask   +++|*
00214  M01S00206.ctask   +++|*         NEXT, AN *RSTDBI* REQUEST IS USED TO RESTORE THE
00215  M01S00207.ctask   +++|*         BEGIN IDENTIFIERS TO *CRM* FOR A RECOVERED TRANSACTION.
00216  M01S00208.ctask   +++|*
00217  M01S00209.ctask   +++|*         THEN, AN *SRERUN* REQUEST IS ISSUED TO CAUSE THE INITIAL
00218  M01S00210.ctask   +++|*         TERMINAL INPUT FOR A RERUNNABLE TRANSACTION TO BE
00219  M01S00211.ctask   +++|*         RESUBMITTED TO THE TRANSACTION SYSTEM.
00220  M01S00212.ctask   +++|*
00221  M01S00213.ctask   +++|*         FINALLY, A *RECOVERY, RERUNNING TRANSACTION.* MESSAGE IS
00222  M01S00214.ctask   +++|*         SENT TO THE ORIGINATING TERMINAL.  WHEN *CTASK* CEASES,
00223  M01S00215.ctask   +++|*         *ITASK* IS CALLED AS IF THE INPUT CAME FROM THE TERMINAL.
00224  M01S00216.ctask   +++|*
00225  M01S00217.ctask   +++|*         ENTRY  RECOVER INTERACTIVE USER CASE SELECTED.
00226  M01S00218.ctask   +++|*                (TMSW+1) = RECOVERY FLAG.
00227  M01S00219.ctask   +++|*
00228  M01S00220.ctask   +++|*         EXIT   TO *CTA3* FOR CEASE.
00229  M01S00221.ctask   +++|*                (TMSW+5) = 0, IF *SRERUN* SUCCESSFUL.
00230  M01S00222.ctask   +++|*                         = 1, IF *SRERUN* NOT SUCCESSFUL.
00231  M01S00223.ctask   +++|*                         = -1, IF DATA BASE FILE DOWN.
00232  M01S00224.ctask   +++|*
00233  M01S00225.ctask   +++|*         ERROR  (X3) = FWA OF DAYFILE MESSAGE PARAMETERS.
00234  M01S00226.ctask   +++|*                (TMSW+5) = *SRERUN* STATUS.
00235  M01S00227.ctask   +++|*                TO *CTA2* IF ERROR AND NORMAL CEASE.
00236  M01S00228.ctask   +++|*                TO *CTA4* IF ERROR AND ABNORMAL CEASE.
00237  M01S00229.ctask   +++|*
00238  M01S00230.ctask   +++|*         USES   X - 2, 3, 4, 6.
00239  M01S00231.ctask   +++|*                A - 2, 3, 6.
00240  M01S00232.ctask   +++|*
00241  M01S00233.ctask   +++|*         CALLS  RID.
00242  M01S00234.ctask   +++|*
00243  M01S00235.ctask   +++|*         MACROS SCALL, TRMREC.
00244  M01S00236.ctask   +++|
00245  M01S00237.ctask   +++|
00246  M01S00238.ctask   +++| RIU      SA2    TMSW+1      GET RECOVERY FLAG
00247  M01S00239.ctask   +++|          SX3    B0
00248  M01S00240.ctask   +++|          SX6    B1
00249  M01S00241.ctask   +++|          PL     X2,RIU1     IF NO *CRM* RECOVERY
00250  M01S00242.ctask   +++|
00251  M01S00243.ctask   +++|*         ISSUE *TINVOKE* USING *NEW-ID* TO GET NEW SEQUENCE NUMBER.
00252  M01S00244.ctask   +++|
00253  M01S00245.ctask   +++|          SCALL  TINVOKE,(RIUC,RIUD)
00254  M01S00246.ctask   +++|          SA2    RIUC        GET STATUS OF REQUEST
00255  M01S00247.ctask   +++|          SX3    CTAH        TASK LOGICAL ERROR
00256  M01S00248.ctask   +++|          SX4    X2-TSNE     NO ERRORS STATUS
00257  M01S00249.ctask   +++|          SX6    B1+
00258  M01S00250.ctask   +++|          NZ     X4,RIU2     IF ERRORS IN *TINVOKE*
00259  M01S00251.ctask   +++|
00260  M01S00252.ctask   +++|*         RETURN BEGIN-COMMIT HISTORY TO *CRM* WITH *RSTDBI*.
00261  M01S00253.ctask   +++|
00262  M01S00254.ctask   +++|          RJ     RID         RESTORE DATA BASE IDENTIFIERS
00263  M01S00255.ctask   +++|          SX3    CTAE        RECOVERY FILE NOT ASSIGNED TO DATA BASE
00264  M01S00256.ctask   +++|          SX4    X2-TERAF
00265  M01S00257.ctask   +++|          SX6    B1+
00266  M01S00258.ctask   +++|          ZR     X4,RIU2     IF NO RECOVERY FILE FOR DATA BASE
00267  M01S00259.ctask   +++|          SX3    CTAA        DATA BASE OR FILE DOWN
00268  M01S00260.ctask   +++|          SX4    X2-TERAK
00269  M01S00261.ctask   +++|          SX6    -1
00270  M01S00262.ctask   +++|          ZR     X4,RIU2     IF DATA BASE OR FILE DOWN
00271  M01S00263.ctask   +++|          SX3    CTAL        DATA BASE OR FILE IDLE
00272  M01S00264.ctask   +++|          SX4    X2-TERAG
00273  M01S00265.ctask   +++|          ZR     X4,RIU2     IF DATA BASE OR FILE IDLE
00274  M01S00266.ctask   +++|          SX3    CTAH        TASK LOGICAL ERROR
00275  M01S00267.ctask   +++|          SX6    B1+
00276  M01S00268.ctask   +++|          NZ     X2,RIU2     IF REQUEST NOT SUCCESSFUL
00277  M01S00269.ctask   +++|          SX4    B0+
00278  M01S00270.ctask   +++|          SX3    B0+
00279  M01S00271.ctask   +++| RIU1     SA2    TMSW+1      GET RECOVERY FLAG
00280  M01S00272.ctask   +++|          SX2    X2+
00281  M01S00273.ctask   +++|          ZR     X2,RIU2     IF NO *TAF* AUTOMATIC RECOVERY
00282  M01S00274.ctask   +++|
00283  M01S00275.ctask   +++|*         ISSUE *SRERUN* REQUEST TO RERUN TRANSACTION.
00284  M01S00276.ctask   +++|
00285  M01S00277.ctask   +++|          SCALL  SRERUN,(RIUB)
00286  M01S00278.ctask   +++|          SA2    RIUB        GET STATUS OF REQUEST
00287  M01S00279.ctask   +++|          SX3    CTAI        TRANSACTION NOT RERUNNABLE
00288  M01S00280.ctask   +++|          SX4    X2-TSNO
00289  M01S00281.ctask   +++|          SX6    B1+
00290  M01S00282.ctask   +++|          ZR     X4,RIU2     IF TRANSACTION NOT RERUNNABLE
00291  M01S00283.ctask   +++|          SX3    CTAK        USER NOT DEFINED IN NETWORK FILE
00292  M01S00284.ctask   +++|          SX4    X2-TSUU
00293  M01S00285.ctask   +++|          ZR     X4,RIU2     IF USER UNKNOWN
00294  M01S00286.ctask   +++|          SX3    CTAH        TASK LOGICAL ERROR
00295  M01S00287.ctask   +++|          SX4    X2-TSNE     NO ERRORS STATUS
00296  M01S00288.ctask   +++|          NZ     X4,RIU2     IF ERRORS IN *SRERUN*
00297  M01S00289.ctask   +++|          SX6    B0+
00298  M01S00290.ctask   +++|          SA6    TMSW+5      STORE *RERUN* SUCCESSFUL
00299  M01S00291.ctask   +++|          EQ     CTA3        CEASE
00300  M01S00292.ctask   +++|
00301  M01S00293.ctask   +++| RIU2     SA6    TMSW+5      STORE *SRERUN* NOT SUCCESSFUL
00302  M01S00294.ctask   +++|          SX6    X4
00303  M01S00295.ctask   +++|          SA6    A6+B1       STORE CEASE TYPE
00304  M01S00296.ctask   +++|          SX6    X3
00305  M01S00297.ctask   +++|          SA6    A6+B1       STORE DAYFILE MESSAGE
00306  M01S00298.ctask   +++|          SA2    TMSW+5
00307  M01S00299.ctask   +++|          NG     X2,RIU3     IF FILE DOWN OR IDLE
00308  M01S00300.ctask   +++|          SA2    TMSW+1      GET RECOVERY FLAG
00309  M01S00301.ctask   +++|          PL     X2,RIU3     IF NO *CRM* RECOVERY
00310  M01S00302.ctask   +++|
00311  M01S00303.ctask   +++|*         ISSUE *TRMREC* REQUEST TO CLEAR *CRM* TABLES ON ERROR.
00312  M01S00304.ctask   +++|
00313  M01S00305.ctask   +++|          TRMREC RIUE
00314  M01S00306.ctask   +++|          SA2    RIUG        GET STATUS OF REQUEST
00315  M01S00307.ctask   +++|          SX3    CTAJ        *TRMREC* ERROR
00316  M01S00308.ctask   +++|          NZ     X2,CTA2     IF REQUEST NOT SUCCESSFUL
00317  M01S00309.ctask   +++| RIU3     SA3    TMSW+7      GET DAYFILE MESSAGE
00318  M01S00310.ctask   +++|          ZR     X3,CTA3     IF NO MESSAGE THEN CEASE
00319  M01S00311.ctask   +++|          SA2    TMSW+6      GET CEASE TYPE
00320  M01S00312.ctask   +++|          ZR     X2,CTA2     IF ERROR WITH NORMAL CEASE
00321  M01S00313.ctask   +++|          EQ     CTA4        ERROR WITH ABNORMAL CEASE
00322  M01S00314.ctask   +++|
00323  M01S00315.ctask   +++|*         *SRERUN* REQUEST PARAMETER.
00324  M01S00316.ctask   +++|
00325  M01S00317.ctask   +++| RIUB     CON    0           STATUS OF REQUEST
00326  M01S00318.ctask   +++|
00327  M01S00319.ctask   +++|*         *TINVOKE* REQUEST PARAMETERS.
00328  M01S00320.ctask   +++|
00329  M01S00321.ctask   +++| RIUC     CON    0           STATUS OF REQUEST
00330  M01S00322.ctask   +++| RIUD     CON    0           NEW SYSTEM IDENTIFIER
00331  M01S00323.ctask   +++|
00332  M01S00324.ctask   +++|*         *TRMREC* REQUEST PARAMETERS.
00333  M01S00325.ctask   +++|
00334  M01S00326.ctask   +++| RIUE     VFD    42/0,18/RIUF
00335  M01S00327.ctask   +++|          VFD    42/0,18/RIUG
00336  M01S00328.ctask   +++|          CON    0
00337  M01S00329.ctask   +++|
00338  M01S00330.ctask   +++| RIUF     CON    0           ZERO WORD
00339  M01S00331.ctask   +++| RIUG     CON    0           STATUS OF REQUEST
00340  M01S00332.ctask   +++| CTASK    SPACE  4,30
00341  M01S00333.ctask   +++|**        RBU - RECOVER *BTRAN* USER.
00342  M01S00334.ctask   +++|*
00343  M01S00335.ctask   +++|*         TO RECOVER A *BTRAN* USER A *TINVOKE* REQUEST IS ISSUED
00344  M01S00336.ctask   +++|*         USING ONLY THE *NEW-SYS-ID* PARAMETER.  THIS RETURNS A
00345  M01S00337.ctask   +++|*         NEW SYSTEM IDENTIFIER (TRANSACTION SEQUENCE NUMBER) TO
00346  M01S00338.ctask   +++|*         BE USED FOR ALL TASKS IN THE RECOVERY UNIT.
00347  M01S00339.ctask   +++|*
00348  M01S00340.ctask   +++|*         THEN AN *RSTDBI* REQUEST IS USED TO RESTORE THE BEGIN
00349  M01S00341.ctask   +++|*         IDENTIFIERS TO *CRM* FOR A RECOVERED TRANSACTION.
00350  M01S00342.ctask   +++|*
00351  M01S00343.ctask   +++|*         FINALLY, AN *SRERUN* REQUEST IS USED TO CAUSE THE INITIAL
00352  M01S00344.ctask   +++|*         INPUT FOR A RERUNNABLE TRANSACTION TO BE RESUBMITTED TO
00353  M01S00345.ctask   +++|*         THE TRANSACTION SYSTEM.  THIS PROCESS CAUSES *ITASK* TO
00354  M01S00346.ctask   +++|*         BE CALLED JUST AS IF THE INPUT CAME FROM THE TERMINAL.
00355  M01S00347.ctask   +++|*
00356  M01S00348.ctask   +++|*         ENTRY  RECOVER *BTRAN* USER CASE SELECTED.
00357  M01S00349.ctask   +++|*                (TMSW+1) = RECOVERY FLAG.
00358  M01S00350.ctask   +++|*                (TMSW+4) = USERNAME.
00359  M01S00351.ctask   +++|*
00360  M01S00352.ctask   +++|*         EXIT   TO *CTA3* FOR CEASE.
00361  M01S00353.ctask   +++|*
00362  M01S00354.ctask   +++|*         ERROR  (X7) = FWA OF DAYFILE MESSAGE PARAMETERS.
00363  M01S00355.ctask   +++|*                TO *CTA2* IF ERROR AND NORMAL CEASE.
00364  M01S00356.ctask   +++|*                TO *CTA4* IF ERROR AND ABNORMAL CEASE.
00365  M01S00357.ctask   +++|*
00366  M01S00358.ctask   +++|*         USES   X - 2, 3, 4, 6.
00367  M01S00359.ctask   +++|*                A - 2, 6.
00368  M01S00360.ctask   +++|*
00369  M01S00361.ctask   +++|*         CALLS  RID.
00370  M01S00362.ctask   +++|*
00371  M01S00363.ctask   +++|*         MACROS SCALL.
00372  M01S00364.ctask   +++|
00373  M01S00365.ctask   +++|
00374  M01S00366.ctask   +++| RBU      SA2    TMSW+1      GET RECOVERY FLAG
00375  M01S00367.ctask   +++|          PL     X1,RBU1     IF NO *CRM* RECOVERY
00376  M01S00368.ctask   +++|
00377  M01S00369.ctask   +++|*         ISSUE *TINVOKE* USING *NEW-ID* TO GET NEW SEQUENCE NUMBER.
00378  M01S00370.ctask   +++|
00379  M01S00371.ctask   +++|          SCALL  TINVOKE,(RBUC,RBUD)
00380  M01S00372.ctask   +++|          SA2    RBUC        GET STATUS OF REQUEST
00381  M01S00373.ctask   +++|          SX3    CTAH        TASK LOGICAL ERROR
00382  M01S00374.ctask   +++|          SX4    X2-TSNE     NO ERRORS STATUS
00383  M01S00375.ctask   +++|          NZ     X4,CTA4     IF ERRORS IN *TINVOKE*
00384  M01S00376.ctask   +++|
00385  M01S00377.ctask   +++|*         RETURN BEGIN-COMMIT HISTORY TO *CRM* WITH *RSTDBI*.
00386  M01S00378.ctask   +++|
00387  M01S00379.ctask   +++|          RJ     RID         RESTORE DATA BASE IDENTIFIERS
00388  M01S00380.ctask   +++|          SX3    CTAE        RECOVERY FILE NOT ASSIGNED TO DATA BASE
00389  M01S00381.ctask   +++|          SX4    X2-TERAF
00390  M01S00382.ctask   +++|          ZR     X4,CTA2     IF NO RECOVERY FILE FOR DATA BASE
00391  M01S00383.ctask   +++|          SX3    CTAA        DATA BASE OR FILE DOWN
00392  M01S00384.ctask   +++|          SX4    X2-TERAK
00393  M01S00385.ctask   +++|          ZR     X4,CTA2     IF DATA BASE OR FILE DOWN
00394  M01S00386.ctask   +++|          SX3    CTAL        DATA BASE OR FILE IDLE
00395  M01S00387.ctask   +++|          SX4    X2-TERAG
00396  M01S00388.ctask   +++|          ZR     X4,CTA2     IF DATA BASE OR FILE IDLE
00397  M01S00389.ctask   +++|          SX3    CTAH        TASK LOGICAL ERROR
00398  M01S00390.ctask   +++|          NZ     X2,CTA4     IF REQUEST NOT SUCCESSFUL
00399  M01S00391.ctask   +++| RBU1     SA2    TMSW+1      GET RECOVERY FLAG
00400  M01S00392.ctask   +++|          SX2    X2+
00401  M01S00393.ctask   +++|          ZR     X2,CTA3     IF NO *TAF* AUTOMATIC RECOVERY
00402  M01S00394.ctask   +++|
00403  M01S00395.ctask   +++|*         ISSUE *SRERUN* REQUEST TO RERUN TRANSACTION USING USERNAME.
00404  M01S00396.ctask   +++|
00405  M01S00397.ctask   +++|          SCALL  SRERUN,(RBUA,TMSW+4)
00406  M01S00398.ctask   +++|          SA2    RBUA        GET STATUS OF REQUEST
00407  M01S00399.ctask   +++|          SX3    CTAI        TRANSACTON NOT RERUNNABLE
00408  M01S00400.ctask   +++|          SX4    X2-TSNO
00409  M01S00401.ctask   +++|          ZR     X4,CTA2     IF TRANSACTION NOT RERUNNABLE
00410  M01S00402.ctask   +++|          SX3    CTAH        TASK LOGICAL ERROR
00411  M01S00403.ctask   +++|          SX4    X2-TSNE     NO ERRORS STATUS
00412  M01S00404.ctask   +++|          NZ     X4,CTA4     IF ERRORS IN *RERUN*
00413  M01S00405.ctask   +++|          EQ     CTA3        CEASE
00414  M01S00406.ctask   +++|
00415  M01S00407.ctask   +++|*         *SRERUN* REQUEST PARAMETER.
00416  M01S00408.ctask   +++|
00417  M01S00409.ctask   +++| RBUA     CON    0           STATUS OF REQUEST
00418  M01S00410.ctask   +++|
00419  M01S00411.ctask   +++|*         *TINVOKE* REQUEST PARAMETERS.
00420  M01S00412.ctask   +++|
00421  M01S00413.ctask   +++| RBUC     CON    0           STATUS OF REQUEST
00422  M01S00414.ctask   +++| RBUD     CON    0           NEW SYSTEM IDENTIFIER
00423  M01S00415.ctask   +++| CTASK    SPACE  4,50
00424  M01S00416.ctask   +++|**        RDB - RECOVER *CRM* DATA BASE.
00425  M01S00417.ctask   +++|*
00426  M01S00418.ctask   +++|*         TO RECOVER THE *CRM* DATA BASE A *TAF* *CRM* REQUEST
00427  M01S00419.ctask   +++|*         *CRMSTAT* IS USED TO RETURN THE BEGIN-COMMIT HISTORY.
00428  M01S00420.ctask   +++|*         THIS INFORMATION IS PRIMARILY THE TRANSACTION SEQUENCE
00429  M01S00421.ctask   +++|*         TABLE (TSEQ) IN ITS ENTIRITY AS IT EXITS AT THE TIME
00430  M01S00422.ctask   +++|*         THE REQUEST IS PROCESSED.  THE TABLE IS DEFINED WITH
00431  M01S00423.ctask   +++|*         *FIELD* MACROS IN *COMKCRM*.  THIS DECK ALSO DEFINES
00432  M01S00424.ctask   +++|*         THE LENGTH OF EACH ENTRY OF THIS TABLE (TSEQE SYMBOL).
00433  M01S00425.ctask   +++|*         THE NUMBER OF ENTRIES IN THIS TABLE IS *CMDM*, WHICH
00434  M01S00426.ctask   +++|*         IS AN INSTALLATION PARAMETER DEFINED IN *COMKIPR*.
00435  M01S00427.ctask   +++|*         THE FIRST WORD OF EACH ENTRY OF THIS TABLE IS ZERO IF
00436  M01S00428.ctask   +++|*         THE ENTRY DOES NOT CONTAIN A TRANSACTION ENTRY.
00437  M01S00429.ctask   +++|*
00438  M01S00430.ctask   +++|*         WITH THE INFORMATION IN THE *CRMSTAT* TABLE, RECOVERY
00439  M01S00431.ctask   +++|*         PROCESSING IS INITIATED.  SUBROUTINE *RBC* HANDLES THE
00440  M01S00432.ctask   +++|*         PROCESSING BY CHECKING THE TRANSACTION SEQUENCE NUMBER OF
00441  M01S00433.ctask   +++|*         EACH ENTRY IN THE *CRMSTAT* TABLE AGAINST THE *TAF* RECOVERY
00442  M01S00434.ctask   +++|*         FILE.  WHEN A MATCH IS FOUND, THE BEGIN IDENTIFIERS FROM
00443  M01S00435.ctask   +++|*         THE *CRMSTAT* TABLE ARE USED AS INPUT PARAMETERS INTO
00444  M01S00436.ctask   +++|*         THE APPROPRIATE PARAMETERS IN *WSTAT*.  THEN A *WSTAT*
00445  M01S00437.ctask   +++|*         REQUEST IS ISSUED TO RECORD THE BEGIN-COMMIT HISTORY ON
00446  M01S00438.ctask   +++|*         THE *TAF* RECOVERY FILE.  SUBROUTINE *CSN* COMPARES THE
00447  M01S00439.ctask   +++|*         TRANSACTION SEQUENCE NUMBERS FROM THE *TAF* RECOVERY FILE
00448  M01S00440.ctask   +++|*         AND THE *CRMSTAT* TABLE.
00449  M01S00441.ctask   +++|*
00450  M01S00442.ctask   +++|*         WHEN RECOVERY PROCESSING IS COMPLETE, ROLL BACK PRO-
00451  M01S00443.ctask   +++|*         CESSING IS INITIATED.  SUBROUTINE *RDC* HANDLES THE ROLL
00452  M01S00444.ctask   +++|*         BACK PROCESSING BY USING THE TRANSACTION SEQUENCE NUMBER OF
00453  M01S00445.ctask   +++|*         EACH *CRMSTAT* ENTRY AS THE *OLD-SYS-ID* ON THE *TINVOKE*
00454  M01S00446.ctask   +++|*         REQUEST.  THIS WOULD ESTABLISH THE TASK/JOB AS A CONTIN-
00455  M01S00447.ctask   +++|*         UATION OF A PREVIOUS ONE FOR THE PURPOSE OF ISSUING A TRMREC
00456  M01S00448.ctask   +++|*         REQUEST TO ROLL BACK THE DATA TO A CONSISTENT STATE.
00457  M01S00449.ctask   +++|*
00458  M01S00450.ctask   +++|*         WITH THE SUCCESSFUL COMPLETION OF ROLL BACK PROCESSING,
00459  M01S00451.ctask   +++|*         *BTASK* IS CALLED TO RECOVER *BTRAN* TRANSACTIONS.  UPON
00460  M01S00452.ctask   +++|*         THE COMPLETION OF *BTASK*, A *WSTAT* REQUEST IS ISSUED
00461  M01S00453.ctask   +++|*         TO START INPUT TO TAF AND DATA BASE RECOVERY IS COMPLETE.
00462  M01S00454.ctask   +++|*
00463  M01S00455.ctask   +++|*         ENTRY  RECOVER *CRM* DATA BASE CASE SELECTED.
00464  M01S00456.ctask   +++|*                (TMSW+1) = RECOVERY FLAG.
00465  M01S00457.ctask   +++|*
00466  M01S00458.ctask   +++|*         EXIT   TO *CTA3* FOR NORMAL CEASE.
00467  M01S00459.ctask   +++|*                TO *CTA5* FOR ABNORMAL CEASE.
00468  M01S00460.ctask   +++|*
00469  M01S00461.ctask   +++|*         ERROR  APPROPRIATE ERROR MESSAGE ISSUED TO DAYFILE.
00470  M01S00462.ctask   +++|*                TO *CTA4* IF NOT SYSTEM ORIGIN TRANSACTION.
00471  M01S00463.ctask   +++|*
00472  M01S00464.ctask   +++|*         USES   X - 2, 3, 4, 6, 7.
00473  M01S00465.ctask   +++|*                A - 2, 6.
00474  M01S00466.ctask   +++|*
00475  M01S00467.ctask   +++|*         CALLS  RBC, RDC.
00476  M01S00468.ctask   +++|*
00477  M01S00469.ctask   +++|*         MACROS CALLRTN, CRMSTAT, SCALL.
00478  M01S00470.ctask   +++|
00479  M01S00471.ctask   +++|
00480  M01S00472.ctask   +++| RDB      SA2    TNAM
00481  M01S00473.ctask   +++|          SX3    -CTAH       TASK LOGICAL ERROR
00482  M01S00474.ctask   +++|          LX2    59-CBSYS
00483  M01S00475.ctask   +++|          PL     X2,CTA4     IF NOT SYSTEM ORIGIN TRANSACTION
00484  M01S00476.ctask   +++|          SX6    B0
00485  M01S00477.ctask   +++|          SA2    TMSW+1      GET RECOVERY FLAG
00486  M01S00478.ctask   +++|          SA6    RDBM        INITIALIZE NORMAL CEASE
00487  M01S00479.ctask   +++|          PL     X2,RDB4     IF NO *CRM* RECOVERY
00488  M01S00480.ctask   +++|
00489  M01S00481.ctask   +++|*         ISSUE *CRMSTAT* REQUEST TO GET BEGIN-COMMIT HISTORY.
00490  M01S00482.ctask   +++|
00491  M01S00483.ctask   +++|          CRMSTAT  RDBD
00492  M01S00484.ctask   +++|          SA2    RDBF        GET STATUS OF REQUEST
00493  M01S00485.ctask   +++|          SX3    CTAC        FILE IS NOT INSTALLED
00494  M01S00486.ctask   +++|          SX4    X2-TERB
00495  M01S00487.ctask   +++|          ZR     X4,RDB2     IF FILE IS NOT INSTALLED
00496  M01S00488.ctask   +++|          SX3    CTAG        TABLE AREA NOT LARGE ENOUGH
00497  M01S00489.ctask   +++|          SX4    X2-TERAN
00498  M01S00490.ctask   +++|          ZR     X4,RDB2     IF TABLE AREA NOT LARGE ENOUGH
00499  M01S00491.ctask   +++|          SX3    -CTAH       TASK LOGICAL ERROR
00500  M01S00492.ctask   +++|          NZ     X2,RDB2     IF REQUEST NOT SUCCESSFUL
00501  M01S00493.ctask   +++|          SA2    TMSW+1      GET RECOVERY FLAG
00502  M01S00494.ctask   +++|          SX2    X2
00503  M01S00495.ctask   +++|          ZR     X2,RDB1     IF NO *TAF* AUTOMATIC RECOVERY
00504  M01S00496.ctask   +++|          SX6    B1
00505  M01S00497.ctask   +++|          SA6    RDBN        RECOVERY PROCESSING NOT COMPLETE
00506  M01S00498.ctask   +++|
00507  M01S00499.ctask   +++|*         RECOVER *TAF* *CRM* DATA BASE BEGIN-COMMIT HISTORY.
00508  M01S00500.ctask   +++|
00509  M01S00501.ctask   +++|          RJ     RBC         RECOVER BEGIN-COMMIT HISTORY
00510  M01S00502.ctask   +++|          SA2    RDBN
00511  M01S00503.ctask   +++|          NZ     X2,RDB2     IF RECOVERY PROCESSING NOT COMPLETE
00512  M01S00504.ctask   +++| RDB1     SX6    B0+
00513  M01S00505.ctask   +++|          SA6    RDBL        INITIALIZE *TRMREC* COUNTER
00514  M01S00506.ctask   +++|
00515  M01S00507.ctask   +++|*         ROLL BACK THE DATA BASE TO A CONSISTENT STATE.
00516  M01S00508.ctask   +++|
00517  M01S00509.ctask   +++|          RJ     RDC         ROLL BACK DATA BASE
00518  M01S00510.ctask   +++|          SX6    X3+
00519  M01S00511.ctask   +++|          SA6    TMSW+6      SAVE ERROR MESSAGE
00520  M01S00512.ctask   +++|          SA2    TRSQ        GET TRANSACTION SEQUENCE NUMBER
00521  M01S00513.ctask   +++|          MX4    -CBTSN
00522  M01S00514.ctask   +++|          BX6    -X4*X2
00523  M01S00515.ctask   +++|          SA6    RDBK        SET OLD SYSTEM IDENTIFIER
00524  M01S00516.ctask   +++|
00525  M01S00517.ctask   +++|*         RESTORE *CTASK* SEQUENCE NUMBER BEFORE CEASING.
00526  M01S00518.ctask   +++|
00527  M01S00519.ctask   +++|          SCALL  TINVOKE,(RDBI,RDBJ,RDBK)
00528  M01S00520.ctask   +++|          SA2    RDBI
00529  M01S00521.ctask   +++|          SX3    -CTAH       TASK LOGICAL ERROR
00530  M01S00522.ctask   +++|          SX4    X2-TSNE
00531  M01S00523.ctask   +++|          NZ     X4,RDB2     IF ERRORS IN *TINVOKE*
00532  M01S00524.ctask   +++|          SA3    TMSW+6
00533  M01S00525.ctask   +++|          SA2    RDBL
00534  M01S00526.ctask   +++|          NZ     X2,RDB2     IF *TRMREC* ERRORS
00535  M01S00527.ctask   +++|          EQ     RDB4        START TERMINAL INPUT
00536  M01S00528.ctask   +++|
00537  M01S00529.ctask   +++| RDB2     SX6    CSTT        TERMINATE *TAF*
00538  M01S00530.ctask   +++|          SA6    RDBC        TRANSACTION STEP
00539  M01S00531.ctask   +++|          PL     X3,RDB3     IF NORMAL CEASE
00540  M01S00532.ctask   +++|          SX7    B1
00541  M01S00533.ctask   +++|          BX3    -X3
00542  M01S00534.ctask   +++|          SA7    RDBM        ABNORMAL CEASE
00543  M01S00535.ctask   +++| RDB3     SA3    X3
00544  M01S00536.ctask   +++|          AX3    18
00545  M01S00537.ctask   +++|          SCALL  TMSG,(X3,A3)  SEND DAYFILE MESSAGE
00546  M01S00538.ctask   +++|          EQ     RDB5        ISSUE *WSTAT* REQUEST
00547  M01S00539.ctask   +++|
00548  M01S00540.ctask   +++| RDB4     SX6    CSST        START TERMINAL/JOB INPUT
00549  M01S00541.ctask   +++|          SA6    RDBC        TRANSACTION STEP
00550  M01S00542.ctask   +++|
00551  M01S00543.ctask   +++|*         ISSUE A *CALLRTN* TO *BTASK* TO RECOVER *BTRAN* TRANSACTIONS
00552  M01S00544.ctask   +++|*         AND A *WSTAT* REQUEST TO TERMINATE TAF OR START INPUT.
00553  M01S00545.ctask   +++|
00554  M01S00546.ctask   +++| RDB5     CALLRTN  RDBO
00555  M01S00547.ctask   +++|          SCALL  WSTAT,(RDBA,RDBB,RDBC)
00556  M01S00548.ctask   +++|          SA2    RDBA
00557  M01S00549.ctask   +++|          SX3    CTAH        TASK LOGICAL ERROR
00558  M01S00550.ctask   +++|          SX4    X2-TSNE
00559  M01S00551.ctask   +++|          NZ     X4,CTA4     IF ERRORS IN *WSTAT*
00560  M01S00552.ctask   +++|          SA2    RDBM
00561  M01S00553.ctask   +++|          ZR     X2,CTA3     IF NORMAL CEASE
00562  M01S00554.ctask   +++|          EQ     CTA5        ABNORMAL CEASE WITH MEMORY DUMP
00563  M01S00555.ctask   +++|
00564  M01S00556.ctask   +++|*         *WSTAT* REQUEST PARAMETERS.
00565  M01S00557.ctask   +++|
00566  M01S00558.ctask   +++| RDBA     CON    0           STATUS OF REQUEST
00567  M01S00559.ctask   +++| RDBB     DATA   4HSTEP      KEYWORD *STEP*
00568  M01S00560.ctask   +++| RDBC     CON    0           TRANSACTION STEP
00569  M01S00561.ctask   +++|
00570  M01S00562.ctask   +++|*         *CRMSTAT* REQUEST PARAMETERS.
00571  M01S00563.ctask   +++|
00572  M01S00564.ctask   +++| RDBD     VFD    42/0,18/RDBE
00573  M01S00565.ctask   +++|          VFD    42/0,18/RDBF
00574  M01S00566.ctask   +++|          VFD    42/0,18/RDBG
00575  M01S00567.ctask   +++|          VFD    42/0,18/RDBH
00576  M01S00568.ctask   +++|          CON    0
00577  M01S00569.ctask   +++|
00578  M01S00570.ctask   +++| RDBE     CON    0           *CRM* STATUS FUNCTION
00579  M01S00571.ctask   +++| RDBF     CON    0           STATUS OF REQUEST
00580  M01S00572.ctask   +++| RDBG     BSSZ   RMDM*CMDM*TSEQE+TSEQE+1+2*AAMQFL+AIBFL+AOBFL+1
00581  M01S00573.ctask   +++| RDBH     CON    *-RDBG      LENGTH OF *CRMSTAT* TABLE
00582  M01S00574.ctask   +++|
00583  M01S00575.ctask   +++|*         *TINVOKE* REQUEST PARAMETERS.
00584  M01S00576.ctask   +++|
00585  M01S00577.ctask   +++| RDBI     CON    0           STATUS OF REQUEST
00586  M01S00578.ctask   +++| RDBJ     CON    0           NEW SYSTEM IDENTIFIER
00587  M01S00579.ctask   +++| RDBK     CON    0           OLD SYSTEM IDENTIFIER
00588  M01S00580.ctask   +++|
00589  M01S00581.ctask   +++| RDBL     CON    0           *TRMREC* ERROR COUNTER
00590  M01S00582.ctask   +++| RDBM     CON    0           NORMAL CEASE FLAG
00591  M01S00583.ctask   +++| RDBN     CON    0           RECOVERY PROCESSING COMPLETE FLAG
00592  M01S00584.ctask   +++|
00593  M01S00585.ctask   +++|*         *CALLRTN* TASK LIST.
00594  M01S00586.ctask   +++|
00595  M01S00587.ctask   +++| RDBO     CON    5LBTASK
00596  M01S00588.ctask   +++|          CON    0
00597  M01S00589.ctask   +++| RTF      SPACE  4,40
00598  M01S00590.ctask   +++|**        RTF - RECOVER TERMINAL FAILURE.
00599  M01S00591.ctask   +++|*
00600  M01S00592.ctask   +++|*         TO RECOVER TERMINAL FAILURES, SUBROUTINE *RBH* HANDLES THE
00601  M01S00593.ctask   +++|*         PROCESSING BY CHECKING THE TRANSACTION SEQUENCE NUMBER
00602  M01S00594.ctask   +++|*         FROM THE *TAF* RECOVERY FILE AGAINST THE ENTRIES IN
00603  M01S00595.ctask   +++|*         THE *CRMSTAT* TABLE.  IF A MATCH IS FOUND, THE BEGIN
00604  M01S00596.ctask   +++|*         IDENTIFIERS FROM THE *CRMSTAT* TABLE ARE USED AS INPUT
00605  M01S00597.ctask   +++|*         PARAMETERS IN *WSTAT*.  THEN A *WSTAT* REQUEST IS
00606  M01S00598.ctask   +++|*         ISSUED TO RECORD THE BEGIN-COMMIT HISTORY ON THE *TAF*
00607  M01S00599.ctask   +++|*         RECOVERY FILE.  SUBROUTINE *CSN* COMPARES THE TRANSACTION
00608  M01S00600.ctask   +++|*         SEQUENCE NUMBERS FROM THE *TRF* AND THE *CRMSTAT* TABLE.
00609  M01S00601.ctask   +++|*
00610  M01S00602.ctask   +++|*         WHEN RECOVERY PROCESSING IS COMPLETE, ROLL BACK PRO-
00611  M01S00603.ctask   +++|*         CESSING IS STARTED.  SUBROUTINE *RCS* HANDLES THE ROLL
00612  M01S00604.ctask   +++|*         BACK PROCESSING BY USING THE TRANSACTION SEQUENCE NUMBER
00613  M01S00605.ctask   +++|*         FROM THE *TRF* AS THE *OLD-SYS-ID* ON THE *TINVOKE*
00614  M01S00606.ctask   +++|*         REQUEST.  THIS ESTABLISHES THE TASK/JOB AS A CONTINUATION
00615  M01S00607.ctask   +++|*         OF A PREVIOUS ONE FOR THE PURPOSE OF ISSUING A *TRMREC*
00616  M01S00608.ctask   +++|*         REQUEST TO ROLL BACK THE DATA TO A CONSISTENT STATE.
00617  M01S00609.ctask   +++|*
00618  M01S00610.ctask   +++|*         WITH THE COMPLETION OF ROLL BACK PROCESSING, A *WSTAT*
00619  M01S00611.ctask   +++|*         REQUEST IS ISSUED TO START TERMINAL INPUT TO *TAF* AND
00620  M01S00612.ctask   +++|*         TERMINAL FAILURE RECOVERY IS COMPLETE.
00621  M01S00613.ctask   +++|*
00622  M01S00614.ctask   +++|*         ENTRY  (TMSW+1) = RECOVERY FLAG.
00623  M01S00615.ctask   +++|*
00624  M01S00616.ctask   +++|*         EXIT   TO *CTA3* FOR NORMAL CEASE.
00625  M01S00617.ctask   +++|*                TO *CTA5* FOR ABNORMAL CEASE.
00626  M01S00618.ctask   +++|*
00627  M01S00619.ctask   +++|*         ERROR  APPROPRIATE ERROR MESSAGE ISSUED TO DAYFILE.
00628  M01S00620.ctask   +++|*                TO *CTA4* IF NOT SYSTEM ORIGIN TRANSACTION.
00629  M01S00621.ctask   +++|*
00630  M01S00622.ctask   +++|*         USES   X - 2, 3, 4, 6, 7.
00631  M01S00623.ctask   +++|*                A - 2, 6, 7.
00632  M01S00624.ctask   +++|*
00633  M01S00625.ctask   +++|*         CALLS  RBH, RCS.
00634  M01S00626.ctask   +++|*
00635  M01S00627.ctask   +++|*         MACROS SCALL.
00636  M01S00628.ctask   +++|
00637  M01S00629.ctask   +++|
00638  M01S00630.ctask   +++| RTF      SA2    TNAM
00639  M01S00631.ctask   +++|          SX3    -CTAH       TASK LOGICAL ERROR
00640  M01S00632.ctask   +++|          LX2    59-CBSYS
00641  M01S00633.ctask   +++|          PL     X2,CTA4     IF NOT SYSTEM ORIGIN TRANSACTION
00642  M01S00634.ctask   +++|          SX7    B0
00643  M01S00635.ctask   +++|          SA2    TMSW+1      GET RECOVERY FLAG
00644  M01S00636.ctask   +++|          SA7    RDBM        INITIALIZE NORMAL CEASE
00645  M01S00637.ctask   +++|          PL     X2,RTF3     IF NO *CRM* RECOVERY
00646  M01S00638.ctask   +++|          SX7    B1+
00647  M01S00639.ctask   +++|          SA7    RDBN        RECOVERY PROCESSING NOT COMPLETE
00648  M01S00640.ctask   +++|
00649  M01S00641.ctask   +++|*         RECOVER *TAF/CRM* DATA BASE BEGIN-COMMIT HISTORY.
00650  M01S00642.ctask   +++|
00651  M01S00643.ctask   +++|          RJ     RBH         RECOVER BEGIN-COMMIT HISTORY
00652  M01S00644.ctask   +++|          SA2    RDBN
00653  M01S00645.ctask   +++|          NZ     X2,RTF1     IF RECOVERY PROCESSING NOT COMPLETE
00654  M01S00646.ctask   +++|          SA2    RBHA
00655  M01S00647.ctask   +++|          NZ     X2,RTF3     IF ROLL BACK PROCESSING NOT NECESSARY
00656  M01S00648.ctask   +++|          SX7    B0+
00657  M01S00649.ctask   +++|          SA7    RDBL        INITIALIZE *TRMREC* COUNTER
00658  M01S00650.ctask   +++|
00659  M01S00651.ctask   +++|*         ROLL BACK THE DATA BASE TO A CONSISTENT STATE.
00660  M01S00652.ctask   +++|
00661  M01S00653.ctask   +++|          RJ     RCS         ROLL BACK TO CONSISTENT STATE
00662  M01S00654.ctask   +++|          SX6    X3+
00663  M01S00655.ctask   +++|          SA6    TMSW+6      SAVE ERROR MESSAGE
00664  M01S00656.ctask   +++|          SA2    TRSQ        GET TRANSACTION SEQUENCE NUMBER
00665  M01S00657.ctask   +++|          MX4    -CBTSN
00666  M01S00658.ctask   +++|          BX6    -X4*X2
00667  M01S00659.ctask   +++|          SA6    RDBK        SET OLD SYSTEM IDENTIFIER
00668  M01S00660.ctask   +++|
00669  M01S00661.ctask   +++|*         RESTORE *CTASK* SEQUENCE NUMBER BEFORE CEASING.
00670  M01S00662.ctask   +++|
00671  M01S00663.ctask   +++|          SCALL  TINVOKE,(RDBI,RDBJ,RDBK)
00672  M01S00664.ctask   +++|          SA2    RDBI        GET STATUS OF REQUEST
00673  M01S00665.ctask   +++|          SX3    -CTAH       TASK LOGICAL ERROR
00674  M01S00666.ctask   +++|          SX4    X2-TSNE
00675  M01S00667.ctask   +++|          NZ     X4,RTF1     IF ERRORS IN *TINVOKE*
00676  M01S00668.ctask   +++|          SA3    TMSW+6
00677  M01S00669.ctask   +++|          SA2    RDBL
00678  M01S00670.ctask   +++|          NZ     X2,RTF1     IF *TRMREC* ERRORS
00679  M01S00671.ctask   +++|          EQ     RTF3        START TERMINAL INPUT
00680  M01S00672.ctask   +++|
00681  M01S00673.ctask   +++| RTF1     SX6    CSTT        TERMINATE *TAF*
00682  M01S00674.ctask   +++|          SA6    RDBC        TRANSACTION STEP
00683  M01S00675.ctask   +++|          PL     X3,RTF2     IF NORMAL CEASE
00684  M01S00676.ctask   +++|          SX7    B1
00685  M01S00677.ctask   +++|          BX3    -X3
00686  M01S00678.ctask   +++|          SA7    RDBM        ABNORMAL CEASE WITH DUMP
00687  M01S00679.ctask   +++| RTF2     SA3    X3
00688  M01S00680.ctask   +++|          AX3    18
00689  M01S00681.ctask   +++|          SCALL  TMSG,(X3,A3)  SEND DAYFILE MESSAGE
00690  M01S00682.ctask   +++|          EQ     RTF4        ISSUE *WSTAT* REQUEST
00691  M01S00683.ctask   +++|
00692  M01S00684.ctask   +++| RTF3     SX6    CSST        START TERMINAL/JOB INPUT
00693  M01S00685.ctask   +++|          SA6    RDBC        TRANSACTION STEP
00694  M01S00686.ctask   +++|
00695  M01S00687.ctask   +++|*         ISSUE *WSTAT* REQUEST TO TERMINATE *TAF* OR START INPUT.
00696  M01S00688.ctask   +++|
00697  M01S00689.ctask   +++| RTF4     SCALL  WSTAT,(RDBA,RDBB,RDBC)
00698  M01S00690.ctask   +++|          SA2    RDBA        GET STATUS OF REQUEST
00699  M01S00691.ctask   +++|          SX3    CTAH        TASK LOGICAL ERROR
00700  M01S00692.ctask   +++|          SX4    X2-TSNE
00701  M01S00693.ctask   +++|          NZ     X4,CTA4     IF ERRORS IN *WSTAT*
00702  M01S00694.ctask   +++|          SA2    RDBM
00703  M01S00695.ctask   +++|          ZR     X2,CTA3     IF NORMAL CEASE
00704  M01S00696.ctask   +++|          EQ     CTA5        ABNORMAL CEASE WITH MEMORY DUMP
00705  M01S00697.ctask   +++| CTASK    SPACE  4,10
00706  M01S00698.ctask   +++|**        CCE - COUNT *CRMSTAT* ENTRIES.
00707  M01S00699.ctask   +++|*
00708  M01S00700.ctask   +++|*         ENTRY  (B2) = NUMBER OF ENTRIES IN *CRMSTAT* TABLE.
00709  M01S00701.ctask   +++|*                RDBG = FWA OF *CRMSTAT* TABLE.
00710  M01S00702.ctask   +++|*
00711  M01S00703.ctask   +++|*         EXIT   (B3) = NUMBER OF VALID ENTRIES IN *CRMSTAT* TABLE.
00712  M01S00704.ctask   +++|*
00713  M01S00705.ctask   +++|*         USES   X - 2, 3.
00714  M01S00706.ctask   +++|*                A - 2, 3.
00715  M01S00707.ctask   +++|*                B - 2, 3.
00716  M01S00708.ctask   +++|
00717  M01S00709.ctask   +++|
00718  M01S00710.ctask   +++| CCE      SUBR               ENTRY/EXIT
00719  M01S00711.ctask   +++|          SB3    B0+         VALID ENTRY COUNT
00720  M01S00712.ctask   +++|          SA2    RDBG+TSSQW-TSEQE  INITIALIZE FWA OF *CRMSTAT* TABLE
00721  M01S00713.ctask   +++| CCE1     SB2    B2-1        DECREMENT ENTRY COUNT
00722  M01S00714.ctask   +++|          ZR     B2,CCEX     IF END OF *CRMSTAT* TABLE
00723  M01S00715.ctask   +++|          SA2    A2+TSEQE    GET NEXT ENTRY FROM *CRMSTAT* TABLE
00724  M01S00716.ctask   +++|          ZR     X2,CCE1     IF NULL ENTRY
00725  M01S00717.ctask   +++|          SA3    A2+TSRCW
00726  M01S00718.ctask   +++|          LX3    59-TSRCS    TASK RECOVERED FROM *BRF* BIT
00727  M01S00719.ctask   +++|          PL     X3,CCE1     IF TASK NOT RECOVERED FROM *BRF*
00728  M01S00720.ctask   +++|          SB3    B3+1        INCREMENT VALID ENTRY COUNT
00729  M01S00721.ctask   +++|          EQ     CCE1        LOOP FOR NEXT ENTRY IN *CRMSTAT* TABLE
00730  M01S00722.ctask   +++| CTASK    SPACE  4,15
00731  M01S00723.ctask   +++|**        CSN - COMPARE SEQUENCE NUMBERS.
00732  M01S00724.ctask   +++|*
00733  M01S00725.ctask   +++|*         ENTRY  (RBCF) = *TSTAT* SEQUENCE NUMBER.
00734  M01S00001.ns2001  +++|*                (RBCD) = *TSTAT* USER NAME.
00735  M01S00726.ctask   +++|*                RDBG = FWA OF *CRMSTAT* TABLE.
00736  M01S00727.ctask   +++|*
00737  M01S00728.ctask   +++|*         EXIT   (X0) = 0, IF MATCH FOUND.
00738  M01S00729.ctask   +++|*                       1, IF NO MATCH.
00739  M01S00002.ns2001  +++|*                (A3) = FWA OF *CRMSTAT* ENTRY IF MATCH FOUND.
00740  M01S00730.ctask   +++|*
00741  M01S00731.ctask   +++|*         USES   X - 0, 1, 2, 3, 4, 5, 6.
00742  M01S00732.ctask   +++|*                A - 1, 2, 3, 6.
00743  M01S00733.ctask   +++|*                B - 3, 4.
00744  M01S00734.ctask   +++|
00745  M01S00735.ctask   +++|
00746  M01S00736.ctask   +++| CSN      SUBR               ENTRY/EXIT
00747  M01S00737.ctask   +++|          SA2    TMSW        TERMINAL FAILURE CASE
00748  M01S00738.ctask   +++|          SB4    X2-TYTF
00749  M01S00739.ctask   +++|          SB3    RMDM*CMDM+2 INITIALIZE ENTRY COUNTER
00750  M01S00740.ctask   +++|          SA2    RBCF        GET *SEQ* NUMBER FROM *TSTAT*
00751  M01S00741.ctask   +++|          SX0    B1+         NO MATCH
00752  M01S00742.ctask   +++|          SA3    RDBG+TSSQW-TSEQE  INITIALIZE FWA OF *CRMSTAT* TABLE
00753  M01S00743.ctask   +++| CSN1     SB3    B3-1        DECREMENT ENTRY COUNT
00754  M01S00744.ctask   +++|          ZR     B3,CSNX     IF END OF *CRMSTAT* TABLE, RETURN
00755  M01S00745.ctask   +++|          SA3    A3+TSEQE    GET NEXT ENTRY FROM *CRMSTAT* TABLE
00756  M01S00746.ctask   +++|          ZR     X3,CSN1     IF NULL ENTRY
00757  M01S00747.ctask   +++|          ZR     B4,CSN2     IF TERMINAL FAILURE CASE
00758  M01S00748.ctask   +++|          SA1    A3+TSRCW
00759  M01S00749.ctask   +++|          LX1    59-TSRCS    TASK RECOVERED FROM *BRF* BIT
00760  M01S00750.ctask   +++|          PL     X1,CSN1     IF TASK NOT RECOVERED FROM *BRF*
00761  M01S00751.ctask   +++| CSN2     MX4    TSSQN
00762  M01S00752.ctask   +++|          BX5    X4*X3       MASK OFF *CRM* SEQUENCE NUMBER
00763  M01S00753.ctask   +++|          LX5    TSSQN-1-TSSQS  RIGHT JUSTIFY *CRM* SEQUENCE NUMBER
00764  M01S00754.ctask   +++|          IX3    X5-X2
00765  M01S00755.ctask   +++|          NZ     X3,CSN1     IF NO MATCH
00766  M01S00003.ns2001  +++|          SA1    A3+TSUNW    GET USER FROM *CRMSTAT* TABLE
00767  M01S00004.ns2001  +++|          SA2    RBCD        GET USER FROM *TSTAT*
00768  M01S00005.ns2001  +++|          MX4    TSUNN
00769  M01S00006.ns2001  +++|          BX1    X4*X1
00770  M01S00007.ns2001  +++|          BX2    X4*X2
00771  M01S00008.ns2001  +++|          BX4    X1-X2
00772  M01S00009.ns2001  +++|          NZ     X4,CSN1     IF USER NAMES DO NOT MATCH
00773  M01S00756.ctask   +++|          SX0    B0+         MATCH FOUND
00774  M01S00757.ctask   +++|          EQ     CSNX        RETURN
00775  M01S00758.ctask   +++| CTASK    SPACE  4,20
00776  M01S00759.ctask   +++|**        RBC - RECOVER BEGIN-COMMIT HISTORY.
00777  M01S00760.ctask   +++|*
00778  M01S00761.ctask   +++|*         ENTRY  *CRMSTAT* TABLE LOADED.
00779  M01S00762.ctask   +++|*                (RDBN) = 1, FOR RECOVERY PROCESSING NOT COMPLETE.
00780  M01S00763.ctask   +++|*
00781  M01S00764.ctask   +++|*         EXIT   (RDBN) = 0, IF RECOVERY PROCESSING COMPLETE.
00782  M01S00765.ctask   +++|*                       = 1, IF NOT COMPLETE.
00783  M01S00766.ctask   +++|*
00784  M01S00767.ctask   +++|*         ERROR  (X3) = ADDRESS OF ERROR MESSAGE WHEN NOT COMPLETE.
00785  M01S00768.ctask   +++|*
00786  M01S00769.ctask   +++|*         USES   X - 2, 3, 4, 6, 7.
00787  M01S00770.ctask   +++|*                A - 2, 3, 6, 7.
00788  M01S00771.ctask   +++|*                B - 2.
00789  M01S00772.ctask   +++|*
00790  M01S00773.ctask   +++|*         CALLS  CCE, CSN.
00791  M01S00774.ctask   +++|*
00792  M01S00775.ctask   +++|*         MACROS SCALL.
00793  M01S00776.ctask   +++|
00794  M01S00777.ctask   +++|
00795  M01S00778.ctask   +++| RBC      SUBR               ENTRY/EXIT
00796  M01S00779.ctask   +++|          SB2    RMDM*CMDM+2
00797  M01S00780.ctask   +++|          SA3    RBCS        GET BLANK WORD
00798  M01S00781.ctask   +++|          BX6    X3
00799  M01S00782.ctask   +++|          RJ     CCE         COUNT *CRMSTAT* ENTRIES
00800  M01S00783.ctask   +++|          SX7    B3+B1       VALID ENTRY COUNT
00801  M01S00784.ctask   +++|          SA6    RBCD        INITIALIZE *NEXT* FOR *TSTAT*
00802  M01S00785.ctask   +++|          SA7    RBCT
00803  M01S00786.ctask   +++| RBC1     SA1    RBCT
00804  M01S00787.ctask   +++|          SX6    X1-1        DECREMENT ENTRY COUNT
00805  M01S00788.ctask   +++|          ZR     X6,RBC4     IF END OF *CRMSTAT* TABLE
00806  M01S00789.ctask   +++|          SA6    A1+
00807  M01S00790.ctask   +++|
00808  M01S00791.ctask   +++|*         ISSUE *TSTAT* REQUEST TO RETURN OPERATIONAL ENVIRONMENT.
00809  M01S00792.ctask   +++|
00810  M01S00793.ctask   +++| RBC2     SCALL  TSTAT,(RBCA,RBCC,RBCD,RBCE,RBCF,RBCG,RBCH,RBCI,RBCJ,RBC
00811  M01S00794.ctask   +++|,K,RBCL,RBCM,RBCN)           ISSUE *TSTAT* REQUEST
00812  M01S00795.ctask   +++|          SA2    RBCA        GET STATUS OF REQUEST
00813  M01S00796.ctask   +++|          SX4    X2-TSRU     RECOVERY UNAVAILABLE STATUS
00814  M01S00797.ctask   +++|          ZR     X4,RBC4     IF RECOVERY UNAVAILABLE
00815  M01S00798.ctask   +++|          SX4    X2-TSEN
00816  M01S00799.ctask   +++|          ZR     X4,RBC4     IF END OF *NEXT* PROCESSING
00817  M01S00800.ctask   +++|          SX3    CTAK        USER NOT DEFINED IN NETWORK FILE
00818  M01S00801.ctask   +++|          SX4    X2-TSUU     USER UNKNOWN STATUS
00819  M01S00802.ctask   +++|          ZR     X4,RBCX     IF USER UNKNOWN, RETURN
00820  M01S00803.ctask   +++|          SX3    -CTAH       TASK LOGICAL ERROR
00821  M01S00804.ctask   +++|          SX4    X2-TSNE     NO ERRORS STATUS
00822  M01S00805.ctask   +++|          NZ     X4,RBCX     IF ERRORS IN *TSTAT*, RETURN
00823  M01S00806.ctask   +++|          RJ     CSN         COMPARE SEQUENCE NUMBERS
00824  M01S00807.ctask   +++|          NZ     X0,RBC2     IF NO MATCH FOUND
00825  M01S00808.ctask   +++|          SX6    CSBC
00826  M01S00809.ctask   +++|          SA6    RBCH        SET TRANSACTION STEP
00827  M01S00810.ctask   +++|          SA3    A3+TSBCW    GET BEGIN IDENTIFIERS FROM *CRMSTAT* TABLE
00828  M01S00811.ctask   +++|          ERRNZ  TSBPW-TSBCW ID-S NOT IN SAME WORD
00829  M01S00812.ctask   +++|          MX4    -TSBCN
00830  M01S00813.ctask   +++|          ERRNZ  TSBPN-TSBCN ID-LENGTH NOT EQUAL
00831  M01S00814.ctask   +++|          BX6    -X4*X3      MASK OFF CURRENT BEGIN IDENTIFIER
00832  M01S00815.ctask   +++|          LX3    TSBPN-1-TSBPS  RIGHT JUSTIFY PREVIOUS BEGIN IDENTIFIER
00833  M01S00816.ctask   +++|          BX7    -X4*X3      MASK OFF PREVIOUS BEGIN IDENTIFIER
00834  M01S00817.ctask   +++|          SA6    RBCR        CURRENT *CRM* IDENTIFIER
00835  M01S00818.ctask   +++|          SA7    RBCP        PREVIOUS *CRM* IDENTIFIER
00836  M01S00819.ctask   +++|
00837  M01S00820.ctask   +++|*         ISSUE *WSTAT* REQUEST TO RECORD BEGIN-COMMIT HISTORY.
00838  M01S00821.ctask   +++|
00839  M01S00822.ctask   +++|          SCALL  WSTAT,(RBCA,RBCB,RBCD,RBCE,RBCF,RBCG,RBCH,RBCI,RBCJ,RBC
00840  M01S00823.ctask   +++|,K,RBCL,RBCM,RBCN,RBCO,RBCP,RBCQ,RBCR)  ISSUE *WSTAT* REQUEST
00841  M01S00824.ctask   +++|          SA2    RBCA        GET STATUS OF REQUEST
00842  M01S00825.ctask   +++|          SX3    CTAK        USER NOT DEFINED IN NETWORK FILE
00843  M01S00826.ctask   +++|          SX4    X2-TSUU     USER UNKNOWN STATUS
00844  M01S00827.ctask   +++|          ZR     X4,RBCX     IF USER UNKNOWN, RETURN
00845  M01S00828.ctask   +++|          SX3    -CTAH       TASK LOGICAL ERROR
00846  M01S00829.ctask   +++|          SX4    X2-TSNE     NO ERRORS STATUS
00847  M01S00830.ctask   +++|          NZ     X4,RBCX     IF ERRORS IN *WSTAT*, RETURN
00848  M01S00831.ctask   +++|          EQ     RBC1        LOOP FOR NEXT ENTRY IN *CRMSTAT* TABLE
00849  M01S00832.ctask   +++|
00850  M01S00833.ctask   +++| RBC4     SX7    B0+         RECOVER PROCESSING COMPLETE
00851  M01S00834.ctask   +++|          SA7    RDBN
00852  M01S00835.ctask   +++|          EQ     RBCX        RETURN
00853  M01S00836.ctask   +++|
00854  M01S00837.ctask   +++|*         *TSTAT* AND *WSTAT* REQUEST PARAMETERS.
00855  M01S00838.ctask   +++|
00856  M01S00839.ctask   +++| RBCA     CON    0           STATUS OF REQUEST
00857  M01S00840.ctask   +++| RBCB     DATA   4HUSER      KEYWORD *USER*
00858  M01S00841.ctask   +++| RBCC     DATA   4HNEXT      KEYWORD *NEXT*
00859  M01S00842.ctask   +++| RBCD     CON    0           NEXT USER FROM *TAF* RECOVERY FILE
00860  M01S00843.ctask   +++| RBCE     DATA   3HSEQ       KEYWORD *SEQ*
00861  M01S00844.ctask   +++| RBCF     CON    0           TRANSACTION SEQUENCE NUMBER
00862  M01S00845.ctask   +++| RBCG     DATA   4HSTEP      KEYWORD *STEP*
00863  M01S00846.ctask   +++| RBCH     CON    0           TRANSACTION STEP
00864  M01S00847.ctask   +++| RBCI     DATA   4HTRAN      KEYWORD *TRAN*
00865  M01S00848.ctask   +++| RBCJ     CON    0           TRANSACTION TYPE
00866  M01S00849.ctask   +++| RBCK     DATA   3HCRM       KEYWORD *CRM*
00867  M01S00850.ctask   +++| RBCL     CON    0           *CRM* TRANSACTION USAGE
00868  M01S00851.ctask   +++| RBCM     DATA   4HCDCS      KEYWORD *CDCS*
00869  M01S00852.ctask   +++| RBCN     CON    0           *CDCS* TRANSACTION USAGE
00870  M01S00853.ctask   +++| RBCO     DATA   5HOLDID     KEYWORD *OLDID*
00871  M01S00854.ctask   +++| RBCP     CON    0           PREVIOUS *CRM* IDENTIFIER
00872  M01S00855.ctask   +++| RBCQ     DATA   5HNEWID     KEYWORD *NEWID*
00873  M01S00856.ctask   +++| RBCR     CON    0           CURRENT *CRM* IDENTIFIER
00874  M01S00857.ctask   +++| RBCS     DATA   1H          BLANK WORD
00875  M01S00858.ctask   +++| RBCT     CON    0           ENTRY COUNT
00876  M01S00859.ctask   +++| RBH      SPACE  4,20
00877  M01S00860.ctask   +++|**        RBH - RECOVER BEGIN-COMMIT HISTORY FOR TERMINAL FAILURES.
00878  M01S00861.ctask   +++|*
00879  M01S00862.ctask   +++|*         ENTRY  (RDBN) = 1 FOR RECOVERY PROCESSING NOT COMPLETE.
00880  M01S00863.ctask   +++|*
00881  M01S00864.ctask   +++|*         EXIT   (RDBN) = 0, IF RECOVERY PROCESSING COMPLETE.
00882  M01S00865.ctask   +++|*                       = 1, IF NOT COMPLETE.
00883  M01S00866.ctask   +++|*                (RBHA) = 0, IF ROLL BACK PROCESSING NECESSARY.
00884  M01S00867.ctask   +++|*                       = 1, IF NOT NECESSARY.
00885  M01S00868.ctask   +++|*
00886  M01S00869.ctask   +++|*         ERROR  (X3) = FWA OF ERROR MESSAGE PARAMETERS WHEN NOT
00887  M01S00870.ctask   +++|*                       COMPLETE.
00888  M01S00871.ctask   +++|*
00889  M01S00872.ctask   +++|*         USES   X - 2, 3, 4, 6, 7.
00890  M01S00873.ctask   +++|*                A - 2, 3, 6, 7.
00891  M01S00874.ctask   +++|*
00892  M01S00875.ctask   +++|*         CALLS  CSN.
00893  M01S00876.ctask   +++|*
00894  M01S00877.ctask   +++|*         MACROS CRMSTAT, SCALL.
00895  M01S00878.ctask   +++|
00896  M01S00879.ctask   +++|
00897  M01S00880.ctask   +++| RBH      SUBR               ENTRY/EXIT
00898  M01S00010.ns2001  +++|          SA2    TNAM        GET TERMINAL NAME
00899  M01S00011.ns2001  +++|          MX3    TSUNN
00900  M01S00012.ns2001  +++|          BX6    X3*X2
00901  M01S00013.ns2001  +++|          SA6    RBCD
00902  M01S00881.ctask   +++|
00903  M01S00882.ctask   +++|*         ISSUE *TSTAT* REQUEST TO RETURN OPERATIONAL ENVIRONMENT.
00904  M01S00883.ctask   +++|
Line S00884 Modification History
M01 (Added by) ctask
M02 (Updated by) ns2001
Seq #  *Modification Id* Act 
----------------------------+
00905  M02S00884.ns2001  ---|          SCALL  TSTAT,(RBCA,RBCE,RBCF,RBCG,RBCH,RBCI,RBCJ,RBCK,RBCL,RBC
Line S00885 Modification History
M01 (Added by) ctask
M02 (Updated by) ns2001
Seq #  *Modification Id* Act 
----------------------------+
00906  M02S00885.ns2001  ---|,M,RBCN)
00907  M01S00014.ns2001  +++|          SCALL  TSTAT,(RBCA,RBCB,RBCD,RBCE,RBCF,RBCG,RBCH,RBCI,RBCJ,RBC
00908  M01S00015.ns2001  +++|,K,RBCL,RBCM,RBCN)
00909  M01S00886.ctask   +++|          SA2    RBCA        GET STATUS OF REQUEST
00910  M01S00887.ctask   +++|          SX3    CTAK        USER NOT DEFINED IN NETWORK FILE
00911  M01S00888.ctask   +++|          SX4    X2-TSUU
00912  M01S00889.ctask   +++|          ZR     X4,RBHX     IF USER UNKNOWN
00913  M01S00890.ctask   +++|          SX3    -CTAH       TASK LOGICAL ERROR
00914  M01S00891.ctask   +++|          SX4    X2-TSNE
00915  M01S00892.ctask   +++|          NZ     X4,RBHX     IF ERRORS IN *TSTAT*
00916  M01S00893.ctask   +++|          SA2    RBCL        GET *CRM* USAGE
00917  M01S00894.ctask   +++|          SX6    B1+
00918  M01S00895.ctask   +++|          ZR     X2,RBH2     IF *CRM* MAY NOT BE USED
00919  M01S00896.ctask   +++|
00920  M01S00897.ctask   +++|*         ISSUE *CRMSTAT* REQUEST TO GET BEGIN-COMMIT HISTORY.
00921  M01S00898.ctask   +++|
00922  M01S00899.ctask   +++|          CRMSTAT  RDBD
00923  M01S00900.ctask   +++|          SA2    RDBF        GET STATUS OF REQUEST
00924  M01S00901.ctask   +++|          SX3    CTAC        FILE IS NOT INSTALLED
00925  M01S00902.ctask   +++|          SX4    X2-TERB
00926  M01S00903.ctask   +++|          ZR     X4,RBHX     IF FILE IS NOT INSTALLED
00927  M01S00904.ctask   +++|          SX3    CTAG        TABLE AREA NOT LARGE ENOUGH
00928  M01S00905.ctask   +++|          SX4    X2-TERAN
00929  M01S00906.ctask   +++|          ZR     X4,RBHX     IF TABLE AREA NOT LARGE ENOUGH
00930  M01S00907.ctask   +++|          SX3    -CTAH       TASK LOGICAL ERROR
00931  M01S00908.ctask   +++|          NZ     X2,RBHX     IF REQUEST NOT SUCCESSFUL
00932  M01S00909.ctask   +++|          RJ     CSN         COMPARE SEQUENCE NUMBERS
00933  M01S00910.ctask   +++|          SX6    B1+
00934  M01S00911.ctask   +++|          NZ     X0,RBH2     IF NO MATCH FOUND
00935  M01S00912.ctask   +++|          SA2    RBCH        GET TRANSACTION STEP
00936  M01S00913.ctask   +++|          SX4    X2-CSTI
00937  M01S00914.ctask   +++|          ZR     X4,RBH1     IF RECOVERABLE TRANSACTION/JOB INPUT
00938  M01S00915.ctask   +++|          SX4    X2-CSBC
00939  M01S00916.ctask   +++|          ZR     X4,RBH1     IF BEGIN-COMMIT *CRM* ID-S LOGGED
00940  M01S00917.ctask   +++|          SX4    X2-CSND
00941  M01S00918.ctask   +++|          SX6    B0+
00942  M01S00919.ctask   +++|          NZ     X4,RBH2     IF *NAM* NOT DOWN
00943  M01S00920.ctask   +++| RBH1     SX6    CSBC
00944  M01S00921.ctask   +++|          SA6    RBCH        SET ID-S LOGGED STEP
00945  M01S00922.ctask   +++|          SA3    A3+TSBCW    GET ID-S FROM *CRMSTAT* TABLE
00946  M01S00923.ctask   +++|          MX4    -TSBCN
00947  M01S00924.ctask   +++|          BX6    -X4*X3
00948  M01S00925.ctask   +++|          LX3    TSBPN-1-TSBPS
00949  M01S00926.ctask   +++|          BX7    -X4*X3
00950  M01S00927.ctask   +++|          SA6    RBCR        CURRENT *CRM* ID
00951  M01S00928.ctask   +++|          SA7    RBCP        PREVIOUS *CRM* ID
00952  M01S00929.ctask   +++|
00953  M01S00930.ctask   +++|*         ISSUE *WSTAT* REQUEST TO RECORD BEGIN-COMMIT HISTORY.
00954  M01S00931.ctask   +++|
Line S00932 Modification History
M01 (Added by) ctask
M02 (Updated by) ns2001
Seq #  *Modification Id* Act 
----------------------------+
00955  M02S00932.ns2001  ---|          SCALL  WSTAT,(RBCA,RBCE,RBCF,RBCG,RBCH,RBCI,RBCJ,RBCK,RBCL,RBC
Line S00933 Modification History
M01 (Added by) ctask
M02 (Updated by) ns2001
Seq #  *Modification Id* Act 
----------------------------+
00956  M02S00933.ns2001  ---|,M,RBCN,RBCO,RBCP,RBCQ,RBCR)
00957  M01S00016.ns2001  +++|          SCALL  WSTAT,(RBCA,RBCB,RBCD,RBCE,RBCF,RBCG,RBCH,RBCI,RBCJ,RBC
00958  M01S00017.ns2001  +++|,K,RBCL,RBCM,RBCN,RBCO,RBCP,RBCQ,RBCR)
00959  M01S00934.ctask   +++|          SA2    RBCA        GET STATUS OF REQUEST
00960  M01S00935.ctask   +++|          SX3    CTAK        USER NOT DEFINED IN NETWORK FILE
00961  M01S00936.ctask   +++|          SX4    X2-TSUU
00962  M01S00937.ctask   +++|          ZR     X4,RBHX     IF USER UNKNOWN
00963  M01S00938.ctask   +++|          SX3    -CTAH       TASK LOGICAL ERROR
00964  M01S00939.ctask   +++|          SX4    X2-TSNE
00965  M01S00940.ctask   +++|          NZ     X4,RBHX     IF ERRORS IN *WSTAT*
00966  M01S00941.ctask   +++|          SX6    B0+
00967  M01S00942.ctask   +++| RBH2     SX7    B0+
00968  M01S00943.ctask   +++|          SA6    RBHA        ROLL BACK PROCESSING FLAG
00969  M01S00944.ctask   +++|          SA7    RDBN        RECOVERY PROCESSING COMPLETE
00970  M01S00945.ctask   +++|          EQ     RBHX        RETURN
00971  M01S00946.ctask   +++|
00972  M01S00947.ctask   +++| RBHA     CON    0           ROLL BACK PROCESSING FLAG
00973  M01S00948.ctask   +++| CTASK    SPACE  4,15
00974  M01S00949.ctask   +++|**        RDC - ROLL BACK DATA TO CONSISTENT STATE.
00975  M01S00950.ctask   +++|*
00976  M01S00951.ctask   +++|*         ENTRY  RDBG = FWA OF *CRMSTAT* TABLE.
00977  M01S00952.ctask   +++|*
00978  M01S00953.ctask   +++|*         EXIT   (RDBL) = 0, IF ROLL BACK PROCESSING COMPLETE.
00979  M01S00954.ctask   +++|*                       = NON-ZERO, IF NOT COMPLETE.
00980  M01S00955.ctask   +++|*
00981  M01S00956.ctask   +++|*         ERROR  (X3) = FWA OF ERROR MESSAGE PARAMETERS WHEN NOT
00982  M01S00957.ctask   +++|*                       COMPLETE.
00983  M01S00958.ctask   +++|*
00984  M01S00959.ctask   +++|*         USES   X - 2, 3, 4, 5, 6, 7.
00985  M01S00960.ctask   +++|*                A - 2, 3, 6, 7.
00986  M01S00961.ctask   +++|*
00987  M01S00962.ctask   +++|*         MACROS SCALL, TRMREC.
00988  M01S00963.ctask   +++|
00989  M01S00964.ctask   +++|
00990  M01S00965.ctask   +++| RDC      SUBR               ENTRY/EXIT
00991  M01S00966.ctask   +++|          SX6    RMDM*CMDM+2
00992  M01S00967.ctask   +++|          SX7    RDBG+TSSQW-TSEQE
00993  M01S00968.ctask   +++|          SA6    RDCG
00994  M01S00969.ctask   +++|          SA7    RDCH
00995  M01S00970.ctask   +++| RDC1     SA2    RDCG
00996  M01S00971.ctask   +++|          SX6    X2-1
00997  M01S00972.ctask   +++|          ZR     X6,RDC2     IF END OF *CRMSTAT* TABLE
00998  M01S00973.ctask   +++|          SA6    A2
00999  M01S00974.ctask   +++|          SA2    A2+B1
01000  M01S00975.ctask   +++|          SA3    X2+TSEQE    GET NEXT ENTRY FROM *CRMSTAT* TABLE
01001  M01S00976.ctask   +++|          SX7    A3
01002  M01S00977.ctask   +++|          SA7    A2
01003  M01S00978.ctask   +++|          ZR     X3,RDC1     IF NULL ENTRY
01004  M01S00979.ctask   +++|          MX5    TSSQN
01005  M01S00980.ctask   +++|          BX6    X5*X3       MASK OFF *CRM* SEQUENCE NUMBER
01006  M01S00981.ctask   +++|          LX6    TSSQN-1-TSSQS  RIGHT JUSTIFY *CRM* SEQUENCE NUMBER
01007  M01S00982.ctask   +++|          SA6    RDCC        OLD SYSTEM IDENTIFIER
01008  M01S00983.ctask   +++|
01009  M01S00984.ctask   +++|*         ISSUE *TINVOKE* REQUEST TO GET NEW SYSTEM IDENTIFIER.
01010  M01S00985.ctask   +++|
01011  M01S00986.ctask   +++|          SCALL  TINVOKE,(RDCA,RDCB,RDCC)  ISSUE *TINVOKE* REQUEST
01012  M01S00987.ctask   +++|          SA2    RDCA        GET STATUS OF REQUEST
01013  M01S00988.ctask   +++|          SX3    CTAF        SYSTEM IDENTIFIER UNKNOWN STATUS
01014  M01S00989.ctask   +++|          SX4    X2-TSSU
01015  M01S00990.ctask   +++|          ZR     X4,RDC3     IF SYSTEM ID UNKNOWN
01016  M01S00991.ctask   +++|          SX3    -CTAH       TASK LOGICAL ERROR
01017  M01S00992.ctask   +++|          SX4    X2-TSNE     NO ERRORS STATUS
01018  M01S00993.ctask   +++|          NZ     X4,RDC3     IF ERRORS IN *TINVOKE*
01019  M01S00994.ctask   +++|
01020  M01S00995.ctask   +++|*         ISSUE *TRMREC* REQUEST TO ROLL BACK DATA TO CONSISTENT STATE.
01021  M01S00996.ctask   +++|
01022  M01S00997.ctask   +++|          TRMREC RDCD
01023  M01S00998.ctask   +++|          SA2    RDCF        GET STATUS OF REQUEST
01024  M01S00999.ctask   +++|          ZR     X2,RDC1     IF REQUEST SUCCESSFUL
01025  M01S01000.ctask   +++|          SA1    RDBL        *TRMREC* ERROR COUNTER
01026  M01S01001.ctask   +++|          SX7    X1+1
01027  M01S01002.ctask   +++|          SA7    A1+         INCREMENT ERROR COUNTER
01028  M01S01003.ctask   +++|          EQ     RDC1        LOOP FOR NEXT ENTRY IN *CRMSTAT* TABLE
01029  M01S01004.ctask   +++|
01030  M01S01005.ctask   +++| RDC2     SX3    CTAJ        *TRMREC* ERROR
01031  M01S01006.ctask   +++|          EQ     RDCX        RETURN
01032  M01S01007.ctask   +++|
01033  M01S01008.ctask   +++| RDC3     SX6    CMDM+1
01034  M01S01009.ctask   +++|          SA6    RDBL        *TINVOKE* ERROR
01035  M01S01010.ctask   +++|          EQ     RDCX        RETURN
01036  M01S01011.ctask   +++|
01037  M01S01012.ctask   +++|*         *TINVOKE* REQUEST PARAMETERS.
01038  M01S01013.ctask   +++|
01039  M01S01014.ctask   +++| RDCA     CON    0           STATUS OF REQUEST
01040  M01S01015.ctask   +++| RDCB     CON    0           NEW SYSTEM IDENTIFIER
01041  M01S01016.ctask   +++| RDCC     CON    0           OLD SYSTEM IDENTIFIER
01042  M01S01017.ctask   +++|
01043  M01S01018.ctask   +++|*         *TRMREC* REQUEST PARAMETERS.
01044  M01S01019.ctask   +++|
01045  M01S01020.ctask   +++| RDCD     VFD    42/0,18/RDCE
01046  M01S01021.ctask   +++|          VFD    42/0,18/RDCF
01047  M01S01022.ctask   +++|          CON    0
01048  M01S01023.ctask   +++|
01049  M01S01024.ctask   +++| RDCE     CON    0           ZERO WORD
01050  M01S01025.ctask   +++| RDCF     CON    0           STATUS OF REQUEST
01051  M01S01026.ctask   +++| RDCG     CON    0           NUMBER OF *CRMSTAT* ENTRIES
01052  M01S01027.ctask   +++| RDCH     CON    0           FWA OF *CRMSTAT* TABLE
01053  M01S01028.ctask   +++| RCS      SPACE  4,15
01054  M01S01029.ctask   +++|**        RCS - ROLL BACK DATA TO CONSISTENT STATE FOR
01055  M01S01030.ctask   +++|*               TERMINAL FAILURES.
01056  M01S01031.ctask   +++|*
01057  M01S01032.ctask   +++|*         ENTRY  (RBCF) = SEQUENCE NUMBER.
01058  M01S01033.ctask   +++|*
01059  M01S01034.ctask   +++|*         EXIT   (RDBL) = 0, IF ROLL BACK PROCESSING COMPLETE.
01060  M01S01035.ctask   +++|*                       = NON-ZERO, IF NOT COMPLETE.
01061  M01S01036.ctask   +++|*
01062  M01S01037.ctask   +++|*         ERROR  (X3) = FWA OF ERROR MESSAGE PARAMETERS WHEN NOT
01063  M01S01038.ctask   +++|*                       COMPLETE.
01064  M01S01039.ctask   +++|*
01065  M01S01040.ctask   +++|*         USES   X - 2, 3, 4, 7.
01066  M01S01041.ctask   +++|*                A - 2, 7.
01067  M01S01042.ctask   +++|*
01068  M01S01043.ctask   +++|*         MACROS SCALL, TRMREC.
01069  M01S01044.ctask   +++|
01070  M01S01045.ctask   +++|
01071  M01S01046.ctask   +++| RCS      SUBR               ENTRY/EXIT
01072  M01S01047.ctask   +++|
01073  M01S01048.ctask   +++|*         ISSUE *TINVOKE* REQUEST TO GET NEW SYSTEM ID.
01074  M01S01049.ctask   +++|
01075  M01S01050.ctask   +++|          SCALL  TINVOKE,(RDCA,RDCB,RBCF)
01076  M01S01051.ctask   +++|          SA2    RDCA        GET STATUS OF REQUEST
01077  M01S01052.ctask   +++|          SX3    CTAF        SYSTEM ID UNKNOWN
01078  M01S01053.ctask   +++|          SX4    X2-TSUU
01079  M01S01054.ctask   +++|          ZR     X4,RCS3     IF SYSTEM ID UNKNOWN
01080  M01S01055.ctask   +++|          SX3    -CTAH       TASK LOGICAL ERROR
01081  M01S01056.ctask   +++|          SX4    X2-TSNE
01082  M01S01057.ctask   +++|          NZ     X4,RCS3     IF ERRORS IN *TINVOKE*
01083  M01S01058.ctask   +++|
01084  M01S01059.ctask   +++|*         ISSUE *TRMREC* REQUEST TO ROLL BACK DATA TO CONSISTENT STATE.
01085  M01S01060.ctask   +++|
01086  M01S01061.ctask   +++|          TRMREC RDCD
01087  M01S01062.ctask   +++|          SA2    RDCF        GET STATUS OF REQUEST
01088  M01S01063.ctask   +++|          ZR     X2,RCSX     IF REQUEST SUCCESSFUL
01089  M01S01064.ctask   +++|          SX3    CTAJ        *TRMREC* ERROR
01090  M01S01065.ctask   +++|          SX7    B1+
01091  M01S01066.ctask   +++| RCS2     SA7    RDBL        *TRMREC* ERROR COUNTER
01092  M01S01067.ctask   +++|          EQ     RCSX        RETURN
01093  M01S01068.ctask   +++|
01094  M01S01069.ctask   +++| RCS3     SX7    CMDM+1      *TINVOKE* ERROR
01095  M01S01070.ctask   +++|          EQ     RCS2        SET *TRMREC* COUNT
01096  M01S01071.ctask   +++| CTASK    SPACE  4,15
01097  M01S01072.ctask   +++|**        RID - RESTORE DATA BASE IDENTIFIERS.
01098  M01S01073.ctask   +++|*
01099  M01S01074.ctask   +++|*         ENTRY  (TMSW+2) = *OLDID* FROM COMMUNICATION BLOCK.
01100  M01S01075.ctask   +++|*                (TMSW+3) = *NEWID* FROM COMMUNICATION BLOCK.
01101  M01S01076.ctask   +++|*
01102  M01S01077.ctask   +++|*         EXIT   (X2) = STATUS OF *RSTDBI* REQUEST.
01103  M01S01078.ctask   +++|*
01104  M01S01079.ctask   +++|*         USES   X - 2, 3, 6, 7.
01105  M01S01080.ctask   +++|*                A - 2, 3, 6, 7.
01106  M01S01081.ctask   +++|*
01107  M01S01082.ctask   +++|*         MACROS RSTDBI.
01108  M01S01083.ctask   +++|
01109  M01S01084.ctask   +++|
01110  M01S01085.ctask   +++| RID      SUBR               ENTRY/EXIT
01111  M01S01086.ctask   +++|          SA2    TMSW+2      GET *OLDID*
01112  M01S01087.ctask   +++|          SA3    TMSW+3      GET *NEWID*
01113  M01S01088.ctask   +++|          BX6    X2
01114  M01S01089.ctask   +++|          BX7    X3
01115  M01S01090.ctask   +++|          SA6    RIDD        PREVIOUS BEGIN IDENTIFIER
01116  M01S01091.ctask   +++|          SA7    RIDB        CURRENT BEGIN IDENTIFIER
01117  M01S01092.ctask   +++|          RSTDBI RIDA        RESTORE BEGIN IDENTIFIERS
01118  M01S01093.ctask   +++|          SA2    RIDC        GET STATUS OF REQUEST
01119  M01S01094.ctask   +++|          EQ     RIDX        RETURN
01120  M01S01095.ctask   +++|
01121  M01S01096.ctask   +++|*         *RSTDBI* REQUEST PARAMETERS.
01122  M01S01097.ctask   +++|
01123  M01S01098.ctask   +++| RIDA     VFD    42/0,18/RIDB
01124  M01S01099.ctask   +++|          VFD    42/0,18/RIDC
01125  M01S01100.ctask   +++|          VFD    42/0,18/RIDD
01126  M01S01101.ctask   +++|          CON    0
01127  M01S01102.ctask   +++|
01128  M01S01103.ctask   +++| RIDB     CON    0           CURRENT BEGIN IDENTIFIER
01129  M01S01104.ctask   +++| RIDC     CON    0           STATUS OF REQUEST
01130  M01S01105.ctask   +++| RIDD     CON    0           PREVIOUS BEGIN IDENTIFIER
01131  M01S01106.ctask   +++|
01132  M01S01107.ctask   +++|          END    CTASK
cdc/nos2.source/opl.opl871/deck/ctask.txt ยท Last modified: by 127.0.0.1