Programming Interface Information: This information is NOT intended to be
used as Programming Interfaces of VM/ESA. It is to be used for diagnosis only.

TSOBLKS

Prolog  

Control Block Contents  

TSOBLKS DSECT

Storage Layout  

Cross Reference (Contains links to field and bit definitions)  

TSOBLKS Prolog

Name : TSOBLKS Description: TSO Control Blocks DSECT : TSOBLKS Function : The TSOBLKS macro contains two DSECTS: TSOBLKS and CMSTAXE. Information on both DSECTs is included in this section. TSOBLKS - TSO Control Blocks The TSOBLKS DSECT describes the entries in the TSOBLKS block which contains OS control information used by CMS, that is, the command program parameters list (CPPL), user profile table (UPT), protected step control block (PSCB), and the environment control table (ECT). The ATSOCPPL field in NUCON points to TSOBLKS block.

 

TSOBLKS Control Block Content


TSOBLKS DSECT

Hex Dec Type/Val Lng Label (dup) Comments ---- ---- --------- ---- -------------- -------- 0000 0 Structure TSOBLKS TSO Control Blocks 0000 0 Signed 4 CPPL (0) - TMP PLIST TO CP PROGRAMS 0000 0 Address 4 CPPLOBUF - ADDRESS OF COMMAND LINE 0004 4 Address 4 CPPLUPT - ADDR OF DUMMY UPT 0008 8 Address 4 CPPLPSCB - ADDR OF DUMMY PSCB 000C 12 Address 4 CPPLECT - ADDR OF DUMMY ECT THE FOLLOWING ARE FACSIMILE TSO CONTROL BLOCKS USER PROFILE TABLE (UPT) 0010 16 Signed 4 UPT (0) 0010 16 Bitstring 2 * RESERVED 0012 18 Bitstring 10 UPTUSER RESERVED FOR INSTALLATION USE 001C 28 Bitstring 1 UPTSWS - USER .1.. .... UPTNPRM X'40' - NO PROMPTING IS TO BE DONE ..1. .... UPTMID X'20' - PRINT MESSAGE IDENTIFIERS ...1 .... UPTNCOM X'10' - NO USER COMMUNICATION ALLOWED VIA SEND .... 1... UPTPAUS X'08' - PAUSE FOR '?'WHEN IN NON-INTERFACE MODE .... .1.. UPTALD X'04' - ATTN HAS BEEN SPECIFIED AS LINE DELETE 001D 29 Bitstring 1 UPTCDEL - CHAR DELETE CHARACTER 001E 30 Bitstring 1 UPTDEL - LINE DELETE CHARACTER 001F 31 Bitstring 1 * RESERVED PROTECTED STEP CONTROL BLOCK (PSCB) 0020 32 Signed 4 PSCB (0) 0020 32 Character 7 PSCBUSER - USER ID PADDED WITH BLANKS 0027 39 Bitstring 1 PSCBUSRL - LENGTH OF USER ID 0028 40 Character 8 PSCBGPNM ESOTERIC GROUP NAME INIT BY LOGON 0030 48 Bitstring 1 PSCBATR1 15 BIT STRING OF USER ATTRIBUTES 1... .... PSCBCTRL X'80' - OPERATOR COMMAND USER .1.. .... PSCBACCT X'40' - ACCOUNT COMMAND USER ..1. .... PSCBJCL X'20' - SUBMIT COMMAND USER BITS 3 -15 RESERVED FOR IBM USE 0031 49 Bitstring 1 * RESERVED 0032 50 Bitstring 1 PSCBATR2 15 BIT STRING RESERVED FOR INST. 0033 51 Bitstring 1 * THE FOLLOWING 6 FULL WORDS ARE USED IN TSO FOR ACCOUNTING THEY WILL BE LEFT INIT TO ZERO 0034 52 Signed 4 * (6) 004C 76 Signed 4 PSCBTCOL 0050 80 Address 4 PSCBRLGB - 0054 84 Address 4 PSCBUPT - PTR TO THE USER PROFILE TABLE 0058 88 Address 2 PSCBUPTL - LENGTH OF THE UPT 005A 90 Bitstring 0 * - RESERVED 005C 92 Address 4 PSCBRSZ REGION SIZE REQUESTED IN 2K UNITS 0060 96 Bitstring 8 PSCBU RESERVED FOR INSTALLATION USE ENVIRONMENT CONTROL TABLE (ECT) 0068 104 Signed 4 ECT (0) 0068 104 Address 1 ECTRCDF - HIGH ORDER BIT INDICATES CP ABENDED 0069 105 Address 3 ECTRTCD - RETURN CODE FROM LAST CP 006C 108 Address 4 ECTIOWA - ADDR OF I/O SERVICE ROUTINE WORK AREA THIS FIELD MUST BE INITIALIZED BY USER AT START OF HIS PGM. 0070 112 Bitstring 1 ECTMSGF - HIGH ORD. BIT MEANS DEL. 2ND LEVEL MSGS. 0071 113 Address 3 ECTSMSG ADDR OF SECOND LEVEL MSG CHAIN 0074 116 Character 8 ECTPCMD - PRIMARY COMMAND NAME 007C 124 Character 8 ECTSCMD SUBCOMMAND NAME 0084 132 Bitstring 1 ECTSWS - ECT SW 1... .... ECTNOPD X'80' - 0 BIT= ON, NO OPERANDS EXIST IN COMMAND B ..1. .... ECTATRM X'20' - CP TERMINATED BY TMP DETACH W/ STAE EQU X'40' - RESERVED ...1 .... ECTLOGF X'10' - LOGON/OFF REQUESTED TMP TO LOG OFF .... 1... ECTNMAL X'08' - NO USER MESSAGES RECEIVED AT LOGON .... .1.. ECTNNOT X'04' - NO BRDCST NOTICES TO BE RECEIVED 0085 133 Address 3 ECTDDNUM - COUNTER FOR GEN TEMP DDNAMS 0088 136 Address 4 ECTUSER RESERVED FOR INSTALL 008C 140 Address 4 * RESERVED TERMINAL ATTENTION EXIT ELEMENT (TAXE)

 

