Re: lazy, /dumb or inept programmer

That really depends on the report, but for me, yes. My code template
(courtesy of another list member at one time).


if (OpenCursor() = SQL_SUCCESS);
dow (FetchNext() = SQL_SUCCESS);

// *** INSERT CODE HERE ***

enddo;
endif;

CloseCursor();

I then have subprocedures that process the above logic. Initially that was
to eliminate the fixed format SQL from the free-format code, now I do it
for readability.

P OpenCursor B
D OpenCursor PI 5A

/free
exec sql
close c1;
exec sql
declare c1 cursor for ....;
exec sql
open c1;

return sqlStt;

/end-free
P OpenCursor E

P FetchNext B
D FetchNext PI 5A
/free
exec sql
fetch c1 into :gresultds;
return sqlstt;
/end-free
P FetchNext E

P CloseCursor B
D CloseCursor PI 5A
/free
exec sql
close c1;
return sqlstt;
/end-free
P CloseCursor E

--
Mike Wills
http://mikewills.info
P: (507) 933-0880 | Skype: koldark


On Tue, Feb 23, 2010 at 2:37 PM, Jeff Crosby <jlcrosby@xxxxxxxxxxxxxxxx>wrote:

All of you using RPG+SQL for reports instead of OPNQRYF, I assume you're
using a cursor in RPG?


On Tue, Feb 23, 2010 at 3:26 PM, sjl <sjl_abc@xxxxxxxxxxx> wrote:

Robert -

I prefer to use SQL today, but you obviously never used the BLDQRYSLT TAA
Tool.
It made OPNQRYF a breeze to use...

- sjl


Robert:
In my 23 years, I have never found OPNQRYF to be easy. Once I learned
SQL
and then embedded SQL, I never even considered using OPNQRYF again. To
me,
a SQL cursor and SELECT statement is much easier, especially when using
dynamic selection and/or sort criteria, than an OPNQRYF.



--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing

list

To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

--
Jeff Crosby
VP Information Systems
UniPro FoodService/Dilgard
P.O. Box 13369
Ft. Wayne, IN 46868-3369
260-422-7531
www.dilgardfoods.com

The opinions expressed are my own and not necessarily the opinion of my
company. Unless I say so.
--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.