Deck TSTAT

2 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.tstat   +++|          IDENT  TSTAT
00002  M01S00002.tstat   +++|          ENTRY  TSTAT
00003  M01S00003.tstat   +++|          SYSCOM B1
00004  M01S00004.tstat   +++|          TITLE  TSTAT   - OBTAIN INFORMATION ABOUT *TAF* ENVIRONMENT.

Line S00005 Modification History
`M01` (Added by)	`tstat`
`M02` (Updated by)	`ns2440`

Seq #  *Modification Id* Act 
----------------------------+
00005  M02S00005.ns2440  ---|  COMMENT 80/07/17.        OBTAIN INFORMATION ABOUT *TAF* ENVIRONMENT.
00006  M01S00001.ns2440  +++|*COMMENT  TSTAT - OBTAIN TAF ENVIRONMENT STATUS.

Line S00006 Modification History
`M01` (Added by)	`tstat`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION.  1980.
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M01S00007.tstat   +++| TSTAT    SPACE  4,10
00010  M01S00008.tstat   +++|*****     TSTAT - OBTAIN STATUS ABOUT *TAF* ENVIRONMENT.
00011  M01S00009.tstat   +++|*
00012  M01S00010.tstat   +++|*         A. E. SCHIPPERS.   80/07/17.
00013  M01S00011.tstat   +++|*
00014  M01S00012.tstat   +++|*         TSTAT   IS AN INTERFACE ROUTINE WHICH RETURNS
00015  M01S00013.tstat   +++|*         INFORMATION ABOUT THE *TAF* ENVIRONMENT.
00016  M01S00014.tstat   +++| TSTAT    SPACE  4,20
00017  M01S00015.tstat   +++|**        TSTAT   - OBTAIN STATUS ABOUT TAF ENVIRONMENT.
00018  M01S00016.tstat   +++|*
00019  M01S00017.tstat   +++|*         ENTRY  ENTER TSTAT   USING STAT, KEYWORD(1), VALUE(1),
00020  M01S00018.tstat   +++|*                ..., KEYWORD(N), VALUE(N).
00021  M01S00019.tstat   +++|*
00022  M01S00020.tstat   +++|*                CALL TSTAT(STAT,KEYWORD(1),VALUE(1),
00023  M01S00021.tstat   +++|*                ...,KEYWORD(N),VALUE(N))
00024  M01S00022.tstat   +++|*
00025  M01S00023.tstat   +++|*         WHERE  KEYWORD(I) = VARIABLE CONTAINING 1-7 CHARACTERS.
00026  M01S00024.tstat   +++|*                KEYWORDS ARE LEFT JUSTIFIED AND BLANK FILLED.
00027  M01S00025.tstat   +++|*                COBOL - 01 LEVEL ITEM.
00028  M01S00026.tstat   +++|*                FORTRAN - HOLLERITH.
00029  M01S00027.tstat   +++|*
00030  M01S00028.tstat   +++|*                STATUS = STATUS OF RESULT.
00031  M01S00029.tstat   +++|*                COBOL - 01 LEVEL COMPUTATIONAL-1 DATA NAME.
00032  M01S00030.tstat   +++|*                FORTRAN - INTEGER.
00033  M01S00031.tstat   +++|*
00034  M01S00032.tstat   +++|*                VALUE (I) = CONTAINS THE VALUE OF DESIRED KEYWORD.
00035  M01S00033.tstat   +++|*                COBOL - 01 LEVEL COMPUTATIONAL-1 DATA NAME.
00036  M01S00034.tstat   +++|*                FORTRAN - INTEGER.
00037  M01S00035.tstat   +++|*
00038  M01S00036.tstat   +++|*         EXIT   REQUEST IS PROCESSED.
00039  M01S00037.tstat   +++|*
00040  M01S00038.tstat   +++|*         USES   X - 1.
00041  M01S00039.tstat   +++|*                B - 1.
00042  M01S00040.tstat   +++|*
00043  M01S00041.tstat   +++|*         CALLS  ISR.
00044  M01S00042.tstat   +++| TSTAT    SPACE  4,5
00045  M01S00043.tstat   +++|
00046  M01S00044.tstat   +++|*         COMMON DECKS CALLED.
00047  M01S00045.tstat   +++|
00048  M01S00046.tstat   +++|*CALL COMKMAC
00049  M01S00047.tstat   +++|
00050  M01S00048.tstat   +++|
00051  M01S00049.tstat   +++|
00052  M01S00050.tstat   +++| TESA     EQU    22          TSTAT   FUNTION CODE
00053  M01S00051.tstat   +++|
00054  M01S00052.tstat   +++|          VFD    42/5HTSTAT,18/TSTAT
00055  M01S00053.tstat   +++| TSTAT    SUBR               ENTRY/EXIT
00056  M01S00054.tstat   +++|          SB1    1
00057  M01S00055.tstat   +++|          SX1    TESA        SET FUNCTION CODE
00058  M01S00056.tstat   +++|          RJ     ISR         ISSUE SYSTEM REQUEST
00059  M01S00057.tstat   +++|          EQ     TSTATX      RETURN
00060  M01S00058.tstat   +++| ISR      SPACE  4,15
00061  M01S00059.tstat   +++|**        ISR - ISSUE RECOVERY REQUEST.
00062  M01S00060.tstat   +++|*
00063  M01S00061.tstat   +++|*         ENTRY  (A1) = FWA OF REQUEST PARAMETER LIST.
00064  M01S00062.tstat   +++|*                (X1) = FUNCTION CODE.
00065  M01S00063.tstat   +++|*
00066  M01S00064.tstat   +++|*         EXIT   (A1) = FWA OF RETURN PARAMETER LIST.
00067  M01S00065.tstat   +++|*
00068  M01S00066.tstat   +++|*         USES   X - 1, 6, 7.
00069  M01S00067.tstat   +++|*
00070  M01S00068.tstat   +++|*         CALLS  SYS=.
00071  M01S00069.tstat   +++|
00072  M01S00070.tstat   +++|
00073  M01S00071.tstat   +++| ISR      SUBR               ENTRY/EXIT
00074  M01S00072.tstat   +++|          SX6    3RCTI       PREPARE CTI REQUEST
00075  M01S00073.tstat   +++|          SX7    A1+         PARAMETER LIST ADDRESS
00076  M01S00074.tstat   +++|          LX6    59-17
00077  M01S00075.tstat   +++|          BX6    X7+X6
00078  M01S00076.tstat   +++|          LX1    35-17       REQUEST CODE
00079  M01S00077.tstat   +++|          BX6    X6+X1
00080  M01S00078.tstat   +++|          RJ     =XSYS=      ISSUE REQUEST
00081  M01S00079.tstat   +++|          EQ     ISRX        RETURN
00082  M01S00080.tstat   +++|          END