Date from TIME opcode

[bvining@xxxxxxxxxxxx]

Rather than using TIME just call the Convert Date and Time Format API
(QWCCVTDT) asking for the current date in YYYYMMDD format.  Here's some
RPG code to demonstrate this:

     IMISC        DS
     I                                    B   1   40EC
     C                     Z-ADD0         EC
     C                     CALL 'QWCCVTDT'
     C                     PARM '*CURRENT'INFMT  10
     C                     PARM           INVAL   1
     C                     PARM '*YYMD'   OUTFMT 10
     C                     PARM           OUTVAL 17
     C                     PARM           EC
     C                     MOVELOUTVAL    YYMD    8
     C                     MOVE '1'       *INLR
     C                     RETRN

For details on the API see the Miscellaneous category of system APIs.

Bruce

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


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