IDENT  WSTAT 
          ENTRY  WSTAT
          SYSCOM B1
          TITLE  WSTAT - WRITE STATUS OF TAF ENVIRONMENT.
*COMMENT  WSTAT - WRITE STATUS OF TAF ENVIRONMENT.
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
 WSTAT    SPACE  4,10
*****     WSTAT - WRITE STATUS OF *TAF* ENVIRONMENT.
*
*         A. E. SCHIPPERS.   80/07/17.
*
*         WSTAT IS AN INTERFACE ROUTINE WHICH WRITES
*         INFORMATION ABOUT THE *TAF* ENVIRONMENT.
 WSTAT    SPACE  4,20
**        WSTAT - WRITE STATUS OF *TAF* ENVIRONMENT.
*
*         ENTRY  ENTER WSTAT USING STAT, KEYWORD(1), VALUE(1),
*                ..., KEYWORD(N), VALUE(N).
*
*                CALL WSTAT(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.
 WSTAT  SPACE  4,5

*         COMMON DECKS CALLED.

*CALL COMKMAC



 WSTA     EQU    23          WSTAT FUNTION CODE

          VFD    42/5HWSTAT,18/WSTAT
 WSTAT    SUBR               ENTRY/EXIT
          SB1    1
          SX1    WSTA        SET FUNCTION CODE
          RJ     ISR         ISSUE SYSTEM REQUEST
          EQ     WSTATX      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