COMKTIF 
COMMON
          CTEXT  COMKTIF - *TAF* INITIALIZATION FILE DEFINITIONS. 
          SPACE  4,10 
          BASE   DECIMAL
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 TIF      SPACE  4,40 
***       TIF - *TAF* INITIALIZATION FILE DEFINITIONS.
* 
*         R. G. PARKHOUSE.   80/04/15.
          SPACE  4,25 
***       *COMKTIF* PROVIDES A DESCRIPTION AND COMMON 
*         DEFINITIONS OF THE *TAF* INITIALIZATION FILE FOR *TAFREC*,
*         *TAF1* AND *TAF2*.
* 
*         THE *TIF* IS A SEQUENTIAL FILE CREATED BY *TAFREC* DURING 
*         INITIALIZATION.  IF THE *TIF* IS LOCAL WHEN *TAFREC* BEGINS 
*         EXECUTION, IT INDICATES *TAF* RESTART.  THAT IS, *TAF* HAS
*         ABORTED, BUT *TAF2* GAINED CONTROL DUE TO THE *EXIT*
*         STATEMENT IN THE PROCEDURE FILE, TO CLEAN UP.  FOLLOWING
*         CONTROL STATEMENTS TRANSFERRED CONTROL BACK TO *TAFREC*.
* 
*         THE FILE LAYOUT IS -
* 
*T  W1    58/ ,1/ C,1/ R
*T, W2    60/          LOW CM V-SYMBOLS 
*T,       60/            DEFINED BY 
*T,       60/             *COMSTRX* 
*T, W(I)  60/ 
*T, W(J)  60/ TSTL
*T,       60/            TERMINAL 
*T,       60/             STATUS
*T, W(N)  60/             TABLE.
* 
*         WHERE 
*                C    = 1, IF *CRM* RECOVERY FILE IS TO BE INITIALIZED. 
*                R    = 1, IF *TAF* IS TO BE RESTARTED. 
*                I    = 2+VLOCL  (*VLOCL* DEFINED IN *COMSTRX*).
*                J    = I+1.
*                TSTL = LENGTH OF TERMINAL STATUS TABLE.
*                N    = J+TSTL. 
* 
*         *TAF1* WILL READ THE *TIF* FILE AND LOAD THE V-SYMBOLS AND
*         *TST* INTO MEMORY.  IF NOT TAF RESTART, *TAF1* WILL 
*         INITIALIZE V-SYMBOLS WHICH COULD NOT BE INITIALIZED IN
*         *TAFREC*.  *TAF1* REWINDS THE *TIF* FILE AND WRITES ALL 
*         INITIALIZED V-SYMBOLS BACK OVER THE *TIF*.
  
  
 TICR     FIELD  0,1,1       1, IF INITIALIZE *CRM* RECOVERY FILE 
 TIRF     FIELD  0,0,0       1, IF *TAF* RESTART
  
  
 TIF      MICRO  1,,*ZZTIF*  *TAF* INITIALIZATION FILE
  
  
          BASE   *
 TIF      ENDX
