On 24 May 2013 09:15:52 -0700, in bit.listserv.ibm-main you wrote: >Guys and Gals: > >I just received a problem from a customer and its odd. I will try to explain. > >1. Customer is on z/OS 1.13 ..Put ( i dont know we have asked) >2. We have a STC that does this: > a. We issue a Storage Obtain like below > b. STC passed amount desired ...we call an assembler module which is >snippeted below.. > <obviously we are a vendor - i can show it all - and i am sorry about >that> > > LM R9,R11,4(R1) LOAD ADDRESS STG AMT, ADR & RC > L R9,0(R9) STG AMT - S/B 4K MULTIPLE > MODESET KEY=ZERO,MODE=SUP GO INTO SUPERVISOR MODE > STORAGE OBTAIN,LENGTH=(9),SP=231, X > LOC=31,COND=YES,CHECKZERO=YES > ST R1,0(R10) RETURN ADDR, IF ANY > ST R15,0(R11) RETURN CODE, OK IF ZERO > MODESET KEY=NZERO,MODE=PROB BACK TO MORTALITY > > c. STC shutdowns via a Modify command... > we call an asembler routine that issues the release > > LM R9,R11,4(R1) LOAD ADDRESS STG ADR, SIZE & RC > L R9,0(R9) STG ADR > L R10,0(R10) STG SIZE > MODESET KEY=ZERO,MODE=SUP GO INTO SUPERVISOR MODE > STORAGE RELEASE,LENGTH=(10),SP=231,ADDR=(9),KEY=0 > ST R15,0(R11) RETURN CODE, OK IF ZERO > MODESET KEY=NZERO,MODE=PROB BACK TO MORTALITY >*------------------------------------------------------------- > L R13,4(R13) CALLER SAVE AREA > RETURN (14,12),RC=(15) > As I read the code it is obtaining 9 bytes and releasing 10 bytes. Is this a transcription error?
Clark Morris >The problem is according to the customer we are not seeing a storage release >....we ran a GFS trace and I am looking at it. >This code basically hasnt been changed since 2002 ...and i know is running in >a lot of our customer environments.. >The only difference is there is a separate job to perform the allocation of >storage, then the STC ...then a separate job after the STC shutdowns to >release the storage. This is working fine. Can someone enlighten me ...? Does >storage linger after a STC shutdowns ? >I thought VSM cleans up .. > >Confused in NJ.... > >Regards, >Scott J Ford >Software Engineer >http://www.identityforge.com/ > >---------------------------------------------------------------------- >For IBM-MAIN subscribe / signoff / archive access instructions, >send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
