Re: RPG400-L Digest, Vol 14, Issue 4

I'm curious why you convert it to a character field? I just use date and
time fields in my print and display files--simply coding appropriate
DATFMT as necessary. When you move from one date field to another, the
internal storage of the date doesn't change (stored as a 10-digit integer
IIRC)--it simply alters how the data is presented in the print or display
file.

"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx> wrote on 01/06/2015 10:17:54
AM:

----- Message from Alan Cassidy <ACassidy@xxxxxxxxxxxxxx> on Tue, 6
Jan 2015 15:17:40 +0000 -----

To:

"RPG programming on the IBM i (AS/400 and iSeries)"

<rpg400-l@xxxxxxxxxxxx>

Subject:

RE: Converting a date

A date is stored as a date.

I just leave them as dates until I need to display them. If I need a
*USA format, then I just convert it to a character field exactly the
way I want them. It's easier to use that way for me; it may be
different for developers who grew up with date-type variables that
have a format attribute like RPGLE does.

dcl-s wrkdate date ;
dcl-s viewdate char(10) ;

Wrkdate = '2015-01-06' ;
Showdate = %char( wrkdate : *USA ) ;

// Showdate will now be '01-06-2015'


Alan Cassidy
Software Engineer
Hospital Physician Partners
954-981-6383 ext. 3433 - Direct phone
786-380-9236 - Mobile phone
acassidy@xxxxxxxxxxxxxx
www.hppartners.com

-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
MichaelQuigley@xxxxxxxxxx
Sent: Tuesday, January 06, 2015 9:48 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: RE: Converting a date

From the ILE RPG Reference:

%DATE converts the value of the expression from character, numeric, or
timestamp data to type date. The converted value remains unchanged,

but is

returned as a date.

"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx> wrote on 01/05/2015
11:29:54
PM:

Regardless, when you are using the %date function you really want to

give it

a numeric value.

--
This is the RPG programming on the IBM i (AS/400 and iSeries)

(RPG400-L)

mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To
subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.

--------------------------------------------------------------------------------

Confidentiality Notice: This email may contain confidential
information or information covered under the Privacy Act, 5 USC 552
(a), and/or the Health Insurance Portability and Accountability Act
(PL 104-191) and its various implementing regulations and must be
protected in accordance with those provisions. It contains
information that is legally privileged, confidential or otherwise
protected from use or disclosure. This e-mail message, including
any attachments, is for the sole use of the intended recipient(s).
Any unauthorized review, use, disclosure or distribution is
prohibited. You, the recipient, are obligated to maintain it in a
safe, secure and confidential manner. If you are not the intended
recipient, please contact the sender by reply e-mail and destroy all
copies of the original message. Thank you.

--------------------------------------------------------------------------------

--
This is the RPG programming on the IBM i (AS/400 and iSeries)
(RPG400-L) digest list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.