You need to convert first the date to character then to decimal:
IDELNB = %dec(%char(%date(STARTDATE:*ISO):*CYMD0):7:0)
HTH
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Peter_Vidal@xxxxxxxx
Sent: Friday, June 05, 2009 10:23 AM
To: rpgnext@xxxxxxxxxxxx; rpg400-l@xxxxxxxxxxxx
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=myYY
YYMMDD
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.
----------------------------------------------------------------------------
----
midrange.com
