On Mon, 14 Jan 2008 19:47:57 -0600, Binyamin Dissen wrote:
>
>The poor mans way. Load a reusable module and store the address in it.
>
Or, do it in Rexx:
SAVEAREA = left( '', 72, '00'x )
PARM = 'This is the PARM.'
PARM = d2c( length( PARM ), 2 )PARM /* Prefix halfword length */
address 'LINKPGM' 'ENTRY PARM SAVEAREA'
The assembler prologue:
ENTRY STM R14,R12,12(R13)
L R14,4(,R1) Point to SAVEAREA
ST R13,4(,R14) Backchain new save area
ST R14,8(,R13) Forechain old save area
LR R13,R14 R13 addresses new save area
(But did I get those pointers right? IANABALP.)
I think a greater concern than the GETMAIN/FREEMAIN is that ENTRY
will be LOADed and DELETEd at each call. Alas, Rexx provides no
function to LOAD once at setup and DELETE once at exit.
-- gil
----------------------------------------------------------------------
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
