On Wed, 15 Dec 2010 14:22:03 -0500, 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". > >----------------------------------------------------------------------------- > 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 >
I don't want to be rude, but if you are not proficient at coding in assembler and debugging, you really shouldn't be writing authorized code. -- Tom Marchant ---------------------------------------------------------------------- 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
