Belkin F5D5230-F Manual de instalación descargar pdf (Pagina 38)

* IF CALLER STILL DOESNT HAVE ACCESS TO THE FIELD, LET @MC4

* ICHEINTY USE STANDARD FIELD CHECKING AS THIS WILL ALSO @MC4

* RECOGNISE &RACUID WHEN USED ON A GENERIC FIELD PROFILE @MC4

* DESCRIBING THE USER CLASS, E.G. USER.BASE.* @MC4

* @MC4

ICHEINTY FLDACC=YES,OPTIONS=(NOPRO,NOEXEC), +

RELEASE=1.9,MF=(E,INTY1) SWITCH ON FIELD ACCESS @MC4

FLDOK DS ØH @MC4

ST R4,Ø(R3) PUT ACTION ADDR IN FLDEF LIST

LH R1,FLDCOUNT

LA R1,1(R1) INCR FIELD (ACTION) COUNT

STH R1,FLDCOUNT

LA R3,4(R3) TO NEXT ACTION PTR IN FLDEF LIST

LA R4,LACTN+4(R4) TO AREA FOR NEXT ACTION

ICM R5,15,8(R5) TO NEXT FIELD-NAME PDE

C R5,=XFFØØØØØØ ANY MORE

BNE FLDL1 YES

MVC INTYF+3(1),FLDCOUNT+1 SET ACTION COUNT IN FLDEF LIST

********************************************************************

* RETRIEVE INFORMATION FROM RACF DATABASE

********************************************************************

LOC1 DS ØH

OC KUSRDATA,KUSRDATA WAS USERDATA SPECIFIED

BZ LOC2 NO, USE DYNAMIC FLDEF LIST

* FOR USERDATA, RETRIEVE ALL USERDATA USING 2 FIXED ACTIONS

ICHEINTY LOCATE,ACTIONS=(ACTN2,ACTN2A),RELEASE=1.9, +

OPTIONS=(ACTION),WKAREA=RACWA, +

MF=(E,INTY1)

B CHKINTY

* FOR NON-USERDATA, USE DYNAMIC FLDEF ACTION LIST

LOC2 DS ØH

OC FLDCOUNT,FLDCOUNT CHECK NO. OF FIELDS

BZ ERR3

ICHEINTY LOCATE,RELEASE=1.9, +

OPTIONS=(ACTION),FLDEF=INTYF,WKAREA=RACWA, +

MF=(E,INTY1)

C R15,=F88' FIELD-LEVEL-ACCESS SOME FAILED @MC5

BNE CHKINTY NO, CHECK ANY OTHER ERRORS @MC5

LA R1,EMSG7A INDICATE NOT ALL FIELDS WERE @MC5

LA RØ,LEMSG7A RETURNED DUE TO ACCESS CHECK @MC5

BAL R14,SPUTMSG FAILURE. @MC5

MVC RETCODE,=F8' INDICATE AUTH ERROR IN RETCODE @MC5

SLR R15,R15 TREAT AS SUCCESSFUL @MC5

1 2 ... 33 34 35 36 37 38 39 40 41 42 43 ... 114 115

Comentarios a estos manuales

Sin comentarios

Belkin F5D5230-F Manual de instalación Pagina 38

Comentarios a estos manuales

Relacionado con productos y manuales para Software Belkin F5D5230-F