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

["Kyle Collie" <kcollie@xxxxxxxxx>]

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