Hi Please help me with the following question: My Rexx program accepts a value from the TSO command line when executing my Rexx program; the value is COBOL program name and then my Rexx program executes a JCL to compile it. The question is how can I capture or display the compile output, specifically, SYSPRINT which contains if any errors are there. Currently my Rexx program after submitting the JCl Job shows the job submitted, that’s it. But I want the program to show SYSPRINT output instead. The following is the Rexx code I have:

ARG_SRC_COM: PROCEDURE
ARG MEMBER1 MEMBER2

IF MEMBER2 = ” ” THEN DO
EXIT; END

ADDRESS TSO
ADDRESS ISPEXEC
“VPUT (MEMBER2) SHARED”
ADDRESS ISPEXEC
“VIEW DATASET(‘#5220.DEV.JCLLIB(COMPILEX)’)
MACRO(MYMACRO)”
“CONTROL NONDISPL ENTER”
EXIT
RETURN 0

The Macro code is:

ADDRESS ISREDIT ‘MACRO’
ADDRESS ISPEXEC “VGET MEMBER2 SHARED”
ADDRESS ISREDIT “CHANGE “MEM” “MEMBER2″ ALL”
ADDRESS ISREDIT ‘SUB’
ADDRESS ISREDIT ‘CANCEL’
EXIT;”END”

This is my compile job output:

JES2 screen after submitting the JOB

Compile JCL Output

After submitting the Job my rexx program takes it back to the original TSO screen where the compile request was made.