* %GOTO DPB24BSL ; /* 00700000 MACRO 01400000 IKJDAP24 02100000 .* C 336000,875000,889000 C99236 02150001 .* A 336500,350500,889500,868500 C99236 02200001 DAPB24 DSECT 02800000 *********************************************************************** 03500000 * THIS OPERATION CODE ALLOWS ALLOCATION OF A SPECIFIC DDNAME TO AN * 04200000 * ALREADY ALLOCATED DATA SET OR TO THE SPECIFIED DATA SET IF THE * 04900000 * REQUESTED DDNAME IS NOT FOUND OR IS DYNAM * 05600000 *********************************************************************** 06300000 DA24CD DS CL2 DAIR ENTRY CODE 07000000 DA24FLG DS X FUNCTIONS TO BE PERFORMED WHEN RET CODE IS 0 07700000 DA24FPE EQU X'80' FUNCT PERFORMED BUT ERROR INDICATED BY RETCD 08400000 DA24DMY EQU X'08' DDNAME REQUESTED IS A DUMMY 09100000 DS X 09800000 DA24DARC DS H CATALDYNAMIC ALLOCATION RTRN CODE 10500000 DA24CTRC DS H CATALOG RETURN CODE AREA 11200000 DA24PDSN DS A POINTER TO DSNAME TO BE SEARCHED IN DSE 11900000 DA24DDN DS CL8 DDNAME TO BE SEARCHED IN DSE 12600000 DA24UNIT DS CL8 UNITNAME REQUESTED 13300000 DA24SER DS CL8 VOLUME SERIAL NUMBER-PADDED W/BLANKS 14000000 DA24BLK DS CL4 AVERAGE RECORD LENGTH 14700000 DA24PQTY DS CL4 PRIMARY SPACE QUANTITY 15400000 DA24SQTY DS CL4 SECONDARY SPACE QUANTITY 16100000 DA24DQTY DS CL4 DIRECTORY BLOCK QUANTITY 16800000 DA24MNM DS CL8 MEMBER NAME 17500000 DA24PSWD DS CL8 PASSWORD 18200000 DA24DSP1 DS X DATA SET STATUS FLGS(IF=0 OLD ASSUMED) 18900000 DA24SHR EQU X'08' DATA SET IS SHR 19600000 DA24NEW EQU X'04' DATA SET IS NEW 20300000 DA24MOD EQU X'02' DATA SET IS MOD 21000000 DA24OLD EQU X'01' DATA SET IS OLD 21700000 DA24DPS2 DS X DATA SET DISPOSITION(IF=0 KEEP ASSUMED) 22400000 DA24KEEP EQU X'08' DS DISP IS KEEP 23100000 DA24DEL EQU X'04' DS DISP IS DELETE 23800000 DA24CAT EQU X'02' DS DISP IS CATLG 24500000 DA24UCAT EQU X'01' DS DISP IS UNCATALOG 25200000 DA24DPS3 DS X DATA SET CONDITIONAL DISPOSITION 25900000 DA24KEP EQU X'08' 26600000 DA24DELE EQU X'04' 27300000 DA24CATL EQU X'02' DS DISP OF CATLG DESIRED 28000000 DA24UNCT EQU X'01' DS DISP OF UNCATLG DESIRED 28700000 DA24CTL DS X FLAGS TO CONTROL ACTIONS TAKEN BY DAIR 29400000 DA24TRKS EQU X'80' 30100000 DA24ABKL EQU X'40' 30800000 DA24UID EQU X'20' USER ID IS TO BE PREFIXED 31500000 DA24RLSE EQU X'10' RELEASE (RLSE) REQUESTED 32200000 DA24PERM EQU X'08' DATA SET MUST BE SPECIFICALLY UNALLOCATED 32900000 DA24DMMY EQU X'04' DUMMY C99236 33600001 DA24ATRL EQU X'02' ATTRIBUTE LIST SUPPLIED C99236 33650001 DS CL3 RESERVED 34300000 DA24DSO DS CL1 DSORG 35000000 DA24ALN DS CL8 ATTR-LIST-NAME C99236 35050001 **/ 35700000 MEND 36400000 * %DPB24BSL: ; 37100000 * DECLARE 37800000 * 1 DAPB24 BASED(DAPB2PTR), 38500000 * /* *************************************************************** */ 39200000 * /* S OPERATION CODE ALLOWS ALLOCATION OF A SPECIFIC DDNAME TO AN */ 39900000 * /* EADY ALLOCATED DATA SET OR TO THE SPECIFIED DATA SET IF THE */ 40600000 * /* UESTED DDNAME IS NOT FOUND OR IS DYNAM */ 41300000 * /* *************************************************************** */ 42000000 * 2 DA24CD CHAR(2), /* DAIR ENTRY CODE */ 42700000 * 2 DA24FLG CHAR(2), /* FUNCTIONS PERFORMED WHEN 43400000 * RETURN CODE= 0 */ 44100000 * 3 DA24FPE BIT(1), /* FUNCT PERFORMED BUT ERROR 44800000 * INDICATED BY RETCD */ 45500000 * 3 * BIT(1), /* RESERVED */ 46200000 * 3 * BIT(1), /* RESERVED */ 46900000 * 3 * BIT(1), /* RESERVED */ 47600000 * 3 DA24DMY BIT(1), /* DDNAME REQUESTED IS A DUMMY */ 48300000 * 3 * BIT(1), /* RESERVED */ 49000000 * 3 * BIT(1), /* RESERVED */ 49700000 * 3 * BIT(1), /* RESERVED */ 50400000 * 2 DA24DARC FIXED(15), /* DYNAMIC ALLOCATION RTRN CODE */ 51100000 * 2 DA24CTRC FIXED(15), /* CTLG RTN */ 51800000 * 2 DA24PDSN PTR(31), /* POINTER TO DSNAME TO BE 52500000 * SEARCHED IN DSE */ 53200000 * 2 DA24DDN CHAR(8), /* DDNAME TO BE SEARCHED IN DSE */ 53900000 * 2 DA24UNIT CHAR(8), /* UNITNAME REQUESTED */ 54600000 * 2 DA24SER CHAR(8), /* VOLUME SERIAL NUMBER-PADDED 55300000 * W/BLANKS */ 56000000 * 2 DA24BLK CHAR(4), /* AVERAGE RECORD LENGTH */ 56700000 * 2 DA24PQTY CHAR(4), /* PRIMARY SPACE QUANTITY */ 57400000 * 2 DA24SQTY CHAR(4), /* SECONDARY SPACE QUANTITY */ 58100000 * 2 DA24DQTY CHAR(4), /* DIRECTORY BLOCK QUANTITY */ 58800000 * 2 DA24MNM CHAR(8), /* MEMBER NAME */ 59500000 * 2 DA24PSWD CHAR(8), /* PASSWORD */ 60200000 * 2 DA24DSP1 CHAR(1), /* DATA SET STATUS FLGS(IF=0 60900000 * OLD ASSUMED) */ 61600000 * 3 * BIT(1), /* RESERVED */ 62300000 * 3 * BIT(1), /* RESERVED */ 63000000 * 3 * BIT(1), /* RESERVED */ 63700000 * 3 * BIT(1), /* RESERVED */ 64400000 * 3 DA24SHR BIT(1), /* DATA SET IS SHR */ 65100000 * 3 DA24NEW BIT(1), /* DATA SET IS NEW */ 65800000 * 3 DA24MOD BIT(1), /* DATA SET IS MOD */ 66500000 * 3 DA24OLD BIT(1), /* DATA SET IS OLD */ 67200000 * 2 DA24DPS2 CHAR(1), /* DATA SET DISPOSITION(IF=0 67900000 * KEEP ASSUMED) */ 68600000 * 3 * BIT(1), /* RESERVED */ 69300000 * 3 * BIT(1), /* RESERVED */ 70000000 * 3 * BIT(1), /* RESERVED */ 70700000 * 3 * BIT(1), /* RESERVED */ 71400000 * 3 DA24KEEP BIT(1), /* DS DISP IS KEEP */ 72100000 * 3 DA24DEL BIT(1), /* DS DISP IS DELETE */ 72800000 * 3 DA24CAT BIT(1), /* DS DISP IS CATLG */ 73500000 * 3 DA24UCAT BIT(1), /* DS DISP IS UNCATALOG */ 74200000 * 2 DA24DPS3 CHAR(1), /* DATA SET CONDITIONAL 74900000 * DISPOSITION */ 75600000 * 3 * BIT(1), /* RESERVED */ 76300000 * 3 * BIT(1), /* RESERVED */ 77000000 * 3 * BIT(1), /* RESERVED */ 77700000 * 3 * BIT(1), /* RESERVED */ 78400000 * 3 DA24KEP BIT(1), /* DS DISP OF KEEP DESIRED */ 79100000 * 3 DA24DELE BIT(1), 79800000 * 3 DA24CATL BIT(1), 80500000 * 3 DA24UNCT BIT(1), 81200000 * 2 DA24CTL CHAR(1), /* FLAGS TO CONTROL ACTIONS 81900000 * TAKEN BY DAIR */ 82600000 * 3 DA24TRKS BIT(1), /*SPACE UNITS REQUESTED */ 83300000 * 3 DA24ABKL BIT(1), 84000000 * 3 DA24UID BIT(1), 84700000 * 3 DA24RLSE BIT(1), 85400000 * 3 DA24PERM BIT(1), 86100000 * 3 DA24DMMY BIT(1), 86800000 * 3 DA24ATRL BIT(1), /*ATTR LIST SUPPLIED C99236*/ 86850001 * 3 * BIT(1), /* C99236*/ 87500001 * 2 * CHAR(3), /* RESERVED */ 88200000 * 2 DA24DSO CHAR(1), /* DSORG C99236*/ 88900001 * 2 DA24ALN CHAR(8); /* ATTR-LIST-NAME C99236*/ 88950001 * 89600000