John: Here it is: DYNAMIC DSECT SAVEAREA DS 18F register save area PARMLIST DS F IDFWORK DS 18F .... .... .... DYNSIZE EQU *-DYNAMIC length of DSECT
I can see the abend, no problem, maybe some other app was hogging Private High , in the dump we see a wto message I have queued up when the LTR R15,R15 returns a nonzero...But overflow into subpool 230 .. Does this sound right ? Scott J Ford Software Engineer http://www.identityforge.com ________________________________ From: "McKown, John" <john.mck...@healthmarkets.com> To: ASSEMBLER-LIST@LISTSERV.UGA.EDU Sent: Wednesday, June 6, 2012 12:57 PM Subject: Re: Getmain question GETMAIN RU is "Register Unconditional" which means that if it fails, it should get an ABEND of some sort. Also, I don't see where the ALLOWUSERKEY(CSA) is relevant because the doc says that the default key is 0 if the KEY= operand is not specified. Watch for wrap! http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/iea2v2b0/1.8.3.1?ACTION=MATCHES&REQUEST=229&TYPE=FUZZY&SHELF=iea2bkb1.bks&DT=20100621202051&CASE=&searchTopic=TOPIC&searchText=TEXT&searchIndex=INDEX&rank=RANK&ScrollTOP=FIRSTHIT#FIRSTHIT And, out of curiosity, is DYNSIZE an EQU for a length, or a fullword containing the length? If the latter, the code should be L R0,DYNSIZE. I ask because I usually have DYNSIZE be a fullword storage area. Perhaps it's just a coincident that we used the same name differently. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets® 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® is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company®, Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM > -----Original Message----- > From: IBM Mainframe Assembler List > [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU] On Behalf Of Scott Ford > Sent: Wednesday, June 06, 2012 11:41 AM > To: ASSEMBLER-LIST@LISTSERV.UGA.EDU > Subject: Getmain question > > Guys: > > I am issuing a : > > LA R0,DYNSIZE dynamic area size to R0 > GETMAIN RU,LV=(0),SP=229 getmain dynamic area > LTR R15,R15 Do we have a zero return code ? > BNZ GETVERR No bailout with a msg > USING DYNAMIC,R1 Getmain - good > ST R13,SAVEAREA+4 save caller's savearea address > ST R1,8(R13) save our savearea address > LR R13,R1 our savearea address to R13 > DROP R1 > USING DYNAMIC,R13 > LA R1,IDFWORK > ST R1,PARMLIST > OI PARMLIST,X'80' > > This is being issued in IRREVX01, DYNSIZE is about 1000 > bytes. A customer reported a S0C4-11 but they had > > DIAG00 in SYS1.PARMLIB as > DIAG > VSM TRACK CSA(ON) SQA(ON) > VSM TRACE > GETFREE(OFF) > VSM ALLOWUSERKEYCSA(YES) > > What we saw in a trace is getmains for subpool 230...we arent > using 230, if sp229 didnt have enough storage i know this is > Private High, would i see a S0C4-11...? > > Whats even more interesting, onely one customer out of about > 300+ are seeing this on z/OS 1.11 > One of the reasons I am asking, there seems to be a lot of > issues with the DIAG parameter: > > > VSM ALLOWUSERKEYCSA(YES) > > > > Am i all wet or am i thinking right .... > > Regards, > > Scott J Ford > Software Engineer > http://www.identityforge.com > >