Are WORKSWA and WORKZB5 aligned appropriately?  

===

 
> Date: Tue, 27 Jan 2015 12:33:22 -0800
> From: [email protected]
> Subject: RC4 from SWAREQ?!
> To: [email protected]
> 
> 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

Reply via email to