RE: RPG IV Date Question

[Phil Groschwitz <sublime78ska@xxxxxxxxx>]

Also you can use the time opcode:

CL0N01Factor1+++++++Opcode&ExtFactor2+++++++Result+++++
c                   time                    iso_date

Phil

--- "Jansen, Larry" <ljansen@preformed.com> wrote:
> You can use a MOVE statement with UDATE, as follows:
>
>
>  FMT C
>
CL0N01Factor1+++++++Opcode&ExtFactor2+++++++Result++++++++Len++D+HiLoEq
> 0001.01 c     *mdy          move      udate
> iso_date
>
> in which ISO_DATE is defined as a date data type.
>
> Good luck!
> Larry Jansen
>
> -----Original Message-----
> From: THarteau@felkerbrothers.com
> [mailto:THarteau@felkerbrothers.com]
> Sent: Thursday, January 10, 2002 4:16 PM
> To: RPG400-L@midrange.com
> Subject: RPG IV Date Question
>
>
> Hi,
>      This may sound like a silly question, but how
> do you get today's date
> into a date field? I can do almost anything in RPG
> 400 or 3, but I'm still
> learning RPG 4. In the past I have moved UDATE to a
> 6.0 field, added that
> and 20000000 to an 8 digit field, then moved that to
> the date field. There
> has got to be an more elegant way to do this, isn't
> there? Thanks!
>
>
<===================================================>
>
> Terri Harteau
> Felker Brothers Corp
> ****************
> "There's no point in being grown up if you can't be
> childish sometimes."
> - Dr. Who
> ****************
>
>
>
>
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries
> (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit:
> http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the
> archives
> at http://archive.midrange.com/rpg400-l.
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries
> (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit:
> http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the
> archives
> at http://archive.midrange.com/rpg400-l.
>


__________________________________________________
Do You Yahoo!?
Send FREE video emails in Yahoo! Mail!
http://promo.yahoo.com/videomail/