NAME       : HCPIDTPL
 DESCRIPTION: *IDENT internal routine parameter list
 DSECT      : IDTPL
 FUNCTION   : This DSECT maps the input and output data for
              the interface to internal *IDENT routines.
 LOCATED BY : Dependent on the function; registers in
              HCPIDS
 CREATED BY : HCPEXD when setting up for a local send
 DELETED BY : HCPEXD when handling a message complete
              interruption
              HCPEXD when cleaning up after a failed send
 SERIALIZED : Task ownership
 RELOCATION CONSIDERATIONS : None
 COMMENTS   : None

 IDTPL DSECT
Top of page

Hex   Dec Type/Val   Lng Label (dup)    Comments
---- ---- --------- ---- -------------- --------
0000    0 Structure      IDTPL          *IDENT internal routine parameter list
0000    0 Address      4 IDTIRCBK       Address of the IRCBK, the *IDENT
                                        resource communication block.
0004    4 Signed       4 IDTPATH        Path id of the path to the target
                                        resource.
0008    8 Signed       2 IDTINST        Instance count of the target
                                        resource
000A   10 Signed       2 *              Reserved for IBM use
000C   12 Address      4 IDTCLIRA       HLA of the routine to get control
                                        on a message complete after
                                        HCPIDSMC has done its work. The
                                        code refers to this as "caller's
                                        IRA".
0010   16 Signed       4 IDTCLINF       Fullword of function-specific
                                        information that the caller
                                        wishes to have passed back to it
                                        when the routine whose address is
                                        in IDTCLIRA gets control.
0014   20 Character    8 IDTRESID       Resource id of the target
                                        resource for the SEND
001C   28 Signed       4 IDTMSGID       Copy of the IPMSGID field
                                        returned on a successful SEND.
0020   32 Signed       4 IDTSRCLS       Copy of the IPSRCCLS field
                                        returned on a successful SEND.
0024   36 Bitstring    1 IDTRCODE       Copy of the IPRCODE field
                                        returned on a failed IUCV SEND.
0025   37 Bitstring    3 *              Reserved for IBM use
0028   40 Bitstring    4 IDTAUDIT (0)   Copy of the IPAUDIT field
                                        returned on the message complete.
                                        This field contains error
                                        indications for an unsuccessful
                                        reply.
0028   40 Bitstring    1 IDTAUDB0       Byte zero of the IDTAUDIT field.
          1... ....      IPADRPLE       X'80' IPADRPLE REPLY TOO LONG FOR
                                        BUFFER
          .1.. ....      IPADSNPX       X'40' IPADSNPX PROTECTION
                                        EXCEPTION ON SEND BUFF
          ..1. ....      IPADSNAX       X'20' IPADSNAX ADDRESSING
                                        EXCEPTION ON SEND BUFF
          ...1 ....      IPADANPX       X'10' IPADANPX PROTECTION
                                        EXCEPTION ANSWER BUFF
          .... 1...      IPADANAX       X'08' IPADANAX ADDRESSING
                                        EXCEPTION ANSWER BUFF
          .... .1..      IPADRJCT       X'04' IPADRJCT MESSAGE WAS
                                        REJECTED
          .... ..1.      IPADPRMD       X'02' IPADPRMD REPLY SENT IN
                                        PARAMETER LIST
          .... ...1      IPADPGNR       X'01' IPADPGNR MESSAGE PURGED ON
                                        SEND OR RECEIVE QUEUE
          .111 1...      IPADMSK1       IPADSNPX+IPADSNAX+IPADANPX+IPADAN
                                        AX IPADMSK1 APPC MASK
0029   41 Bitstring    1 IDTAUDB1       Byte one of the IDTAUDIT field.
          1... ....      IPADRCPX       X'80' IPADRCPX PROTECTION
                                        EXCEPTION RECEIVE BUFF
          .1.. ....      IPADRCAX       X'40' IPADRCAX ADDRESSING
                                        EXCEPTION RECEIVE BUFF
          ..1. ....      IPADRPPX       X'20' IPADRPPX PROTECTION
                                        EXCEPTION REPLY BUFF
          ...1 ....      IPADRPAX       X'10' IPADRPAX ADDRESSING
                                        EXCEPTION REPLY BUFF
          .... 1...      IPADSVRD       X'08' IPADSVRD PATH WAS SEVERED
          .... .1..      IPADRLST       X'04' IPADRLST INVALID
                                        RECEIVE/REPLY LIST
          1111 .1..      IPADMSK2       IPADRCPX+IPADRCAX+IPADRPPX+IPADRP
                                        AX+IPADRLST IPADMSK2 AP MASK OF
                                        VALID APPC AUDIT FLAGS
