WSTAT 
          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 
