Hello,
here is the code:-
/*REXX****************************************************************/
Trace 'o'
Parse Source opsys calltype execname .
/*===================================================================*/
Parse Arg text_string
final_string = 'MVSVAR'("SYMDEF",text_string)
If calltype = "COMMAND" Then Do
Say final_string
End
Else Do
Return final_string
End
Exit
/*===================================================================*/
Very simple, uses standard IBM TSO REXX function call.
My previous comments regarding "&" usage is based on SYSTEM SYMBOL substitution
rules I was taught when Z/OS System Symbol support was first introduced.
At no time does REXX variable handling come into play.
This is the code that demonstrates the behaviour.
Regards
Bruce
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
