RE: Overlay Keyword

D                 DS
D MMDDYEAR                       8  0 inz
D  YEAR                          4    OVERLAY(MMDDYEAR)
D  MMDD                          4    OVERLAY(MMDDYEAR:5)

d ISOdateWrk      s               D   DATFMT(*ISO) INZ

C     *usa          Test  (D)               MMDDYEAR               90
C                   If    *in90 = *off
C     *usa          move      MMDDYEAR      ISOdateWrk
C                   endif

The above is a simple example of taking the 2 fields mentioned below and
ending
up with a date data type that you can use in date arithmetic.


> I have a question using the "overlay" keyword.
>
> If I have two field each 4 alpha i.e. MMDD and YEAR and I
> want to combine
> them to look like YEARMMDD which is 8 alpha.How would I use
> the overlay
> keyword to accomplish this. I know you can use a data
> structure or the cat
> function to do this but I was trying to learn new stuff. TIA


+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---