Re: SQL Fetch Into Multiple Externally Defined Data Structures

["Joe Wells" <jwells@xxxxxxxxx>]

I tried that too and got the same message.

Also, I have found that if I put a length on the DS, then it works...... 
However, I would really hate to do that because of the maintenance created
if the files change.

Thanks,

Joe

> > > On 3/13/2008 at 4:14 PM, in message
<6a01136f0803131414l3fce8e63r250501090878511e@xxxxxxxxxxxxxx>,
Mike<koldark@xxxxxxxxx> wrote:
> Try removing the "qualified" last I tried, it doesn't like the qualified
> data structures.
>
> On Thu, Mar 13, 2008 at 1:37 PM, Joe Wells 
> <jwells@xxxxxxxxx> wrote:
>
> > I have Googled around, but not found an answer.....so here goes -
> >
> > My embedded sql usually looks something like this -
> >
> > this is the select statement - "select * from d00001h"
> >
> > d wD00001H      e ds                  extname(D00001H)
> > .
> > .
> > c/exec sql
> > c+  fetch Fetch_Summary1 into : wD00001H
> > c/end-exec
> > .
> > .
> > .
> > and all of my fields are found in wD00001H.  That works great.
> >
> > I now have a situation where I want to return all of the fields from two
> > different files. The select statement looks like this -
> >
> > select * from d00001h, dmaster WHERE mreqnum=186 and Y1REQ#=MREQNUM
> >
> > I have tried this -
> >
> > d wD00001H      e ds                  extname(D00001H)
> > d wDMASTER      e ds                  extname(DMASTER)
> >
> > d results         ds                  qualified
> > d  oD00001H                           likeds(wD00001H)
> > d  oDMASTER                           likeds(wDMASTER)
> > .
> > .
> > .
> > c+  fetch Fetch_Summary1 into : results
> > .
> > .
> >
> > But the sql pre compile fails with this message "Variable RESULTS not
> > defined or not usable.".  I have tried other scenarios too, but am
> > stumped!
> > Any suggestions?
> >
> > Thanks,
> >
> > Joe Wells
> >
> > --
> > 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.