*/********************************************************************/ 00050000 */* */ 00091600 */* */ 00133200 */* $MAC(ICHPCGRP) COMP(SC1BN) PROD(RACF): */ 00174800 */* */ 00216400 */* DESCRIPTIVE NAME = CONNECT GROUP NAME TABLE DEFINITION */ 00258000 */* */ 00299600 */* COPYRIGHT = NONE */ 00341200 */* */ 00382800 */* STATUS = OS/VS2 EBB1102 @L6A*/ 00424400 */* */ 00466000 */* METHOD OF ACCESS = %INCLUDE SYSLIB(ICHPCGRP) FOR PLS */ 00507600 */* */ 00549200 */* FUNCTION = THE CGRP TABLE CONTAINS THE NAMES OF THE GROUPS */ 00590800 */* THAT THE USERID IN THE ACEEUSRI IS A MEMBER OF. */ 00632400 */* */ 00638300 */* THE CONNECT GROUP TABLE IS THE ANCHOR TABLE FOR */ 00644200 */* THE GROUP AUTHORITY TABLE, AND CONTAINS THE USER'S */ 00650100 */* CONNECT GROUP AUTHORITY TO EACH GROUP PRESENT */ 00656000 */* IN THE TABLE. @L6A*/ 00661900 */* */ 00667800 */* THIS TABLE IS BASED ON THE 'ACEECGRP' ADDRESS */ 00674000 */* IN THE ACEE. */ 00715600 */* */ 00757200 */* */ 00798800 */* MACROS = NONE */ 00840400 */* */ 00882000 */* CHANGE ACTIVITY = */ 00923600 */* $L0=HRF1402,RACF/140,810701,SJRDSD: */ 00965200 */* $L6=HRF1602,RACF/160,830509,CNTDSD: @L6A*/ 00973500 */* UZ90283 @UZ90283*/ 00980100 */* UZ90284 @UZ90284*/ 00986700 */* UZ90285 @UZ90285*/ 00993300 */* OZ79446 @OZ79446*/ 00999900 */* */ 01006800 */********************************************************************/ 01050000 *%GOTO ICHPCGRPLBL01; /* BILINGUAL HEADER 01100000 MACRO 01150000 ICHPCGRP 01200000 CGRP DSECT 01250000 CGRPID DS CL4 TABLE IDENTIFIER = CGRP 01300000 CGRPCORE DS F TABLE SUBPOOL AND LENGTH. 01350000 ORG CGRPCORE 01400000 CGRPSP DS AL1 TABLE SUBPOOL NUMBER. 01450000 CGRPLEN DS AL3 SIZE OF TABLE. 01500000 CGRPNUM DS H MAXIMUM NUMBER OF ENTRIES IN 01550000 * TABLE. 01600000 CGRPVRSN DS AL1 VERSION = 1. @L6A 01650000 DS AL1 RESERVED. 01700000 CGRPSYNC DS F SYNCHRONIZE VALUE. 01750000 CGRPGPAT DS A ADDRESS OF GROUP AUTHORITIES 01766600 * TABLE, OR ZERO IF NO SUCH TABLE 01783200 * EXISTS @L6A 01799800 DS CL12 RESERVED @L6A 01816400 CGRPENT DS CL24 INDIVIDUAL GROUP ENTRY. @L6A 01833000 * 01850000 * FOLLOWING DSECT DESCRIBES AN INDIVIDUAL GROUP ENTRY. 01900000 * 01950000 CGRPENTD DSECT 02000000 CGRPNAME DS CL8 GROUP NAME. 02050000 CGRPIND DS X INDICATORS. 02100000 CGRPCHK EQU X'80' ALWAYS ZERO, WAS REVOKE 02107100 * INDICATOR. @L6A 02114200 CGRPREFR EQU X'40' ON IF GROUP AUTHORITY TABLE MUST 02121300 * BE REFRESHED FOR THIS CONNECT 02128400 * GROUP @L6A 02135500 CGRPCOMP EQU X'20' ON IF GROUP ENTERED INTO GROUP 02142600 * AUTHORITY TABLE AND NO LATER 02149700 * AUTHORITY CHANGES WERE MADE 02156800 * OR THE GROUP DID NOT NEED TO BE 02163900 * ENTERED INTO THE TABLE @L6A 02171000 CGRPPROP EQU X'10' ON IF THIS GROUP IS OWNED BY ITS 02172100 * SUPERIOR GROUP. INDICATES THE 02173200 * GROUP IS PART OF THE SUBGROUP TREE 02174300 * FOR PROPAGATION OF GROUP 02175400 * AUTHORITIES @OZ79446 02176500 CGRPAUTH DS X INDICATORS. 02178100 CGRPSPEC EQU X'80' ON IF GROUP-SPECIAL AUTHORITY @L6A 02185200 CGRPOPER EQU X'20' ON IF GROUP-OPERATIONS AUTHORITY 02192300 * @L6A 02199400 CGRPAUDT EQU X'10' ON IF GROUP-AUDITOR AUTHORITY @L6A 02206500 * BE REFRESHED FOR THIS CONNECT 02213600 * GROUP @L6A 02220700 CGRPGPNM DS H NUMBER OF ENTRIES IN GROUP 02227800 * AUTHORITY TABLE RELATED TO THIS 02234900 * CONNECT GROUP @L6A 02242000 CGRPGPTE DS A ADDRESS OF FIRST GROUP AUTHORITY 02249100 * TABLE ENTRY RELATED TO THIS 02256200 * CONNECT GROUP @L6A 02263300 CGRPSUPG DS H INDEX IN CGRPENT OF ENTRY FOR 02270400 * SUPERIOR GROUP OF THIS ENTRY, 02277500 * TO WHICH USER IS CONNECTED @L6A 02284600 DS CL6 RESERVED. @L6A 02291700 MEND 02300000 * TERMINATE PLS COMMENT */ 02350000 *%ICHPCGRPLBL01:; 02400000 DCL 1 CGRP BASED, /* CONNECT GROUP NAME TABLE. */ 02450000 2 CGRPID CHAR(4), /* TABLE ID. */ 02500000 2 CGRPCORE, /* CGRP SUBPOOL AND LENGTH. */ 02550000 3 CGRPSP FIXED(8), /* SUBPOOL NUMBER. */ 02600000 3 CGRPLEN PTR(24), /* LENGTH OF CGRP. */ 02650000 2 CGRPNUM FIXED(15), /* MAXIMUM ENTRIES IN TABLE. */ 02700000 2 CGRPVRSN FIXED(8), /* VERSION = 1. */ 02750000 2 * CHAR(1), /* RESERVED. */ 02800000 2 CGRPSYNC FIXED(31),/* SYNCRONIZE VALUE. */ 02850000 2 CGRPGPAT PTR(31), /* ADDRESS OF GROUP AUTHORITIES 02860000 TABLE, OR ZERO IF NO SUCH TABLE 02870000 EXISTS @L6A*/ 02880000 2 * CHAR(12), /* RESERVED @L6A*/ 02890000 2 CGRPENT(*), /* GROUP NAME ENTRY. */ 02900000 3 CGRPNAME CHAR(8),/* GROUP NAME. */ 02950000 3 CGRPIND BIT(8), /* INDICATORS FOR THIS ENTRY */ 03000000 4 CGRPCHK BIT(1),/* ALWAYS ZERO, WAS REVOKE 03005800 INDICATOR @L6A*/ 03011600 4 CGRPREFR BIT(1),/* ON IF GROUP AUTHORITY TABLE 03017400 MUST BE REFRESHED FOR THIS 03023200 CONNECT GROUP @L6A*/ 03029000 4 CGRPCOMP BIT(1),/* ON IF GROUP ENTERED INTO 03034800 GROUP AUTHORITY TABLE AND 03040600 NO LATER AUTHORITY CHANGES 03046400 WERE MADE OR THE 03052200 GROUP DID NOT NEED TO BE 03054500 ENTERED INTO THE TABLE @L6A*/ 03056800 4 CGRPPROP BIT(1),/* ON IF THIS GROUP IS 03059100 OWNED BY ITS 03061400 SUPERIOR GROUP. INDICATES THE 03063700 GROUP IS PART OF THE SUBGROUP TREE 03066000 FOR PROPAGATION OF GROUP 03068300 AUTHORITIES @OZ79446*/ 03070600 4 * BIT(4), /* RESERVED @L6A*/ 03072900 3 CGRPAUTH BIT(8), /* GROUP AUTHORITY INDICATORS 03075400 @L6A*/ 03081200 4 CGRPSPEC BIT(1),/* ON IF GROUP-SPECIAL 03087000 AUTHORITY @L6A*/ 03092800 4 * BIT(1), /* RESERVED @L6A*/ 03098600 4 CGRPOPER BIT(1),/* ON IF GROUP-OPERATIONS 03104400 AUTHORITY @L6A*/ 03110200 4 CGRPAUDT BIT(1),/* ON IF GROUP-AUDITOR 03116000 AUTHORITY @L6A*/ 03121800 4 * BIT(4), /* RESERVED @L6A*/ 03127600 3 CGRPGPNM FIXED(15),/* NUMBER OF ENTRIES IN GROUP 03133400 AUTHORITY TABLE RELATED TO 03139200 THIS CONNECT GROUP @L6A*/ 03145000 3 CGRPGPTE FIXED(31),/* ADDRESS OF FIRST GROUP 03150800 AUTHORITY TABLE ENTRY RELATED 03156600 TO THIS CONNECT GROUP @L6A*/ 03162400 3 CGRPSUPG FIXED(15),/* INDEX IN CGRPENT OF ENTRY FOR 03168200 SUPERIOR GROUP OF THIS ENTRY, 03174000 TO WHICH THE USER IS 03179800 CONNECTED @L6A*/ 03185600 3 * CHAR(6), /* RESERVED. @L6A*/ 03191400 3 * CHAR(0); /* END OF ENTRY. */ 03200000 DCL CGRPTID CHAR(4) CONSTANT('CGRP');/* TABLE ID. */ 03250003