Re: Convert date from YYYYMMDD to CYYMMDD format

Try it like this:

IDELNB = %dec(%date(STARTDATE:*ISO):*CYMD)

You are dealing in numerics both coming and going so there is no need for
the "no separator" flag of "0" on the date types.

HTH,


Brian May
Project Lead
Management Information Systems
Garan, Incorporated
Starkville, Mississippi

Young i Professionals
http://www.youngiprofessionals.com



Peter_Vidal@xxxxxxxx
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
06/05/2009 09:35 AM
Please respond to
RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxx>


To
rpgnext@xxxxxxxxxxxx, rpg400-l@xxxxxxxxxxxx
cc

Subject
Convert date from YYYYMMDD to CYYMMDD format






Hi list!

*BACKGROUND*
I have this line of code from Bob Cozzi's website that helps to convert a
date from YYYYMMDD to a YYMMDD format:
http://www.rpgiv.com/rpgivforum/view?SID=20070821133326694527&NRL=10&KW=myYYYYMMDD


myYYMMDD = %char(%date(myYYYYMMDD:*ISO0) : *YMD0)

Due to the nature of my source and target fields formats (STARTDATE [8.0]
and IDELNB [7.0]), I am using %DEC. In addition, the target field format
must be CYYMMDD so I am using *CYMD0. As a result, I modified the line a
little bit as follows:

IDELNB = %dec(%date(STARTDATE:*ISO0):*CYMD0)

*PROBLEM*
The issue that I have is that when I compile I have this message:
RNF7514 20 2 A Date, Time or Timestamp separator is not allowed with
a numeric entry.

These 2 errors are pointing to 2 different lines so that is why I have
errors listed but if I have this one cleared up, I will know how to
resolve the other one.

What I am doing wrong?

TIA,

PETER VIDAL
MAPICS IT TECHNICAL SUPPORT TEAM / SR SYSTEM ANALYST
10540 Ridge Rd., Suite 203, New Port Richey, FL 34654-5111
Tel:727-849-9999, x2414 /// Fax:727-815-3120
WWW.PALL.COM

"It's not the years in your life that count. It's the life in your years."
Abraham Lincoln (1809 ? 1865)


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

Attention:

This communication may contain information that is confidential,
privileged and/or exempt from disclosure under applicable law.
If you are not the intended recipient, please notify the sender
immediately and delete the original, all attachments, and all
copies of this communication.


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