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. -- People in sleeping bags are the soft tacos of the bear world. Maranatha! <>< John McKown ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
