COMKTRF 
COMMON
          CTEXT  COMKTRF - *TAF* RECOVERY FILE DEFINITIONS. 
          SPACE  4,10 
          BASE   DECIMAL
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 TRF      SPACE  4,10 
***       TRF - *TAF* RECOVERY FILE DEFINITIONS.
* 
*         R. G. PARKHOUSE    80/04/15.
*         S. M. KEEFER       80/10/10.
          SPACE  4,10 
***       *COMKTRF* PROVIDES DEFINITIONS FOR THE *TAF*
*         RECOVERY FILE.  THIS DECK REQUIRES *COMKFLD*. 
* 
*         THE *TAF* RECOVERY FILE, TRF IS A FIXED LENGTH, 
*         RANDOM ACCESS FILE USED BY *TAF* TO RECORD
*         RECOVERY INFORMATION ABOUT RECOVERABLE TRANSACTIONS.
*         THERE IS A TRF FOR EACH NETWORK FILE IN USE IF *TAF*
*         AUTOMATIC RECOVERY IS ENABLED.
*         THE TRF CONSISTS OF A HEADER RECORD, AND RECOVERY UNIT
*         RECORDS.  THERE IS ONE RECOVERY UNIT FOR EACH TRANSACTION 
*         TERMINAL DECLARED IN THE CORRESPONDING NETWORK FILE.
* 
*         EACH RECOVERY UNIT CONSISTS OF A HEADER, AND TWO OR MORE
*         MESSAGE RECORDS.  THE FIRST MESSAGE RECORD CONSISTS OF THE
*         TERMINAL OR *BTRAN* INPUT THAT INITIATED THE RECOVERABLE
*         TRANSACTION.  THE SECOND MESSAGE RECORD CONSISTS OF AN OUTPUT 
*         MESSAGE THAT WILL BE SENT TO THE TERMINAL UPON SUCCESSFUL 
*         COMPLETION OF THE RECOVERABLE TRANSACTION CONFIRMING
*         SUCCESSFUL COMPLETION TO THE TERMINAL OPERATOR. 
*         THE THIRD TO NTH MESSAGE RECORDS (N .LE. 12) CONSIST OF USER
*         RECOVERY INFORMATION RECORDED BY THE TASK *RPUT* REQUEST. 
*         THESE MESSAGES CAN BE RETRIEVED BY THE TASK *RGET* REQUEST. 
*E
 THR      SPACE  4,30 
**        TRF HEADER RECORD.
* 
*T  W1    42/ TRFI,18/
*T, W2    1/A,25/ ,12/ TRNM,12/ TRNW,12/ TRNR 
*T, W3    60/ TRSD
*T, W4    60/ TRST
*T, W5    60/ TRTD
*T, W6    60/ TRTT
* 
*         WORD 1. 
*                TRFI - LOGICAL FILE NAME.
* 
*         WORD 2. 
*                A    - 1, IF ABNORMAL SHUTDOWN.
*                TRNM - NUMBER OF MESSAGES PER RECOVERY UNIT. 
*                TRNW - MAXIMUM MESSAGE SIZE IN WORDS.
*                TRNR - NUMBER OF RECOVERY UNITS. 
* 
*         WORD 3. 
*                TRSD - STARTUP DATE, YY/MM/DD. 
* 
*         WORD 4. 
*                TRST - STARTUP TIME, HH.MM.SS. 
* 
*         WORD 5. 
*                TRTD - TERMINATE DATE, YY/MM/DD. 
* 
*         WORD 6. 
*                TRTT - TERMINATE TIME, HH.MM.SS. 
*E
  
  
 TRFI     FIELD  0,59,18     LOGICAL FILE NAME
 TRRS     FIELD  1,59,59     1, IF ABNORMAL SHUTDOWN
 TRNM     FIELD  1,35,24     NUMBER OF MESSAGES FOR RECOVERY UNIT 
 TRNW     FIELD  1,23,12     MAXIMUM MESSAGE SIZE IN WORDS
 TRNR     FIELD  1,11,0      NUMBER OF RECOVERY UNITS 
 TRSD     FIELD  2,59,0      STARTUP DATE 
 TRST     FIELD  3,59,0      STARTUP TIME 
 TRTD     FIELD  4,59,0      TERMINATION DATE 
 TRTT     FIELD  5,59,0      TERMINATION TIME 
  
 TRHDL    EQU    TRTTW+1
 .1       SET    TRHDL+77B
 TRHPL    EQU    .1/100B
 TRHWL    EQU    TRHPL*100B  LENGTH IN MULTIPLE OF PRU-S WORDS
 RUH      SPACE  4,35 
