RE: Overlay an External DS - RESOLVED

[Dave Boettcher <DBoettch@xxxxxxxxxxxxxxxx>]

I have appended a DS copied in with /COPY or /INCLUDE. 

in the source:
 /include QGPL/COPYBOOK,TimeDate

D TIMDAT                        12  0    
D TMPDAT                         6  0    
 
as compiled: (some lines omitted to save space)
  95  *  CopyBook: TIMEDATE                                             
  96  *              Data Structure to receive TIME operation           
 103 dTimeDate         ds                                               
 104 d*                        hhmmssmmddccyy                           
 105 d  Tyme                   1     14  0                              
 106 d  Timex                  1      6  0                              
 107 d  Datex                  7     14  0                              
 108 d   MonX                         2  0 Overlay(Tyme:7)              
 109 d   DayX                         2  0 Overlay(Tyme:*next)          
 110 d   YearX                        4  0 Overlay(Tyme:*next)   
 113 D TIMDAT                        12  0                       
 114 D TMPDAT                         6  0                       

Works fine.

HTH, 

Dave Boettcher

-----Original Message-----
From: Joel Cochran [mailto:jrc@xxxxxxxxxx]
Sent: Thursday, August 07, 2003 10:59 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: Overlay an External DS - RESOLVED



> 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