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

57

SCNVX DS ØH

CLI FLDIND+3,CX HEX ?

BNE SCNVRET NO

*

* CONVERT HEX

*

LA R2,1(R2) INCL. DUMMY BYTE AT END OF SOURCE

UNPK WORK1,Ø(*-*,R1)

EX R2,*-6

TR WORK1,TRTAB1 TRANSLATE TO EBCDIC

LR R2,RØ INPUT LEN

SLL R2,1 OUTPUT LEN = INPUT_LEN*2

LA R3,WORK1+LWORK1-1 PAST END OF TRANSLATED DATA

SR R3,R2 BACK TO START OF CONVERTED DATA

SCNVRET LM R4,R8,SAVESUB+8

BR R1Ø

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

* *

* SUBROUTINE: WRITE DATA TO CLIST VARIABLE *

* *

* ON ENTRY: VALUELEN = LEN OF DATA TO WRITE *

* VALUEPTR = ADDR OF DATA TO WRITE TO VARIABLE *

* FLDNAME = NAME OF FIELD *

* VARNO = VARIABLE NO. (TO SUFFIX FLDNAME)/ OR Ø *

* *

* IF VALUELEN=Ø THE VARIABLE IS SET TO NULL. *

* *

* ON EXIT : DATA WRITTEN TO CLIST VARIABLE *

* VARNO INCREMENTED +1 IF RPT.GRP.OCCURRENCE (OCCNO¬=Ø) *

* RETURNS VIA R1Ø *

* *

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

SCVAR DS ØH

STM R15,R4,SAVESUB2

MVC VARNAME,BLANKS ENSURE NO RESIDUE FROM LAST TIME

MVC VARNAME(LFLDNAME+LFLDNAMEX),FLDNAME NAME+SUFFIX @MC7

LA R3,VARNAME+LVARNAME-1 TO END OF VAR NAME FIELD

LA R2,LVARNAME MAX LEN VARIABLE NAME

SCVAR5 DS ØH

CLI Ø(R3),C  SCAN BACK FOR LAST CHAR OF NAME

BNE SCVAR1Ø FOUND IT

BCTR R3,Ø TO PREV CHAR

BCT R2,SCVAR5 DECR LEN AND SCAN

ABEND 99,DUMP SHOULD NEVER HAPPEN

SCVAR1Ø DS ØH

ST R2,NAMELEN PUT NAME LENGTH IN PARMS

CP OCCNO,=PØ IS THIS A RPT GRP OCCURRENCE

BE SCVAR2Ø NO: VARIABLE NAME IS READY

MVC WORK1(5),=5X2Ø SET UP EDIT MASK

AP VARNO,=P1' INCR. FOR NEXT VAR. NO.

Belkin F5D5230-F Manual de instalación Pagina 57

Comentarios a estos manuales

Belkin F5D5230-F Manual de instalación Pagina 57

Comentarios a estos manuales

Relacionado con productos y manuales para Software Belkin F5D5230-F