Sorry... My previous email I have made a mistake.. Linkage Section. 01 args. 05 arg1 pointer. 05 arg1l pic s(9) comp. 01 evalblock. 05 eval1 pic x(4). 05 eval2 pic x(4). 05 eval3 pic s(9) comp. 05 eval4 pic x(4). 05 evals pic x(80). Procedure Division p1 p2 p3 p4 p5 p6. set address of args to address p5..... set address of evalblock to p6.move low-values to eval1 eval4 eval2move length of evals to eval3move 'my evaluate content' to evals Parameters :p5 .. argument listp6 .. evaluate block
RegardsDan Sent from Yahoo Mail for iPhone On Monday, March 21, 2022, 6:01 PM, W Mainframe <[email protected]> wrote: I have some Rexx functions written in Cobol. Basically we receive the register R0 as a first parameter in Linkage Section. So... Works like a function written in HLASM. It's fun and very interesting. RegardsDan Sent from Yahoo Mail for iPhone On Monday, March 21, 2022, 11:44 AM, Seymour J Metz <[email protected]> wrote: A recent thread on REXX raises the question of what compilers support interfaces that require passing an address in R0 in addition to the PLIST address in R1. A secondary issue is how to handle multiple callbacks from a non-LE program without the overhead of establishing the LE environment each time.The obvious use case is a driver program that initialises REXX, passes REXX a script and is then called every time the script either calls a routine that the driver has included in a function package or passes a command string to one of the environments that the driver registered. Think ISPF EDIT or XEDIT writen in PL/I, only less ambitious. . -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 ---------------------------------------------------------------------- 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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
