Re: How to retrieve SQL results into CL pgm

[Niels Liisberg <nli@xxxxxxxxxxxxxxxxx>]

I know that RTVSQLROW in noxDb does exactly that: Opens a cursor and for
each subsequent call to the command it returns the next row in the
resultset. However, it seems like the program the command is calling is
missing in the build.

https://github.com/sitemule/noxDB/blob/master/src/RTVSQLROW.cmd

On Tue, Jun 7, 2022 at 5:40 AM Richard Schoen <richard@xxxxxxxxxxxxxxxxx>
wrote:

> Here's something that's part of my QSHONI utility:
> http://www.github.com/richardschoen/qshoni
>
> The QSHQRYTMP command pretty much wraps using RUNSQL to an outfile.  Great
> for doing quick queries to a temp file. It's a light wrapper over RUNSQL.
>
> Results can be consumed directly from a CL program with RCVF.
>
> You will probably want to have a template DDL or DDS created if you plan
> to make sure you don't get level checks on the outfile format.
>
> Ex: QSHONI/QSHQRYTMP SQL('select COUNT(*) as COUNT from qsys2.ASP_INFO')
> OUTFILE(QTEMP/SQLTMP0001)
>
> When it's done you can read the single field count record from
> QTEMP/SQLTMP0001 with RCVF.
>
> Have fun.
>
> Regards,
> Richard Schoen
> Web: http://www.richardschoen.net
> Email: richard@xxxxxxxxxxxxxxxxx
> ------------------------------
>
> How can I run an SQL statement and retrieve the results into a CL pgm?
>
> For example, I want to SELECT COUNT(*) FROM QSYS2.ASP_INFO: but I want to
> run it using RUNSQL in a CL program and get the COUNT into a variable in
> the CL program.
>
> Something like this:
> DCL &COUNT *DEC LEN(1)
> RUNSQL SQL( SELECT COUNT(*) FROM QSYS2.ASP_INFO)
>
> --
> 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@xxxxxxxxxxxxxxxxxxxx for any subscription related
> questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: https://amazon.midrange.com