Belkin F5D5230-F Manual de instalación Pagina 54

  • Descarga
  • Añadir a mis manuales
  • Imprimir
  • Pagina
    / 115
  • Tabla de contenidos
  • MARCADORES
  • Valorado. / 5. Basado en revisión del cliente
Vista de pagina 53
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,=CL8GROUP IS PROFILE A GROUP-PROFILE @MC5
BE SCHKO5 YES, CHECK CALLERS 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+LCONGROUP 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,=F12' 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 USERS AUTH IN GROUP @MC5
* ONLY WHEN PROFILE CLASS IS USER.... @MC5
* CHECK FOR AUTH=CONNECT IN USERS OWNING GROUP @MC5
CLC RCLASS,=CL8USER IS IT USER-PROFILE REQUESTED ? @MC5
BE SCHKO8 YES, CHECK FOR AUTH=CONNECT @MC5
CLC RCLASS,=CL8GROUP 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 USERS 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,X4Ø AUTH=CONNECT AT LEAST ? @MC5
Vista de pagina 53
1 2 ... 49 50 51 52 53 54 55 56 57 58 59 ... 114 115

Comentarios a estos manuales

Sin comentarios