... but you can write date (RPG data type) in any format to a date column in
a physical file or table.
The date format is only used to make the scaliger no readable, in which the
date is stored.
I asume you got problems because you try to write a character field (instead
of a date field)
Mit freundlichen Grüßen / Best regards
Birgitta Hauser
"Shoot for the moon, even if you miss, you'll land among the stars." (Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them
and keeping them!"
?Train people well enough so they can leave, treat them well enough so they
don't want to.? (Richard Branson)
-----Original Message-----
From: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of
Danner, Duane
Sent: Freitag, 9. April 2021 15:51
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxxxxxxxx>
Subject: RE: date issue
Peter
A ORDDAT1 L DATFMT(*USA)
A field in a physical file
-----Original Message-----
From: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Peter
Dow
Sent: Friday, April 09, 2021 1:01 AM
To: midrange-l@xxxxxxxxxxxxxxxxxx
Subject: Re: date issue
Hi Duane,
What's the definition of ORDDAT1?
--
*Peter Dow* /
Dow Software Services, Inc.
909 793-9050
petercdow@xxxxxxxxx <mailto:petercdow@xxxxxxxxx> pdow@xxxxxxxxxxxxxx
<mailto:pdow@xxxxxxxxxxxxxx>
/
On 4/8/2021 2:00 PM, Danner, Duane wrote:
I am passing in a numeric field that is a 8 digit date, I want it to
convert to *USA MM/DD/YYYY
D CHARDATE1 S 8 0 INZ(01151949)
D USADATE S D DATFMT(*USA)
C MOVE DATEPO CHARDATE1
C EVAL USADATE = %DATE(CHARDATE1: *usa )
C MOVE USADATE ORDDAT1
Passing is a date into DATEPO of 20210325
What I need is ORDDAT1 to come back as 03/25/2021
Any ideas would be appreciated.
Duane Danner
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit:
https://nam10.safelinks.protection.outlook.com/?url=https%3A%2F%2Flists.midr
ange.com%2Fmailman%2Flistinfo%2Fmidrange-l&data=04%7C01%7Cddanner%40awtx
-itw.com%7Ca2c635686b6a42ca155908d8fb1cdba0%7C7fa3ed9ffff94884a6e28dd98886b7
75%7C0%7C0%7C637535448650518476%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAi
LCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=Cj1%2Fbw5I1B
i5%2BofpIwL9uwMoLHLU4v0gTHRJVKzF0LQ%3D&reserved=0
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://nam10.safelinks.protection.outlook.com/?url=https%3A%2F%2Farchive.mi
drange.com%2Fmidrange-l&data=04%7C01%7Cddanner%40awtx-itw.com%7Ca2c63568
6b6a42ca155908d8fb1cdba0%7C7fa3ed9ffff94884a6e28dd98886b775%7C0%7C0%7C637535
448650518476%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJ
BTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=HOKHiUxGFOQhU7PkWMz1zpewQ%2BLw4
wEdvnYsyEZG%2FbM%3D&reserved=0.
Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.
Help support midrange.com by shopping at amazon.com with our affiliate link:
https://nam10.safelinks.protection.outlook.com/?url=https%3A%2F%2Famazon.mid
range.com%2F&data=04%7C01%7Cddanner%40awtx-itw.com%7Ca2c635686b6a42ca155
908d8fb1cdba0%7C7fa3ed9ffff94884a6e28dd98886b775%7C0%7C0%7C63753544865051847
6%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haW
wiLCJXVCI6Mn0%3D%7C1000&sdata=FegaCdRrrtySPaoHjW12X3tzNv0YfsksAKmbui9oXF
I%3D&reserved=0
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit:
https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/midrange-l.
Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.
Help support midrange.com by shopping at amazon.com with our affiliate link:
https://amazon.midrange.com
midrange.com
