Re: Embedded SQL problem

Just can't remember where we put the darn shirts...

On 9/29/06, Tony Yemma <tyemma@xxxxxxxxx> wrote:

Tommy,

Your in a very big club, oh, and we have tee shirts.

Tony



On 9/28/06, Holden Tommy <Tommy.Holden@xxxxxxxxxxxxxxxxx> wrote:
>
> Problem solved...
>
> FETCH FIRST FROM cursor INTO :myvariable
>
> Duh I forgot to put the cursor name in the statement...brain cells dying
> fast...
>
>
> Thanks,
> Tommy Holden
>
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Holden Tommy
> Sent: Thursday, September 28, 2006 3:54 PM
> To: RPG programming on the AS400 / iSeries
> Subject: RE: Embedded SQL problem
>
> This is being used in a subfile program.  The point is after x number of
> rows are processed I have to move the cursor back to the top of the list
> of rows.
>
>
> Thanks,
> Tommy Holden
>
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
> Michael_Schutte@xxxxxxxxxxxx
> Sent: Thursday, September 28, 2006 3:06 PM
> To: RPG programming on the AS400 / iSeries
> Subject: Re: Embedded SQL problem
>
> Maybe
>
> FETCH NEXT FROM FILEDB FOR 1 ROWS INTO :DBXREFDS
>
>
> Michael Schutte
>
> Dig in! Bob Evans New Knife & Fork Sandwiches - This much homestyle
> goodness demands a Knife & Fork!
>
>
> rpg400-l-bounces@xxxxxxxxxxxx wrote on 09/28/2006 04:01:25 PM:
>
> > Tommy,
> >
> > Can you change to ???
> >
> >
> > c/exec sql
> > c+ Fetch FileDB Into :DBXREFDS
> > c/end-exec
> >
> > Michael Schutte
> > Dig in! Bob Evans New Knife & Fork Sandwiches - This much homestyle
> > goodness demands a Knife & Fork!
> >
> >
> > rpg400-l-bounces+michael_schutte=bobevans.com@xxxxxxxxxxxx wrote on
> > 09/28/2006 03:58:00 PM:
> >
> > > I posted this on the systemi network forums as well.  Here's the
> issue,
> > > I have a subfile program I'm working on using a scroll cursor.  The
> > > precompiler is choking on the fetch first statement.  Below is the
> code
> > > as it appears in the program.
> > >
> > >      c/exec sql
> > >      c+ Declare FileDB Scroll Cursor For
> > >      c+   Select * From QADBXREF
> > >      c/end-exec
> > >      c/exec sql
> > >      c+ Open FileDB
> > >      c/end-exec
> > >
> > >      c/exec sql
> > >      c+ Fetch First From FileDB Into :DBXREFDS
> > >      c/end-exec
> > >
> > > And the precompiler error:
> > >
> > > SQL0504  35     910  Position 15 Cursor FIRST not declared.
> > >
> > > Any help??
> > >
> > > Thanks,
> > > Tommy Holden
> > >
> > >
> > > --
> > > 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.
>
>


--
Tony Yemma
EDPS
804-353-1900 ext. 2883
--
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.