Convert CLIST Code to REXX

[ktraywick]

I'm trying to convert the following CLIST code to REXX.

ISPEXEC VGET (ZTRAIL) SHARED
SET FUNCVAR = &ZTRAIL
IF &FUNCVAR = &STR() THEN -
SET &FUNCVAR = &STR(MENU)
SET ZTRAIL = &STR()
ISPEXEC VPUT (ZTRAIL) SHARED

Any help would be greatly appreciated.

Regards,
Kent

 

[rexxhead]

address ISPEXEC
"VGET (ZTRAIL) SHARED"
funcvar = ztrail
if funcvar = "" then funcvar = "MENU"
ztrail = "" 
"VPUT (ZTRAIL) SHARED"

Frank Clarke
Tampa Area REXX Programmers' Alliance
REXX Language Assn Listmaster

 

[ktraywick]

Thanks Frank...this works!