IBM Mainframe Forum

hi ,
i would like to ask can i call or execute a jcl program in my rexx program.. i have a job named "passer" that i want to call in my rexx program. "passer" is a jcl program.
thanks you.

Does this REXX program have access to TSO commands? Can it use the TSO SUBMIT Command.

Mr.spock
yes, tso command is accepted.

i think this would help you........

ADDRESS TSO
X = OUTTRAP("VAR.")
"SUBMIT 'ur dataset name(passes)'"
TSOMSG = VAR.1 /* FIND THE JOB SUBMITTED MSG */
JBID = SUBSTR(TSOMSG,17,5) /*IDENTIFY THE JOB ID */
JNO = 'J0' || JBID
JBNM = SUBSTR(TSOMSG,5,8) /*IDENTIFY THE JOB NAME*/

/* WAIT UNTIL THE SEARCH JOB HAS RUN THROUGH. */
I = 1
DO FOREVER
"STATUS " || JBNM ||"(" || JNO || ")"
FINALMSG = VAR.I
IF SUBWORD(FINALMSG,4,2) = "OUTPUT QUEUE" THEN
LEAVE
I = I + 1
END
Y = OUTTRAP("OFF")

X = 1