* %GOTO SSALCMT; /* @ZA34144 00050003 MACRO @ZA34144 00090003 IEFSSAL 00130003 .*/ %SSALCMT:; /* @ZA34144*/ 00170003 */********************************************************************/ 00210003 */* MACRO NAME = IEFSSAL @ZA34144*/ 00250003 */* DESCRIPTIVE NAME = ALLOCATION/UNALLOCATION OF @ZA34144*/ 00290003 */* SYSOUT FUNCTION @ZA34144*/ 00330003 */* STATUS = SPLITOUT FROM IEFJSSOB @ZA34144*/ 00370003 */* ACCESS METHOD = INVOKED VIA IEFJSSOB MACRO @ZA34144*/ 00410003 */* COPYRIGHT = NONE @ZA34144*/ 00450003 */********************************************************************/ 00490003 * %GOTO SSALPLS; /* @ZA34144 00530003 * 00700003 SSOBALOC EQU 6 ALLOCATION FUNCTION ID (SSOBFUNC) 00750003 SSOBUNAL EQU 7 UNALLOCATION FUNCTION ID (SSOBFUNC) 00800003 * 00850003 * ALLOCATION/UNALLOCATION RETURN CODES (SSOBRETN) 00900003 * 00950003 SSALRTOK EQU 0 ALLOCATION/UNALLOCATION SUCCESSFUL 01000003 SSALWTFL EQU 4 ALLOCATION WAIT FAILED YM04976 01050003 SSALCREQ EQU 8 CANCEL REQUESTED 01100003 SSALIDST EQU 12 INVALID DESTINATION 01150003 SSALNAUT EQU 16 USER UNAUTHORIZED TO ALLOCATE 01200003 * THIS DATA SET 01250003 SSALUNAL EQU 20 UNABLE TO ALLOCATE YM04976 01300003 * 01350003 ORG SSOBGN 01400003 SSALBGN EQU * 01450003 SSALLEN DC AL2(SSALSIZE) ALLOC/UNALLOC EXTENSION LENGTH 01500003 SSALFLG1 DS B ALLOCATION/UNALLOCATION FLAGS 01550003 SSALDELT EQU X'80' DELETE AT UNALLOCATION 01600003 SSALHOLD EQU X'40' HOLD AT UNALLOCATION 01650003 SSALNHLD EQU X'20' NOHOLD OPTION SPECIFIED @ZA08725 01700003 SSALWAIT EQU X'10' WAIT FOR ALLOCATION 01750003 SSALTRKM EQU X'08' ASSIGN A SEPARATE TRACK GROUP MAP 01800003 SSALSPIN EQU X'04' SPIN OFF DATA SET 01850003 SSALASNM EQU X'02' DATA SET REQUIRES A DATA SET NAME 01900003 SSALKEEP EQU X'01' SUBSYSTEM SHOULD KEEP THE DS @ZA06466 01950003 * 02000003 SSALRSV2 DS X RESERVED 02050003 * 02100003 * FOLLOWING FIELDS CONTAIN POINTERS TO THE INDICATED DATA - 02150003 * (NUMBERS IN PARENTHESES INDICATE LENGTH OF AREA POINTED TO) 02200003 * 02250003 SSALDDNM DS A DDNAME (8) 02300003 SSALDEST DS A REMOTE DESTINATION ID OR BLANK (8) 02350003 SSALDISP DS A DATA SET DISPOSITION (1) 02400003 SSALDUMY DS A DUMMY/SYSIN FLAGS (1) 02450003 SSALSOUT DS A SYSOUT FLAGS (1) 02500003 SSALUNIT DS A UNIT TYPE (8) 02550003 SSALPGMN DS A USER WRITER PROGRAM NAME (8) 02600003 SSALFORM DS A FORMS NUMBER (4) 02650003 SSALCLAS DS A CLASS (1) 02700003 SSALADSP DS A ALTERNATE DISPOSITION FLAGS (1) 02750003 SSALCOPY DS A NUMBER OF COPIES TO BE PRINTED (1) 02800003 SSALSSNM DS A SUBSYSTEM NAME (4) 02850003 SSALJFCB DS A JFCB (176) 02900003 SSALSSCM DS A SUBSYSTEM INFORMATION (LENGTH IS 02950003 * DEPENDENT ON SUBSYSTEM) 03000003 SSALCNCL DS A CANCEL ECB (ALLOCATION) (4) 03050003 * 03100003 SSALSIZE EQU *-SSALBGN ALLOC/UNALLOC EXTENSION LENGTH 03150003 SSOBLEN4 EQU SSOBHSIZ+SSALSIZE TOTAL SSOB LENGTH 03200003 MEND @ZA34144*/ 03250003 * %SSALPLS:; /* @ZA34144*/ 03280003 * /* ALLOCATION/UNALLOCATION FUNCTION IDS (SSOBFUNC) */ 03350003 * DCL SSOBALOC FIXED(15) CONSTANT(06); /* ALLOCATION FUNCTION ID */ 03400003 * DCL SSOBUNAL FIXED(15) CONSTANT(07); /* UNALLOCATION FUNCTION ID*/ 03450003 * /* */ 03500003 * /* ALLOCATION/UNALLOCATION RETURN CODES (SSOBRETN) */ 03550003 * /* */ 03600003 * DCL SSALRTOK FIXED(31) CONSTANT(0); /* ALLOC/UNALLOC SUCCESSFUL */ 03650003 * DCL SSALWTFL FIXED(31) CONSTANT(4); /* ALLOCATION WAIT FAILED 03700003 * YM04976*/ 03750003 * DCL SSALCREQ FIXED(31) CONSTANT(8); /* CANCEL REQUESTED */ 03800003 * DCL SSALIDST FIXED(31) CONSTANT(12);/* INVALID DESTINATION */ 03850003 * DCL SSALNAUT FIXED(31) CONSTANT(16);/* USER UNAUTHORIZED TO 03900003 * ALLOCATE THIS DATA SET */ 03950003 * DCL SSALUNAL FIXED(31) CONSTANT(20);/* UNABLE TO ALLOCATE 04000003 * YM04976*/ 04050003 * /* S S A L */ 04100003 * DECLARE 04150003 * 1 SSAL SSOBAL, 04200003 * 2 SSALLEN FIXED(15),/* LENGTH OF SSAL */ 04250003 * 2 SSALFLG1 BIT(8), /* ALLOCATION/UNALLOCATION FLAGS */ 04300003 * 3 SSALDELT BIT(1), /* DELETE AT UNALLOCATION */ 04350003 * 3 SSALHOLD BIT(1), /* HOLD AT UNALLOCATION */ 04400003 * 3 SSALNHLD BIT(1), /* NOHOLD OPTION OV'RIDE @ZA08725*/ 04450003 * 3 SSALWAIT BIT(1), /* WAIT */ 04500003 * 3 SSALTRKM BIT(1), /* ASSIGN A SEPARATE TRACK GROUP */ 04550003 * 3 SSALSPIN BIT(1), /* SPIN OFF DATA SET */ 04600003 * 3 SSALASNM BIT(1), /* DATA SET REQUIRES DS NAME */ 04650003 * 3 SSALKEEP BIT(1), /* THE SUBSYSTEM SHOULD KEEP THIS 04700003 * DATASET EVEN IF EMPTY @ZA06466*/ 04750003 * 2 * PTR(8), /* RESERVED */ 04800003 * /* */ 04850003 * /* FOLLOWING FIELDS CONTAIN POINTERS TO THE INDICATED DATA - */ 04900003 * /* (NUMBERS IN PARENTHESES INDICATE LENGTH OF AREA */ 04950003 * /* POINTED TO) */ 05000003 * /* */ 05050003 * 2 SSALDDNM PTR(31), /* DDNAME (8) */ 05100003 * 2 SSALDEST PTR(31), /* REMOTE DEST ID OR BLANK (8) */ 05150003 * 2 SSALDISP PTR(31), /* DATA SET DISPOSITION (1) */ 05200003 * 2 SSALDUMY PTR(31), /* DUMMY/SYSIN FLAGS (1) */ 05250003 * 2 SSALSOUT PTR(31), /* SYSOUT FLAGS (1) */ 05300003 * 2 SSALUNIT PTR(31), /* UNIT TYPE (8) */ 05350003 * 2 SSALPGMN PTR(31), /* USER WRITER PROGRAM NAME (8) */ 05400003 * 2 SSALFORM PTR(31), /* FORMS NUMBER (4) */ 05450003 * 2 SSALCLAS PTR(31), /* CLASS (1) */ 05500003 * 2 SSALADSP PTR(31), /* ALTERNATE DISPOSITION FLAGS(1)*/ 05550003 * 2 SSALCOPY PTR(31), /* NUMBER OF COPIES TO BE 05600003 * PRINTED (1) */ 05650003 * 2 SSALSSNM PTR(31), /* SUBSYSTEM NAME (4) */ 05700003 * 2 SSALJFCB PTR(31), /* JFCB (176) */ 05750003 * 2 SSALSSCM PTR(31), /* SUBSYSTEM INFORMATION (LENGTH 05800003 * IS DEPENDENT ON SUBSYSTEM) */ 05850003 * 2 SSALCNCL PTR(31); /* CANCEL ECB (ALLOCATION) (4) */ 05900003