*        %GOTO DPB2CBSL ; /*                                            03000000
         MACRO                                                          06000000
         IKJDAP2C                                                       09000000
DAPB2C   DSECT                                                          12000000
*********************************************************************** 15000000
* THIS OPERATION CODE ALLOWS FOR RE-USE  OF TIOT ENTRIES              * 18000000
* IT IS USED BY THE TMP BEFORE DETACHING A TASK, AND BY ANY  TASK     * 21000000
* WHICH ATTACHES SUB-TASKS                                            * 24000000
*********************************************************************** 27000000
DA2CCD   DS    CL2      DAIR ENTRY CODE                                 30000000
DA2CFLG  DS    H        FLAG FIELD                                      33000000
DA2CTCB  DS    A        TCB ADDR OF DSE ENTRIES MARKED NOT IN USE       36000000
DA2CDDN  DS    CL8        DDNAME                                        36050000
**/                                                                     39000000
         MEND                                                           42000000
* %DPB2CBSL:  ;                                                         45000000
* DECLARE                                                               48000000
*   1 DAPB2C    BASED(DAPB2PTR),                                        51000000
* /* *************************************************************** */ 54000000
* /* S OPERATION CODE ALLOWS FOR RE-USE  OF TIOT ENTRIES             */ 57000000
* /* IS USED BY THE TMP BEFORE DETACHING A TASK, AND BY ANY  TASK    */ 60000000
* /* CH ATTACHES SUB-TASKS                                           */ 63000000
* /* *************************************************************** */ 66000000
*    2 DA2CCD   CHAR(2),             /* DAIR ENTRY CODE              */ 69000000
*    2 DA2CFLG  FIXED(15),           /*  FLAGFIELD                   */ 72000000
*    2 DA2CTCB  PTR(31),             /* TCB ADDR OF DSE ENTRIES      */ 75000000
*                                    /* MARKED NOT IN USE            */ 78000000
*    2 DA2CDDN  CHAR(8);             /* DDNAME                       */ 81050000