Programming Interface Information: This information is NOT intended to be used as Programming Interfaces of z/VM.

#### 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
    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'S ENVIRONMENT SWITCH
              .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    1 *              - 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
              ...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) Name : TSOBLKS
                                            Description: Terminal Attention
                                            Exit Element DSECT : CMSTAXE

#### TSOBLKS Storage Layout

    *** TSOBLKS - Control Block in TSOBLKS
    *
    *     +---------------------------+---------------------------+
    *   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 - Control Block in TSOBLKS

#### TSOBLKS Cross Reference

    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 z/VM V4R4.0.
Last updated on 28 Jul 2003 at 08:18:19 EDT.
Copyright IBM Corporation, 1990, 2003