Re: Embedded SQL problem

["Michael Ryan" <michaelrtr@xxxxxxxxx>]

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.