"extract" command enhancement

[rbrightman@xxxxxxxxxx]

Hans,

It would be nice to be able to extract only the century  with the "extract"
command. Right now you can only extract the 2 digit or 4 digit year. I do it now
with a data structure.

What also would be nice is to have the "extract" command give you the century
even though the date in factor 2 is a 6 digit date.
              ex:   d  date6             s    d    datfmt(*mdy)
          c    extract   date6: *c century
Here, *c means you want the century.

Its necessary to isolate the century because alot of files have the century as a
field by itself.

Rick


+---
| 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
+---