* %GOTO DPB18BSL; /* 01000002 MACRO 02000001 IKJDAP18 03000001 DAPB18 DSECT 04000001 *********************************************************************** 05000001 * THIS OPERATION CAUSES THE REQUESTED DATA SET OR DDNAME TO BE * 06000001 * UNALLOCATED. DISPOSITION CAN BE SPECIFIED TO OVERRIDE ANY PREVIOUS * 07000001 * DISPOSITION. LIKEWISE SYSOUT CLASS MAY BE SPECIFIED TO OVERRIDE ANY * 08000002 * PREVIOUS CLASS. * 09000001 *********************************************************************** 10000001 DA18CD DS CL2 DAIR ENTRY CODE 11000001 DA18FLG DS X FUNCTIONS TO BE PERFORMED WHEN RET CODE IS 0 12000001 DA18FPE EQU X'80' FUNCT PERFORMED BUT ERROR INDICATED BY RETCD 13000001 DS X 14000001 DA18DARC DS H DYNAMIC ALLOCATION RETURN CODE 15000002 DA18CTRC DS H CATALOG RETURN CODE AREA 16000002 DA18PDSN DS A POINTER TO DSNAME TO BE SEARCHED IN DSE 17000001 DA18DDN DS CL8 DDNAME TO BE SEARCHED IN DSE 18000001 DA18MNM DS CL8 MEMBER NAME 19000001 DA18SCLS DS CL2 SYSOUT CLASS DESIRED WHEN UNALLOCATING A 20000001 * SYSOUT DATA SET 21000001 DA18DPS2 DS X DATA SET DISPOSITION 22000001 DA18KEEP EQU X'08' CHANGE DISP TO KEEP 23000001 DA18DEL EQU X'04' CHANGE DISP TO DELETE 24000001 DA18CAT EQU X'02' CHANGE DISP TO CATALOG 25000001 DA18UCAT EQU X'01' CHANGE DISP TO UNCATLOG 26000001 DA18CTL DS X FLAGS FOR SPECIAL DAIR PROCESSING 27000001 DA18UID EQU X'20' USER ID IS TO BE PREFIXED TO DSNAME 28000001 DA18PERM EQU X'10' UNALLOCATE PERM. ALLOCATED DSE'S M0765 29000002 DA18JBNM DS CL8 IGNORED AS OF OS VS/2 RELEASE 2 Y02670 30000002 * */ 31000001 MEND 32000001 * %DPB18BSL: ; 33000001 * DECLARE 34000001 * 1 DAPB18 BASED(DAPB1PTR), 35000001 * /*******************************************************************/ 35050002 * /* THIS OPERATION CAUSES THE REQUESTED DATA SET OR DDNAME TO BE */ 35100002 * /* UNALLOCATED. DISPOSITION CAN BE SPECIFIED TO OVERRIDE ANY */ 35150002 * /* PREVIOUS DISPOSITION. LIKEWISE SYSOUT CLASS MAY BE SPECIFIED */ 35200002 * /* TO OVERRIDE ANY PREVIOUS CLASS. */ 35250002 * /*******************************************************************/ 35300002 * 2 DA18CD CHAR(2), /* DAIR ENTRY CODE */ 42000001 * 2 DA18FLG CHAR(2), /* FUNCTIONS PERFORMED WHEN 43000002 * RETURN CODE= 0 */ 44000001 * 3 DA18FPE BIT(1), /* FUNCT PERFORMED BUT ERROR 45000001 * INDICATED BY RETCD */ 46000001 * 3 * BIT(1), /* RESERVED */ 47000001 * 3 * BIT(1), /* RESERVED */ 48000001 * 3 * BIT(1), /* RESERVED */ 49000001 * 3 * BIT(1), /* RESERVED */ 50000001 * 3 * BIT(1), /* RESERVED */ 51000001 * 3 * BIT(1), /* RESERVED */ 52000001 * 3 * BIT(1), /* RESERVED */ 53000001 * 2 DA18DARC FIXED(15), /* DYNAMIC ALLOCATION RTRN CODE */ 54000001 * 2 DA18CTRC FIXED(15), /* CTLG RTN */ 55000001 * 2 DA18PDSN PTR(31), /* POINTER TO DSNAME TO BE 56000001 * SEARCHED IN DSE */ 57000001 * 2 DA18DDN CHAR(8), /* DDNAME TO BE SEARCHED IN DSE */ 58000001 * 2 DA18MNM CHAR(8), /* MEMBER NAME */ 59000001 * 2 DA18SCLS CHAR(2), /* SYSOUT CLASS DESIRED WHEN 60000001 * UNALLOCATING SYSOUT DATA SET */ 61000001 * 2 DA18DPS2 CHAR(1), /* DATA SET DISPOSITION */ 62000001 * 3 * BIT(1), /* RESERVED */ 63000001 * 3 * BIT(1), /* RESERVED */ 64000001 * 3 * BIT(1), /* RESERVED */ 65000001 * 3 * BIT(1), /* RESERVED */ 66000001 * 3 DA18KEEP BIT(1), /* CHANGE DISP TO KEEP */ 67000001 * 3 DA18DEL BIT(1), /* CHANGE DISP TO DELETE */ 68000001 * 3 DA18CAT BIT(1), /* CHANGE DISP TO CATALOG */ 69000001 * 3 DA18UCAT BIT(1), /* CHANGE DISP TO UNCATLOG */ 70000001 * 2 DA18CTL CHAR(1), /* FLAGS FOR SPECIAL DAIR 71000001 * PROCESSING */ 72000001 * 3 * BIT(1), /* RESERVED */ 73000001 * 3 * BIT(1), /* RESERVED */ 74000001 * 3 DA18UID BIT(1), /* USER ID IS TO BE PREFIXED TO 75000001 * DSNAME */ 76000001 * 3 DA18PERM BIT(1), /* UNALLOC PERMAMENTLY 77000002 * ALLOCATED DSE M0765 */ 77050002 * 3 * BIT(1), /* RESERVED */ 78000001 * 3 * BIT(1), /* RESERVED */ 79000001 * 3 * BIT(1), /* RESERVED */ 80000001 * 3 * BIT(1), /* RESERVED */ 81000002 * 2 DA18JBNM CHAR(8); /* IGNORED AS OF OS VS/2 82000002 * RELEASE 2 Y02670 */ 82050002 * 83000001