NAME       : HCPDAPPC
 DESCRIPTION: Directory APPCPASS Security Parameter Block
 DSECT      : DAPPC
 FUNCTION   : To preserve information from the "APPCPASS"
              directory control statement.  There will be
              one DAPPC block created for each "APPCPASS"
              statement in the source directory.
              OR - To request security parameters (userid and its
              password) from the "APPCPASS" statement in the
              source directory by providing the locally_known_
              LU name.
              OR - To request security parameter (user's password)
              from the "APPCPASS" statement in the source
              directory by providing the locally_known_LU name
              and the userid.
 LOCATED BY : Fields DVMDADAS and DVMDADSP in DVMD
              Fields DAPPDASD and DAPPDISP in DAPPC
              GPR2 in HCPIUPCO
              GPR2 in HCPUDRAP
 CREATED BY : HCPDIR, HCPIUPCO
 DELETED BY : HCPDIR, HCPIUPCO
 SERIALIZED : 1. The directory lock (SYSDRLOK) is acquired
              in exclusive mode for DIRECTXA processing.
              2. The directory lock (SYSDRLOK) is acquired
              in shared mode by HCPUDRAP to copy the
              DAPPUSER and DAPPPASS fields.
 RELOCATION CONSIDERATIONS : None
 NOTES      : 1. DAPPLPWD is the actual length of the variable length
              password (1-8 bytes) in DAPPPASS.
              2. DAPPPASS is an encrypted version of the password
              with the same length.

 DAPPC DSECT
Top of page

Hex   Dec Type/Val   Lng Label (dup)    Comments
---- ---- --------- ---- -------------- --------
0000    0 Structure      DAPPC          Directory APPCPASS Security Parameter Block
0000    0 Signed       4 DAPPDASD       DASD address of next DAPPC CCPV
                                        for CKD DASD addresses PPPV for
                                        FBA DASD addresses
0004    4 Signed       2 DAPPDISP       Displacement of next DAPPC
0006    6 Bitstring    1 DAPPLPWD       Actual length of the password
0007    7 Bitstring    1 *              Reserved for future IBM use
0008    8 Character   16 DAPPLKLU (0)   Locally_known_LU name
0008    8 Character    8 DAPPGLU        Gateway_LU name
0010   16 Character    8 DAPPGKLU       Gateway_known_LU name
0018   24 Character    8 DAPPUSER       Target userid
0020   32 Character    8 DAPPPASS       Target password (encrypted)
          00000005       DAPPSIZE       (*-DAPPC+7)/8 DAPPC size in DW's
          00000028       DAPPLEN        (*-DAPPC) DAPPC size in bytes

          
*** DAPPC - Directory APPCPASS Security Parameter Block
*
*     +---------------------------+-------------+------+------+
*   0 |         DAPPDASD          |  DAPPDISP   |:PLPWD|//////|
*     +---------------------------+-------------+------+------+
*   8 |                       DAPPGLU                         |
*     +-------------------------------------------------------+
*  10 |                       DAPPGKLU                        |
*     +-------------------------------------------------------+
*  18 |                       DAPPUSER                        |
*     +-------------------------------------------------------+
*  20 |                       DAPPPASS                        |
*     +-------------------------------------------------------+
*  28
*
*** DAPPC - Directory APPCPASS Security Parameter Block

 
Symbol         Dspl Value
-------------- ---- -----
DAPPDASD       0000
DAPPDISP       0004
DAPPGKLU       0010
DAPPGLU        0008
DAPPLEN        0020 00000028
DAPPLKLU       0008
DAPPLPWD       0006
DAPPPASS       0020
DAPPSIZE       0020 00000005
DAPPUSER       0018