MACRO 00110002 SGIEF0PT &PGM=,&CPU= 00120002 .********************************************************************** 00130002 .* 00132002 .* MACRO NAME = SGIEF0PT 00134002 .* 00136002 .* DESCRIPTIVE NAME = PROGRAM PROPERTIES TABLE GENERATOR 00138002 .* 00138402 .* FUNCTION = GENERATE IEFSDPPT, THE PROGRAM PROPERTIES TABLE. 00138802 .* 00139202 .* OPERATION = FIRST GENERATE THE 'FIXED' PORTION OF THE PROGRAM 00139602 .* PROPERTIES TABLE. THEN GENERATE THE ENTRIES FOR TASK-CPU 00139702 .* AFFINITY DEFINED BY THE INPUT PARAMETERS. 00139802 .* 00139902 .* INPUT = 00143202 .* &PGM, A MAXIMUM 64-ENTRY SUBLIST CONTAINING THE PROGRAM NAMES 00145202 .* TO RECEIVE AFFINITY. 00147202 .* 00149202 .* &CPU, A MAXIMUM 64-ENTRY SUBLIST CONTAINING THE AFFINITY BIT 00149602 .* MASKS, REPRESENTED AS A DECIMAL NUMBER. 00149702 .* 00149802 .* EXIT - NORMAL 00149902 .* 00156602 .* CONDITIONS = ALWAYS 00158602 .* 00160602 .* OUTPUT = IEFSDPPT 00162602 .* 00163002 .* EXIT - ERROR = NONE 00163102 .* 00163202 .* CHANGE ACTIVITY = Y02669 FOR ALL STATEMENTS NOT OTHERWISE FLAGGED. 00172402 .* 00174402 .* MNOTES = NONE 00176402 .* 00178402 .********************************************************************** 00181602 IEFSDPPT CSECT 00190802 TITLE 'IEFSDPPT, PROGRAM PROPERTIES TABLE' 00200002 *********************************************************************** 00250002 * 00300002 * MODULE NAME 00350002 * IEFSDPPT 00400002 * DESCRIPTIVE NAME 00450002 * PROGRAM PROPERTIES TABLE 00500002 * COPYRIGHT 00550002 * NONE 00600002 * STATUS 00650002 * SU7/3.8 PTF @ZA73184 00670000 * FUNCTION 00750002 * THIS MODULE (THE PROGRAM PROPERTIES TABLE) CONTAINS A LIST OF 00800002 * PROGRAMS AND THE SPECIAL PROPERTIES TO BE ASSIGNED TO THESE 00850002 * PROGRAMS. THE FORMAT OF EACH ENTRY IS DESCRIBED BY MACRO 00900002 * IEFZB610. (THE NAME OF THE DSECT GENERATED IS PPT.) 00920002 * THE BYTE FOLLOWING THE LAST ENTRY CONTAINS X'FF' AND 00930002 * THE REMAINING BYTES IN THAT ENTRY CONTAIN BINARY ZEROES. 00940002 * ENTRY POINTS 00950002 * NONE 01000002 * INPUT 01050002 * NONE 01100002 * OUTPUT 01150002 * NONE 01200002 * EXTERNAL REFERENCES 01250002 * NONE 01300002 * EXITS, NORMAL 01350002 * NONE 01400002 * EXITS, ERROR 01450002 * NONE 01500002 * TABLES/WORK AREAS 01550002 * NO EXTERNAL AREAS. THIS IS THE PROGRAM PROPERTIES TABLE. 01600002 * ATTRIBUTES 01850002 * PAGED LPA, NOT EXECUTABLE 01900002 * CHARACTER CODE DEPENDENCY 01950002 * THIS MODULE IS NOT CHARACTER CODE DEPENDENT. 02000002 * NOTES 02050002 * 1. THE TABLE IS USED BY IEFSD161 AND IEFSD101. Y02651 02100002 * 2. NONE OF THE PROPERTIES WILL BE ASSIGNED IF THE STEP HAS Y02656 02150002 * REQUESTED A JOBLIB OR STEPLIB WHICH IS NOT DEFINED AS Y02656 02200002 * BEING AUTHORIZED. THIS CHECK IS PERFORMED BY IEFSD162. Y02656 02250002 * 3. THE PROPERTY 'SYSTEM TASK' WILL NOT BE ASSIGNED UNLESS Y02652 02300002 * THE JOB IS '1-STEP' AND 'STARTED.' THIS CHECK IS Y02652 02350002 * PERFORMED BY IEFSD101. Y02652 02400002 * 4. THE PROPERTY 'NO DATA SET INTEGRITY' WILL NOT BE Y02652 02450002 * ASSIGNED UNLESS THE JOB IS '1-STEP.' THIS CHECK IS Y02652 02500002 * PERFORMED BY IEFSD101. Y02652 02550002 * 5. EVEN IF THE 'NO DATA SET INTEGRITY' PROPERTY IS Y02656 02600002 * REQUESTED, DATA SET INTEGRITY PROCESSING WILL ALWAYS Y02656 02650002 * BE PERFORMED BY IEFSD102. THE PROPERTY (NDSI) WILL Y02656 02700002 * ACTUALLY BE PROVIDED BY IEFSD162 IF THE AUTHORIZATION Y02656 02750002 * CHECK OF JOBLIB/STEPLIB IS SUCCESSFUL. (THIS METHOD Y02656 02800002 * IS NECESSARY EVEN IF NO JOBLIB OR STEPLIB IS PRESENT, Y02656 02850003 * BECAUSE THE PRESENCE OR ABSENCE OF A STEPLIB IS NOT Y02656 02900002 * KNOWN UNTIL ALLOCATION IS COMPLETE.) Y02656 02950002 * 6. THIS MODULE WAS CREATED BY SGIEF0PT. 02960002 * CHANGE LEVEL 03000002 * SEE END OF MODULE FOR DATE OF VERSION. 03050002 * CODE HAS BEEN ADDED FOR THE FOLLOWING SUPPORT CODES: 03100002 * Y02652 03150002 * Y02656 03200002 * Y02669 03250002 * Y02651 03260002 * @Y02BPSR 03300003 * @Y30APSD 03310003 * @Z40DQSS 03311040 * @VS41391 03312040 * @VS43240 03313040 * 03313640 * CODE HAS BEEN ADDED FOR THE FOLLOWING APARS: 03314240 * @ZA16876 03315040 * @ZA29753 03317040 * @ZA36219 03318040 * @ZA73184 03318400 * CHANGE ACTIVITY @ZA73184 03318800 * C REMOVED BYPASS PASSWORD PROTECTION (PPTNOPAS) @ZA73184 03319200 * FROM IEDQTCAM ENTRY @ZA73184 03319600 * 03320003 *********************************************************************** 03350002 EJECT 03400002 DC C'IEDQTCAM' TCAM Y02652 03450002 DC AL1(PPTSKEY+PPTNSWP) @ZA73184 03500000 DC AL1(PPTKEY6) Y02651 03560002 DC X'FFFF' INDICATE NO CPU-TASK AFFIN. Y02651 03570002 DC AL1(PPTN2LP) FLAG BYTE @ZA16876 03580040 DC XL3'00' RESERVED FLAG BYTES @ZA16876 03586040 SPACE 03600002 DC C'ISTINM01' VTAM Y02652 03650002 DC AL1(PPTNCNCL+PPTSKEY+PPTNSWP+PPTNOPAS+PPTSYSTK) @Y30APSD 03700003 DC AL1(PPTKEY6) Y02651 03760002 DC X'FFFF' INDICATE NO CPU-TASK AFFIN. Y02651 03770002 DC AL1(PPTN2LP) FLAG BYTE @ZA16876 03780040 DC XL3'00' RESERVED FLAG BYTES @ZA16876 03786040 SPACE 03800002 DC C'IKTCAS00' FOR TSO/SNA @VS41391 03806040 DC AL1(PPTNCNCL+PPTPRIV+PPTSYSTK+PPTSKEY) @VS43240 03812040 DC AL1(PPTKEY6) @Z40DQSS 03818040 DC X'FFFF' INDICATE NO CPU-TASK AFFIN. @Z40DQSS 03824040 DC XL1'00' FLAG BYTE @ZA16876 03830040 DC XL3'00' RESERVED FLAG BYTES @ZA16876 03836040 SPACE 03842040 DC C'AHLGTF ' GTF Y02652 03850002 DC AL1(PPTNCNCL+PPTSKEY+PPTNSWP+PPTSYSTK) Y02652 03900002 DC AL1(PPTKEY0) Y02651 03960002 DC X'FFFF' INDICATE NO CPU-TASK AFFIN. Y02651 03970002 DC AL1(PPTN2LP) FLAG BYTE @ZA16876 03980040 DC XL3'00' RESERVED FLAG BYTES @ZA16876 03986040 SPACE 04000002 DC C'HHLGTF ' GTF Y02652 04050002 DC AL1(PPTNCNCL+PPTSKEY+PPTNSWP+PPTSYSTK) Y02652 04100002 DC AL1(PPTKEY0) Y02651 04160002 DC X'FFFF' INDICATE NO CPU-TASK AFFIN. Y02651 04170002 DC AL1(PPTN2LP) FLAG BYTE @ZA16876 04180040 DC XL3'00' RESERVED FLAG BYTES @ZA16876 04186040 SPACE 04200002 DC C'IHLGTF ' GTF Y02652 04250002 DC AL1(PPTNCNCL+PPTSKEY+PPTNSWP+PPTSYSTK) Y02652 04300002 DC AL1(PPTKEY0) Y02651 04360002 DC X'FFFF' INDICATE NO CPU-TASK AFFIN. Y02651 04370002 DC AL1(PPTN2LP) FLAG BYTE @ZA16876 04380040 DC XL3'00' RESERVED FLAG BYTES @ZA16876 04386040 SPACE 04400002 DC C'IEFIIC ' INITIATOR Y02652 04450002 DC AL1(PPTNCNCL+PPTSKEY+PPTPRIV+PPTSYSTK) Y02652 04500002 DC AL1(PPTKEY0) Y02651 04560002 DC X'FFFF' INDICATE NO CPU-TASK AFFIN. Y02651 04570002 DC XL1'00' FLAG BYTE @ZA16876 04580040 DC XL3'00' RESERVED FLAG BYTES @ZA16876 04586040 SPACE 04600002 DC C'IEEMB860' MASTER SCHEDULER Y02652 04650002 DC AL1(PPTNCNCL+PPTSKEY+PPTNSWP+PPTSYSTK+PPTNDSI+PPTNOPAS) 04700002 * Y02651 04750002 DC AL1(PPTKEY0) Y02651 04760002 DC X'FFFF' INDICATE NO CPU-TASK AFFIN. Y02651 04770002 DC XL1'00' FLAG BYTE @ZA16876 04820040 DC XL3'00' RESERVED FLAG BYTES @ZA16876 04870040 SPACE 05000002 DC CL8'IEEVMNT2' MOUNT COMMAND Y02652 05050002 DC AL1(PPTNCNCL+PPTSKEY+PPTSYSTK) Y02652 05100002 DC AL1(PPTKEY0) Y02651 05160002 DC X'FFFF' INDICATE NO CPU-TASK AFFIN. Y02651 05170002 DC XL1'00' FLAG BYTE @ZA16876 05180040 DC XL3'00' RESERVED FLAG BYTES @ZA16876 05186040 SPACE 05200002 DC CL8'IASXWR00' SYSOUT WRITER YM02227 05250002 DC AL1(PPTNCNCL+PPTSKEY+PPTSYSTK) @ZA36219 05300040 DC AL1(PPTKEY1) Y02651 05360002 DC X'FFFF' INDICATE NO CPU-TASK AFFIN. Y02651 05370002 DC XL1'00' FLAG BYTE @ZA16876 05380040 DC XL3'00' RESERVED FLAG BYTES @ZA16876 05386040 SPACE 05400002 DC CL8'HASJES20' JES2 YM02227 05450002 DC AL1(PPTNCNCL+PPTSKEY+PPTNSWP+PPTSYSTK+PPTNOPAS+PPTNDSI) 05480003 * YM06723 05520003 DC AL1(PPTKEY1) Y02651 05560002 DC X'FFFF' INDICATE NO CPU-TASK AFFIN. Y02651 05570002 DC XL1'00' FLAG BYTE @ZA29753 05580040 DC XL3'00' RESERVED FLAG BYTES @ZA16876 05586040 SPACE 05600002 DC CL8'DFSMVRC0' IMS CONTROL PROGRAM Y02652 05650002 DC AL1(PPTSKEY+PPTNSWP+PPTSYSTK) Y02652 05700002 DC AL1(PPTKEY7) Y02651 05760002 DC X'FFFF' INDICATE NO CPU-TASK AFFIN. Y02651 05770002 DC XL1'00' FLAG BYTE @ZA16876 05780040 DC XL3'00' RESERVED FLAG BYTES @ZA16876 05786040 SPACE 05800002 DC CL8'IRBMFMFC' MF/1 Y02652 05850002 DC AL1(PPTPRIV+PPTSYSTK) Y02652 05900002 DC X'00' Y02652 05950002 DC X'FFFF' INDICATE NO CPU-TASK AFFIN. Y02651 05960002 DC XL1'00' FLAG BYTE @ZA16876 05961040 DC XL3'00' RESERVED FLAG BYTES @ZA16876 05962040 SPACE 05965002 DC CL8'IATINTK ' JES3 @Y02BPSR 05970003 DC AL1(PPTNCNCL+PPTSKEY+PPTNSWP+PPTSYSTK+PPTNOPAS+PPTNDSI) 05975003 * @Y02BPSR 05980003 DC AL1(PPTKEY1) Y02886 05985002 DC X'FFFF' INDICATE NO CPU-TASK AFFIN. Y02886 05990002 DC XL1'00' FLAG BYTE @ZA16876 05993040 DC XL3'00' RESERVED FLAG BYTES @ZA16876 05995040 SPACE 06000002 * THE NEXT FIVE ENTRIES CAN BE USED FOR ADDITIONAL PROGRAM NAMES 06050002 * FOR TCAM 06100002 DC XL8'00' 06150002 DC AL1(PPTSKEY+PPTNSWP+PPTNOPAS) Y02669 06200002 DC AL1(PPTKEY6) Y02651 06260002 DC X'FFFF' INDICATE NO CPU-TASK AFFIN. Y02651 06270002 DC AL1(PPTN2LP) FLAG BYTE @ZA16876 06280040 DC XL3'00' RESERVED FLAG BYTES @ZA16876 06286040 DC XL8'00' 06300002 DC AL1(PPTSKEY+PPTNSWP+PPTNOPAS) Y02669 06350002 DC AL1(PPTKEY6) Y02651 06410002 DC X'FFFF' INDICATE NO CPU-TASK AFFIN. Y02651 06420002 DC AL1(PPTN2LP) FLAG BYTE @ZA16876 06430040 DC XL3'00' RESERVED FLAG BYTES @ZA16876 06436040 DC XL8'00' 06450002 DC AL1(PPTSKEY+PPTNSWP+PPTNOPAS) Y02669 06500002 DC AL1(PPTKEY6) Y02651 06560002 DC X'FFFF' INDICATE NO CPU-TASK AFFIN. Y02651 06570002 DC AL1(PPTN2LP) FLAG BYTE @ZA16876 06580040 DC XL3'00' RESERVED FLAG BYTES @ZA16876 06586040 DC XL8'00' 06600002 DC AL1(PPTSKEY+PPTNSWP+PPTNOPAS) Y02669 06650002 DC AL1(PPTKEY6) Y02651 06710002 DC X'FFFF' INDICATE NO CPU-TASK AFFIN. Y02651 06720002 DC AL1(PPTN2LP) FLAG BYTE @ZA16876 06730040 DC XL3'00' RESERVED FLAG BYTES @ZA16876 06736040 DC XL8'00' 06750002 DC AL1(PPTSKEY+PPTNSWP+PPTNOPAS) Y02669 06800002 DC AL1(PPTKEY6) Y02651 06850002 DC X'FFFF' INDICATE NO CPU-TASK AFFIN. Y02651 06852002 DC AL1(PPTN2LP) FLAG BYTE @ZA16876 06854040 DC XL3'00' RESERVED FLAG BYTES @ZA16876 06856040 AIF (N'&PGM EQ 0).DONE 06860002 SPACE 06900002 * THE FOLLOWING ENTRIES WERE CREATED AT SYSGEN. Y02651 06910002 LCLA &INDEX 06930002 &INDEX SETA 0 06940002 .LOOP ANOP 06942002 AIF (&INDEX EQ N'&PGM).DONE 06944002 &INDEX SETA &INDEX+1 06946002 SPACE 06946402 DC CL8'&PGM(&INDEX)' PROGRAM NAME 06948002 DC X'00' SLOT FOR PROPERTIES 06948402 DC FL3'&CPU(&INDEX)' CPU MASK 06948802 ORG *-3 06949202 DC X'00' SLOT FOR PROTECT KEY 06949602 ORG *+2 @ZA16876 06952640 DC X'00' FLAG BYTE @ZA16876 06953640 DC XL3'00' RESERVED FLAG BYTES @ZA16876 06954640 ORG 06958140 AGO .LOOP 06959702 .DONE ANOP 06970002 SPACE 06980002 * THIS ENTRY CANNOT BE USED; IT MARKS THE END OF THE TABLE * 06990002 PPTEND DC X'FF' 07000002 DC XL15'00' @ZA16876 07020040 SPACE 07100002 PATCH DC XL64'00' PATCH AREA @ZA16876 07120040 SPACE 07200002 DC CL8'IEFSDPPT' MODULE NAME Y02651 07250002 DC CL7'UZ66634' RELEASE NUMBER @ZA73184 07255000 DC CL8'08/01/83' DATE @ZA73184 07305000 EJECT 07355040 IEFZB610 07405040 MEND 07455040