* %GOTO DPB14BSL ; /* 02000000 MACRO 04000000 IKJDAP14 06000000 DAPB14 DSECT 08000000 *********************************************************************** 10000000 * THIS OPERATION CODE RETURNS QUALIFIERS IN THE RETURN AREA FOR THE * 12000000 * GIVEN INDEX NAME * 14000000 *********************************************************************** 16000000 DA14CD DS CL2 DAIR ENTRY CODE 18000000 DA14FLG DS X FUNCTIONS TO BE PERFORMED WHEN RET CODE IS 0 20000000 DS X 22000000 DA14PDSN DS A POINTER TO DSNAME TO BE SEARCHED IN DSE 24000000 DA14PRET DS A POINTER TO RETURN AREA 26000000 DA14CTL DS X CONTROL FLAGS FOR SPECIAL PROCESSING 28000000 DA14UID EQU X'20' USER ID IS TO BE PREFIXED TO DSNAME 30000000 DS CL3 RESERVED 32000000 **/ 34000000 MEND 36000000 * %DPB14BSL: ; 38000000 * DECLARE 40000000 * 1 DAPB14 BASED(DAPB1PTR), 42000000 * /* *************************************************************** */ 44000000 * /* S OPERATION CODE RETURNS QUALIFIERS IN THE RETURN AREA FOR THE */ 46000000 * /* EN INDEX NAME */ 48000000 * /* *************************************************************** */ 50000000 * 2 DA14CD CHAR(2), /* DAIR ENTRY CODE */ 52000000 * 2 DA14FLG CHAR(2), /* FUNCTIONS PERFORMED WHEN 54000000 * RETURN CODE= 0 */ 56000000 * 2 DA14PDSN PTR(31), /* POINTER TO DSNAME TO BE 58000000 * SEARCHED IN DSE */ 60000000 * 2 DA14PRET PTR(31), /* POINTER TO RETURN AREA */ 62000000 * 2 DA14CTL CHAR(1), /* CONTROL FLAGS FOR SPECIAL 64000000 * PROCESSING */ 66000000 * 3 * BIT(1), /* RESERVED */ 68000000 * 3 * BIT(1), /* RESERVED */ 70000000 * 3 DA14UID BIT(1), /* USER ID IS TO BE PREFIXED TO 72000000 * DSNAME */ 74000000 * 3 * BIT(1), /* RESERVED */ 76000000 * 3 * BIT(1), /* RESERVED */ 78000000 * 3 * BIT(1), /* RESERVED */ 80000000 * 3 * BIT(1), /* RESERVED */ 82000000 * 3 * BIT(1), /* RESERVED */ 84000000 * 2 * CHAR(3); /* RESERVED */ 86000000 * 88000000