* %GOTO DPB04BSL ; /* 01000000 MACRO 02000000 IKJDAP04 03000000 DAPB04 DSECT 04000000 *********************************************************************** 05000000 * THIS OPERATION CODE CAUSES A SEARCH OF THE DSE TO BE MADE FOR THE * 06000000 * SPECIFIED DSNAME. IF IT IS NOT FOUND IN THE DSE THE SYSTEM CATALOG * 07000000 * IS ALSO SEARCHED * 08000000 DA04CD DS CL2 DAIR ENTRY CODE 09000000 DA04CAT EQU X'04' DSNAME FOUND IN CATLG 10000000 *********************************************************************** 11000000 DA04FLG DS X FUNCTIONS TO BE PERFORMED WHEN RET CODE IS 0 12000000 DA04DSE EQU X'02' DSNAME FOUND IN DSE 13000000 DS X 14000000 DS CL2 RESERVED 15000000 DA04CTRC DS H CATALOG RETURN CODE AREA 16000000 DA04PDSN DS A POINTER TO DSNAME TO BE SEARCHED IN DSE 17000000 DA04CTL DS X CONTROL FLGS FOR SPECIAL PROCESSING 18000000 DA04UID EQU X'20' USER ID IS TO BE PREFIXED TO DSNAME 19000000 DS CL2 RESERVED 20000000 DA04DSO DS CL1 INDICATES DSORG 21000000 * */ 22000000 MEND 23000000 * %DPB04BSL: ; 24000000 * DECLARE 25000000 * 1 DAPB04 BASED(DAPB0PTR), 26000000 * /* *************************************************************** */ 27000000 * /* S OPERATION CODE CAUSES A SEARCH OF THE DSE TO BE MADE FOR THE */ 28000000 * /* CIFIED DSNAME. IF IT IS NOT FOUND IN THE DSE THE SYSTEM CATALOG */ 29000000 * /* ALSO SEARCHED */ 30000000 * /* *************************************************************** */ 31000000 * 2 DA04CD CHAR(2), /* DAIR ENTRY CODE */ 32000000 * 2 DA04FLG CHAR(2), /* FUNCTIONS PERFORMED WHEN */ 33000000 * 3 * BIT(1), /* RESERVED */ 34000000 * 3 * BIT(1), /* RESERVED */ 35000000 * 3 * BIT(1), /* RESERVED */ 36000000 * 3 * BIT(1), /* RESERVED */ 37000000 * 3 * BIT(1), /* RESERVED */ 38000000 * 3 DA04CAT BIT(1), /* DSNAME FOUND IN */ 39000000 * 3 DA04DSE BIT(1), /* DSNAME FOUND IN */ 40000000 * 3 * BIT(1), /* RESERVED */ 41000000 * 2 * CHAR(2), /* RESERVED */ 42000000 * 2 DA04CTRC FIXED(15), /* CTLG RTN */ 43000000 * 2 DA04PDSN PTR(31), /* POINTER TO DSNAME TO BE 44000000 * SEARCHED IN DSE */ 45000000 * 2 DA04CTL CHAR(1), /* CONTROL FLGS FOR SPECIAL 46000000 * PROCESSING */ 47000000 * 3 * BIT(1), /* RESERVED */ 48000000 * 3 * BIT(1), /* RESERVED */ 49000000 * 3 DA04UID BIT(1), /* USER ID IS TO BE PREFIXED TO 50000000 * DSNAME */ 51000000 * 3 * BIT(1), /* RESERVED */ 52000000 * 3 * BIT(1), /* RESERVED */ 53000000 * 3 * BIT(1), /* RESERVED */ 54000000 * 3 * BIT(1), /* RESERVED */ 55000000 * 3 * BIT(1), /* RESERVED */ 56000000 * 2 * CHAR(2), /* RESERVED */ 57000000 * 2 DA04DSO CHAR(1); /* INDICATES DSORG */ 58000000 * 59000000