* /******************************************************************/ 00050000 * /* */ 00087500 * /* $MAC(ICHPMDEL) COMP(SC1BN) PROD(RACF): */ 00200000 * /* */ 00237500 * /* DESCRIPTIVE NAME = DATA SET MODEL NAME TABLE DEFINITION */ 00275000 * /* */ 00312500 * /* COPYRIGHT = NONE */ 00350000 * /* */ 00387500 * /* STATUS = OS/VS2 EBB1102 */ 00425000 * /* */ 00462500 * /* METHOD OF ACCESS = %INCLUDE SYSLIB(ICHPMDEL) FOR PLS */ 00500000 * /* */ 00537500 * /* FUNCTION = THE MDEL TABLE CONTAINS THE NAME OF THE USER'S */ 00587500 * /* MODEL PROFILE NAME. */ 00637500 * /* THE TABLE IS BASED ON THE 'ACEEMDLS' ADDRESS IN */ 00695800 * /* THE 'ACEE'. */ 00741600 * /* */ 00787400 * /* CHANGE ACTIVITY = */ 01062200 * /* $L0=HRF1402,RACF/140,810701,SJRDSD: */ 01108000 * /* OZ67435 @ZA67435*/ 01130900 * /* UZ90283 @ZA90283*/ 01136600 * /* UZ90284 @ZA90284*/ 01142300 * /* UZ90285 @ZA90285*/ 01148000 * /* */ 01153800 * /******************************************************************/ 01200000 *%GOTO ICHPMDELLBL01; /* BILINGUAL HEADER 01250000 MACRO 01300000 ICHPMDEL 01350000 MDEL DSECT MODEL NAME TABLE 01400000 MDELID DS CL4 TABLE IDENTIFIER = MDEL 01450000 MDELCORE DS F MDEL SUBPOOL AND LENGTH. 01500000 ORG MDELCORE 01550000 MDELSP DS AL1 SUBPOOL NUMBER FOR TABLE. 01600000 MDELLEN DS AL3 LENGTH OF MDEL TABLE. 01650000 MDELNUM DS H MAXIMUM NUMBER OF ENTRIES IN 01700000 * THIS TABLE. 01750000 DS AL1 RESERVED. 01800000 MDELVRSN DS AL1 VERSION = 0. 01850000 MDELNXT DS A ADDRESS OF NEXT MDEL TABLE OR 01900000 * ZERO IF NONE. 01950000 MDELENT DS CL49 MODEL NAME ENTRY. 02000000 * 02050000 * FOLLOWING DSECT DESCRIBES AN INDIVIDUAL MODEL NAME ENTRY. 02100000 * 02150000 MDELENTD DSECT DESCRIPTION OF INDIVIDUAL 02200000 * ENTRY. 02250000 MDELIND DS X INDICATORS FOR THIS ENTRY. 02300000 MDELABS EQU X'80' MODEL PROFILE IS ABSENT. 02350000 MDELUSR EQU X'40' MODEL ENTRY FOR THE USER. 02400000 MDELCHK EQU X'20' MODEL HAS BEEN LOOKED FOR. 02450000 MDELLOCK DS X IN USE INDICATOR. WILL BE 02500000 * ZERO IF FREE AND X'FF' IF IN 02550000 * USE. 02600000 DS AL2 RESERVED. 02650000 MDELQULL DS AL1 NONBLANK LENGTH OF QUALIFIER. 02700000 MDELQUAL DS CL8 FIRST LEVEL QUALIFIER. 02750000 MDELREML DS AL1 NONBLANK LENGTH OF REMAINDER 02800000 * OF MODEL NAME. 02850000 MDELREM DS CL35 RELATIVE MODEL NAME. 02900000 MEND 02950000 * TERMINATE PL/S COMMENT */ 03000000 * %ICHPMDELLBL01:; 03050000 DCL 1 MDEL BASED, /* ACEE DS MODEL NAME TABLE. */ 03100000 2 MDELID CHAR(4), /* TABLE ID. */ 03150000 2 MDELCORE, /* MDEL SUBPOOL AND LENGTH. */ 03200000 3 MDELSP FIXED(8), /* SUBPOOL NUMBER. */ 03250000 3 MDELLEN PTR(24), /* LENGTH OF MDEL. */ 03300000 2 MDELNUM FIXED(15), /* MAXIMUM ENTRIES IN TABLE. */ 03350000 2 * FIXED(8), /* RESERVED. */ 03400000 2 MDELVRSN FIXED(8), /* VERSION = 0. */ 03450000 2 MDELNXT PTR(31), /* NEXT MDEL TABLE. */ 03500000 2 MDELENT(1), /* MODEL NAME ENTRY. @ZA67435*/ 03550000 3 MDELIND BIT(8), /* INDICATORS FOR THIS ENT. */ 03600000 4 MDELABS BIT(1),/* 1 - MODEL PROFILE ABSENT */ 03650000 4 MDELUSR BIT(1),/* 1 - MODEL FOR USER */ 03700000 4 MDELCHK BIT(1),/* 1 - MODEL LOOKED FOR. */ 03750000 3 MDELLOCK CHAR(1),/* IN USE INDICATOR. WILL BE */ 03800000 /* ZERO IF FREE AND X'FF' IF */ 03850000 /* IN USE. */ 03900000 3 * CHAR(2), /* RESERVED. */ 03950000 3 MDELQULL FIXED(8),/* NONBLANK LENGTH OF QUAL. */ 04000000 3 MDELQUAL CHAR(8),/* FIRST LEVEL QUALIFIER. */ 04050000 3 MDELREML FIXED(8),/* NONBLANK LENGTH OF REST. */ 04100000 3 MDELREM CHAR(35),/* RELATIVE MODEL NAME. */ 04150000 3 * CHAR(0); /* END OF ENTRY. */ 04200000 DCL MDELTID CHAR(4) CONSTANT('MDEL');/* TABLE ID. */ 04250003