Hi,
I want to write a rexx program to execute several mvs commands serially.
I have tested following:
/*REXX*/
"CONSOLE ACTIVATE"
"CONSOLE SYSCMD(D U,,,A20,1) CART('DA01')"
MCODE=GETMSG('RESMSG1.','SOL','DA01',,120)
IF RESMSG1.0 = 0 THEN DO
SAY 'NO MESSAGE RETURNED'
RETURN
END
ELSE
DO I=1 TO RESMSG1.0
SAY RESMSG1.I
END
It worked, but the problem is CONSOLE SYSCMD(mvscmd) must be code with exact
mvs command, ie. mvscmd must be any specific mvs command, it can't be
substituted by a string variable.
What I want to do is:
read an input file which contains several mvs cmd.
then run CONSOLE SYSCMD(syscmd) where syscmd is the cmd I read from input file
then display cmd output.
Anyone has the experience?
Regards
Victor
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
