Re: Convert date from YYYYMMDD to CYYMMDD format

Try this

D TodateÂÂÂÂÂÂÂÂÂ SÂÂÂÂÂÂÂÂÂÂÂÂÂÂ DÂÂ DATFMT(*ISO)ÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂ
D TodayÂÂÂÂÂÂÂÂÂÂ SÂÂÂÂÂÂÂÂÂÂÂÂÂ 8P 0ÂÂÂÂÂÂÂÂÂ
Â
ÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂ
Todate = %Date();ÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂ
Today = %Int(%Char(Todate: *ISO0));ÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂ
Â
Â
Â
Â
Â
Â
Â
Â
Regards,
Upendra
Â
Â
Support Akshaya Patra every time you do a web search! Use www.goodsearch.comfor your internet searches, and specify Akshaya Patra Foundation USA (Stoneham, MA) as the charity, every search will raise a certain amount. (Try it). GoodSearch is powered by the Yahoo search engine.ÂÂ
Â
If you are thinking a year ahead, sow seed.
If you are thinking ten years ahead, plant a tree.
If you are thinking one hundred years ahead, educate the people.

Anonymous
Remember, every small contribution makes a difference.
Click here! www.akshayapatra.org
Akshaya patra: Unlimited food for education




________________________________
From: "Peter_Vidal@xxxxxxxx" <Peter_Vidal@xxxxxxxx>
To: rpgnext@xxxxxxxxxxxx; rpg400-l@xxxxxxxxxxxx
Sent: Friday, 5 June, 2009 7:53:05 PM
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

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



Explore and discover exciting holidays and getaways with Yahoo! India Travel http://in.travel.yahoo.com/