* %GOTO DPB10BSL ; /* 03000000 MACRO 06000000 IKJDAP10 09000000 DAPB10 DSECT 12000000 *********************************************************************** 15000000 * THIS OPERATION CODE CAUSES THE PREVIOUSLY CONCATENATED DDNAME TO * 18000000 * BE DECONCATENATED * 21000000 *********************************************************************** 24000000 DA10CD DS CL2 DAIR ENTRY CODE 27000000 DA10FLG DS X FUNCTIONS TO BE PERFORMED WHEN RET CODE IS 0 30000000 DS X 33000000 DA10DARC DS H DYN ALLOC RETURN CODE 36000000 DS CL2 RESERVED 39000000 DA10DDN DS CL8 DDNAME TO BE SEARCHED IN DSE 42000000 **/ 45000000 MEND 48000000 * %DPB10BSL: ; 51000000 * DECLARE 54000000 * 1 DAPB10 BASED(DAPB1PTR), 57000000 * /* *************************************************************** */ 60000000 * /* S OPERATION CODE CAUSES THE PREVIOUSLY CONCATENATED DDNAME TO */ 63000000 * /* DECONCATENATED */ 66000000 * /* *************************************************************** */ 69000000 * 2 DA10CD CHAR(2), /* DAIR ENTRY CODE */ 72000000 * 2 DA10FLG CHAR(2), /* FUNCTIONS PERFORMED WHEN 75000000 * RETURN CODE= 0 */ 78000000 * 2 DA10DARC FIXED(15), /*DYN ALLOC */ 81000000 * 2 * CHAR(2), /* RESERVED */ 84000000 * 2 DA10DDN CHAR(8); /* DDNAME TO BE SEARCHED IN DSE */ 87000000 * 90000000