NAME       : IUCVTAB
 DESCRIPTION: IUCV Control Block
 DSECT      : IUCVTAB
 FUNCTION   : Define storage for APPC/VM, IUCV,
              and private resource processing in DMSNUC.
              Provide a layout (DSECT) of the IUCV Control
              Table in other CMS routines. AIUCVTAB in NUCON
              contains the address of IUCVTAB.

 IUCVTAB DSECT
Top of page

Hex   Dec Type/Val   Lng Label (dup)    Comments
---- ---- --------- ---- -------------- --------
0000    0 Structure      IUCVTAB        IUCV Control Block
0000    0 Address      4 IUCVPTAN       ANCHOR OF PATH TABLE CHAIN
0004    4 Address      4 IUCVSAVE       POINTER TO A 23 BYTE SAVE AREA
0008    8 Address      4 IUCVPLST       POINTER TO A PLIST FOR IUCV
000C   12 Address      4 IUCVEXBF       POINTER TO EXTERNAL INTERRUPT
                                        BUFFER
0010   16 Address      4 IUCVCTBF       POINTER TO CONTROL EIB
      NOTES      : the following field, IUCVBKSZ, used to be the size in
            DWORDS of a contiguous block of storage that was
            obtained.  Now it is the sum of the size of the path
            table (above 16Mb line) and the rest of the stuff (
            below the line).  Effectively, the value contained in
            IUCVBKSZ has not changed, however, you need to
            remember that this length does not represent a
            contiguous block starting at IUCVPTAN.  Now IUCVPTAN
            points to the path table above the 16Mb line and
            IUCVSAVE effectively points to the start of the block
            below the line.
0014   20 Signed       4 IUCVBKSZ       Size of allocated block in DWs
0018   24 Address      4 IUCVIDAN       ANCHOR OF PROGRAM IDENTITY CHAIN
001C   28 Signed       2 IUCVCONN       MAXIMUM NUMBER OF IUCV CONNECTS
001E   30 Bitstring    1 IUCVSETF       INDICATES IF !CMS'S SET WORKED
001F   31 Bitstring    1 IUCVACTV       INDICATES IF USERS OTHER THAN
                                        !CMS HAVE DONE HNDIUCV SETS
0020   32 Address      4 IUCVPFST       Pointer to first PSIB entry
0024   36 Address      4 IUCVPLAS       Pointer to last PSIB entry
0028   40 Address      4 IUCVIUCA       Pointer to DMSIUC save area
002C   44 Address      4 IUCVPSVA       Pointer to DMSPSV save area
0030   48 Character    8 IUCVMOD        CMS-invokable name (DMSPSVV)
0038   56 Character    8 IUCVRNAM (0)   Resource id invoked by DMSINT
0038   56 Bitstring    8 *              INITIALIZE TO BINARY 0
0040   64 Character    8 IUCVUSID (0)   Userid requesting IUCVRNAM
0040   64 Bitstring    8 *              INITIALIZE TO BINARY 0
0048   72 Address      4 IUCVAPAN       Active conversation anchor
004C   76 Address      4 IUCVPIBE       Pointer to IBE
0050   80 Address      4 IUCVCSL        Addr of block of FPI workarea
                                        pointers for CSL calls
