Re: Inline Rexx in JCL?

2011-11-20 Thread Shmuel Metz (Seymour J.)
In CAFERoii40Bu2P6_rbCtKSiS1Dw=cc1wv_veqbjw1r6hfbpz...@mail.gmail.com, on 11/19/2011 at 06:15 PM, Roger Bolan rogerbo...@gmail.com said: Okay, so wouldn't a simple IEBGENER step first to copy the inline source code into a member followed by the IKJEFT01 step do the job. It would do a job, but

Re: Inline Rexx in JCL?

2011-11-19 Thread Shmuel Metz (Seymour J.)
In CAFERoighS_Es6BrCQ0F9ZzorBoBVzbNqqoDq44tc=d7lyqd...@mail.gmail.com, on 11/17/2011 at 03:00 PM, Roger Bolan rogerbo...@gmail.com said: This worked just fine a minute ago for me. It is not inline. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see

Re: Inline Rexx in JCL?

2011-11-19 Thread Roger Bolan
Okay, so wouldn't a simple IEBGENER step first to copy the inline source code into a member followed by the IKJEFT01 step do the job. --Roger On Fri, Nov 18, 2011 at 9:40 AM, Shmuel Metz (Seymour J.) shmuel+ibm-m...@patriot.net wrote: In

Re: Inline Rexx in JCL?

2011-11-18 Thread Donald Johnson
Here is one alternative...Incidentally, you don't need the DD DATA if you start the /* REXX */ comment in a column other than 1. *don* //* //* This JCL demonstrates how to create and execute an in-stream //* REXX procedure. The

Re: Inline Rexx in JCL?

2011-11-18 Thread Phil Smith III
So it appears the app that's calling the EXEC as an exit is doing some magic of its own, I guess, since it works without the IRXJCL hack. And I didn't post the example because it's called as an exit and thus it didn't seem relevant (although if I had, y'all would have surely seen the dumb error

Re: Inline Rexx in JCL?

2011-11-18 Thread Paul Gilmartin
On Fri, 18 Nov 2011 08:35:50 -0500, Donald Johnson wrote: Here is one alternative...Incidentally, you don't need the DD DATA if you start the /* REXX */ comment in a column other than 1. *don* //* //* This JCL demonstrates how

Re: Inline Rexx in JCL?

2011-11-18 Thread Donald Johnson
It was passed on to me some time ago, so I can't attest to its longevity, sorry! *don* On Fri, Nov 18, 2011 at 10:19 AM, Paul Gilmartin paulgboul...@aim.comwrote: On Fri, 18 Nov 2011 08:35:50 -0500, Donald Johnson wrote: Here is one alternative...Incidentally, you don't need the DD DATA if

Inline Rexx in JCL?

2011-11-17 Thread Phil Smith III
Anyone ever gotten inline Rexx to work from JCL? I have a program that invokes a Rexx exit, but the exit is so simple that it seems like I should be able to just do a //SYSEXEC DD * and go from there. Alas, I get: IRX0110I The REXX exec cannot be interpreted. IRX0112I The REXX exec cannot be

Re: Inline Rexx in JCL?

2011-11-17 Thread Roger Bolan
This worked just fine a minute ago for me. LEVEL is a REXX exec in my CLIST library: //TSO2 EXEC PGM=IKJEFT01,DYNAMNBR=200 //SYSPROC DD DISP=SHR,DSN=RBOLAN.MY.CLIST // DD DISP=SHR,DSN=TOOLS.CLIST.NEW //SYSTSPRT DD SYSOUT=* //SYSABEND DD SYSOUT=* //SYSTSIN DD * PROFILE

Re: Inline Rexx in JCL?

2011-11-17 Thread Phil Smith III
as a test that I realized my error. (And no, Rexx doesn't have to be PO.) -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Phil Smith III Sent: Thursday, November 17, 2011 1:51 PM To: IBM-MAIN@bama.ua.edu Subject: Inline Rexx in JCL? Anyone ever

Re: Inline Rexx in JCL?

2011-11-17 Thread Jonathan Goossen
Subject: Inline Rexx in JCL? Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu Anyone ever gotten inline Rexx to work from JCL? I have a program that invokes a Rexx exit, but the exit is so simple that it seems like I should be able to just do a //SYSEXEC DD * and go from there. Alas

Re: Inline Rexx in JCL?

2011-11-17 Thread Phil Smith III
And you don't even need the leading /* REXX */ on the Rexx, which avoids some hassles with EOD. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN

Re: Inline Rexx in JCL?

2011-11-17 Thread Paul Gilmartin
On Thu, 17 Nov 2011 16:50:45 -0500, Phil Smith III li...@akphs.com wrote: Anyone ever gotten inline Rexx to work from JCL? I have a program that invokes a Rexx exit, but the exit is so simple that it seems like I should be able to just do a //SYSEXEC DD * and go from there. Alas, I get: IRX0110I

Re: Inline Rexx in JCL?

2011-11-17 Thread Paul Gilmartin
On Thu, 17 Nov 2011 15:00:36 -0700, Roger Bolan wrote: This worked just fine a minute ago for me. LEVEL is a REXX exec in my CLIST library: snip! On Thu, Nov 17, 2011 at 2:50 PM, Phil Smith III wrote: Anyone ever gotten inline Rexx to work from JCL? Perhaps if you had given the OP's

Re: Inline Rexx in JCL?

2011-11-17 Thread Paul Gilmartin
On Thu, 17 Nov 2011 17:26:32 -0500, Phil Smith III wrote: JFC. Looking at it for the 10,000 time, I realized I had another DD statement between the //SYSEXEC DD * and the Rexx code. What a maroon. Do I find the correct expansion of the TLA in the Urban Dictionary? Thanks for trying it, Roger,

Re: Inline Rexx in JCL?

2011-11-17 Thread Mike Schwab
On Thu, Nov 17, 2011 at 5:03 PM, Paul Gilmartin paulgboul...@aim.com wrote: deleted On Thu, 17 Nov 2011 17:33:31 -0500, Phil Smith III wrote: And you don't even need the leading /* REXX */ on the Rexx, which avoids some hassles with EOD. Depends.  You still need it in SYSPROC.  But you can

Re: Inline Rexx in JCL?

2011-11-17 Thread Ed Gould
Mike, Instead of DD asterisks,DATA equal sign @@ Don#39;t you mean DD DATA,DLM equal sign @@ Sorry the damn keyboard doesn#39;t allow the equal sign Ed -- For IBM-MAIN subscribe / signoff / archive access instructions,

Re: Inline Rexx in JCL?

2011-11-17 Thread Paul Gilmartin
On Thu, 17 Nov 2011 18:20:34 -0600, Mike Schwab wrote: //DD *,DATA=@@ /* REXX */ ... @@ should work. I fully agree. I do something similar regularly. But in this case, I wasn't the owner of the JCL, so I wasn't at liberty to change it. -- gil

Re: Inline Rexx in JCL?

2011-11-17 Thread Paul Gilmartin
On Thu, 17 Nov 2011 16:47:04 -0800, Ed Gould wrote: Instead of DD asterisks,DATA equal sign @@ Don#39;t you mean DD DATA,DLM equal sign @@ I agree. I was in a hurry and didn't check his syntax; I understood his intent. Sorry the damn keyboard doesn#39;t allow the equal sign I'm 99