SDSF like solution in EJES (store command result in Dataset)

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

Robert Sample · Posted: Wed Feb 15, 2023 8:56 pm

What did the vendor say when you asked them?

Joerg.Findeisen · Posted: Wed Feb 15, 2023 10:06 pm

Basically I have my doubts that there is no SDSF at all. To my knowledge, EJES should work exactly like SDSF does.

aarnold#mvs · New User Joined: 04 Dec 2022 Posts: 8 Location: Hungary

Hello
I found PGM=EJESLNK and some link what we will test:

EJESLINK NOT WORKING...
ibmmainframes.com/about40357.html

Copying JOB JCL from EJES to PS
ibmmainframes.com/about28061.html

Capturing STC SYSOUT when the STC is shut down
bit.listserv.ibm-main.narkive.com/g8OPhpKq/capturing-stc-sysout-when-the-stc-is-shut-down

Regards,

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,