Re: Load CL variables from SQL example

On Aug 19, 2019, at 12:07 PM, Joe Pluta <joepluta@xxxxxxxxxxxxxxxxx> wrote:

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

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: https://amazon.midrange.com