Peter,
Change *CYMD0 to *CYMD. The zero at the end is for putting the
separators in character fields.
Terry Anderson
Programming Manager
Citation Corporation
Switchboard 1.251.867.5481 ext 212
Direct Line 1.251.809.2312
Fax 251.867.0525
Cell 1.251.363.4975
________________________________
From: rpgnext-bounces@xxxxxxxxxxxx [mailto:rpgnext-bounces@xxxxxxxxxxxx]
On Behalf Of Peter_Vidal@xxxxxxxx
Sent: Friday, June 05, 2009 9:23 AM
To: rpgnext@xxxxxxxxxxxx; rpg400-l@xxxxxxxxxxxx
Subject: [RPGNext] 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 <HTTP://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
