NAME       : EXISBLK
 DESCRIPTION: EXECs in Storage Control Block
 DSECT      : EXISBLK
 FUNCTION   : Each storage resident exec is represented by an
              EXISBLK. EXISBLK is called by the EXISBLK
              macro.

 EXISBLK DSECT
Top of page

Hex   Dec Type/Val   Lng Label (dup)    Comments
---- ---- --------- ---- -------------- --------
0000    0 Structure      EXISBLK        EXECs in Storage Control Block
0000    0 Signed       4 EXISFWP        CHAIN POINTER TO NEXT EXISBLK
0004    4 Signed       4 EXISDWDS       DWORDS OF STORAGE ALLOCATED
0008    8 Character    8 EXISFN         EXEC FILENAME
0010   16 Character    8 EXISFT         EXEC FILETYPE
0018   24 Signed       2 EXISRESV       RESERVED
001A   26 Bitstring    1 EXISFLG        E*1 FLAG BYTE
          1... ....      EXISSYS        X'80' EXISSYS DENOTES "SYSTEM"
                                        EXEC -- WILL NOT BE DELETED
                                        DURING ABEND PROCESSING
          .1.. ....      EXISDPDG       X'40' EXISDPDG DENOTES DROP
                                        PENDING -- AN EXECDROP COMMAND
                                        WAS ISSUED FOR AN ACTIVE EXEC
          ..1. ....      EXISREXX       X'20' EXISREXX 0 - EXEC2 1 - REXX
          ...1 ....      EXISSHRD       X'10' EXISSHRD DENOTES INSTSEG
                                        EXEC
          .... 1...      EXISSEG        X'08' EXISSEG EXEC RESIDES IN A
                                        SEGMENT
          .... .1..      EXISALTE       X'04' EXISALTE 1 - ALT FORMAT
                                        EXEC
          .... ..1.      EXISNEW        X'02' EXISNEW 1 - USE NEW FWORD
                                        COUNTERS
          .... ...1      EXISPIPE       X'01' EXISPIPE USED BY CMS
                                        PIPLINES
001B   27 Bitstring    1 *              E*2 RESERVED
001C   28 Address      4 EXISFBLK       EXEC FILEBLOCK POINTER
0020   32 Character    8 EXISSGID       LOGICAL SEGMENT IDENTIFIER
0028   40 Signed       4 EXISRCLV       RECURSION LEVEL
002C   44 Signed       4 EXISCNT        EXEC EXECUTION COUNT
0030   48 Dbl-Word     8 * (0)          KEEP DOUBLEWORD ALIGNED
          00000030       EXISBLKB       *-EXISBLK LENGTH IN BYTES
          00000006       EXISBLKD       (EXISBLKB+7)/8 LENGTH IN DWORD

          
*** EXISBLK - EXECs in Storage Control Block
*
*     +---------------------------+---------------------------+
*   0 |         EXISFWP           |         EXISDWDS          |
*     +---------------------------+---------------------------+
*   8 |                        EXISFN                         |
*     +-------------------------------------------------------+
*  10 |                        EXISFT                         |
*     +-------------+------+------+---------------------------+
*  18 |  EXISRESV   |:SFLG |//////|         EXISFBLK          |
*     +-------------+------+------+---------------------------+
*  20 |                       EXISSGID                        |
*     +---------------------------+---------------------------+
*  28 |         EXISRCLV          |         EXISCNT           |
*     +---------------------------+---------------------------+
*  30
*
*** EXISBLK - EXECs in Storage Control Block

 
Symbol         Dspl Value
-------------- ---- -----
EXISALTE       001A 04
EXISBLKB       0030 00000030
EXISBLKD       0030 00000006
EXISCNT        002C
EXISDPDG       001A 40
EXISDWDS       0004
EXISFBLK       001C
EXISFLG        001A
EXISFN         0008
EXISFT         0010
EXISFWP        0000
EXISNEW        001A 02
EXISPIPE       001A 01
EXISRCLV       0028
EXISRESV       0018
EXISREXX       001A 20
EXISSEG        001A 08
EXISSGID       0020
EXISSHRD       001A 10
EXISSYS        001A 80