On Wed, 18 May 2005 15:21:19 +0100, Davage, Marcus
<[EMAIL PROTECTED]> wrote:
>How do you load an assembler table in Rexx and find out it's base address?
How about:
/* rexx */
say loadit('*(somemod)') /* Using standard search */
say loadit("'my.private.lib(somemod)'") /* For specific lib */
exit
loadit: procedure
call outtrap "line."
queue "LOAD " arg(1)
queue "END"
address tso "TEST 'SYS1.LINKLIB(IEFBR14)'"
call outtrap "OFF"
parse var line.1 'IKJ57382I ENTRY POINT AT' entryPoint .
return entryPoint
----------------------------------------------------------------------
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
