Thanks, I did see that link! I will work it out but looking for a fast
start.
I've got stuff like this!
SRCLINE = &SYSNSUB(2,&SRCLINE)
On 2020-03-19 10:40 PM, John McKown wrote:
On Thu, Mar 19, 2020 at 9:20 AM David Crayford <dcrayf...@gmail.com> wrote:
I'm trying to convert CLIIST to REXX and CLIST has symbolic
substitution. I've used this before in NCL but it's a long time ago.
Can anybody tell me what this does and translate to REXX? I'm guessing I
need to use interpret or value()!
SET VARNX = &&VARN&GLCV
IF (&VARNX = &SYMBOL) THEN DO
SET VARFND = 1
SET VARVX = &&VARV&GLCV
SET SYMBOL = &STR(&VARVX)
END
This might help:
https://www.ibm.com/support/knowledgecenter/SSLTBW_2.2.0/com.ibm.zos.v2r2.ikjb800/ikjb80059.htm
I _think_ the following is correct, but I am not sure.
VARNX=VARN||GLCV /* CREATE NAME OF VARIABLE */
IF (VATNX=SYMBOL) THEN DO; /* IF NAME OF VARIABLE IS THE SYMBOL WE ARE
LOOKING FOR */
VARFND=1 /* WE'VE FOUND THE SYMBOL */
VARVX=VARV||GLCV /* CREATE THE NAME OF THE VARIABLE WHOSE VALUE WE
WANT */
SYMBOL=VALUE(VARVX) /* GET VALUE OF VARIABLE WHOSE NAME IS IN VARVX */
END
The comments are strictly my own.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
