Belkin F5D5230-F Installationshandbuch PDF herunterladen (Seite 30)

* CALL TSO PARSER

CALLTSSR EP=IKJPARS,MF=(E,(R2))

ST R15,SAVER15

LTR R15,R15

BNZ ERR1

DROP R8 DROP CPPL

* PROCESS RESULTS FROM PARSER

PARSOK DS ØH

L R8,LOCANS TO PARSED COMMAND

USING IKJPARMD,R8

OC KRG,KRG WAS RGROUP/NORGROUP CODED ? @MC7

BZ *+8 NO @MC7

OI KRG,X8Ø SET USER OVERRIDE FLAG @MC7

* @MC6

* SET UP RECOVERY ENVIRONMENT @MC6

* @MC6

STM RØ,R15,RECREGS SAVE REGS FOR ESTAE EXIT RETRY @MC6

OC KDEBUG,KDEBUG DEBUG MODE SPECIFIED ? @MC6

BNZ ESTAEOK YES, OMIT ESTAE @MC6

LR R2,R13 POINT TO AREA TO PASS TO ESTAE @MC6

ESTAE ESTAEX,PARAM=(2) @MC6

LTR R15,R15 ESTAE SETUP OK ? @MC6

BZ ESTAEOK YES @MC6

CVD R15,DWD1 RETURN CODE FROM ESTAE @MC6

OI DWD1+7,XØF @MC6

UNPK EMSG9RC,DWD1+6(2) @MC6

LA R1,EMSG9 @MC6

LA RØ,LEMSG9 @MC6

BAL R14,SPUTMSG ESTAE FAILED, BUT CONTINUE @MC6

ESTAEOK DS ØH @MC6

* GET FUNCTION CODE (1ST OPERAND OF COMMAND)

L R15,=V(PCLPDL)

USING PCLPDL,R15

LH R1,KFUNC+4 OFFSET TO FUNC PDE IN PDL

LA R1,IKJPARMD(R1) ADDR FUNC PDE

LH R1,4(R1) GET RESERVED WORD NO.

STC R1,FUNCODE SAVE IT

DROP R15

* GET CLASS NAME FROM PARMS, OR USE DEFAULT

MVC RCLASSL,DFLTCLS USE DEFAULT CLASS LEN

MVC RCLASS,DFLTCLS+1 AND DEFAULT CLASS NAME

SLR R2,R2

1 2 ... 25 26 27 28 29 30 31 32 33 34 35 ... 114 115

Keine Kommentare

Belkin F5D5230-F Installationshandbuch Seite 30