TSOBLKS Storage Layout

*** TSOBLKS - TSO Control Blocks
*
*     +---------------------------+---------------------------+
*   0 |         CPPLOBUF          |         CPPLUPT           |
*     +---------------------------+---------------------------+
*   8 |         CPPLPSCB          |         CPPLECT           |
*     +-------------+-------------+---------------------------+
*  10 |/////////////|                UPTUSER                  |
*     +-------------+             +------+------+------+------+
*  18 |                           |UPTSWS|:CDEL |UPTDEL|//////|
*     +---------------------------+------+------+------+------+
*  20 |                   PSCBUSER                     |:BUSRL|
*     +------------------------------------------------+------+
*  28 |                       PSCBGPNM                        |
*     +------+------+------+------+---------------------------+
*  30 |:BATR1|//////|:BATR2|//////|///////////////////////////|
*     +------+------+------+------+///////////////////////////|
*  38 |///////////////////////////////////////////////////////|
*     =///////////////////////////////////////////////////////=
*     |///////////////////////////+---------------------------+
*  48 |///////////////////////////|         PSCBTCOL          |
*     +---------------------------+---------------------------+
*  50 |         PSCBRLGB          |         PSCBUPT           |
*     +-------------+-------------+---------------------------+
*  58 |  PSCBUPTL   |/////////////|         PSCBRSZ           |
*     +-------------+-------------+---------------------------+
*  60 |                        PSCBU                          |
*     +------+--------------------+---------------------------+
*  68 |:RCDF |      ECTRTCD       |         ECTIOWA           |
*     +------+--------------------+---------------------------+
*  70 |:MSGF |      ECTSMSG       |         ECTPCMD-          |
*     +------+--------------------+---------------------------+
*  78 |          -(074)           |         ECTSCMD-          |
*     +---------------------------+------+--------------------+
*  80 |          -(07C)           |ECTSWS|     ECTDDNUM       |
*     +---------------------------+------+--------------------+
*  88 |         ECTUSER           |///////////////////////////|
*     +---------------------------+---------------------------+
*  90
*
*** TSOBLKS - TSO Control Blocks

 

TSOBLKS Cross Reference

(contains links to field and bit definitions)
Symbol         Dspl Value
-------------- ---- -----

CPPL 0000

CPPLECT 000C

CPPLOBUF 0000

CPPLPSCB 0008

CPPLUPT 0004

ECT 0068

ECTATRM 0084 20

ECTDDNUM 0085

ECTIOWA 006C

ECTLOGF 0084 10

ECTMSGF 0070

ECTNMAL 0084 08

ECTNNOT 0084 04

ECTNOPD 0084 80

ECTPCMD 0074

ECTRCDF 0068

ECTRTCD 0069

ECTSCMD 007C

ECTSMSG 0071

ECTSWS 0084

ECTUSER 0088

PSCB 0020

PSCBACCT 0030 40

PSCBATR1 0030

PSCBATR2 0032

PSCBCTRL 0030 80

PSCBGPNM 0028

PSCBJCL 0030 20

PSCBRLGB 0050

PSCBRSZ 005C

PSCBTCOL 004C

PSCBU 0060

PSCBUPT 0054

PSCBUPTL 0058

PSCBUSER 0020

PSCBUSRL 0027

UPT 0010

UPTALD 001C 04

UPTCDEL 001D

UPTDEL 001E

UPTMID 001C 20

UPTNCOM 001C 10

UPTNPRM 001C 40

UPTPAUS 001C 08

UPTSWS 001C

UPTUSER 0012


This information is based on VM/ESA 2.4.0.
Last updated on 12 Aug 1999 at 11:27:54 EDT.
Copyright IBM Corporation, 1990, 1999