Re: Load CL variables from SQL example

[Joe Pluta <joepluta@xxxxxxxxxxxxxxxxx>]

Ha!  Just for you, Jon, I dug through the archives, and I found this:

REXX procedure COMPILEALL:

--------------------------

/* Get parameters from command line */

PARSE UPPER ARG SRCFILE SRCLIB

/* Get member list from source file */

'DSPFD FILE(&SRCLIB/&SRCFILE) TYPE(*MBRLIST) ' ,

'OUTPUT(*OUTFILE) OUTFILE(QTEMP/MBRS)'

/* Process member list */

ADDRESS EXECSQL,

'execsql DECLARE C1 CURSOR FOR',

'SELECT MLNAME, MLSEU2 FROM MBRS FOR READ ONLY'

ADDRESS EXECSQL,

'execsql OPEN C1'

/* Fetch all of the rows */

DO UNTIL (SQLCODE <> 0)

ADDRESS EXECSQL,

'execsql FETCH C1 INTO :MBRNAME, :MBRTYPE'

IF SQLCODE = 100 THEN

LEAVE

/* Compile the member */

CALL CompileIt

END;

ADDRESS EXECSQL,

'execsql CLOSE C1'

EXIT

CompileIt:

SELECT

WHEN MBRTYPE = 'RPG' THEN

'CRTRPGPGM PGM(&SRCLIB/&MBRNAME) SRCFILE(&SRCLIB/&SRCFILE) ',

'OPTION(*SRCDBG)'

WHEN MBRTYPE = 'RPGLE' THEN

'CRTBNDRPG PGM(&SRCLIB/&MBRNAME) SRCFILE(&SRCLIB/&SRCFILE) ',

'DBGVIEW(*LIST)'

OTHERWISE

SAY 'Unsupported member type' MBRTYPE 'for member' MBRNAME

END

RETURN



On 8/19/2019 11:04 AM, Joe Pluta wrote:
> Does this link not work, Jon?
>
> https://www.mcpressonline.com//articles/images/2002/TIP041117%20-%20Using%20SQL%20and%20REXX%20togetherV400.jpg 
>
>
> P.S. Sorry about the graphics.  At that period we weren't very good 
> about downloads.
>
>
> On 8/19/2019 11:00 AM, dlclark@xxxxxxxxxxxxxxxx wrote:
> > "MIDRANGE-L" <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> wrote on 08/19/2019
> > 11:57:38 AM:
> > > Is it just me or has anyone else found that the source code in Joe's
> > > Rexx article is missing?  For some reason they seem to be graphics -
> > > which is a pity but in the case this latest reference the graphics
> > > appear to be missing.
> >
> >          Yeah, it was missing for me, too.  But, I was able to get 
> > what I
> > needed to know just from reading the article.
> >
> >
> > Sincerely,
> >
> > Dave Clark