I have no working example of SWAREQ at hand,
but from your coding I don't quite understand how SWAEPAX relates to
the parameter list pointer WORKZB5 ... is there anything missing ??
How are the fields SWAEPAX and SWVA mapped to the dynamic area
identified by WORKZB5? (I think they should ...).
Sorry for asking silly questions ... sometimes this leads to the solution.
Kind regards
Bernd
Am 27.01.2015 um 21:33 schrieb Phil Smith:
I'm getting return code 4 from SWAREQ. That isn't a documented RC anywhere that
I can find. Anyone seen this? I'm not doing anything exotic: I've found a TIOT
entry and am passing the token (the three-byte former JFCB address) to SWAREQ:
MVC WORKSWA(LISTSWAL),LISTSWA Copy macro template
XC SWAEPAX(ZB505LN),SWAEPAX Clear the parameter list
MVC SWVA(3),TIOEJFCB Set the SWA token for the call
SWAREQ FCODE=RL, Do read/locate call *
EPA=WORKZB5, Parameter list pointer *
MF=(E,WORKSWA), List form *
UNAUTH=YES Not an authorized program
and elsewhere:
LISTSWA SWAREQ MF=L,UNAUTH=YES LIST FORM OF THE REQUEST
LISTSWAL EQU *-LISTSWA
IEFZB505 LOCEPAX=YES Map the SWAREQ parameter list
ZB505LN EQU *-ZB505 Length of SWAREQ parameter list
and in my dynamic workarea:
WORKSWA DS XL(LISTSWAL)
WORKZB5 DS XL(ZB505LN) SWAREQ parameter list, mapped by IEFZB505
This is of course all based on stuff I found elsewhere, but it seems pretty
straightforward.
Any ideas?
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
