* %GOTO DPB30BSL ; /* 01000000 MACRO 02000000 IKJDAP30 03000000 .* C 760000 C99236 03050001 .* A 310100-310500,750500,760500 C99236 03100001 DAPB30 DSECT 04000000 *********************************************************************** 05000000 * THIS OPERATION CODE ALLOWS FOR ALLOCATION OF A SYSOUT DATA SET. * 06000001 *********************************************************************** 07000000 DA30CD DS CL2 DAIR ENTRY CODE 08000000 DA30FLG DS X FUNCTIONS TO BE PERFORMED WHEN RET CODE IS 0 09000000 DA30FPE EQU X'80' FUNCT PERFORMED BUT ERROR INDICATED BY RETCD 10000000 DS X 11000000 DA30DARC DS H 12000000 DS CL2 RESERVED 13000000 DA30PDSN DS A POINTER TO DSNAME TO BE SEARCHED IN DSE 14000000 DA30DDN DS CL8 DDNAME TO BE SEARCHED IN DSE 15000000 DA30UNIT DS CL8 UNITNAME REQUESTED 16000000 DA30SER DS CL8 VOLUME SERIAL NUMBER-PADDED W/BLANKS 17000000 DA30BLK DS CL4 AVERAGE RECORD LENGTH 18000000 DA30PQTY DS CL4 PRIMARY SPACE QUANTITY 19000000 DA30SQTY DS CL4 SECONDARY SPACE QUANTITY 20000000 DA30PGNM DS CL8 PROGRAM NAME -IF OMITTED MUST BE SET TO BLANKS 21000000 DA30FORM DS CL4 FORM NUMBER -IF OMITTED MUST BE SET TO BLANKS 22000000 DA30OCLS DS CL2 OUTPUT CLASS - IGNORED AS OF OS VS/2 RELEASE 2 23000002 * Y02670 23050002 DS CL1 RESERVED 24000000 DA30CTL DS X FLAGS TO CONTROL ACTIONS TAKEN BY DAIR 25000000 DA30TRKS EQU X'80' 26000000 DA30ABKL EQU X'40' 27000000 DA30UID EQU X'20' USER ID IS TO BE PREFIXED 28000000 DA30RLSE EQU X'10' RELEASE (RLSE) REQUESTED 29000000 DA30PERM EQU X'08' DATA SET MUST BE SPECIFICALLY UNALLOCATED 30000000 DA30DMMY EQU X'04' 31000000 DA30ATRL EQU X'02' ATTRIBUTE LIST SUPPLIED C99236 31010001 DA30ALN DS CL8 ATTR-LIST-NAME C99236 31050001 **/ 32000000 MEND 33000000 * %DPB30BSL: ; 34000000 * DECLARE 35000000 * 1 DAPB30 BASED(DAPB3PTR), 36000000 * /*******************************************************************/ 37000002 * /* THIS OPERATION CODE ALLOWS FOR ALLOCATION OF A SYSOUT DATA SET. */ 37050002 * /*******************************************************************/ 39000002 * 2 DA30CD CHAR(2), /* DAIR ENTRY CODE */ 40000000 * 2 DA30FLG CHAR(2), /* FUNCTIONS PERFORMED WHEN 41000002 * RETURN CODE= 0 */ 42000000 * 3 DA30FPE BIT(1), /* FUNCT PERFORMED BUT ERROR 43000000 * INDICATED BY RETCD */ 44000000 * 3 * BIT(1), /* RESERVED */ 45000000 * 3 * BIT(1), /* RESERVED */ 46000000 * 3 * BIT(1), /* RESERVED */ 47000000 * 3 * BIT(1), /* RESERVED */ 48000000 * 3 * BIT(1), /* RESERVED */ 49000000 * 3 * BIT(1), /* RESERVED */ 50000000 * 3 * BIT(1), /* RESERVED */ 51000000 * 2 DA30DARC FIXED(15), /* DYN ALLOC RETURM CODE */ 52000002 * 2 * CHAR(2), /* RESERVED */ 53000000 * 2 DA30PDSN PTR(31), /* POINTER TO DSNAME TO BE 54000002 * SEARCHED IN DSE */ 55000002 * 2 DA30DDN CHAR(8), /* DDNAME TO BE SEARCHED IN DSE */ 56000000 * 2 DA30UNIT CHAR(8), /* UNITNAME REQUESTED */ 57000000 * 2 DA30SER CHAR(8), /* VOLUME SERIAL NUMBER-PADDED 58000000 * W/BLANKS */ 59000000 * 2 DA30BLK CHAR(4), /* AVERAGE RECORD LENGTH */ 60000000 * 2 DA30PQTY CHAR(4), /* PRIMARY SPACE QUANTITY */ 61000000 * 2 DA30SQTY CHAR(4), /* SECONDARY SPACE QUANTITY */ 62000000 * 2 DA30PGNM CHAR(8), /* PROGRAM NAME -IF OMITTED 63000000 * MUST BE SET TO BLANKS */ 64000000 * 2 DA30FORM CHAR(4), /* FORM NUMBER */ 65000000 * 2 DA30OCLS CHAR(2), /* OUTPUT CLASS - IGNORED AS OF 66000002 * OS VS/2 RELEASE 2 Y02670*/ 66050002 * 2 * CHAR(1), /* RESERVED */ 67000002 * 2 DA30CTL CHAR(1), /* FLAGS TO CONTROL ACTIONS 68000000 * TAKEN BY DAIR */ 69000000 * 3 DA30TRKS BIT(1), /* SPACE UNITS REQUESTED */ 70000002 * 3 DA30ABKL BIT(1), 71000000 * 3 DA30UID BIT(1), 72000000 * 3 DA30RLSE BIT(1), 73000000 * 3 DA30PERM BIT(1), 74000000 * 3 DA30DMMY BIT(1), 75000000 * 3 DA30ATRL BIT(1), /* ATTR LIST SUPPLIED C99236*/ 75050002 * 3 * BIT(1), /* C99236*/ 76000002 * 2 DA30ALN CHAR(8); /* ATTR-LIST-NAME C99236*/ 76050001