Belkin F5D5230-F Manual de Instalação descarregar pdf (Página 35)

ICM R1,15,FIELDS FIELD NAME ADDRESS FROM PARMS

BCTR R2,Ø

MVC UDNAME(*-*),Ø(R1)

EX R2,*-6 SET FIELD NAME IN USRNM

* DO AUTH CHECK FOR FIELD

LA R3,AUTHENT TO START OF AUTH ENTITY NAME

AH R3,AUTHL +LEN OF CLASS.SEG PART OF NAME

MVI Ø(R3),C. DOT SEPARATOR

MVC 1(8,R3),BLANKS ENSURE LAST FIELD NAME CLEARED

MVC 1(*-*,R3),Ø(R1) ADD FIELD NAME TO ENTITY NAME

EX R2,*-6

AH R2,AUTHL NEW LEN INCLUDING FIELD NAME

LA R2,2(R2) (+1 FOR EARLIER BCTR +1 FOR DOT)

STH R2,AUTHENTL+2 @MC4

BAL R1Ø,SAUTHCHK CHECK ACCESS TO CLASS.SEGMENT.FIELD

LTR R15,R15

BNZ ERR7 NOT AUTHORISED TO FIELD

CLI FUNCODE,FUNCADD IS IT AN ADD REQUEST

BE UPDADD YES, NO DELETE REQUIRED

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

* DELETE A SPECIFIC OCCURRENCE

* (REP ALSO DOES DELETE FOLLOWED BY ADD)

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

DELSPEC DS ØH

* RETRIEVE ALL USERDATA AND DELETE REQUIRED OCCURRENCES FROM WORK

* AREA THEN REWRITE ENTIRE USERDATA.

* THIS IS DONE TO ENABLE MULTIPLE OCCURRENCES WITH THE SAME USRNM TO

* BE STORED, ICHEINTY DELETE DOES NOT WORK PROPERLY IN THIS CASE.

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

OPTIONS=(ACTION),WKAREA=RACWA, +

MF=(E,INTY1)

MVI FLG2GETU,FLG2DEL INDICATE DELETE TO SGETUDAT ROUTINE

BAL R1Ø,SGETUDAT DELETE OCCURRENCES FROM WORK AREA

* ST R3,AOCC SAVE ADDR LOCATED OCCURRENCE

STC R15,DELRC SAVE RC FROM DELETE

SLR R15,R15 RESET SO CHKINTY DROPS THRO

CLI DELRC,Ø ANY FIELD FOUND AND DELETED ?

BNE DELCHK NO, NOTIFY USER

ICM R1,15,USRCNT ANY OCCURRENCES LEFT

BZ DELALL NO, DELETE THE LOT

* INSERT NEW USERDATA LENGTH INTO ACTN.

* REWRITE ALL USERDATA.

1 2 ... 30 31 32 33 34 35 36 37 38 39 40 ... 114 115

Sem comentários

Belkin F5D5230-F Manual de Instalação Página 35