How to run a jcl from the REXX pgm

nithya nandan

unread,

May 30, 2002, 1:38:29 PM5/30/02

to

Hi,
I have a rexx pgm. i need to run a jcl from the rexx pgm. if
anyone have the sample , kindly sent it to me.

Thanks in Advance
Nithi
_________________________________________________________
Click below to visit monsterindia.com and review jobs in India or
Abroad
http://monsterindia.rediff.com/jobs

----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LIST...@VM.MARIST.EDU with the message: INFO TSO-REXX

Jayprakash Narayan

unread,

May 30, 2002, 2:01:28 PM5/30/02

to

Hi Nithya,

I do it as follows. First I open the JCL using ISPEXEC and use a macro to
submit it. Something like this

"ISPEXEC EDIT DATASET('JXNARAY.PDS.JCL(COMPILE)')
MACRO(SUBMIT)"

where SUBMIT is an edit macro.
/* REXX - SUBMIT */
"ISPEXEC CONTROL ERRORS RETURN"
"ISREDIT MACRO"
"ISREDIT SUBMIT"
"ISREDIT CANCEL"

Hope this helps.

JP.

Glenn Walko

unread,

May 30, 2002, 2:01:30 PM5/30/02

to

Depends on where the JCL is coming from but here is 1 example. I used it this way because
the skeleton JCL "STATMAIL" has an include statement which pulls in another skeleton that
is a report created earlier in the EXEC.

ADDRESS ISPEXEC
"FTOPEN TEMP"
"FTINCL STATMAIL"
"FTCLOSE"
"VGET ZTEMPF ASIS "

ADDRESS TSO
"SUBMIT '"ZTEMPF"'"

>>> "nithya nandan" <nithi_r...@rediffmail.com> 05/30/2002 7:45:32 AM >>>

Hi,
I have a rexx pgm. i need to run a jcl from the rexx pgm. if
anyone have the sample , kindly sent it to me.

Thanks in Advance
Nithi
_________________________________________________________
Click below to visit monsterindia.com and review jobs in India or
Abroad
http://monsterindia.rediff.com/jobs

----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LIST...@VM.MARIST.EDU with the message: INFO TSO-REXX

This electronic mail transmission may contain confidential information and is intended only for the person(s) named. Any use, copying or disclosure by any other person is strictly prohibited. If you have received this transmission in error, please notify the sender via e-mail.

Larry Kahm

unread,

May 30, 2002, 2:58:48 PM5/30/02

to

And then there's always the "brute force" method (where myTSOID is a REXX
variable):

Queue "//"myTSOID" JOB (12345678),'DS ALLOC',"
Queue "// CLASS=R,MSGCLASS=X,NOTIFY=&ZUSER"
Queue "//*"
Queue "//DSN1 EXEC PGM=IEFBR14"
Queue "//DD1 DD DSN="myTSOID".SOME.FILE,"
Queue "// DISP=(NEW,CATLG,DELETE),"
Queue "// SPACE=(TRK,(15,5,46)),UNIT=SYSDA,"
Queue "// DCB=(DSORG=PO,LRECL=80,BLKSIZE=0,RECFM=FB)"
Queue "//*"
Queue "$$"
Address TSO ,
"SUBMIT * END($$)"
savecc = RC

nithya nandan

unread,

May 31, 2002, 10:12:05 AM5/31/02

to

Hi JP,
Thanks for ur help.. with this i m pasting some other way to do
it.. might be useful for u..

1) JOB1 = "PK3662A.ALAN.JCLS(IKJEFT02)"
JOB2 = "PK3662A.ALAN.JCLS(IKJEFT01)"
ADDRESS ISPEXEC "VPUT (JOB1 JOB2) PROFILE" ;
"SUBMIT '"JOB1"'"

2) ADDRESS TSO "SUBMIT 'PK3662A.FINCAP.JCL'"

3) write JCL into a queue and the submit it ..

ADDRESS ISPEXEC
QUEUE "//PK3662AA JOB 'U','A J TEST ', "
QUEUE "// MSGCLASS=X,CLASS=2,NOTIFY=&SYSUID "
QUEUE "//COPY EXEC PGM=IEBCOPY "
QUEUE "//SYSPRINT DD SYSOUT=* "
QUEUE "//LIBIN DD DSN="||PDS",DISP=SHR "
QUEUE "//LIBOUT DD DSN=PK3662A.ALAN.LOAD1,DISP=SHR "
QUEUE "//SYSIN DD * "
QUEUE " COPY INDD=((LIBIN,R)),OUTDD=LIBOUT "
QUEUE " SELECT MEMBER="||MEMBR
QUEUE ""
ADDRESS TSO
SAVEP = PROMPT('ON')
'SUBMIT *'
CALL PROMPT SAVEP

I had been working in TCS sholinganullur. so that i can identify
the QWEST project. R u in tital park tcs office.. anyway keep in
touch..

Bye
Nithi

On Thu, 30 May 2002 Jayprakash Narayan wrote :
>Hi Nithya,
>
>I do it as follows. First I open the JCL using ISPEXEC and use a
>macro to
>submit it. Something like this
>
> "ISPEXEC EDIT DATASET('JXNARAY.PDS.JCL(COMPILE)')
> MACRO(SUBMIT)"
>
>where SUBMIT is an edit macro.
>/* REXX - SUBMIT */
>"ISPEXEC CONTROL ERRORS RETURN"
>"ISREDIT MACRO"
>"ISREDIT SUBMIT"
>"ISREDIT CANCEL"
>
>Hope this helps.
>
>JP.
>
>nithya nandan wrote:
>

R

unread,

Jun 17, 2002, 9:51:59 AM6/17/02

to

Hi,

use the address TSO "SUBMIT lib.name.here(member)"

Russ
"nithya nandan" <nithi_r...@rediffmail.com> wrote in message
news:2002053013453...@webmail5.rediffmail.com...