RE: sqlrpgle & copy book

http://www-912.ibm.com/
Select "Software Service Request"

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 11:16 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
<rpg400-l@xxxxxxxxxxxx>
cc

Subject
RE: sqlrpgle & copy book






Thanks Rob. 
How do I open a pmr?

Sudha Ramanujan
SunGard Futures Systems
sramanujan@xxxxxxxxxxxxxxxxxx
(312) 577 6179
(312) 577 6101 - Fax


-----Original Message-----
From: rob@xxxxxxxxx [mailto:rob@xxxxxxxxx] 
Sent: Friday, February 11, 2005 10:00 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: sqlrpgle & copy book

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.