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
