SWAREQ - Getting S0C4 when using SWBLKPTR

I am using SWAREQ in unauthorized mode. When I try to access the
memory pointed to by SWBLKPTR I get a S0C4. What gives? What's the
point in having an unauthorized mode when the results are unusable?

Code:

ST     R2,SWEPAPTR             INITIALIZE EPA POINTER
USING  ZB505,R2                ESTABLISH ADDRESSABILITY TO
EPA
XC     SWAEPAX,SWAEPAX          INITIALIZE THE EPA
ST     R1,SWVAFW           MV SVA OF JFCB INTO EPA
SWAREQ  FCODE=RL,EPA=SWEPAPTR,MF=(E,SWAPARMS),UN
AUTH=YES
LR     R1,R15
DROP R2
*
SWEPAPTR DS    F
SWAPARMS SWAREQ MF=L
IEFZB505 LOCEPAX=YES
CVT DSECT=YES
IEFJESCT
IEFTIOT1
IEFJFCBN

On 30 Dec 2003 06:54:57 -0800 Timothy_S_Coffey@bankone.com (Tim Coffey) wrot
e:

:>I am using SWAREQ in unauthorized mode. When I try to access the
:>memory pointed to by SWBLKPTR I get a S0C4. What gives? What's the
:>point in having an unauthorized mode when the results are unusable?

Amode?

--
Binyamin Dissen <bdissen@dissensoftware.com>
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel

Binyamin Dissen <postingid@dissensoftware.com> wrote in message news:<4183vv02el14vvdcsr08i
92ol5r9jsgqr8@4ax.com>...
> On 30 Dec 2003 06:54:57 -0800 Timothy_S_Coffey@bankone.com (Tim Coffey) wr
ote:
>
> :>I am using SWAREQ in unauthorized mode. When I try to access the
> :>memory pointed to by SWBLKPTR I get a S0C4. What gives? What's the
> :>point in having an unauthorized mode when the results are unusable?
>
> Amode?

It's AMODE(31). Is the leading byte of the SWBLKPTR perhaps not part
of the address (maybe it's a 24-bit address). I'll run a quick test
for that.

Tim Coffey wrote:
> I am using SWAREQ in unauthorized mode. When I try to access the
> memory pointed to by SWBLKPTR I get a S0C4. What gives? What's the
> point in having an unauthorized mode when the results are unusable?
>
> Code:
>
>          ST     R2,SWEPAPTR             INITIALIZE EPA POINTER
>          USING  ZB505,R2                ESTABLISH ADDRESSABILITY TO
> EPA
>          XC     SWAEPAX,SWAEPAX          INITIALIZE THE EPA
>          ST     R1,SWVAFW           MV SVA OF JFCB INTO EPA
>          SWAREQ  FCODE=RL,EPA=SWEPAPTR,MF=(E,SWAPARMS),UN
AUTH=YES
>          LR     R1,R15
>          DROP R2
> *
> SWEPAPTR DS    F
> SWAPARMS SWAREQ MF=L
>          IEFZB505 LOCEPAX=YES
>          CVT DSECT=YES
>          IEFJESCT
>          IEFTIOT1
>          IEFJFCBN


I have a possibility for you to look at (no experience, and I haven't
tried to code the interface).

The example in the book
OS/390: MVS Programming: Authorized Assembler Services Guide
shows
SWAREQ FCODE=RL,EPA=SWEPAPTR,MF=(E,SWAPARMS)  LOCATE THE JFCB
L      7,SWBLKPTR             SET THE POINTER TO THE JFCB
USING  INFMJFCB,7             ESTABLISH ADDRESSABILITY TO JFCB

Your posted code is unclear in the area of what you do after return, but
if you are trying to use the R15 contents as the pointer to the JFCB, I
believe that would cause you grief, because it is the Return Code.

The Guide also says you need to use IEFQMIDS to map to SWA Block IDs,
which is not in your posted code.

Everything else looks exactly like the manuals say it should be.

Good luck!

How about STCM  R1,7,SWVA?

PF.

Tim Coffey wrote:

> I am using SWAREQ in unauthorized mode. When I try to access the
> memory pointed to by SWBLKPTR I get a S0C4. What gives? What's the
> point in having an unauthorized mode when the results are unusable?
>
> Code:
>
>          ST     R2,SWEPAPTR             INITIALIZE EPA POINTER
>          USING  ZB505,R2                ESTABLISH ADDRESSABILITY TO
> EPA
>          XC     SWAEPAX,SWAEPAX          INITIALIZE THE EPA
>          ST     R1,SWVAFW           MV SVA OF JFCB INTO EPA
>          SWAREQ  FCODE=RL,EPA=SWEPAPTR,MF=(E,SWAPARMS),UN
AUTH=YES
>          LR     R1,R15
>          DROP R2
> *
> SWEPAPTR DS    F
> SWAPARMS SWAREQ MF=L
>          IEFZB505 LOCEPAX=YES
>          CVT DSECT=YES
>          IEFJESCT
>          IEFTIOT1
>          IEFJFCBN

In your first two statements Tim:

ST     R2,SWEPAPTR INITIALIZE EPA POINTER
USING  ZB505,R2       ESTABLISH ADDRESSABILITY TO EPA

Are you sure you want to Store R2 in SWEPAPTR before setting up EPA
addressability?  Perhaps you should be loading R2 from SWEPAPTR instead?

Cheers, Mark Dixon
em dixon at anysize dot com.