AW: Embedded SQL within an RPGILE program

Hi,

you need a Cursor.
1. DECLARE Cursor (can be compared with F-Specs)
   In the declare cursor statement you can specify any possible
SQL-Select-Statement
2. OPEN Cursor (can be compared with OPEN combined with SETLL in RPG)
3. FETCH (can be compared with READ or READE in RPG)
4. CLOSE

For more information about embedded SQL look at the following Redbook
Chapter 7:
There you'll find a lot of examples how to use embedded SQL:
Modernizing IBM eServer iSeries Application Data Access - A Roadmap
Cornerstone
http://www.redbooks.ibm.com/abstracts/sg246393.html?Open

Mit freundlichen Gru?en / Best regards

Birgitta

"Shoot for the moon, even if you miss, you'll land among the stars."
(Les Brown)

-----Ursprungliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]Im Auftrag von Alan Shore
Gesendet: Freitag, 9. Juni 2006 21:19
An: rpg400-l-bounces@xxxxxxxxxxxx; RPG400-l@xxxxxxxxxxxx
Cc: Midrange-l@xxxxxxxxxxxx
Betreff: Embedded SQL within an RPGILE program



Hi everyone - I have a question.
I have a file DISKA, with the DDS as follows
FIELD-A        3
FIELD-B       30
FIELD-C      180
FIELD-D        5  5

Within STRSQL, I know you can type the following command
SELECT FIELD-B, FIELD-D, count(*) FROM DISKA GROUP BY
FIELD-B, FIELD-D ORDER BY FIELD-B, FIELD-D
and the result would be a display of unique groups with a count of records
within each group.

Now my question is, how could I (if its possible)code this as embedded SQL,
so that I can retrieve and display the data/results in a sub-file?

My experience with embedded SQL leaves a lot to be desired, and I'm not too
sure how to handle this.

Thanks in anticipation



Alan Shore

NBTY, Inc
(631) 244-2000 ext. 5019
AShore@xxxxxxxx
--
This is the RPG programming on the AS400 / iSeries (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.