*        %GOTO DPB0CBSL ; /*                                            03000000
         MACRO                                                          06000000
         IKJDAP0C                                                       09000000
DAPB0C   DSECT                                                          12000000
*********************************************************************** 15000000
DA0CCD   DS    CL2      DAIR ENTRY CODE                                 18000000
DA0CFLG  DS    X        FUNCTIONS TO BE PERFORMED WHEN RET CODE IS 0    21000000
         DS    X                                                        24000000
DA0CDARC DS    H        DYN ALLOC RETURN CODE                           27000000
         DS    CL2      RESERVED                                        30000000
DA0CNUMB DS    H        NUMBER OF 8 BYTE FIELDS THAT FOLLOW THIS        33000000
*                       DSECT                                           36000000
         DS    CL2      RESERVED                                        39000000
*  */                                                                   42000000
         MEND                                                           45000000
* %DPB0CBSL:  ;                                                         48000000
* DECLARE                                                               51000000
*   1 DAPB0C    BASED(DAPB0PTR),                                        54000000
* /* *************************************************************** */ 57000000
* /* S OPERATION CODE SAUSES THE REQUESTED DDNAMES TO BE CONCATENATE */ 60000000
* /*  DDNAMES SPECIFIED MUST ALL BE CURRENTLY ALLOCATED              */ 63000000
* /* *************************************************************** */ 66000000
*    2 DA0CCD   CHAR(2),             /* DAIR ENTRY CODE              */ 69000000
*    2 DA0CFLG  CHAR(2),            /* FUNCTIONS PERFORMED WHEN      */ 72000000
*    2 DA0CDARC FIXED(15),           /*DYN  ALLOC                    */ 75000000
*    2 *        CHAR(2),             /* RESERVED                     */ 78000000
*    2 DA0CNUMB  FIXED(15),         /* NUMBER OF 8 BYTE FIELDS THAT  */ 81000000
*    2 *        CHAR(2);             /* RESERVED                     */ 84000000
*                                                                       87000000