I am facing issues while coding jcl skeletons in REXX. I need to write the below line on to a dataset -
//SYSABOUT DD SYSOUT=&SOUT01.
When I try to run the macro I get only part of the line //SYSABOUT DD SYSOUT= . The part of line after the ampersand sign is not coming in the output.
Could you please let me know how I should modify the line so that I can get &SOUT01 in the line too?
Below is the complete code -
/* REXX */
ADDRESS ISREDIT
'MACRO'
'(SAVE) = USER_STATE'
'RESET'
/*GET LINE NUMBER WHERE LABEL K IS SET ELSE DISPLAY ERROR MESSAGE */
'(LN) = LINENUM .K'
IF RC = 8 THEN
DO
SAY "LABEL K NOT FOUND"
EXIT
END
"LINE_AFTER " LN " = '//SYSABOUT DD SYSOUT=&SOUT01'"
'USER_STATE = (SAVE)'
ADDRESS ISREDIT
'MACRO'
'(SAVE) = USER_STATE'
'RESET'
/*GET LINE NUMBER WHERE LABEL K IS SET ELSE DISPLAY ERROR MESSAGE */
'(LN) = LINENUM .K'
IF RC = 8 THEN
DO
SAY "LABEL K NOT FOUND"
EXIT
END
"LINE_AFTER " LN " = '//SYSABOUT DD SYSOUT=&SOUT01'"
'USER_STATE = (SAVE)'
The macro prints only - //SYSABOUT DD SYSOUT=
Thanks