*%GOTO RRPPLS; /* BILINGUAL HEADER 00050043 */********************************************************************/ 00100043 */* */ 00150043 */* $MAC(ICHRRPF) COMP(SC1BN) PROD(RACF): */ 00200003 */* */ 00250043 */* COPYRIGHT = 5740-XYN, 5740-XYS COPYRIGHT IBM CORP 1980, 1982 */ 00260000 */* LICENSED MATERIAL - PROGRAM PROPERTY OF IBM */ 00270000 */* REFER TO COPYRIGHT INSTRUCTIONS FORM NUMBER G120-2083*/ 00280000 */* */ 00290000 */* DESCRIPTIVE NAME = RESIDENT PROFILE MAP */ 00300043 */* */ 00350043 */* STATUS = OS/VS2 EBB1102 */ 00366603 */* */ 00383203 */* METHOD OF ACCESS = %INCLUDE FOR PLS; ICHRRPF MACRO FOR BAL */ 00400043 */* */ 00450043 */* DESCRIPTION = MAPS THE RESOURCE PROFILE AREA BUILT AS A */ 00500043 */* FUNCTION OF AUTHORIZATION CHECKING WHEN */ 00550043 */* ENTITY=(ADDR,CSA) IS */ 00600043 */* SPECIFIED ON THE RACHECK MACRO. THE SEGMENT ALSO */ 00650003 */* MAPS THE IN CORE MODEL BUILT BY RACDEF WHEN THE */ 00690003 */* INSTALLATION SPECIFIES THIS MODELING FUNCTION. */ 00730003 */* */ 00770003 */* */ 00795003 */* CHANGE ACTIVITY = */ 00820003 */* OZ25837 @ZA25837*/ 00960003 */* $L4=HRF1402,RACF/140,810701,SJRDSD: @L4A*/ 00990003 */* OZ54774 @ZA54774*/ 01010003 */* $L6=HRF1602,RACF/160,830426,CNTDSD: @L6A*/ 01012000 */* UZ90283 @ZA90283*/ 01014000 */* UZ90284 @ZA90284*/ 01016000 */* UZ90285 @ZA90285*/ 01018000 */* */ 01020003 */********************************************************************/ 01050043 MACRO 01100043 ICHRRPF 01150043 RRPF DSECT 01200043 DSPCORE DS 0F @ZA25837 01250003 RRPSP DS X - AREA SUBPOOL NUMBER 01253003 RRPLEN DS AL3 - TOTAL AREA LENGTH 01256003 RRPVDATA DS 0C PROFILE DATA 01259003 DSPSUB DS 0C @ZA25837 01262003 DSPDSNM DS CL44 RESOURCE NAME @ZA25837 01265003 DSPUACC DS B UNIVERSAL ACCESS @ZA25837 01268003 DSPAUDIT DS B AUDIT FLAGS @ZA25837 01271003 DSPTYPE DS B D.S. TYPE FLAGS @ZA25837 01274003 DSPTP EQU X'80' 1 VSAM, 0 NON-VS @ZA25837 01277003 DSPMDL EQU X'40' 1 MODEL @L4A 01280003 * EQU X'20' RESERVED @ZA25837 01283003 * EQU X'10' RESERVED @ZA25837 01286003 * EQU X'08' RESERVED @ZA25837 01289003 * EQU X'04' RESERVED @ZA25837 01292003 * EQU X'02' RESERVED @ZA25837 01295003 * EQU X'01' RESERVED @ZA25837 01298003 DSPLEVEL DS AL1 RESOURCE LEVEL @ZA25837 01301003 DSPVOLOF DS A OFFSET TO VOLSER 01304003 * LIST @ZA25837 01307003 DSPACCOF DS A OFFSET TO ACCESS 01310003 * LIST @ZA25837 01313003 DSPCLASS DS CL8 RESOURCE CLASS @ZA25837 01316003 DSPGAUD DS B GLOBAL AUDIT FLG @ZA25837 01319003 DSPVRSN DS AL1 VERSION = 0. @L4A 01321003 DSPWARN DS BL1 WARNING VALUE @L6A 01322300 DSPRSV1 DS CL1 RESERVED @L6A 01323600 DSPINST DS A OFFSET TO INSTALLATION 01325003 * DATA @ZA25837 01328003 DSPNEXTP DS A ADDR NEXT MODEL @ZA25837 01331003 DSPFNF DS B MODEL FOUND INDICATOR 01334003 * @ZA25837 01337003 DSPRSV2 DS AL3 RESERVED @ZA25837 01340003 DSPOWNER DS CL8 MODEL OWNER @ZA25837 01343003 DSPVOLS DSECT VOLSER LIST@ZA25837 01346003 DSPVOLCT DS AL2 NUMBER OF ENTRIES@ZA25837 01349003 DSPVOLSR DS C VOLSERS @ZA25837 01352003 DSPACCES DSECT ACCESS LIST @ZA25837 01355003 DSPACT DS AL2 NUMBER OF ENTRIE @ZA25837 01358003 DSPACCLE DS 0C ACCESS LIST ENTRIES 01361003 * @ZA54774 01364003 DSPAUSER DS CL8 USERID/GRPNAME @ZA25837 01367003 DSPACS DS B ACCESS AUTHORITY @ZA25837 01370003 DSPINSTD DSECT INSTALLATION 01373003 * DATA @ZA25837 01376003 DSPLINST DS AL2 LENGTH OF INSTALLATION 01379003 * DATA @ZA25837 01382003 DSPIDATA DS C INSTALLATION DATA@ZA25837 01385003 MEND 01400043 * 01450043 * TERMINATE PLS COMMENT */ 01500043 *%RRPPLS:; 01550043 *DECLARE 1 RRPF BASED(RRPFPTR) BDY(WORD), /* RESIDENT PROFILE MAP */ 01600043 2 DSPCORE FIXED(32), /* @ZA25837*/ 01650003 4 RRPSP BIN(8), /* AREA SUBPOOL NUMBER */ 01700003 4 RRPLEN PTR(24), /* TOTAL AREA LENGTH */ 01750003 2 RRPVDATA, /* PROFILE DATA */ 01800003 4 DSPSUB, /* @ZA25837*/ 01850003 6 DSPDSNM CHAR(44), /* RESOURCE NAME @ZA25837*/ 01900003 6 DSPUACC BIT(8), /* UNIVERSAL ACCESS 01950003 @ZA25837*/ 02000003 6 DSPAUDIT BIT(8), /* AUDIT FLAGS @ZA25837*/ 02050003 6 DSPTYPE BIT(8), /* D.S. TYPE FLAGS @ZA25837*/ 02100003 10 DSPTP BIT(1), /* 1 VSAM, 0 NON-VSAM 02150003 @ZA25837*/ 02200003 10 DSPMDL BIT(1), /* 1 - MODEL. @L4A*/ 02233303 10 * BIT(6), /* RESERVED @ZA25837*/ 02266603 6 DSPLEVEL PTR(8), /* RESOURCE LEVEL @ZA25837*/ 02300003 6 DSPVOLOF FIXED(31), /* OFFSET TO VOLSER 02350003 LIST @ZA25837*/ 02400003 6 DSPACCOF FIXED(31), /* OFFSET TO ACCESS 02450003 LIST @ZA25837*/ 02500003 6 DSPCLASS CHAR(8), /* RESOURCE CLASS @ZA25837*/ 02550003 6 DSPGAUD BIT(8), /* GLOBAL AUDIT FLAG 02600003 @ZA25837*/ 02650003 6 DSPVRSN FIXED(8), /* VERSION = 0 @L4A*/ 02683303 6 DSPWARN BIT(8), /* WARNING VALUE @L6A*/ 02705500 6 DSPRSV1 CHAR(1), /* RESERVED @L6A*/ 02727700 6 DSPINST FIXED(31), /* OFFSET TO INSTALLATION 02750003 DATA @ZA25837*/ 02800003 6 DSPNEXTP PTR(32), /* ADDR NEXT MODEL @ZA25837*/ 02850003 6 DSPFNF BIT(8), /* MODEL FOUND INDICATOR 02900003 0,FD -1,NFD @ZA25837*/ 02950003 6 DSPRSV2 PTR(24), /* RESERVED @ZA25837*/ 03000003 6 DSPOWNER CHAR(8), /* RESOURCE OWNER @ZA25837*/ 03050003 1 DSPVOLS BASED(RRPFPTR+DSPVOLOF),/* VOLSER LIST 03100003 @ZA25837*/ 03150003 2 DSPVOLCT FIXED(15), /* NUMBER OF ENTRIES 03200003 @ZA25837*/ 03250003 2 DSPVOLSR(*) CHAR(6), /* VOLSERS @ZA25837*/ 03300003 1 DSPACCES BASED(RRPFPTR+DSPACCOF),/* ACCESS LIST 03350003 @ZA25837*/ 03400003 2 DSPACT FIXED(15), /* NUMBER OF ENTRIES 03450003 @ZA25837*/ 03500003 2 DSPACCLE(*), /* ACCESS LIST ENTRIES 03550003 @ZA25837*/ 03600003 4 DSPAUSER CHAR(8), /*USERID/GRPNAME @ZA25837*/ 03650003 4 DSPACS BIT(8), /* ACCESS AUTHORITY 03700003 @ZA25837*/ 03750003 1 DSPINSTD BASED (RRPFPTR+DSPINST), /* INSTALLATION 03800003 DATA @ZA25837*/ 03850003 2 DSPLINST FIXED(15), /* LENGTH OF INSTALLATION 03900003 DATA @ZA25837*/ 03950003 2 DSPIDATA CHAR(*); /*INSTALLATION DATA 04000003 @ZA25837*/ 04050003