Gentlemen,
Despite the fact that it's Saturday evening, latish, thirty minutes after
posting:-), I got the perfect answers. Works a treat.
Can't thankyou enough,
Graham
----- Original Message -----
From: "Hardee, Chuck" <[email protected]>
Newsgroups: bit.listserv.ibm-main
To: <[email protected]>
Sent: Saturday, April 27, 2013 8:52 PM
Subject: Re: Run a REXX from JCL stream
Graham,
Try this:
//ATEST JOB (CONRAD-B),'IBMUSE2',
// CLASS=A,MSGCLASS=0,MSGLEVEL=(1,1)
//JOBLIB DD DSN=VENDOR.LINKLIB.SECOND,DISP=SHR
//*------------------------------
//STEPNAME EXEC PGM=IKJEFT01
//SYSEXEC DD DSN=VENDOR.SYSEXEC,DISP=SHR <= JOB2 will be
retrieved and executed from here
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
JOB2
/*
Charles (Chuck) Hardee
Senior Systems Engineer
Database Administration
Information Technology Services
Thermo Fisher Scientific
300 Industry Drive
Pittsburgh, PA 15275
Direct: 724-517-2633
FAX: 412-490-9230
[email protected]
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On
Behalf Of Graham Hobbs
Sent: Saturday, April 27, 2013 8:28 PM
To: [email protected]
Subject: Run a REXX from JCL stream
Hello,
Am a 'not a sysprog' doing stuff at Dallas IIC under z/OS. Another prob (for
me anyway). Have a JCL stream, first step is supposed to run a REXX pgm but
it won't. Googling didn't help. Can anybody tell me what I've missed.
JCL I sub is:
//ATEST JOB (CONRAD-B),'IBMUSE2',
// CLASS=A,MSGCLASS=0,MSGLEVEL=(1,1)
//JOBLIB DD DSN=VENDOR.LINKLIB.SECOND,DISP=SHR
//*------------------------------
//STEPNAME EXEC PGM=IKJEFT01
//SYSEXEC DD DSN=VENDOR.SYSEXEC,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DSN=VENDOR.SYSEXEC(JOB2),DISP=SHR
.. followed by other stuff.
REXX is:
/* rexx */
say 'Job1 started'
say 'Job1 ended'
exit
Result in SDSF;O is:
********************************* TOP OF DATA *******
READY
/* rexx */
READY
say 'Job1 started'
IKJ56500I COMMAND SAY NOT FOUND
READY
say 'Job1 ended'
IKJ56500I COMMAND SAY NOT FOUND
READY
exit
IKJ56500I COMMAND EXIT NOT FOUND
READY
END
******************************** BOTTOM OF DATA *****
Looking at the output 'it' certainly found the REXX - that's a start -
success ended there! Also IKJ56500 isn't in the manual and googling didn't
help.
Please, thanks,
Graham Hobbs
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
