Re: TIME opcode to 14.0 field: how determine or change date format?

Dan Bale wrote:
>
> NOTE:  This is v3r2 RPG-IV; the TIME op code requires a numeric result
> field.
>
> I need to retrieve the current date (NOT job date) in an RPG-IV program
> compiled at v3r2 and end up storing that date in YYYYMMDD format.

Just for the record, there is a way to use V3R2 RPG coding for this:

D             ds
D timeres              12s 0
D   timedate            6s 0  overlay(timeres : 7)
D tempdate    d          d    datfmt(*iso)

c              time            timeres
c   *jobrun    movel  timedate tempdate
c   *iso       movel  tempdate yyyymmdd    8 0

Important points:
1. You must use the 12-digit form of the TIME result.  *jobrun refers to
the job date format which uses 2-digit years.
2. You must use MOVEL, in case the job format is *JUL.