Re: Load CL variables from SQL example

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