You are RELEASEing without OBTAINing. On Tue, 10 May 2011 11:27:33 -0400 "Veilleux, Jon L" <[email protected]> wrote:
:>Here is a sample of a base that should handle saving and restoring registers using the stack and getmained storage. :> :>ASMBASE AMODE 31 * GET CONTROL IN 31-BIT MODE :>ASMBASE RMODE ANY * CAN RESIDE ANYWHERE :> SYSSTATE ARCHLVL=2 :>ASMBASE CSECT * :> BAKR R14,0 * SAVE STATUS ON THE STACK :> CNOP 0,4 :> BRAS 12,@PDATA :> DC A(@PDATA) :>@PDATA LLGF 12,0(12) :> USING @PDATA,R12 * ESTABLISH R12 AS BASE :>**** YOUR CODE GOES HERE :>RETURN LHI 0,DYNAREAL :> LR R1,R13 :> STORAGE RELEASE,LENGTH=(0),ADDR=(1),SP=0,CALLRKY=YES :> PR :> LTORG :>@DYNAREA DSECT :>SAVRAREA DS 36F :>DYNAREAL EQU *-@DYNAREA :> REGEQU R :> END ASMBASE -- Binyamin Dissen <[email protected]> http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. ---------------------------------------------------------------------- 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
