-------------------------------------<snip>------------------------------
I have an old assembler program which we call numerous times from a rexx
script. There seems to be an issue introduced with our z/OS 1.10 upgrade
which did not previously exist... the memory usage builds up and
eventually abends. There is no freemain in the program, so I'm thinking
adding one at exit will fix the issue. Worth a test, anyway. My question
is about the format of the freemain statement.
This is the getmain....
GETMAIN EC,LV=(5),A=TABLADDR
TABLADDR DC A(0)
And I was thinking that the freemain would just be....
FREEMAIN R,LV=(0),A=TABLADDR
But that results in:
IEA705I ERROR DURING FREEMAIN SYS CODE = 30A-1C
I'm still reading up on options, but thought someone here might know the
appropriate freemain statement off the top of their head? Thanks.
-------------------------------<unsnip>-----------------------------
L R1,TABLADDR
L R0, (SAme as for the GETMAIN)
FREEMAIN R,LV=(0),A=(1)
XC TABLADDR,TABLADDR
The R-Form FREEMAIN uses A= as the actual address of the storage to be
released, not as a pointer to the address of storage to be released. R0
MUST contain the same value as that of the GETMAIN.
Rick
----------------------------------------------------------------------
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
