* %GOTO PPTPLS; /* 06050002 MACRO 06100002 IEFZB610 12000001 PPT DSECT 18000001 * */ 18010002 * /* MACMEAN PPT MEANS MAPPING OF A PROGRAM PROPERTIES TABLE ENTRY */ 18050002 * /* MACCOMP SC1B6/PZD02 @ZA16876*/ 18070040 * /* MACSTAT 77180/ZA16876 @ZA16876*/ 18100040 * /* 18200002 * THIS IS A MAPPING FOR A SINGLE ENRTY IN IEFSDPPT, THE PROGRAM 24050001 * PROPERTIES TABLE. 24100001 SPACE 42000001 PPTNAME DS CL8 - PROGRAM NAME 42050001 PPTBYTE1 DS C - FIRST BYTE OF PROPERTIES 48000001 PPTNCNCL EQU X'80' THIS PROGRAM IS NON-CANCELABLE 54000001 PPTSKEY EQU X'40' THIS PROGRAM REQUIRES THE SPECIAL PROTECT Y02656 60000002 * KEY IN PPTKEY Y02656 60050002 PPTNSWP EQU X'20' THIS PROGRAM IS TO BE AUTHORIZED TO BE Y02669 60100002 * NON-SWAPPABLE Y02669 60150002 PPTPRIV EQU X'10' THIS PROGRAM IS TO BE 'PRIVILEGED' (WITH Y02655 60200002 * RESPECT TO THE SYSTEM RESOURCES MANAGER) Y02655 60250002 PPTSYSTK EQU X'08' THIS PROGRAM IS A SYSTEM TASK Y02652 60300002 PPTNDSI EQU X'04' THIS PROGRAM IS NOT TO BE GIVEN DATA SET Y02652 60350002 * INTEGRITY Y02652 60400002 PPTNOPAS EQU X'02' BYPASS PASSWORD PROTECTION Y02656 60450002 * THE REMAINING BIT IS RESERVED 66000002 SPACE 72000001 PPTKEY DS C - THIS KEY IS TO BE GIVEN TO THE PROGRAM Y02656 72050002 * BEING ATTACHED IF PPTSKEY IS ON Y02656 72150002 * THE EQUATES FOR PROTECT KEYS FOLLOW, TO INSURE THAT Y02651 72160002 * PROTECT KEYS ARE DEFINED AS THE HIGH ORDER 4 BITS OF Y02651 72170002 * THE BYTE. Y02651 72180002 PPTKEY0 EQU X'00' Y02651 72190002 PPTKEY1 EQU X'10' Y02651 72190102 PPTKEY2 EQU X'20' Y02651 72190402 PPTKEY3 EQU X'30' Y02651 72190802 PPTKEY4 EQU X'40' Y02651 72191202 PPTKEY5 EQU X'50' Y02651 72191602 PPTKEY6 EQU X'60' Y02651 72191702 PPTKEY7 EQU X'70' Y02651 72191802 PPTKEY8 EQU X'80' Y02651 72192002 PPTCPUA DS BL2 BIT MASK OF CPU'S ON WHICH THIS PROGRAM CAN Y02669 72200002 * RUN (SHOULD BE X'FFFF' IF AFFINITY IS NOT Y02669 72250002 * REQUIRED) Y02669 72350002 PPTFLGS DS 0F FLAG BYTES @ZA16876 72400040 PPTPUBYT DS CL1 PREFERRED USAGE FLAGS @ZA16876 72450040 PPT2LPU EQU X'80' 2ND LEVEL PREFERRED USAGE @ZA16876 72500040 PPT1LPU EQU X'40' 1ST LEVEL PREFERRED USAGE @ZA16876 72530040 PPTN2LP EQU X'20' NOT 2ND LEVEL PREFERRED USAGE @ZA16876 72600040 * THE REMAINING BITS ARE RESERVED @ZA16876 72650040 DS CL3 RESERVED @ZA16876 72700040 PPTLEN EQU *-PPT LENGTH OF AN ENTRY 84050001 MEND 90000001 **/ %PPTPLS: ; 90010002 * /* MACMEAN PPT MEANS MAPPING OF A PROGRAM PROPERTIES TABLE ENTRY */ 90050002 * /* MACCOMP SC1B6/PZD02 @ZA16876*/ 90070040 * /* MACSTAT 77180/ZA16876 @ZA16876*/ 90100040 * DECLARE 90200002 * 1 PPT(*) BASED(ADDR(IEFSDPPT)), 90250002 * /* THIS ARRAY REPRESENTS THE 90260002 * ENTIRE PROGRAM PROPERTIES TABLE, 90310002 * UNLESS THE TABLE HAS MORE THAN 90320002 * 128 ENTRIES. Y02651*/ 90330002 * 2 PPTNAME CHAR(8), /* PROGRAM NAME Y02651*/ 90400002 * 2 PPTBYTE1 BIT(8), /* FIRST BYTE OF PROPERTIES 90450002 * Y02651*/ 90500002 * 3 PPTNCNCL BIT(1), /* THIS PROGRAM IS NON-CANCELABLE 90510002 * Y02651*/ 90520002 * 3 PPTSKEY BIT(1), /* THIS PROGRAM REQUIRES THE 90530002 * SPECIAL PROTECT KEY IN PPTKEY 90540002 * Y02651*/ 90542002 * 3 PPTNSWP BIT(1), /* THIS PROGRAM IS AUTHORIZED TO 90544002 * BE NON-SWAPPABLE Y02651*/ 90546002 * 3 PPTPRIV BIT(1), /* THIS PROGRAM IS TO BE 90548002 * 'PRIVIDEGED' (WITH RESPECT TO 90548402 * THE SYSTEM RESOURCES MANAGER) 90548802 * Y02651*/ 90549202 * 3 PPTSYSTK BIT(1), /* THIS PROGRAM IS A SYSTEM 90549602 * TASK Y02651*/ 90549702 * 3 PPTNDSI BIT(1), /* THIS PROGRAM IS NOT TO BE 90549802 * GIVEN DATA SET INTEGRITY 90549902 * Y02651*/ 90599902 * 3 PPTNOPAS BIT(1), /* BYPASS PASSWORD PROTECTION 90609902 * Y02651*/ 90619902 * 3 * BIT(1), /* RESERVED Y02651*/ 90629902 * 2 PPTKEY CHAR(1), /* THIS KEY IS TO BE GIVEN TO THE 90639902 * PROGRAM BEING ATTACHED IF 90641902 * PPTSKEY IS ON Y02651*/ 90643902 * 2 PPTCPUA BIT(16), /* BIT MASK OF CPU'S ON WHICH 90644940 * THIS PROGRAM CAN RUN (SHOULD 90647902 * BE 'FFFF'X IF AFFINITY IS NOT 90648302 * REQUIRED Y02651*/ 90648702 * 2 PPTFLGS FIXED(31), /* FLAG BYTES @ZA16876*/ 90652740 * 3 PPTPUBYT BIT(8), /* PREFERRED USAGE FLAGS @ZA16876*/ 90654740 * 4 PPT2LPU BIT(1), /* 2ND LEVEL PREFERRED USAGE 90660740 * @ZA16876*/ 90664740 * 4 PPT1LPU BIT(1), /* 1ST LEVEL PREFERRED USAGE 90668740 * @ZA16876*/ 90672740 * 4 PPTN2LP BIT(1), /* NOT 2ND LEVEL PREFERRED USAGE 90676740 * @ZA16876*/ 90680740 * 4 * BIT(5), /* RESERVED @ZA16876*/ 90684740 * 3 * CHAR(3); /* RESERVED @ZA16876*/ 90686740 * DECLARE 90698702 * PPTLAST BIT(64) CONSTANT('FF00000000000000'X);/* THE VALUE WHICH 90748702 * IS IN THE PROGRAM NAME SLOT 90798702 * FOLLOWING THE LAST REAL ENTRY OF 90808702 * THE PPT Y02651*/ 90818702