002A   42 Bitstring    1 IDTAUDB2       Byte two of the IDTAUDIT field.
          1... ....      IPADBLEN       X'80' IPADBLEN BAD LENGTH IN SEND
                                        BUFFER LIST
          .1.. ....      IPADALEN       X'40' IPADALEN INVALID SEND /
                                        ANSWER BUFFERLIST SUCH AS BAD
                                        ADDRESS OR LENGTH
          ..1. ....      IPADBTOT       X'20' IPADBTOT INVALID TOTAL SEND
                                        BUFFER LENGTH
          ...1 ....      IPADATOT       X'10' IPADATOT INVALID TOTAL SEND
                                        ANSWER LENGTH
          .... 1...      IPADTINV       X'08' IPADTINV PARTNER=INV. LOG.
                                        REC. DATALENG
          .... .1..      IPADIINV       X'04' IPADIINV INVALID LOGICAL
                                        RECORD IN DATASTR
          .... ..1.      IPADTTRN       X'02' IPADTTRN PARTNER HAS
                                        STARTED A SEND BUT TRIED TO GO
                                        INTO RECEIVE STATE BEFORE SEND IS
                                        FINISHED
          .... ...1      IPADITRN       X'01' IPADITRN RECEIVE STATE
                                        ATTEMPTED BEFORE SEND IS FINISHED
          1111 1111      IPADMSK3       IPADBLEN+IPADALEN+IPADBTOT+IPADAT
                                        OT+IPADTINV+IPADIINV+IP
                                        ADTTRN+IPADITRN MASK OF VALID
                                        APPC AUDIT FLAGS
002B   43 Bitstring    1 IDTAUDB3       Byte three of the IDTAUDIT field.
          ..11 1.11      IPGDSINV       IPRCIGDS IPGDSINV INVLD GDS ID
                                        WITHIN PIP VARIABLE
          ..11 11..      IPGDSLEN       IPRCGDSL IPGDSLEN LENGTHS INVALID
                                        FOR PIP VARIABLE SUBFIELD LENGTH
                                        OR SUM OF SUBFIELD
          .1.1 1.11      IPMCSNDA       IPRMCSDA IPMCSNDA MACHINE CHECK
                                        IN SEND DATA AREA
          .1.1 11..      IPMCRECA       IPRMCRDA IPMCRECA MACHINE CHECK
                                        IN RECEIVE AREA
          .1.1 11.1      IPMCANSA       IPRMCADA IPMCANSA MACHINE CHECK
                                        IN ANSWER DATA AREA
          .1.1 111.      IPMCRPYA       IPRMCRPA IPMCRPYA MACHINE CHECK
                                        IN REPLY DATA AREA
          1111 1111      IPADMSK4       X'FF' IPADMSK4 255 ASYNCHRONOUS
                                        CODES ALLOWED
002C   44 Signed       4 IDTFLN2F       Copy of the IPBFLN2F field
                                        returned on the message complete.
                                        This field contains a length, the
                                        value of which is dependent on
                                        the relationship between the send
                                        buffer length and the reply
                                        buffer length.
        Length of the block
          00000006       IDTSIZE        (*-IDTPL+7)/8 IDTPL size in
                                        doublewords
          00000030       IDTBSIZE       *-IDTPL IDTPL size in bytes

          
*** IDTPL - *IDENT internal routine parameter list
*
*     +---------------------------+---------------------------+
*   0 |         IDTIRCBK          |         IDTPATH           |
*     +-------------+-------------+---------------------------+
*   8 |  IDTINST    |/////////////|         IDTCLIRA          |
*     +-------------+-------------+---------------------------+
*  10 |         IDTCLINF          |        IDTRESID-          |
*     +---------------------------+---------------------------+
*  18 |          -(014)           |         IDTMSGID          |
*     +---------------------------+------+--------------------+
*  20 |         IDTSRCLS          |:RCODE|////////////////////|
*     +------+------+------+------+------+--------------------+
*  28 |:AUDB0|:AUDB1|:AUDB2|:AUDB3|         IDTFLN2F          |
*     +------+------+------+------+---------------------------+
*  30
*
*** IDTPL - *IDENT internal routine parameter list

 
Symbol         Dspl Value
-------------- ---- -----
IDTAUDB0       0028
IDTAUDB1       0029
IDTAUDB2       002A
IDTAUDB3       002B
IDTAUDIT       0028
IDTBSIZE       002C 00000030
IDTCLINF       0010
IDTCLIRA       000C
IDTFLN2F       002C
IDTINST        0008
IDTIRCBK       0000
IDTMSGID       001C
IDTPATH        0004
IDTRCODE       0024
IDTRESID       0014
IDTSIZE        002C 00000006
IDTSRCLS       0020
IPADALEN       002A 40
IPADANAX       0028 08
IPADANPX       0028 10
IPADATOT       002A 10
IPADBLEN       002A 80
IPADBTOT       002A 20
IPADIINV       002A 04
IPADITRN       002A 01
IPADMSK1       0028 78
IPADMSK2       0029 F4
IPADMSK3       002A FF
IPADMSK4       002B FF
IPADPGNR       0028 01
IPADPRMD       0028 02
IPADRCAX       0029 40
IPADRCPX       0029 80
IPADRJCT       0028 04
IPADRLST       0029 04
IPADRPAX       0029 10
IPADRPLE       0028 80
IPADRPPX       0029 20
IPADSNAX       0028 20
IPADSNPX       0028 40
IPADSVRD       0029 08
IPADTINV       002A 08
IPADTTRN       002A 02
IPGDSINV       002B 3B
IPGDSLEN       002B 3C
IPMCANSA       002B 5D
IPMCRECA       002B 5C
IPMCRPYA       002B 5E
IPMCSNDA       002B 5B