Page 1 of 1

rexx program calling a jcl

PostPosted: Mon Nov 19, 2007 7:41 am
by mbisa
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.

Re: rexx program calling a jcl

PostPosted: Mon Nov 19, 2007 10:52 am
by MrSpock
Does this REXX program have access to TSO commands? Can it use the TSO SUBMIT Command.

Re: rexx program calling a jcl

PostPosted: Tue Nov 20, 2007 10:33 am
by mbisa
Mr.spock
yes, tso command is accepted.

Re: rexx program calling a jcl

PostPosted: Wed Dec 12, 2007 7:02 am
by Halka
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