> MVC R3(4),=C'TEST'
This appears not to have been written by an assembler programmer. It tries to
move C'TEST' to location 3.
Try: MVC CVTUSER,=C'TEST'
> Date: Wed, 15 Dec 2010 14:22:03 -0500
> From: dudl...@queensu.ca
> Subject: Batch program to update CVTUSER
> To: IBM-MAIN@bama.ua.edu
>
> 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'
> RETURN (14,12),RC=0 .RETURN TO CALLER
> LTORG
> PATCH DC 2D'0' .16 BYTE PATCH AREA
> END
----------------------------------------------------------------------
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
