* % GO TO SWAEPLS; /* 00050002 MACRO 00100002 IEEZB801 00150002 * 00200002 * SWA ENVIRONMENT INITIALIZATION MAPPING 00250002 * 00300002 * MAPS THE PARAMETER LIST PASSED TO ROUTINE IEESB601 00350002 * FOR CREATING OR DELETING A SWA, TIOT, JSCB CONTROL 00400002 * BLOCK ENVIRONMENT. 00450002 * 00500002 SWAE DSECT 00550002 SWBEGIN EQU * 00600002 SWOPTION DS X OPTIONS FIELD THAT INDICATES 00650002 * THE SERVICES TO BE PERFORMED. 00700002 SWCREATE EQU X'80' BUILD A CONTROL BLOCK STRUCTURE. 00750002 * THIS OPTION MAY NOT BE SET WITH 00800002 * ANY OF THE FOLLOWING OPTIONS. 00850002 SPACE 00900002 * 00950002 * THE SETTING OF THE FOLLOWING 3 OPTIONS RESULT IN THE RESTORATION 01000002 * OF THE ENVIRONMENT THAT EXISTED BEFORE IEESB601 WAS CALLED WITH 01050002 * THE 'SWCREATE' OPTION. ANY OR ALL OF THE FOLLOWING OPTIONS MAY 01100002 * BE SET. 01150002 * 01200002 SWDELETE EQU X'40' DELETE THE SWA ENVIRONMENT 01250002 SWRSTIOT EQU X'20' RESET CURRENT TIOT STRUCTURE 01300002 SWRSJSCB EQU X'10' RESET CURRENT JSCB STRUCTURE 01350002 SWRESV1 EQU X'0F' RESERVED OPTIONS 01400002 SWRESV2 DS 3X RESERVED 01450002 SWJOBNAM DS A POINTER TO JOBNAME IF 'SWCREATE' 01500002 * OPTION - OTHERWISE ZEROS 01550002 SWSTEPNM DS A POINTER TO STEPNAME IF 'SWCREATE' 01600002 * OPTION - OTHERWISE ZEROS 01650002 SWTIOTPT DS A POINTER TO WORD CONTAINING 01700002 * THE TIOT POINTER 01750002 SWJSCBPT DS A POINTER TO WORD CONTAINING 01800002 * THE JSCB POINTER 01850002 SWSIZE EQU *-SWBEGIN SWAE SIZE 01900002 MEND */ 01950002 *% SWAEPLS:; 02000002 * /* */ 02050002 * /* SWA ENVIRONMENT INITIALIZATION MAPPING - */ 02100002 * /* */ 02150002 * /* MAPS THE PARAMETER LIST PASSED TO ROUTINE IEESB601 */ 02200002 * /* FOR CREATING OR DELETING A SWA, TIOT, JSCB CONTROL */ 02250002 * /* BLOCK ENVIRONMENT. */ 02300002 * /* */ 02350002 * DCL 1 SWAE BASED(SWAEPTR), 02400002 * 2 SWOPTION BIT(8), /* OPTIONS FIELD THAT INDICATES 02450002 * THE SERVICES TO BE PERFORMED */ 02500002 * 3 SWCREATE BIT(1), /* BUILD A CONTROL BLOCK STRUCTURE. 02550002 * THIS OPTION MAY NOT BE SET WITH 02600002 * ANY OF THE FOLLOWING OPTIONS. */ 02650002 * /* THE SETTING OF THE FOLLOWING 3 OPTIONS RESULT IN 02700002 * THE RESTORATION OF THE ENVIRONMENT THAT EXISTED 02750002 * BEFORE IEESB601 WAS CALLED WITH THE 'SWCREATE' 02800002 * OPTION. ANY OR ALL OF THE FOLLOWING OPTIONS MAY 02850002 * BE SET. */ 02900002 * 3 SWDELETE BIT(1), /* DELETE THE SWA ENVIRONMENT */ 02950002 * 3 SWRSTIOT BIT(1), /* RESET CURRENT TIOT STRUCTURE */ 03000002 * 3 SWRSJSCB BIT(1), /* RESET CURRENT JSCB STRUCTURE */ 03050002 * 3 * BIT(4), /* RESERVED OPTIONS */ 03100002 * 2 * PTR(24), /* RESERVED */ 03150002 * 2 SWJOBNAM PTR(31), /* POINTER TO JOBNAME IF 'SWCREATE' 03200002 * OPTION - OTHERWISE ZEROS */ 03250002 * 2 SWSTEPNM PTR(31), /* POINTER TO STEPNAME IF 'SWCREATE' 03300002 * OPTION - OTHERWISE ZEROS */ 03350002 * 2 SWTIOTPT PTR(31), /* POINTER TO WORD CONTAINING 03400002 * THE TIOT POINTER */ 03450002 * 2 SWJSCBPT PTR(31); /* POINTER TO WORD CONTAINING 03500002 * THE JSCB POINTER */ 03550002