RE: sqlrpgle & copy book -- RPG400-L

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.