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 DSECT
Top of page

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 - 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

 
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