RE: CYYMMDD date to *ISO and back

["Bob Cozzi" <cozzi@xxxxxxxxx>]

You can't assign a number value to a date field.
You are doing that on your first RPG free statement.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Peter Vidal
Sent: Tuesday, April 13, 2004 12:20 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: CYYMMDD date to *ISO and back

Hi list!

I am testing some code that I found in the forum for date conversions.  I 
do not know what I am doing wrong here.  I want to add 14 days to a field 
that is (7,0) and have the original date and the new date for logic 
inquiries later in the program.  However, I am having an error and I can't 
see it...

0001.00 D #SYDAT          S              7S 0 Inz(1040413)  
0002.00 D #DateISO        S               D   DatFmt(*ISO)  
0003.00 D #DatNum7        S              7S 0  
0004.00  
0005.00  /Free  
0006.00     #DateISO  = %int(%char(%date(#SYDAT:*cymd) + 
%days(14):*iso0)); 
0007.00     #DatNum7  = %int(%char(#DateISO:*cymd0));  
0008.00  /End-Free  
0009.00  
0010.00 C                   Eval      *INLR = *ON   

 Msg id  Sv Number Seq     Message text  
*RNF7416 30      6 000600  The types of the right and left hand side do 
not match in
                           the EVAL operation.  

TIA,
Peter Vidal
PALL Aeropower Corporation
SR Programmer Analyst
5775 Rio Vista Drive
Clearwater, FL 33760-3137
(727)539-8448
www.pall.com

"My religion consists of a humble admiration of the illimitable superior 
spirit who reveals himself in the slight details we are able to perceive 
with our frail and feeble mind."
Albert Einstein