View previous topic :: View next topic |
Author |
Message |
batsaali Beginner
Joined: 07 Sep 2007 Posts: 18 Topics: 7
|
Posted: Wed Feb 23, 2011 10:40 am Post subject: MVS console commands in Batch? |
|
|
Hello,
Can anyone please help me?
I need an utility (REXX or whatever else)
that I can use in BATCH to pass MVS display commands + retreive the result from these commands in the SYSOUT of the JOB.
So far I found many ways and utilities to issue MVS commands in batch.
But only two that retrieves the output from those commands was SDSF and IOF batch solution. SDSF I can not use because the system that I need to use it on does not have SDSF but CA SYSVIEW instead. IOF is some output manager that needs licensing...Maybe rexx console interface but I do not exactly know how to use it. Does anyone here have similar utility or REXX program that they would like to share with the world?
Thank you all in advance |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
taltyman JCL Forum Moderator
![JCL Forum Moderator JCL Forum Moderator](images/ranks/homer8.gif)
Joined: 02 Dec 2002 Posts: 310 Topics: 8 Location: Texas
|
Posted: Wed Feb 23, 2011 11:07 am Post subject: |
|
|
here's one way. the mvs command is a parm passed to the rexx.
Code: |
/* REXX */
TRACE E
PARSE UPPER ARG CMD
CONNAME = SPACE(CON TIME(S),0)
"CONSOLE ACTIVATE NAME("CONNAME")"
"CONSPROF UNSOLDISP(NO) SOLDISP(NO) SOLNUM(400)"
SAY "ISSUING " CMD
"CONSOLE SYSCMD("CMD") CART('CONS0001')"
GETCODE = GETMSG('CONSMSG1.','SOL','CONS0001',,15)
IF GETCODE = 0 THEN
DO CNT = 1 TO CONSMSG1.0
SAY CONSMSG1.CNT
END
GETCODE = GETMSG('CONSMSG2.','SOL','',,5)
IF GETCODE = 0 THEN
DO CNT = 1 TO CONSMSG2.0
SAY CONSMSG2.CNT
END
"CONSOLE DEACTIVATE"
RETURN |
|
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
batsaali Beginner
Joined: 07 Sep 2007 Posts: 18 Topics: 7
|
Posted: Wed Feb 23, 2011 12:11 pm Post subject: |
|
|
Oh Man that is sooooooooooo coooooooooooooool!!!!!
Works like a song
Thank you! Thank you! Thank you! Thank you! Thank you! Thank you! Thank you! Thank you! Thank you! 1000000 times thank you!
The world needs more people like you ![Very Happy](images/smiles/icon_biggrin.gif) |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
kolusu Site Admin
![Site Admin Site Admin](images/ranks/adminpic.jpg)
Joined: 26 Nov 2002 Posts: 12369 Topics: 75 Location: San Jose
|
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
|
|