RE: Can SQL recognize a nested data structure?

[CWilt@xxxxxxxxxxxx]

Ben,

I'm pretty sure the answer is no.  Unfortunately, the SQL pre-compiler is
significantly behind the RPG compiler.

Supposed to be some improvements at v5r3.

Charles


> -----Original Message-----
> From: Ben_Pforsich@xxxxxxxxxxxx [mailto:Ben_Pforsich@xxxxxxxxxxxx]
> Sent: Tuesday, August 17, 2004 2:07 PM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: Can SQL recognize a nested data structure?
> 
> 
> 
> 
> 
> 
> I'm trying to load records into a MODS which I want define as 
> having all
> the fields of a particular external file with the addition of 
> a field to
> hold the RRN.  I can do this for single-row fetches, but how 
> do I do this
> for multiple-row fetches where I need to use a MODS?
> 
> <code fragment>
> 
> d JPP010        e ds                  qualified
> d DS1             ds                  occurs(10)
> d   RRN                         10s 0
> d   JPPfields                         likeds(JPP010)
> 
> c/exec SQL
> c+ declare C1 cursor for
> c+   select rrn(A), A.*
> c+     from JRP010 A
> c+    where R1COM = :Company and R1IYR * 100 + R1IWK between
> c+                  :FromIYRIWK and :ToIYRIWK
> c/end-exec
> 
> c/exec SQL
> c+ open C1
> c/end-exec
> 
> c/exec SQL
> c+ fetch from C1 for 10 rows into :DS1
> c/end-exec
> 
> </code fragment>
> 
> I'm getting an SQL precompiler error stating "host structure 
> array DS1 not
> defined or not usable".  When I bypass the SQL precompiler by using
> CRTBNDRPG, I get a little more info:  "LIKEDS keyword is not 
> allowed within
> a data structure that is not qualified"  I could try just 
> defining each
> field in JPP010 in the data structure, but there a lot of 
> fields to define
> and didn't want to make the code more bloated than I had to.
> 
> Has anyone tried something like this successfully?  We're on V5R2.
> 
> 
> Ben Pforsich
> Programmer Analyst
> Bob Evans Farms, Inc.
> I/S Department
> Columbus, Ohio
> Ben_Pforsich@xxxxxxxxxxxx
> 
> --
> 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.
>