Retro1.org codex

          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