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 [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
