RACROUTE REQUEST=VERIFY[X} w/ INSTLN={data-area}

Document ID : KB000124490
Last Modified Date : 29/01/2019
Show Technical Document Details
Introduction:
an example of the RACROUTE REQUEST=VERIFY[X] macro with the INSTLN={data-area} operand is not available
Question:
The documentation does NOT provide an example of using the RACROUTE REQUEST=VERIFY[X] macro with the INSTLN={data-area} operand.
Could you please have the documentation updated to illustrate the use of the INSTLN={data-area} operand in this scenario and to specifically map the structure of the feedback area.
Environment:
z/os
Answer:
Following is an example to code INSTLN:
LA R9,UCBACEE
MVC WKCHECK(RACHECKL),RACHECKX
MVC RVINST(5),FDB1
RACROUTE REQUEST=VERIFY,ENVIR=CREATE,USERID=RVUSER,LOG=ALL, X
PASSWRD=RVPASS,INSTLN=RVINST,WORKA=RVWORKA,MSGRTRN=YES, X
ACEE=UCBACEE,MF=(E,WKCHECK),RELEASE=7708
RVUSER DC AL1(L'RVUSERID)
RVUSERID DC C'useridxx' RVPASS DC AL1(L'RVPASSWD)
RVPASSWD DC C'password'
FDB1 DC C'TSSF',X'FF'
RACHECKX RACROUTE REQUEST=VERIFY,RELEASE=7708,MF=L
RACHECKL EQU *-RACHECKX
WORKAREA DSECT
SAVEAREA DC 18F'0' 18 FULLWORD SAVE AREA.
UCBACEE DS A
RVINST DC CL4'TSSF',X'FF'
DC XL(255-(*-RVINST))'00'
RVWORKA DS 512X'00'
WKCHECK DS CL(RACHECKL)
WORKLEN EQU *-WORKAREA