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