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? Command To Execute SqlExecute Source OPS/REXX Programs. To execute an OPS/REXX source program directly from. You can execute any source program located in. The REXXTRY command is invoked in two different TSO/E environments to execute REXX execs: from a CLIST, to execute a 'one-line' REXX exec. How to run your REXX program. Command line. ISPF Option 3.4. ISPF Option 6. I have wriiten a rexx code but don't know how to execute it.can any one tell me.is exit necessary in the last of the rexx program.is rexx program. Command To Execute Shell Script![]() The Exec Task Needs A Command To ExecuteRegards Victor ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to with the message: GET IBM-MAIN INFO Search the archives at Veilleux, Jon L 18.10.10 5:53. You need to unquote the command. Here's an example that should work. /*REXX*/ cmd.1='d a,l' cmd. How to use wii iso renamer. 2='d t' cmd.3='d d,t' 'CONSOLE ACTIVATE' do x=1 to 3 'CONSOLE SYSCMD('cmd.x')' MCODE=GETMSG('RESMSG1.' ,'SOL',,,60) IF RESMSG1.0 = 0 THEN DO SAY 'NO MESSAGE RETURNED' RETURN END ELSE DO I=1 TO RESMSG1.0 SAY RESMSG1.I END resmsg1.0=0 end 'CONSOLE DEACTIVATE' exit Anyone has the experience? Regards Victor This e-mail may contain confidential or privileged information. If you think you have received this e-mail in error, please advise the sender by reply e-mail and then delete this e-mail immediately. Aetna ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to with the message: GET IBM-MAIN INFO Search the archives at Charles Mills 18.10.10 5:57. I have never used Rexx CONSOLE but I would think Cmd = 'D U,,,A20,1' 'CONSOLE SYSCMD('|| Cmd|| ') CART('DA01')' Would work no differently than what you have below. Charles -----Original Message----- From: IBM Mainframe Discussion List [mailto:] On Behalf Of Victor Zhang Sent: Monday, October 18, 2010 5:31 AM To: Subject: Rexx command to execute MVS console commands ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to with the message: GET IBM-MAIN INFO Search the archives at Veilleux, Jon L 18.10.10 6:16. Try the INTERPRET command: _cmd_ = 'D U,,,A20,1' _mvscmd_ = 'CONSOLE SYSCMD('!!
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |