Deck TSTAT

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.tstat   +++|          IDENT  TSTAT
00002  M00S00002.tstat   +++|          ENTRY  TSTAT
00003  M00S00003.tstat   +++|          SYSCOM B1
00004  M00S00004.tstat   +++|          TITLE  TSTAT   - OBTAIN INFORMATION ABOUT *TAF* ENVIRONMENT.

Line S00005 Modification History
`M01` (Removed by)	`ns2440`

Seq #  *Modification Id* Act 
----------------------------+
00005  M01S00005.ns2440  ---|  COMMENT 80/07/17.        OBTAIN INFORMATION ABOUT *TAF* ENVIRONMENT.

Line S00001 Modification History
`M01` (Added by)	`ns2440`

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00001.ns2440  +++|*COMMENT  TSTAT - OBTAIN TAF ENVIRONMENT STATUS.

Line S00006 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION.  1980.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M00S00007.tstat   +++| TSTAT    SPACE  4,10
00010  M00S00008.tstat   +++|*****     TSTAT - OBTAIN STATUS ABOUT *TAF* ENVIRONMENT.
00011  M00S00009.tstat   +++|*
00012  M00S00010.tstat   +++|*         A. E. SCHIPPERS.   80/07/17.
00013  M00S00011.tstat   +++|*
00014  M00S00012.tstat   +++|*         TSTAT   IS AN INTERFACE ROUTINE WHICH RETURNS
00015  M00S00013.tstat   +++|*         INFORMATION ABOUT THE *TAF* ENVIRONMENT.
00016  M00S00014.tstat   +++| TSTAT    SPACE  4,20
00017  M00S00015.tstat   +++|**        TSTAT   - OBTAIN STATUS ABOUT TAF ENVIRONMENT.
00018  M00S00016.tstat   +++|*
00019  M00S00017.tstat   +++|*         ENTRY  ENTER TSTAT   USING STAT, KEYWORD(1), VALUE(1),
00020  M00S00018.tstat   +++|*                ..., KEYWORD(N), VALUE(N).
00021  M00S00019.tstat   +++|*
00022  M00S00020.tstat   +++|*                CALL TSTAT(STAT,KEYWORD(1),VALUE(1),
00023  M00S00021.tstat   +++|*                ...,KEYWORD(N),VALUE(N))
00024  M00S00022.tstat   +++|*
00025  M00S00023.tstat   +++|*         WHERE  KEYWORD(I) = VARIABLE CONTAINING 1-7 CHARACTERS.
00026  M00S00024.tstat   +++|*                KEYWORDS ARE LEFT JUSTIFIED AND BLANK FILLED.
00027  M00S00025.tstat   +++|*                COBOL - 01 LEVEL ITEM.
00028  M00S00026.tstat   +++|*                FORTRAN - HOLLERITH.
00029  M00S00027.tstat   +++|*
00030  M00S00028.tstat   +++|*                STATUS = STATUS OF RESULT.
00031  M00S00029.tstat   +++|*                COBOL - 01 LEVEL COMPUTATIONAL-1 DATA NAME.
00032  M00S00030.tstat   +++|*                FORTRAN - INTEGER.
00033  M00S00031.tstat   +++|*
00034  M00S00032.tstat   +++|*                VALUE (I) = CONTAINS THE VALUE OF DESIRED KEYWORD.
00035  M00S00033.tstat   +++|*                COBOL - 01 LEVEL COMPUTATIONAL-1 DATA NAME.
00036  M00S00034.tstat   +++|*                FORTRAN - INTEGER.
00037  M00S00035.tstat   +++|*
00038  M00S00036.tstat   +++|*         EXIT   REQUEST IS PROCESSED.
00039  M00S00037.tstat   +++|*
00040  M00S00038.tstat   +++|*         USES   X - 1.
00041  M00S00039.tstat   +++|*                B - 1.
00042  M00S00040.tstat   +++|*
00043  M00S00041.tstat   +++|*         CALLS  ISR.
00044  M00S00042.tstat   +++| TSTAT    SPACE  4,5
00045  M00S00043.tstat   +++|
00046  M00S00044.tstat   +++|*         COMMON DECKS CALLED.
00047  M00S00045.tstat   +++|
00048  M00S00046.tstat   +++|*CALL COMKMAC
00049  M00S00047.tstat   +++|
00050  M00S00048.tstat   +++|
00051  M00S00049.tstat   +++|
00052  M00S00050.tstat   +++| TESA     EQU    22          TSTAT   FUNTION CODE
00053  M00S00051.tstat   +++|
00054  M00S00052.tstat   +++|          VFD    42/5HTSTAT,18/TSTAT
00055  M00S00053.tstat   +++| TSTAT    SUBR               ENTRY/EXIT
00056  M00S00054.tstat   +++|          SB1    1
00057  M00S00055.tstat   +++|          SX1    TESA        SET FUNCTION CODE
00058  M00S00056.tstat   +++|          RJ     ISR         ISSUE SYSTEM REQUEST
00059  M00S00057.tstat   +++|          EQ     TSTATX      RETURN
00060  M00S00058.tstat   +++| ISR      SPACE  4,15
00061  M00S00059.tstat   +++|**        ISR - ISSUE RECOVERY REQUEST.
00062  M00S00060.tstat   +++|*
00063  M00S00061.tstat   +++|*         ENTRY  (A1) = FWA OF REQUEST PARAMETER LIST.
00064  M00S00062.tstat   +++|*                (X1) = FUNCTION CODE.
00065  M00S00063.tstat   +++|*
00066  M00S00064.tstat   +++|*         EXIT   (A1) = FWA OF RETURN PARAMETER LIST.
00067  M00S00065.tstat   +++|*
00068  M00S00066.tstat   +++|*         USES   X - 1, 6, 7.
00069  M00S00067.tstat   +++|*
00070  M00S00068.tstat   +++|*         CALLS  SYS=.
00071  M00S00069.tstat   +++|
00072  M00S00070.tstat   +++|
00073  M00S00071.tstat   +++| ISR      SUBR               ENTRY/EXIT
00074  M00S00072.tstat   +++|          SX6    3RCTI       PREPARE CTI REQUEST
00075  M00S00073.tstat   +++|          SX7    A1+         PARAMETER LIST ADDRESS
00076  M00S00074.tstat   +++|          LX6    59-17
00077  M00S00075.tstat   +++|          BX6    X7+X6
00078  M00S00076.tstat   +++|          LX1    35-17       REQUEST CODE
00079  M00S00077.tstat   +++|          BX6    X6+X1
00080  M00S00078.tstat   +++|          RJ     =XSYS=      ISSUE REQUEST
00081  M00S00079.tstat   +++|          EQ     ISRX        RETURN
00082  M00S00080.tstat   +++|          END