View previous topic :: View next topic
|
Author |
Message |
aarnold#mvs
New User
Joined: 04 Dec 2022 Posts: 8 Location: Hungary
|
|
|
|
Dear All, because of any reason, I need to know what is the equivalent of PGM=SDSF in case the EJES is the available too only (so SDSF totally not available).
The problem, that how we can issue any command (like D R,L, etc.) and get the result to a Dataset what we can process further.
Do you know any solution for that?
Or is there any working way how to issue a command, and store the result in a Dataset.
Many thanks |
|
Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8700 Location: Dubuque, Iowa, USA
|
|
|
|
What did the vendor say when you asked them? |
|
Back to top |
|
|
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015 Posts: 1306 Location: Bamberg, Germany
|
|
|
|
Basically I have my doubts that there is no SDSF at all. To my knowledge, EJES should work exactly like SDSF does. |
|
Back to top |
|
|
aarnold#mvs
New User
Joined: 04 Dec 2022 Posts: 8 Location: Hungary
|
|
Back to top |
|
|
aarnold#mvs
New User
Joined: 04 Dec 2022 Posts: 8 Location: Hungary
|
|
|
|
Hello,
I also found a working solutions in the following link:
bit.listserv.ibm-main.narkive.com/oOBS3BIw/tso-rexx-sdsf-rexx
JCL:
//EJES EXEC PGM=EJESLNK
//EJESOUT DD DUMMY,RECFM=VB,LRECL=84,BLKSIZE=88
//EJESEXT DD SYSOUT=*
//EJESIN DD *
PRESET;JNAME $*;STATUS;SHOW JNAME JID OWNER PRTDEST;UPDATE
EXTRACT FIRST LAST
//
and rexx:
/* REXX */
rc=ejesrexx("EXECAPI * 'PRESET;JNAME $*;STATUS' (prefix _ term")
say "JobName JobId Owner PrtDest"
do i=1 to _Lines
say LEFT(_TCData.__JNAME.i,8) LEFT(_TCData.__JID.i,8) ,
LEFT(_TCData.__OWNER.i,8) _TCData.__PRTDEST.i
end
I just modified the $* to my requirement, and it works well.
Regards, |
|
Back to top |
|
|
|