> -----Original Message-----
> From: IBM Mainframe Discussion List On Behalf Of Steve Comstock
>
> On 12/15/2010 12:22 PM, Lorne Dudley wrote:
> > I'm having problems getting the following batch program to run
correctly. It's
> > running from an authorized library and abends with 0C4, reason code
4.
> >
> > The book says "the key of the storage area that the running program
tries to
> > access is different from that of the running program".
> >
> > Data Areas for CVT says
> > Storage Attributes: Subpool: Nucleus
> > Key: 0
> > Residency: Below 16M line
> >
> > Any ideas appreciated.
> >
> > The code is below, linked into an authorized library with
> > SETCODE AC(1).
> >
> > Regards
> >
> > Lorne Dudley
> > Queen's University
> > Kingston, Ontario
> >
> >
------------------------------------------------------------------------
-----
> > TITLE 'CVTUSER TEST'
> > CVT DSECT=YES,LIST=YES .CVT DSECT
> > Y CSECT ,
> > *
> > * REGISTER EQUATES
> > *
> > R0 EQU 0 .
> > R1 EQU 1 .
> > R2 EQU 2 .CVT ADDRESS
> > R3 EQU 3 .CVTUSER ADDRESS
> > R4 EQU 4 .
> > R9 EQU 9 .BASE ADDRESS OF THIS EXIT
> > R10 EQU 10 .
> > R15 EQU 15 .
> > *
> > SAVE (14,12),,X_V1.0_&SYSDATE SAVE & ID
> > LR R9,R15 .SET UP ADDRESSABILITY
> > USING Y,R9 .SET UP ADDRESSABILITY
> > USING CVT,R2 .CVT DSECT
> > *
> > MODESET KEY=ZERO,MODE=SUP
> > *
> > L R2,CVTPTR LOAD UP CVT ADDRESS
> > L R3,CVTUSER LOAD CVTUSER ADDRESS
> > * move 4 characters to CVTUSER
> > MVC R3(4),=C'TEST'
>
> YIKES! the above says "move to a displacement of 3
> for a length of 4 to absolute location 0, the
> string "TEST". That is: move absolute locations 3-6
> the string "TEST".
>
> You cannot use R3 to indicate a dynamic displacement.
>
>
> > RETURN (14,12),RC=0 .RETURN TO CALLER
> > LTORG
> > PATCH DC 2D'0' .16 BYTE PATCH AREA
> > END
> >
Hmmm.... Returns to caller in sup state and key 0.... Sort of like a
"magic SVC"?
Or does MODESET "automagically" cancel itself?
-jc-
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
