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