* %GOTO DPB08BSL ; /* 00700000 MACRO 01400000 IKJDAP08 02100000 .* C 861000,875000 C99236 02150001 .* A 329500,343500,854500,875500 C99236 02200001 DAPB08 DSECT 02800000 *********************************************************************** 03500000 * THIS OPERATION CODE CAUSES ALLOCATION OF A DATA SET. IT CAN ALLOC. * 04200000 * EITHER A NEW OR OLD SET. * 04900000 *********************************************************************** 05600000 DA08CD DS CL2 DAIR ENTRY CODE 06300000 DA08FLG DS X FUNCTIONS TO BE PERFORMED WHEN RET CODE IS 0 07000000 DA08FPE EQU X'80' FUNCT PERFORMED BUT ERROR INDICATED BY RETCD 07700000 DS X 08400000 DA08DARC DS H DYN ALLOC RETURN CODE 09100000 DA08CTRC DS H CATALOG RETURN CODE 09800000 DA08PDSN DS A POINTER TO DSNAME TO BE SEARCHED IN DSE 10500000 DA08DDN DS CL8 DDNAME TO BE SEARCHED IN DSE 11200000 DA08UNIT DS CL8 UNITNAME REQUESTED 11900000 DA08SER DS CL8 VOLUME SERIAL NUMBER-PADDED W/BLANKS 12600000 DA08BLK DS CL4 DATA SET AVERAGE RECORD LENGTH 13300000 DA08PQTY DS CL4 PRIMARY SPACE QUANTITY 14000000 DA08SQTY DS CL4 SECONDARY SPACE QUANTITY 14700000 DA08DQTY DS CL4 DIRECTORY BLOCK QUANTITY 15400000 DA08MNM DS CL8 MEMBER NAME 16100000 DA08PSWD DS CL8 PASSWORD 16800000 DA08DSP1 DS X DATA SET STATUS FLGS(IF=0 OLD ASSUMED) 17500000 DA08SHR EQU X'08' DATA SET IS SHR 18200000 DA08NEW EQU X'04' DATA SET IS NEW 18900000 DA08MOD EQU X'02' DATA SET IS MOD 19600000 DA08OLD EQU X'01' DATA SET IS OLD 20300000 DA08DPS2 DS X DATA SET DISPOSITION(IF=0 KEEP ASSUMED) 21000000 DA08KEEP EQU X'08' DS DISP IS KEEP 21700000 DA08DEL EQU X'04' DS DISP IS DELETE 22400000 DA08CAT EQU X'02' DS DISP IS CATLG 23100000 DA08UCAT EQU X'01' DS DISP IS UNCATALOG 23800000 DA08DPS3 DS X DATA SET CONDITIONAL DISPOSITION 24500000 DA08KEP EQU X'08' 25200000 DA08DELE EQU X'04' 25900000 DA08CATL EQU X'02' DS DISP OF CATLG DESIRED 26600000 DA08UNCT EQU X'01' DS DISP OF UNCATLG DESIRED 27300000 DA08CTL DS X FLAGS TO CONTROL ACTIONS TAKEN BY DAIR 28000000 DA08TRKS EQU X'80' UNITS ARE TRKS 28700000 DA08ABKL EQU X'40' 29400000 DA08CYLS EQU X'C0' UNITS ARE CYLS 30100000 DA08UID EQU X'20' USER ID IS TO BE PREFIXED 30800000 DA08RLSE EQU X'10' RELEASE (RLSE) REQUESTED 31500000 DA08PERM EQU X'08' DATA SET MUST BE SPECIFICALLY UNALLOCATED 32200000 DA08DMMY EQU X'04' 32900000 DA08ATRL EQU X'02' ATTRIBUTE LIST SUPPLIED C99236 32950001 DS CL3 RESERVED 33600000 DA08DSO DS CL1 DSORG 34300000 DA08ALN DS CL8 ATTR-LIST-NAME C99236 34350001 * */ 35000000 MEND 35700000 * %DPB08BSL: ; 36400000 * DECLARE 37100000 * 1 DAPB08 BASED(DAPB0PTR), 37800000 * /* *************************************************************** */ 38500000 * /* S OPERATION CODE CAUSES ALLOCATION OF A DATA SET. IT CAN ALLOC. */ 39200000 * /* HER A NEW OR OLD SET. */ 39900000 * /* *************************************************************** */ 40600000 * 2 DA08CD CHAR(2), /* DAIR ENTRY CODE */ 41300000 * 2 DA08FLG CHAR(2), /* FUNCTIONS PERFORMED WHEN 42000000 * RETURN CODE= 0 */ 42700000 * 3 DA08FPE BIT(1), /* FUNCT PERFORMED BUT ERROR 43400000 * INDICATED BY RETCD */ 44100000 * 3 * BIT(1), /* RESERVED */ 44800000 * 3 * BIT(1), /* RESERVED */ 45500000 * 3 * BIT(1), /* RESERVED */ 46200000 * 3 * BIT(1), /* RESERVED */ 46900000 * 3 * BIT(1), /* RESERVED */ 47600000 * 3 * BIT(1), /* RESERVED */ 48300000 * 3 * BIT(1), /* RESERVED */ 49000000 * 2 DA08DARC FIXED(15), /*DYN ALLOC */ 49700000 * 2 DA08CTRC FIXED(15), /* CATALOG RETURN CODE */ 50400000 * 2 DA08PDSN PTR(31), /* POINTER TO DSNAME TO BE 51100000 * SEARCHED IN DSE */ 51800000 * 2 DA08DDN CHAR(8), /* DDNAME TO BE SEARCHED IN DSE */ 52500000 * 2 DA08UNIT CHAR(8), /* UNITNAME REQUESTED */ 53200000 * 2 DA08SER CHAR(8), /* VOLUME SERIAL NUMBER-PADDED 53900000 * W/BLANKS */ 54600000 * 2 DA08BLK CHAR(4), /* DATA SET */ 55300000 * 2 DA08PQTY CHAR(4), /* PRIMARY SPACE QUANTITY */ 56000000 * 2 DA08SQTY CHAR(4), /* SECONDARY SPACE QUANTITY */ 56700000 * 2 DA08DQTY CHAR(4), /* DIRECTORY BLOCK QUANTITY */ 57400000 * 2 DA08MNM CHAR(8), /* MEMBER NAME */ 58100000 * 2 DA08PSWD CHAR(8), /* PASSWORD */ 58800000 * 2 DA08DSP1 CHAR(1), /* DATA SET STATUS FLGS(IF=0 59500000 * OLD ASSUMED) */ 60200000 * 3 * BIT(1), /* RESERVED */ 60900000 * 3 * BIT(1), /* RESERVED */ 61600000 * 3 * BIT(1), /* RESERVED */ 62300000 * 3 * BIT(1), /* RESERVED */ 63000000 * 3 DA08SHR BIT(1), /* DATA SET IS SHR */ 63700000 * 3 DA08NEW BIT(1), /* DATA SET IS NEW */ 64400000 * 3 DA08MOD BIT(1), /* DATA SET IS MOD */ 65100000 * 3 DA08OLD BIT(1), /* DATA SET IS OLD */ 65800000 * 2 DA08DPS2 CHAR(1), /* DATA SET DISPOSITION(IF=0 66500000 * KEEP ASSUMED) */ 67200000 * 3 * BIT(1), /* RESERVED */ 67900000 * 3 * BIT(1), /* RESERVED */ 68600000 * 3 * BIT(1), /* RESERVED */ 69300000 * 3 * BIT(1), /* RESERVED */ 70000000 * 3 DA08KEEP BIT(1), /* DS DISP IS KEEP */ 70700000 * 3 DA08DEL BIT(1), /* DS DISP IS DELETE */ 71400000 * 3 DA08CAT BIT(1), /* DS DISP IS CATLG */ 72100000 * 3 DA08UCAT BIT(1), /* DS DISP IS UNCATALOG */ 72800000 * 2 DA08DPS3 CHAR(1), /* DATA SET CONDITIONAL 73500000 * DISPOSITION */ 74200000 * 3 * BIT(1), /* RESERVED */ 74900000 * 3 * BIT(1), /* RESERVED */ 75600000 * 3 * BIT(1), /* RESERVED */ 76300000 * 3 * BIT(1), /* RESERVED */ 77000000 * 3 DA08KEP BIT(1), /* DS DISP OF KEEP DESIRED */ 77700000 * 3 DA08DELE BIT(1), 78400000 * 3 DA08CATL BIT(1), 79100000 * 3 DA08UNCT BIT(1), 79800000 * 2 DA08CTL CHAR(1), /* FLAGS TO CONTROL ACTIONS 80500000 * TAKEN BY DAIR */ 81200000 * 3 DA08TRKS BIT(1), /*SPACE UNITS REQUESTED */ 81900000 * 3 DA08ABKL BIT(1), 82600000 * 3 DA08UID BIT(1), 83300000 * 3 DA08RLSE BIT(1), 84000000 * 3 DA08PERM BIT(1), 84700000 * 3 DA08DMMY BIT(1), 85400000 * 3 DA08ATRL BIT(1), /*ATTR LIST SUPPLIED C99236*/ 85450001 * 3 * BIT(1), /* C99236*/ 86100001 * 2 * CHAR(3), /* RESERVED */ 86800000 * 2 DA08DSO CHAR(1), /* DSORG C99236*/ 87500001 * 2 DA08ALN CHAR(8); /* ATTR-LIST-NAME C99236*/ 87550001 * 88200000