Re: Converting a date

Gary,

There is probably an easier way to do what you want to do and probably
with far fewer lines of code... Check out this V5R3 article from 2008
which may help.

http://www.mcpressonline.com/programming/rpg/rpg-iv-legacy-dates-cheat-sheet.h
tml

Sam

On 1/5/2015 7:17 PM, Gary Kuznitz wrote:

I can't seem to figure out how to reformat a date to get it in *USA

format.

The error I'm getting is:
*RNF7606 20 2000004 The Data-Format entry is A or N but field

DTEOFHIRE is

not of type character or indicator.

D DTEOFHIRE 10D INZ DatFmt(*USA)

O DTEOFHIRE

DDS:
A DTEOFHIRE L TEXT('Employment Date')
A COLHDG('Employment' +
A 'Date' )

I'm running this on V5R3.

It could easily be I haven't loaded DTEOFHIRE correctly.
I read in Emplydate. EmpMonth is a 3 char Month Jan, Feb

D DS
D Emplydate
D EmpDay 2 0 Overlay(Emplydate:1)
D EmpMonth 3 Overlay(Emplydate:4)
D EmpYear 2 0 Overlay(Emplydate:8)
D DS
D Empdate2 10A
D EmpCentury 2 0 INZ(20)
D EmpYear2 2 0 Overlay(Empdate2:3)
D EmpMonth2 2 Overlay(Empdate2:6)
D EmpDay2 2 0 Overlay(Empdate2:9)

I do a lookup on a table to get the month
C Z-ADD 1 X 2 0
C EmpMonth LookUp Months(X) 31
C Move Empdate2 DTEOFHIRE

I have tried many different approaches including adding slashes to Empdate2

and

changing Empdate2 from *Char. I don't know what I must be doing wrong even

though

there must be 20 different ways this can be done.

Thanks,

Gary

---
This email has been checked for viruses by Avast antivirus software.
http://www.avast.com

--
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.