**        RECOVERY UNIT HEADER. 
* 
*T  W1    42/ TRUN,18/
*T, W2    30/ ,6/ TRCR,6/ TRCC,6/ TRTY,12/ TRCS 
*T, W3    60/ TRCD
*T, W4    60/ TRCT
*T, W5    36/ ,24/ TRCN 
*T, W6    60/ TROI
*T, W7    60/ TRNI
* 
*         WORD 1. 
*                TRUN - RECOVERY UNIT NAME. 
* 
*         WORD 2. 
*                TRCR - 1, IF *CRM* ALLOWED.
*                TRCC  - 1, IF *CDCS* ALLOWED.
*                TRTY  - TRANSACTION TYPE.  (*TSTAT* KEYWORD *TRAN*)
*                TRCS  - TRANSACTION STEP.  (*TSTAT* KEYWORD *STEP*)
* 
*         WORD 3. 
*                TRCD - CURRENT STEP DATE, YY/MM/DD.
* 
*         WORD 4. 
*                TRCT - CURRENT STEP TIME, HH.MM.SS.
* 
*         WORD 5. 
*                TRCN - TRANSACTION SEQUENCE NUMBER.
* 
*         WORD 6. 
*                TROI - OLD *CRM* BEGIN-COMMIT IDENTIFIER.
* 
*         WORD 7. 
*                TRNI - NEW *CRM* BEGIN-COMMIT IDENTIFIER.
*E
 TRUN     FIELD  0,59,18     RECOVERY UNIT NAME 
 TRCR     FIELD  1,29,24     1, IF TRANSACTION CAN USE *CRM*
 TRCC     FIELD  1,23,18     1, IF TRANSACTION CAN USE *CDCS* 
 TRTY     FIELD  1,17,12     TRANSACTION TYPE 
 TRCS     FIELD  1,11,0      TRANSACTION STEP 
 TRCD     FIELD  2,59,0      CURRENT STEP DATE
 TRCT     FIELD  3,59,0      CURRENT STEP TIME
 TRCN     FIELD  4,23,0      CURRENT TRANSACTION SEQUENCE NUMBER
 TROI     FIELD  5,59,0      OLD *CRM* BEGIN-COMMIT IDENTIFIERS 
 TRNI     FIELD  6,59,0      NEW *CRM* BEGIN-COMMIT IDENTIFIERS 
  
 TRUDL    EQU    TRNIW+1
 .1       SET    TRUDL+77B
 TRUPL    EQU    .1/100B
 TRUWL    EQU    TRUPL*100B 
 MSH      SPACE  4,10 
**        MESSAGE HEADER. 
* 
*T  W1    36/ ,6/ TRMS,6/ TRMS,12/ TRML 
*T, W2    60/ TRTD
*T, W3    60/ TRMT
*T, W4    60/ TRMH
* 
*         WORD 1. 
*                TRMS - MESSAGE SOURCE. 
*                         0 = NO MESSAGE. 
*                         1 = RERUNNABLE TRANSACTION INPUT. 
*                         2 = *SECURE* MESSAGE. 
*                         3 = *RPUT* MESSAGE. 
*                TRMU - MESSAGE CHARACTER TYPE IN *NAM* UNITS.
*                TRML - MESSAGE LENGTH IN UNITS OF *TRMU*.
* 
*         WORD 2. 
*                TRMD - MESSAGE DATE, YY/MM/DD. 
* 
*         WORD 3. 
*                TRMT - MESSAGE TIME, HH.MM.SS. 
* 
*         WORD 4. 
*                TRMH - NAM APPLICATION BLOCK HEADER. 
*E
  
  
 TRMS     FIELD  0,23,18     MESSAGE SOURCE 
 TRMU     FIELD  0,17,12     MESSAGE UNITS
 TRML     FIELD  0,11,0      MESSAGE LENGTH IN UNITS OF *TRMU*
 TRMT     FIELD  1,59,0      MESSAGE TIME 
 TRMD     FIELD  2,59,0      MESSAGE DATE 
 TRMH     FIELD  3,59,0      NAM APPLICATION BLOCK HEADER 
  
 TRMWL    EQU    TRMHW+1     MESSAGE HEADER LENGTH
 .1       SET    TRMWL+77B
 TRMPL    EQU    .1/100B     MESSAGE LENGTH IN PRU-S
 TRMRL    EQU    TRMPL*100B  MESSAGE LENGTH IN WORDS
  
