Re: another SQL precompiler issue - mods for recieving fetches

[rick baird <rick.baird@xxxxxxxxx>]

Never mind - unless you know the final answer, I found a workaround
that is acceptable to me:

I changed the data structure fields to all reference the file fields
and it pre-compiled fine:

d s2DS            ds                  occurs(14)            
d S2TMCD                              like(TMTMCD)          
d S2TMDS                              like(TMTMDS)          
d S2RYL1                              like(TMRYL1)          
d S2P1DT                              like(TMP1DT)          
d S2RYET                              like(TMRYET)          
d S2STTS                              like(TMSTTS)          
                                                            
thanks anyway,

Rick

On 7/22/05, rick baird <rick.baird@xxxxxxxxx> wrote:
> Ok,
> 
> I've got another one. (V5R1).  On this one, I do want to fetch
> multiple rows (14 for one page of a subfile).  I'm following my
> examples ALMOST to the letter, but the precompiler's puking.  here's
> the pertinant code:
> 
> d s2DS            ds                  occurs(14)
> d S2TMCD
> d S2TMDS
> d S2RYL1
> d S2P1DT                              like(TMP1DT)
> d S2RYET
> d S2STTS
> 
> c/exec sql
> c+                 declare   c2a scroll cursor for
> c+                  select   TMTMCD,
> c+                           TMTMDS,
> c+                           TMRYL1,
> c+                           TMP1DT,
> c+                           TMRYET,
> c+                           TMSTTS
> c+                    from   ICTEAMP
> c+                   where   TMLICD = :C2LICD
> c+                     and   TMSTTS = ' '
> c+                     and   TMRYET <> ' '
> c+                order by   TMTMCD
> c+                     for   fetch only
> c/end-exec
> c/exec sql
> c+                     open  c2a
> c/end-exec
> c/exec sql
> c+                   fetch  next from c2a for 14 rows
> c+                    into  :s2DS
> c/end-exec
> 
> I'm getting:
> 
> SQL5011  Position 35 Host structure array S2DS not defined or not usable.
> 
> All the fields in the DS are described by the display file (fields in
> a subfile record) except for the single "Like" - which is described by
> an input database file.
> 
> If I remove the OCCURS and fetch only one row at a time, it compiles fine.
> 
> Thanks,
> 
> Rick
>