rexx program calling a jcl
Posted:
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
Posted:
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
Posted:
Tue Nov 20, 2007 10:33 am
by mbisa
Mr.spock
yes, tso command is accepted.
Re: rexx program calling a jcl
Posted:
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