Belkin F5D5230-F Installationshandbuch PDF herunterladen (Seite 31)

ICM R2,3,CLASS+4 LEN CLASSNAME

BZ CLSØ1 USE DEFAULT

ICM R1,15,CLASS TO CLASS FROM PARMS

STC R2,RCLASSL STORE LEN CLASSNAME

BCTR R2,Ø

MVC RCLASS,=CL8' 

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

EX R2,*-6 USE CLASS NAME FROM PARMS

CLSØ1 DS ØH

* GET PROFILE NAME FROM PARMS

SLR R2,R2

ICM R2,3,PROF+4 LEN PROFILE FROM COMMAND LINE

BZ ERR4 NONE, ERROR

MVC PROFNAME,BLANKS

STC R2,PROFNAME

ICM R1,15,PROF PROFILE ADDRESS FROM PARMS

BCTR R2,Ø

MVC PROFNAME+1(*-*),Ø(R1)

EX R2,*-6 MOVE TO OUR AREA

* GET SEGMENT NAME FROM PARMS, OR USE DEFAULT

MVC RSEG,DFLTSEG+1 USE DEFAULT SEGMENT NAME

SLR R2,R2

ICM R2,3,SEGNAME+4 LEN SEGMENT FROM PARMS

BZ SEGØ1 NONE, USE DEFAULT

ICM R1,15,SEGNAME TO SEGMENT NAME FROM PARMS

BCTR R2,Ø

MVC RSEG,=CL8' 

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

EX R2,*-6 USE SEGMENT NAME FROM PARMS

SEGØ1 DS ØH

CLI FUNCODE,FUNCGET CHECK FUNCTION

BE SEGØ2 CAN RETRIEVE FROM ANY SEGMENT

CLC RSEG,=CL8BASE UPDATE FUNCTIONS CAN ONLY PROCESS

BNE ERR8 USERDATA IN BASE SEGMENT

SEGØ2 DS ØH

* SET UP BASIC ICHEINTY ACCORDING TO CLASS AND SEGMENT NAME

XC RACWA,RACWA CLEAR WORK AREA

L RØ,=A(RACWAL) GET LENGTH @MC1

ST RØ,RACWA AND STORE IN WORK AREA

MVI INTYF+3,Ø RESET ACTION COUNT FOR LOCATE FLDEF

ICHEINTY ENTRY=PROFNAME,CLASS=RCLASS,OPTIONS=(NOPRO,NOEXEC), +

RELEASE=1.9,MF=(E,INTY1) POINT TO PROFILE AND CLASS @MC4

ICHEINTY LOCATE,TYPE=USR,RELEASE=1.9,OPTIONS=(NOPRO,NOEXEC), +

SEGMENT=RSEG, (ONLY NEED PUT SEGMENT IN ONCE) +

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

Kommentare zu diesen Handbüchern

Keine Kommentare

Belkin F5D5230-F Installationshandbuch Seite 31

Kommentare zu diesen Handbüchern

Verwandte Produkte und Handbücher für Software Belkin F5D5230-F