AW: Retrieving Field Names of any Cursor or Table in RPG?

["HauserSSS" <Hauser@xxxxxxxxxxxxxxx>]

Hi,

I'd suggest to look at one of the following online books.
There you'll find a lot of examples.

Who Knew You Could Do That with RPG IV? A Sorcerer's Guide to System Access
and More
http://www.redbooks.ibm.com/abstracts/sg245402.html?Open

Modernizing IBM eServer iSeries Application Data Access - A Roadmap
Cornerstone
http://www.redbooks.ibm.com/abstracts/sg246393.html?Open

Embedded SQL Programming
http://publib.boulder.ibm.com/infocenter/iseries/v5r3/topic/rzajp/rzajp.pdf

Mit freundlichen Gruessen / 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 Luqman
Gesendet: Sonntag, 12. Marz 2006 08:31
An: rpg400-l@xxxxxxxxxxxx
Betreff: Re: Retrieving Field Names of any Cursor or Table in RPG?


Hi,

Can you please explain this further, how can I define subfield ?

Any example will be appreciated, please.

Best Regards,

Luqman


"Kyle Collie" <kcollie@xxxxxxxxx> wrote in
message news:70b17f640603111554j698dbd30p6c8b854c25a8f95d@xxxxxxxxxxxxxxxxx
> You can by fetching after you open your cursor.
>
> For example:
>
> c/exec sql
> c+ fetch C1 into :result_ds:result_dsNull
> c/end-exec
>
> where result_ds is defined with a subfield matching each field
> returned in your select and rresult_dsNull is an array of 5i0 dimmed
> to match the number of fields returned. If a select returns a null
> value, the corresponding element will equal -1.
>
> Kyle
>
> On 3/11/06, Luqman <luqman@xxxxxxxxxxxxxxxx> wrote:
>> Can I retrieve the fields of sql Cursor with this method ?
>>
>>
>> For example:
>>
>> C/Exec Sql
>> C+ Declare C1 Cursor for select A.Name, B.Amount
>> C+ from Customer A, Invoice B
>> C+Where A.CusID=B.CusID
>> C/End-Exec
>>
>> C/Exec Sql
>> C+ Open C1
>> C/End-Exec
>>
>> Best regards,
>>
>> Luqman
>>
>>
>> <rob@xxxxxxxxx> wrote in message
>>
news:OF1CB438BB.19259CFA-ON0525712D.004CAA4C-0525712D.004CB6A2@xxxxxxxxxxxx
>> > See file QSYS2/SYSCOLUMNS.  That has what you are looking for.
>> >
>> > Rob Berendt
>> > --
>> > Group Dekko Services, LLC
>> > Dept 01.073
>> > PO Box 2000
>> > Dock 108
>> > 6928N 400E
>> > Kendallville, IN 46755
>> > http://www.dekko.com
>> >
>> >
>> >
>> >
>> >
>> > "Luqman" <luqman@xxxxxxxxxxxxxxxx>
>> > Sent by: rpg400-l-bounces@xxxxxxxxxxxx
>> > 03/06/2006 04:11 AM
>> > Please respond to
>> > RPG programming on the AS400 / iSeries
>> > <rpg400-l@xxxxxxxxxxxx>
>> >
>> >
>> > To
>> > rpg400-l@xxxxxxxxxxxx
>> > cc
>> >
>> > Fax to
>> >
>> > Subject
>> > Retrieving Field Names of any Cursor or Table in RPG?
>> >
>> >
>> >
>> >
>> >
>> >
>> > How can I retrieve Field names of any table in ILE RPG?
>> >
>> > Best Regards,
>> >
>> > Luqman
>> >
>> >
>> >
>> > --
>> > 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.
>> >
>> >
>> > --
>> > 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.
>> >
>> >
>>
>>
>>
>>
>>
>> --
>> 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.
>>
>>
>
> --
> 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.
>
>



--
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.