* %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