0054   84 Address      4 IUCVPIP        PIP data storage blk pointer
0058   88 Address      4 IUCVPPIP       Private PIP data pointer
005C   92 Address      4 IUCVCPED       Pointer to CPED storage blk
0060   96 Address      4 IUCVCLDP       Pointer to CMS log data plist
0064  100 Address      4 IUCVCRDS       Pointer to DMSCRD savearea
0068  104 Address      4 IUCVIUHS       Pointer to DMSIUH savearea
006C  108 Signed       2 IUCVLCPE       Length of CPED (DWs
006E  110 Signed       2 IUCVLPIP       Length of PIP data (DWs
0070  112 Signed       2 IUCVLPPP       Length of Private PIP data(DWs
0072  114 Signed       2 IUCVLIBE       Length of IBE (DWs ** NOTES : The
                                        following two fields must remain
                                        together
0074  116 Character    8 IUCVPCA (0)    PCA exit name
0074  116 Character    8 *              INITIALIZE
007C  124 Character    9 IUCVBACK (0)   CSL routine for Backout_Req'd
007C  124 Character    9 *              INITIALIZE
0085  133 Bitstring    1 IUCVPFLG       Private server flags
          1... ....      IUCVCOMC       X'80' IUCVCOMC DMSINT call for
                                        next command
          .... 1...      IUCVSLIH       X'08' IUCVSLIH IUCV SLIH drive
                                        active
          .... ..1.      IUCVPVUN       X'02' IUCVPVUN Check unique
                                        LUWID's
          .... ...1      IUCVPVEX       X'01' IUCVPVEX DMSINT invoked
                                        private server
0086  134 Bitstring    1 IUCVCFL1       PCA and CMS PCA Flag 1
          1... ....      IUCVGPD        X'80' IUCVGPD Got PIP Data
          .1.. ....      IUCVGPPD       X'40' IUCVGPPD Got Private PIP
                                        Data
          ..1. ....      IUCVTSAF       X'20' IUCVTSAF TSAF virtual
                                        machine
          ...1 ....      IUCVGCPE       X'10' IUCVGCPE Got CPED block
          .... 1...      IUCVCVSV       X'08' IUCVCVSV Conversation
                                        severed flag
0087  135 Bitstring    1 IUCVRFLG       Recursion flags
          1... ....      IUCVPSEV       X'80' IUCVPSEV Path severing flag
0088  136 Signed       4 IUCVWUID       Private server workunit ID
008C  140 Bitstring    4 *              Reserved for future use
0090  144 Dbl-Word     8 IUCVPARM (5)   IUCV parameter list
          00000017       IUCVSIZE       (*-IUCVTAB+7)/8 SIZE OF IUCVTAB
                                        IN DOUBLEWORDS
          000000B8       IUCVSIZB       IUCVSIZE*8 Size of IUCVTAB in
                                        Bytes
          00000006       IUCVPSVL       6 DMSPSV save area size (DWs)
          00000006       IUCVIUCL       6 DMSIUC reg save size (DWs)
          00000009       IUCVPUXL       9 User exit save area size (DWs)
          00000009       IUCVCRDL       9 DMSCRD save area size (DWs)
          00000009       IUCVIUHL       9 DMSIUH save area size (DWs)

          
*** IUCVTAB - IUCV Control Block
*
*     +---------------------------+---------------------------+
*   0 |         IUCVPTAN          |         IUCVSAVE          |
*     +---------------------------+---------------------------+
*   8 |         IUCVPLST          |         IUCVEXBF          |
*     +---------------------------+---------------------------+
*  10 |         IUCVCTBF          |         IUCVBKSZ          |
*     +---------------------------+-------------+------+------+
*  18 |         IUCVIDAN          |  IUCVCONN   |:VSETF|:VACTV|
*     +---------------------------+-------------+------+------+
*  20 |         IUCVPFST          |         IUCVPLAS          |
*     +---------------------------+---------------------------+
*  28 |         IUCVIUCA          |         IUCVPSVA          |
*     +---------------------------+---------------------------+
*  30 |                       IUCVMOD                         |
*     +-------------------------------------------------------+
*  38 |///////////////////////////////////////////////////////|
*     +-------------------------------------------------------+
*  40 |///////////////////////////////////////////////////////|
*     +---------------------------+---------------------------+
*  48 |         IUCVAPAN          |         IUCVPIBE          |
*     +---------------------------+---------------------------+
*  50 |         IUCVCSL           |         IUCVPIP           |
*     +---------------------------+---------------------------+
*  58 |         IUCVPPIP          |         IUCVCPED          |
*     +---------------------------+---------------------------+
*  60 |         IUCVCLDP          |         IUCVCRDS          |
*     +---------------------------+-------------+-------------+
*  68 |         IUCVIUHS          |  IUCVLCPE   |  IUCVLPIP   |
*     +-------------+-------------+-------------+-------------+
*  70 |  IUCVLPPP   |  IUCVLIBE   |///////////////////////////|
*     +-------------+-------------+---------------------------+
*  78 |///////////////////////////|///////////////////////////|
*     +---------------------------+//////+------+------+------+
*  80 |//////////////////////////////////|:VPFLG|:VCFL1|:VRFLG|
*     +---------------------------+------+------+------+------+
*  88 |         IUCVWUID          |///////////////////////////|
*     +---------------------------+---------------------------+
*  90 |                                                       |
*     =                       IUCVPARM                        =
*     |                                                       |
*     +-------------------------------------------------------+
*  B8
*
*** IUCVTAB - IUCV Control Block

 
Symbol         Dspl Value
-------------- ---- -----
IUCVACTV       001F
IUCVAPAN       0048
IUCVBACK       007C
IUCVBKSZ       0014
IUCVCFL1       0086
IUCVCLDP       0060
IUCVCOMC       0085 80
IUCVCONN       001C
IUCVCPED       005C
IUCVCRDL       0090 00000009
IUCVCRDS       0064
IUCVCSL        0050
IUCVCTBF       0010
IUCVCVSV       0086 08
IUCVEXBF       000C
IUCVGCPE       0086 10
IUCVGPD        0086 80
IUCVGPPD       0086 40
IUCVIDAN       0018
IUCVIUCA       0028
IUCVIUCL       0090 00000006
IUCVIUHL       0090 00000009
IUCVIUHS       0068
IUCVLCPE       006C
IUCVLIBE       0072
IUCVLPIP       006E
IUCVLPPP       0070
IUCVMOD        0030
IUCVPARM       0090
IUCVPCA        0074
IUCVPFLG       0085
IUCVPFST       0020
IUCVPIBE       004C
IUCVPIP        0054
IUCVPLAS       0024
IUCVPLST       0008
IUCVPPIP       0058
IUCVPSEV       0087 80
IUCVPSVA       002C
IUCVPSVL       0090 00000006
IUCVPTAN       0000
IUCVPUXL       0090 00000009
IUCVPVEX       0085 01
IUCVPVUN       0085 02
IUCVRFLG       0087
IUCVRNAM       0038
IUCVSAVE       0004
IUCVSETF       001E
IUCVSIZB       0090 000000B8
IUCVSIZE       0090 00000017
IUCVSLIH       0085 08
IUCVTSAF       0086 20
IUCVUSID       0040
IUCVWUID       0088