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        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'S ENVIRONMENT SWITCH
              .1.. ....      UPTNPRM        X'40' UPTNPRM - NO PROMPTING IS
                                            TO BE DONE
              ..1. ....      UPTMID         X'20' UPTMID - PRINT MESSAGE
                                            IDENTIFIERS
              ...1 ....      UPTNCOM        X'10' UPTNCOM - NO USER
                                            COMMUNICATION ALLOWED VIA
              .... 1...      UPTPAUS        X'08' UPTPAUS - PAUSE FOR '?'WHEN
                                            IN NON-INTERFAC
              .... .1..      UPTALD         X'04' UPTALD - ATTN HAS BEEN
                                            SPECIFIED AS LINE DE
    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' PSCBCTRL - OPERATOR COMMAND
                                            USER
              .1.. ....      PSCBACCT       X'40' PSCBACCT - ACCOUNT COMMAND
                                            USER
              ..1. ....      PSCBJCL        X'20' PSCBJCL - 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' ECTNOPD - 0 BIT= ON, NO
                                            OPERANDS EXIST IN C
              ..1. ....      ECTATRM        X'20' ECTATRM - CP TERMINATED BY
                                            TMP DETACH W/ ST
              ...1 ....      ECTLOGF        X'10' ECTLOGF - LOGON/OFF
                                            REQUESTED TMP TO LOG OF
              .... 1...      ECTNMAL        X'08' ECTNMAL - NO USER MESSAGES
                                            RECEIVED AT LOGO
              .... .1..      ECTNNOT        X'04' ECTNNOT - 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

    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 V6R1.0.
Last updated on 23 Oct 2009 at 11:04:01 EDT.
Copyright IBM Corporation, 1990, 2008