TSTAT 
          IDENT  TSTAT
          ENTRY  TSTAT
          SYSCOM B1 
          TITLE  TSTAT   - OBTAIN INFORMATION ABOUT *TAF* ENVIRONMENT.
*COMMENT  TSTAT - OBTAIN TAF ENVIRONMENT STATUS.
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 TSTAT    SPACE  4,10 
*****     TSTAT - OBTAIN STATUS ABOUT *TAF* ENVIRONMENT.
* 
*         A. E. SCHIPPERS.   80/07/17.
* 
*         TSTAT   IS AN INTERFACE ROUTINE WHICH RETURNS 
*         INFORMATION ABOUT THE *TAF* ENVIRONMENT.
 TSTAT    SPACE  4,20 
**        TSTAT   - OBTAIN STATUS ABOUT TAF ENVIRONMENT.
* 
*         ENTRY  ENTER TSTAT   USING STAT, KEYWORD(1), VALUE(1),
*                ..., KEYWORD(N), VALUE(N). 
* 
*                CALL TSTAT(STAT,KEYWORD(1),VALUE(1), 
*                ...,KEYWORD(N),VALUE(N)) 
* 
*         WHERE  KEYWORD(I) = VARIABLE CONTAINING 1-7 CHARACTERS. 
*                KEYWORDS ARE LEFT JUSTIFIED AND BLANK FILLED.
*                COBOL - 01 LEVEL ITEM. 
*                FORTRAN - HOLLERITH. 
* 
*                STATUS = STATUS OF RESULT. 
*                COBOL - 01 LEVEL COMPUTATIONAL-1 DATA NAME.
*                FORTRAN - INTEGER. 
* 
*                VALUE (I) = CONTAINS THE VALUE OF DESIRED KEYWORD. 
*                COBOL - 01 LEVEL COMPUTATIONAL-1 DATA NAME.
*                FORTRAN - INTEGER. 
* 
*         EXIT   REQUEST IS PROCESSED.
* 
*         USES   X - 1. 
*                B - 1. 
* 
*         CALLS  ISR. 
 TSTAT    SPACE  4,5
  
*         COMMON DECKS CALLED.
  
*CALL COMKMAC 
  
  
  
 TESA     EQU    22          TSTAT   FUNTION CODE 
  
          VFD    42/5HTSTAT,18/TSTAT
 TSTAT    SUBR               ENTRY/EXIT 
          SB1    1
          SX1    TESA        SET FUNCTION CODE
          RJ     ISR         ISSUE SYSTEM REQUEST 
          EQ     TSTATX      RETURN 
 ISR      SPACE  4,15 
**        ISR - ISSUE RECOVERY REQUEST. 
* 
*         ENTRY  (A1) = FWA OF REQUEST PARAMETER LIST.
*                (X1) = FUNCTION CODE.
* 
*         EXIT   (A1) = FWA OF RETURN PARAMETER LIST. 
* 
*         USES   X - 1, 6, 7. 
* 
*         CALLS  SYS=.
  
  
 ISR      SUBR               ENTRY/EXIT 
          SX6    3RCTI       PREPARE CTI REQUEST
          SX7    A1+         PARAMETER LIST ADDRESS 
          LX6    59-17
          BX6    X7+X6
          LX1    35-17       REQUEST CODE 
          BX6    X6+X1
          RJ     =XSYS=      ISSUE REQUEST
          EQ     ISRX        RETURN 
          END 
