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.midrange.com%2Fmailman%2Flistinfo%2Fmidrange-l&amp;data=04%7C01%7Cddanner%40awtx-itw.com%7Ca2c635686b6a42ca155908d8fb1cdba0%7C7fa3ed9ffff94884a6e28dd98886b775%7C0%7C0%7C637535448650518476%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&amp;sdata=Cj1%2Fbw5I1Bi5%2BofpIwL9uwMoLHLU4v0gTHRJVKzF0LQ%3D&amp;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.midrange.com%2Fmidrange-l&amp;data=04%7C01%7Cddanner%40awtx-itw.com%7Ca2c635686b6a42ca155908d8fb1cdba0%7C7fa3ed9ffff94884a6e28dd98886b775%7C0%7C0%7C637535448650518476%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&amp;sdata=HOKHiUxGFOQhU7PkWMz1zpewQ%2BLw4wEdvnYsyEZG%2FbM%3D&amp;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.midrange.com%2F&amp;data=04%7C01%7Cddanner%40awtx-itw.com%7Ca2c635686b6a42ca155908d8fb1cdba0%7C7fa3ed9ffff94884a6e28dd98886b775%7C0%7C0%7C637535448650518476%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&amp;sdata=FegaCdRrrtySPaoHjW12X3tzNv0YfsksAKmbui9oXFI%3D&amp;reserved=0