RE: Overlay an External DS - RESOLVED

[Joel Cochran <jrc@xxxxxxxxxx>]

> ddsElems        e ds                  extname(elems)           
> d  array          s             10    dim(4) based(@)
> d  @              s               *   inz(%addr(dsElems))
> 
> 

This was the solution I ended up using and it works great. I understand
that part of the problem was that this is an SQLRPGLE program and part
of the problem *could* be that you can't append an externally defined
DS.  Can anyone confirm the latter?

Thanks!

Joel


On Wed, 2003-08-06 at 17:31, Joe Pluta wrote:
> Joel, this failed for me, showing both the data structure and the array
> as all blanks:
> 
> ddsElems        e ds                  extname(elems)           
> d  array                        10    overlay(dsElems:1) dim(4)
>                                                                
> c/exec SQL declare c cursor for select * from elems            
> c/end-exec                                                     
> c/exec SQL open c                                              
> c/end-exec                                                     
> c/exec SQL fetch next from c into :dsElems                     
> c/end-exec                                                     
> C     array(2)      dsply                                      
> c/exec SQL close c                                             
> c/end-exec                                                     
> C                   eval      *inlr = *on                      
> 
> 
> But, if I change it thus, it works fine:
> 
> ddsElems        e ds                  extname(elems)           
> d  array          s             10    dim(4) based(@)
> d  @              s               *   inz(%addr(dsElems))
> 
> 
> I see the second field of the first record.  Bizarre.
> 
> Joe
> 
> _______________________________________________
> 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.