IMWKSECT

Prolog  

Control Block Contents  
   IMWKSECT DSECT

Storage Layout  

Cross Reference (Contains links to field and bit definitions)  

IMWKSECT Prolog

 Name       : IMWKSECT
 Description: Immediate Command Work Area
 DSECT      : IMWKSECT
 Function   : Contains information about the CMS
              immediate commands.

IMWKSECT Control Block Content

IMWKSECT DSECT

Hex   Dec Type/Val   Lng Label (dup)    Comments
---- ---- --------- ---- -------------- --------
0000    0 Structure      IMWKSECT       Immediate Command Work Area
0000    0 Address      4 IMWKANCH       POINTER TO IMMBLOK ANCHOR
0004    4 Character    8 IMWKCMD        CURRENT IMMEDIATE COMMAND
000C   12 Character  256 IMWKBUF        COPY OF TERMINAL INPUT LINE
010C  268 Character   32 IMWKEXTP       SAVED COPY OF LAST REGULAR
                                        COMMAND EXTENDED PLIST
012C  300 Character  536 IMWKTOKP       SAVED COPY OF LAST REGULAR
                                        COMMAND TOKENIZED PLIST
          00000218       IMWKTOKL       L'IMWKTOKP LENGTH OF IMWKTOKP FOR
                                        MVCL
0344  836 Character  256 IMWKTRTB       TRANSLATE TABLE TO DETERMINE LINE
                                        LENGTH
0444 1092 Signed       4 IMWKRGSV (16)  DMSCIT REGISTER SAVE AREA
          IMWKRGSV       IMWKRG10       IMWKRGSV+40 LOCATION OF REG 10 IN
                                        SAVE AREA
0488 1160 Dbl-Word     8 IMWKSCR (13)   Immediate command exit save area
04F0 1264 Signed       4 IMWKNUCX       NUMBER OF IMMEDIATE COMMANDS THAT
                                        ARE ALSO NUCLEUS EXTENSIONS
04F4 1268 Signed       4 IMWKHIDE       TOTAL NUMBER OF NUCLEUS
                                        EXTENSIONS THAT ARE CURRENTLY
                                        HIDING IMMEDIATE COMMANDS
04F8 1272 Bitstring    1 IMWKFLGS       FLAGS
          1... ....      IMCMDACT       X'80' IMMEDIATE COMMAND IS ACTIVE
          .1.. ....      IMWKGOT        X'40' TEMP SWITCH USED BY DMSITS
                                        TO DETERMINE IF IT GOT THE
                                        WORKAREA
0500 1280 Dbl-Word     8 IMWKEND (0)
          000000A0       IMWKDWDS       (*-IMWKSECT)/8 SIZE OF BLOCK IN
                                        DBLWDS
          00000500       IMWKBYTS       (*-IMWKSECT) SIZE OF BLOCK IN
                                        BYTES

IMWKSECT Storage Layout

          
*** IMWKSECT - Immediate Command Work Area
*
*     +---------------------------+---------------------------+
*   0 |         IMWKANCH          |         IMWKCMD-          |
*     +---------------------------+---------------------------+
*   8 |          -(004)           |                           |
*     +---------------------------+                           |
*  10 |                                                       |
*     =                       IMWKBUF                         =
*     |                           +---------------------------+
*     |                           |                           |
*     +---------------------------+                           |
* 110 |                                                       |
*     =                       IMWKEXTP                        =
*     |                           +---------------------------+
*     |                           |                           |
*     +---------------------------+                           |
* 130 |                                                       |
*     =                       IMWKTOKP                        =
*     |                           +---------------------------+
*     |                           |                           |
*     +---------------------------+                           |
* 348 |                                                       |
*     =                       IMWKTRTB                        =
*     |                           +---------------------------+
*     |                           |                           |
*     +---------------------------+                           |
* 448 |                                                       |
*     =                       IMWKRGSV                        =
*     |                           +---------------------------+
* 480 |                           |///////////////////////////|
*     +---------------------------+---------------------------+
* 488 |                                                       |
*     =                       IMWKSCR                         =
*     |                                                       |
*     +---------------------------+---------------------------+
* 4F0 |         IMWKNUCX          |         IMWKHIDE          |
*     +------+--------------------+---------------------------+
* 4F8 |:KFLGS|////////////////////////////////////////////////|
*     +------+------------------------------------------------+
*
*** IMWKSECT - Immediate Command Work Area

IMWKSECT Cross Reference

Symbol         Dspl Value
-------------- ---- -----
IMCMDACT       04F8 80
IMWKANCH       0000
IMWKBUF        000C
IMWKBYTS       0500 00000500
IMWKCMD        0004
IMWKDWDS       0500 000000A0
IMWKEND        0500
IMWKEXTP       010C
IMWKFLGS       04F8
IMWKGOT        04F8 40
IMWKHIDE       04F4
IMWKNUCX       04F0
IMWKRGSV       0444
IMWKRG10       0444 IMWKRGSV
IMWKSCR        0488
IMWKTOKL       012C 00000218
IMWKTOKP       012C
IMWKTRTB       0344