Re: sqlrpgle & copy book -- RPG400-L

My bad: I missed the "next" in you fetch.

Is this by any chance in a subprocedure?

Kyle


On Fri, 11 Feb 2005 10:18:48 -0600, SRamanujan@xxxxxxxxxxxxxxxxxx
<SRamanujan@xxxxxxxxxxxxxxxxxx> wrote:
> Thanks Kyle.
> This may not be so.  My fetch is only for one record at a time.
> Multiple records would be when 'fetch next <number more than one> from
> cursor'.
> 
> Thanks,
> Sudha
> 
> Sudha Ramanujan
> SunGard Futures Systems
> sramanujan@xxxxxxxxxxxxxxxxxx
> (312) 577 6179
> (312) 577 6101 - Fax
> 
> -----Original Message-----
> From: Kyle Collie [mailto:kcollie@xxxxxxxxx]
> Sent: Friday, February 11, 2005 10:11 AM
> To: RPG programming on the AS400 / iSeries
> Subject: Re: sqlrpgle & copy book
> 
> Since your select statement could possibly(likely) return more than
> one record, I think you will need a multiple occurring DS.
> 
> Kyle
> 
> On Fri, 11 Feb 2005 10:59:41 -0500, rob@xxxxxxxxx <rob@xxxxxxxxx> wrote:
> > Actually in this case I think he DOES want a /copy instead of a
> /include,
> > if he is running prior to V5R3.  Prior to V5R3 the precompiler ignored
> > /include but did /copy.  You need the precompiler to actually do the
> /copy
> > to get it to use the fields within the data structure.
> >
> > In the V5R3 version of the precompiler supposedly they fixed all bad
> > issues regarding /copy (like nested copies now work).  And they now
> treat
> > /include just like /copy.  Which I think is asinine because the sole
> > purpose of /include was to be ignored by the precompiler.  When they
> come
> > up with yet another function that is not valid within the precompiler
> what
> > will the compiler team do?  Come up with a /copyifnotinsqlprecompiler
> > directive?  Or is there an new conditional compilation directive that
> > should be used?
> >
> > Obviously this is not his issue since he tried both directives though.
> Odd
> > that it works if neither is used, but a physical copy is used instead.
> > Open a pmr.
> >
> > Rob Berendt
> > --
> > Group Dekko Services, LLC
> > Dept 01.073
> > PO Box 2000
> > Dock 108
> > 6928N 400E
> > Kendallville, IN 46755
> > http://www.dekko.com
> >
> > <SRamanujan@xxxxxxxxxxxxxxxxxx>
> > Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> > 02/11/2005 10:26 AM
> > Please respond to
> > RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> >
> >
> > To
> > <rpg400-l@xxxxxxxxxxxx>
> > cc
> >
> > Subject
> > RE: sqlrpgle & copy book
> >
> > Ok I checked the Archives and found to use /include instead of /copy
> but
> > I still get the error SQL0312 'Fields is not defined or not usable'.
> > What am I doing wrong. My code looks now as:
> >
> > Rpgle.myds
> > dfieldDs                 ds
> > d field1                                 5a
> > d field2                      15p 2
> > d field3                      30a
> >
> > sqlrpgle  :
> >  /include rpgle,myds
> > *
> > d myDsNullI     ds
> > d                                   based(myDsNullAd)
> > d  myNullAry                   5i 0 dim(21)
> >
> > c/exec sql declare c cursor for select * from filea for read only
> > c/end-exec
> > c/exec sql open c
> > c/end-exec
> > c/exec sql fetch next from c into :fields :myNullAry
> > c/end-exec
> > c/exec sql close c
> > c/end-exec
> >
> > Sudha Ramanujan
> > SunGard Futures Systems
> > sramanujan@xxxxxxxxxxxxxxxxxx
> > (312) 577 6179
> > (312) 577 6101 - Fax
> >
> > -----Original Message-----
> > From: Rick.Chevalier@xxxxxxxxxxxxxxx
> > [mailto:Rick.Chevalier@xxxxxxxxxxxxxxx]
> > Sent: Friday, February 11, 2005 8:08 AM
> > To: rpg400-l@xxxxxxxxxxxx
> > Subject: RE: sqlrpgle & copy book
> >
> > Also make sure the sub fields are defined in your copybook.  I have
> not
> > been able to use externally defined data structures as result sets for
> > embedded SQL.  The compiler always complains they aren't defined or
> > usable.
> >
> > I vaguely remember someone posting to this list that they got embedded
> > SQL to work using an externally described DS as the result set but I
> may
> > be mistaken.  Check the archives, this has been discussed several
> times
> > before.
> >
> > Rick
> >
> > -----Original Message-----
> > From: rpg400-l-bounces@xxxxxxxxxxxx
> > [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of
> > SRamanujan@xxxxxxxxxxxxxxxxxx
> > Sent: Thursday, February 10, 2005 4:32 PM
> > To: rpg400-l@xxxxxxxxxxxx
> > Subject: sqlrpgle & copy book
> >
> > Hi all,
> > When I have a copy book that has the data structure, and fetch into
> the
> > ds, I get a sql pre-compiler error SQL0312 'The DSNAME is not define
> or
> > not usable' Is there anyway to avoid this?
> > Thanks,
> > Sudha
> >
> > Sudha Ramanujan
> > SunGard Futures Systems
> > sramanujan@xxxxxxxxxxxxxxxxxx
> > (312) 577 6179
> > (312) 577 6101 - Fax
> >
> > Privileged and Confidential.  This e-mail, and any attachments there
> to,
> > is intended only for use by the addressee(s) named herein and may
> > contain legally privileged or confidential information.  If you have
> > received this e-mail in error, please notify me immediately by a
> return
> > e-mail and delete this e-mail.  You are hereby notified that any
> > dissemination, distribution or copying of this e-mail and/or any
> > attachments thereto, is strictly prohibited.
> >
> > --
> > 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.
> 
>