Date from TIME opcode

[D.BALE@xxxxxxxxxxxxx]

Non-negotiable fact for this question:  RPG-III only (I already know about my
options in RPG-IV, so, please, no preaching to the choir <g>)

I need to store the current date (not job date!) in a field written out to a
file.  Our dates are stored in YYYYMMDD numeric format (also non-negotiable,
so don't go there!).  The TIME op code produces the date in positions 7-14 in
a 14-digit field.  The RPG Reference states that "The date format depends on
the date format job attribute QDATFMT".  This is a system value assigned to
the job that can be changed via CHGJOB.  Given our QDATFMT value of *MDY here
in the states, I know I can manipulate the mmddyyyy date in a data structure
to get the desired yyyymmdd format.  But our overseas branches may have a
different QDATFMT value.  I would have thought that this value could be found
in the program status data structure, but a search in the RPG Reference turned
up nothing.

FWIW, this program is called from within a CL program.

Dan Bale
IT - AS/400
Handleman Company
248-362-4400  Ext. 4952
+---
| 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
+---