*         MESSAGE SOURCE DEFINITIONS. 
  
 MSNM     EQU    0           N0 MESSAGE 
 MSTM     EQU    1           TRANSACTION MESSAGE
 MSSM     EQU    2           *SECURE* MESSAGE 
 MSRM     EQU    3           *RPUT* MESSAGE 
 MSST     EQU    4           *TSTAT/WSTAT* MESSAGE
  
*         TRANSACTION STEP DEFINITIONS. 
  
 CSNR     EQU    0           NONRECOVERABLE TRANSACTION/JOB RERUN 
 CSCD     EQU    1           *CDCS* DOWN
 CSCE     EQU    2           CEASE/JOB END
 CSTA     EQU    3           TASK/JOB ABORT 
 CSTN     EQU    4           TRANSACTION NO LONGER RERUNNABLE 
 CSTI     EQU    5           RECOVERABLE TRANSACTION/JOB INPUT
 CSBC     EQU    6           BEGIN/COMMIT *CRM* IDENTIFIERS LOGGED
 CSND     EQU    7           *NAM* DOWN 
 CSST     EQU    8           START TERMINAL/JOB INPUT 
 CSTT     EQU    9           TERMINATE *TAF*
  
*         TRANSACTION TYPE DEFINITIONS. 
  
 TYIT     EQU    1           INTERACTIVE TERMINAL 
 TYBT     EQU    2           *BTRAN* TRANSACTION
 TYRM     EQU    3           *CYBER* RECORD MANAGER 
 TYTF     EQU    4           TERMINAL FAILURE 
  
*         *TTRF* - TERMINAL RECOVERY FILE FIELD DEFINITIONS.
*         THIS IS A *TAF* CENTRAL MEMORY TABLE
*         POINTED TO BY THE TERMINAL FILE TABLE, *TTFT*.
  
 TTLK     FIELD  0,59,59     1, IF FILE LOCKED
 TTEV     FIELD  0,58,58     1, IF FILE UNLOCK EVENT
 TTNP     FIELD  0,47,36     NUMBER OF PRU-S IN USER MESSAGE
 TTNM     FIELD  0,35,24     MAXIMUM NUMBER OF USER MESSAGES
 TTNW     FIELD  0,23,12     MAXIMUM WORDS IN USER MESSAGE
 TTNR     FIELD  0,11,0      NUMBER OF RECOVERY UNITS 
 TTFT     FIELD  1,59,0      RECOVERY FILE FET
 TTRA     FIELD  9,17,0      RANDOM ADDRESS 
 TTBF     FIELD  10,59,0     FWA OF BUFFER
  
 TRDM     EQU    0           DEFAULT NUMBER USER MESSAGES 
 TRMM     EQU    10          MAXIMUM NUMBER OF USER MESSAGES
 TRDND    DECMIC TRDM 
 TRDMD    DECMIC  CBDL
  
*         MAXIMUM TRANSACTION INPUT MESSAGE SIZES.
  
 .1       SET    NCBC*CMBL+TRMWL+77B
 MRIPL    EQU    .1/100B     MAXIMUM LENGTH IN PRU-S
 MRIWL    EQU    MRIPL*100B  MAXIMUM LENGTH IN MULTIPLE OF PRU WORDS
  
*         CIO FUNCTION CODES. 
  
 CIORD    EQU    12B         READ 
 CIOWT    EQU    16B         WRITE
 CIORW    EQU    216B        REWRITE
  
 MAXNF    EQU    8           MAXIMUM NUMBER OF NETWORK FILES
 MAXRC    EQU    MAXNF       MAXIMUM NUMBER OF RECOVERY FILES 
  
          BASE   *
 TRF      ENDX
