* %GOTO SSWAPLS; /* 00001041 MACRO 00002041 &NAME IEFJSSWA 00003041 SSWA DSECT 00004041 *********************************************************************** 00005041 * @G29AN2F 00006041 * MACMEAN SSWA MEANS SUBSYSTEM SCHEDULER WORK AREA @G16APPK 00006441 * MACCOMP SC1B6/PZD02 @G16APPK 00006941 * MACSTAT 76322/G16APPK @G16APPK 00007841 * @G29AN2F 00009641 * FUNCTION - THIS SWA BLOCK CONTAINS THE USER SPECIFIED @G29AN2F 00010541 * SUBSYSTEM PARAMETERS FROM A SUBSYS DD CARD OR A @G29AN2F 00011441 * DYNAMIC ALLOCATION REQUEST (KEYS DALSSNM AND @G29AN2F 00012341 * DALSSPRM). THIS CONTROL BLOCK IS PASSED TO THE @G29AN2F 00013241 * SUBSYSTEM AS PART OF THE SUBSYSTEM ALLOCATION @G29AN2F 00014141 * REQUEST PROCESSING BY MODULE IEFAB427. @G29AN2F 00015041 * @G29AN2F 00015941 * STATUS - VS2 SU16 - IN THIS MACRO, SU 16 SUPPORTS @G16APPK 00016441 * VPSS SUPPORT (SU 29 - @G29AN2F). @G16APPK 00016941 * MERGE SU 4,10,16 CODE TO REL 37 BASE PTF @ZA28624 00017103 * * 00017441 *********************************************************************** 00018041 SSWAHDR DS 0CL8 FIXED LENGTH HEADER @G29AN2F 00019041 SSWATYPE DS CL2 TYPE FIELD @G29AN2F 00019741 SSWASYST EQU X'01' SYSTEM CREATED SSWA @G29AN2F 00020441 SSWASSNM DS CL4 SUBSYSTEM NAME @G29AN2F 00021141 SSWAPRNO DS CL2 NO OF LEN-PARM PAIRS @G29AN2F 00021841 SSWAHDRL EQU *-SSWAHDR LENGTH OF HEADER @G29AN2F 00022541 * @G29AN2F 00023241 SSWAPREN DS 0C FIRST LEN-PARM ENTRY @G29AN2F 00023941 SSWAPLEN DS CL1 LENGTH OF FIRST (OR ONLY) PARAMETER @G29AN2F 00024641 SSWAPVAL DS 0C VALUE OF FIRST (OR ONLY) PARAMETER @G29AN2F 00025341 * @G29AN2F 00026041 * THE FOLLOWING DSECT IS PROVIDED FOR USE WITH @G29AN2F 00026741 * MULTIPLE LENGTH/PARAMETER ENTRIES TO ALLOW ZERO @G29AN2F 00027441 * DISPLACEMENT TO THE LENGTH FIELD. @G29AN2F 00028141 * @G29AN2F 00028841 SSWAIFLD DSECT INDIVIDUAL LEN-PARM PAIR MAP @G29AN2F 00029541 SSWAILEN DS CL1 LEN OF PARM ITEM @G29AN2F 00030241 SSWAIPRM DS 0C VALUE OF PARM ITEM @G29AN2F 00030941 * @G29AN2F 00031641 * @G29AN2F 00032341 SSWAID EQU X'31' SWA MGR ID VALUE @G29AN2F 00033041 * @G29AN2F 00033741 *********************************************************************** 00037041 MEND */ 00038041 * %SSWAPLS: ; 00039041 */********************************************************************/ 00050041 */* @G29AN2F*/ 00100041 */* NAME - IEFJSSWA @G29AN2F*/ 00140041 */* @G29AN2F*/ 00180041 */* DESCRIPTIVE NAME - SUBSYSTEM SCHEDULER WORK AREA (SSWA) @G29AN2F*/ 00220041 */* @G29AN2F*/ 00260041 */* STATUS - VS2 SU16 - IN THIS MACRO, SU 16 SUPPORTS @G16APPK*/ 00300041 */* VPSS SUPPORT (SU 29 - @G29AN2F). @G16APPK*/ 00310041 */* MERGE SU4,10,16 CODE BACK TO REL 3.7 BASE PTF @ZA28624*/ 00320003 */* @G29AN2F*/ 00340041 */* FUNCTION - @G29AN2F*/ 00380041 */* THIS SWA BLOCK CONTAINS THE USER SPECIFIED SUBSYSTEM @G29AN2F*/ 00420041 */* PARAMETERS FROM A SUBSYS DD CARD OR A DYNAMIC @G29AN2F*/ 00460041 */* ALLOCATION REQUEST (KEYS DALSSNM AND DALSSPRM). THIS @G29AN2F*/ 00500041 */* CONTROL BLOCK IS PASSED TO THE SUBSYSTEM AS PART OF @G29AN2F*/ 00540041 */* THE SUBSYSTEM ALLOCATION REQUEST PROCESSING BY @G29AN2F*/ 00580041 */* MODULE IEFAB427 @G29AN2F*/ 00620041 */* @G29AN2F*/ 00660041 */* METHOD OF ACCESS @G29AN2F*/ 00700041 */* PL/S - DCL SSWAPTR PTR(31) @G29AN2F*/ 00740041 */* @G29AN2F*/ 00780041 */********************************************************************/ 01000041 *DCL 01050041 * 1 SSWA BASED(SSWAPTR), /*SUBSYSTEM SCHEDULER 01100041 * WORK AREA @G29AN2F*/ 01150041 * 2 SSWAHDR, /*FIXED LENGTH HEADER @G29AN2F*/ 01190041 * 3 SSWATYPE FIXED(15), /*TYPE FIELD @G29AN2F*/ 01230041 * 3 SSWASSNM CHAR(4), /*SUBSYSTEM NAME @G29AN2F*/ 01270041 * 3 SSWAPRNO FIXED(15), /*NO OF LEN-PARM PAIRS@G29AN2F*/ 01310041 * 2 SSWAPREN, /*FIRST LEN-PARM ENTRY@G29AN2F*/ 01350041 * 3 SSWAPLEN FIXED(8), /*LENGTH OF FIRST (OR 01450041 * ONLY) PARAMETER @G29AN2F*/ 01500041 * 3 SSWAPVAL CHAR(*); /*VALUE OF FIRST (OR 01550041 * ONLY) PARAMETER @G29AN2F*/ 01600041 * /* @G29AN2F*/ 01640041 * /* THE FOLLOWING DECLARE IS PROVIDED FOR USE WITH @G29AN2F*/ 01680041 * /* MULTIPLE LENGTH/PARAMETER ENTRIES TO ALLOW ZERO @G29AN2F*/ 01720041 * /* DISPLACEMENT TO THE LENGTH FIELD. @G29AN2F*/ 01760041 * /* @G29AN2F*/ 01800041 * DCL 01900041 * 1 SSWAIFLD BASED, /*INDIVIDUAL LEN-PARM 01950041 * PAIR MAP @G29AN2F*/ 02000041 * 2 SSWAILEN FIXED(8), /*LEN OF PARM ITEM @G29AN2F*/ 02050041 * 2 SSWAIPRM CHAR(*); /*VALUE OF PARM ITEM @G29AN2F*/ 02100041 * /* @G29AN2F*/ 02150041 * /* THE FOLLOWING DECLARE DEFINES THE VALUE OF THE TYPE @G29AN2F*/ 02200041 * /* FIELD(SSWTYPE) FOR A SYSTEM GENERATED SSWA @G29AN2F*/ 02250041 * /* @G29AN2F*/ 02300041 * DCL SSWASYST FIXED(15) CONSTANT(1); /*SYSTEM CREATED SSWA @G29AN2F*/ 02350041 * %DECLARE SSWAID CHAR; /*SWA MGR ID @G29AN2F*/ 02400041 * %SSWAID ='''31''X'; /*VALUE ='31'X @G29AN2F*/ 02450041