And isn't he lucky that IBM implemented low-core protection? In MVS, he'd be looking at an IPL at least. A hard wait or supervisor program check loop at worse.
John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM > -----Original Message----- > From: IBM Mainframe Discussion List > [mailto:ibm-m...@bama.ua.edu] On Behalf Of Tom Marchant > Sent: Wednesday, December 15, 2010 2:06 PM > To: IBM-MAIN@bama.ua.edu > Subject: Re: Batch program to update CVTUSER > > 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html > > ---------------------------------------------------------------------- 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
