54
© 2002. Xephon UK telephone 01635 33848, fax 01635 38345. USA telephone (303) 410 9344, fax (303) 438 0290.
ST RØ,RACWA AND STORE IN WORK AREA @MC4
@TRACE CHECKING AUTHORITY OVER ,(RCLASS,8), , @MC5 +
(PROFNAME+1,44) @MC5
* IF PROFILE IS A GROUP, CHECK AUTHORITY WITHIN GROUP FIRST @MC5
MVC OWNER,PROFNAME+1 GROUPNAME=PROFILE NAME @MC5
MVC RESOWNER,PROFNAME+1 FOR AUTH=CONNECT CHECK ONLY @MC5
CLC RCLASS,=CL8GROUP IS PROFILE A GROUP-PROFILE @MC5
BE SCHKO5 YES, CHECK CALLERS AUTH IN IT @MC5
* GET OWNER OF REQUESTED PROFILE (ASSUME OWNER IS A GROUP) @MC4
ICHEINTY LOCATE,ACTIONS=(ACTN6),RELEASE=1.9, @MC4 +
OPTIONS=(ACTION),WKAREA=RACWA, @MC4 +
MF=(E,INTY1) @MC4
MVC RESOWNER,RACWA+32 SAVE RESOURCE OWNER @MC5
MVC OWNER,RACWA+32 SET UP FOR GROUP TREE CHECK @MC5
@TRACE PROFILE OWNER=,(OWNER,8) @MC5
* GET CONNECT INFO FOR CALLER FROM (ASSUMED) OWNING GROUP @MC5
SCHKO5 DS ØH @MC5
MVC CONGROUP,OWNER GET OWNER OF GROUP/RESOURCE @MC5
MVC ACLUSER,TSUSER SET UP TSO USERID FOR ACTN8 @MC5
LA RØ,CONGROUP CALCULATE... @MC5
LA R1,CONGROUP+LCONGROUP REAL LENGTH... @MC5
TRT CONGROUP,TRTAB2 OF... @MC5
SR R1,RØ GROUP... @MC5
STH R1,CONGRPL+2 NAME @MC5
@TRACE GETTING CALLERS AUTHORITY IN GROUP ,(CONGROUP,8) @MC5
ICHEINTY LOCATE,TYPE=GRP,ENTRYX=CONGRPL, @MC5 +
ACTIONS=(ACTN6,ACTN8), @MC5 +
OPTIONS=(ACTION,TESTM),WKAREA=RACWA, @MC5 +
RELEASE=1.9,MF=(E,INTY2) @MC5
C R15,=F12' DOES GROUP EXIST ? @MC5
BE SCHKORC4 NO, TOP OF GROUP TREE @MC5
MVC OWNER,RACWA+32 GROUP OWNER (NEXT 1 UP TREE) @MC5
@TRACE (GROUP OWNER= ,(OWNER,8),) @MC5
CLI TEST8+1,Ø IS CALLER CONNECTED TO GROUP? @MC5
BNE SCHKO5 NO, KEEP GOING UP GROUP TREE @MC5
@TRACE CALLER CONNECTED TO ,(CONGROUP,8) @MC5
MVC USERACS,RACWA+44 SAVE USERS AUTH IN GROUP @MC5
* ONLY WHEN PROFILE CLASS IS USER.... @MC5
* CHECK FOR AUTH=CONNECT IN USERS OWNING GROUP @MC5
CLC RCLASS,=CL8USER IS IT USER-PROFILE REQUESTED ? @MC5
BE SCHKO8 YES, CHECK FOR AUTH=CONNECT @MC5
CLC RCLASS,=CL8GROUP GROUP-PROFILE REQUESTED ? @MC5
BNE SCHK1Ø NO, NORMAL CHECKING @MC5
SCHKO8 DS ØH @MC5
@TRACE CHECKING IF ,(CONGROUP,8), IS PROFILE OWNER
CLC CONGROUP,RESOWNER IS THIS THE USERS OWNING GROUP? @MC5
* (OR THE GROUP ITSELF IF CLASS=GROUP) @MC5
BNE SCHK1Ø NO, NORMAL CHECKING @MC5
@TRACE YES, CHECKING IF AUTH=CONNECT... @MC5
CLI USERACS,X4Ø AUTH=CONNECT AT LEAST ? @MC5
Comentarios a estos manuales