Re: This compiler error doesn't make sense to me

I know about the date fields... but coding standards. :-(

I think it has to do with the screen fields are somehow turned into an int. IsValidData only checks for a valid date.

P IsValidData B
D IsValidData PI N

D isValid S N
D dateTest S D

/free

isValid = true;

monitor;
dateTest = %date(%char(DFromDate):*iso0);
on-error;
isValid = false;
endmon;

monitor;
dateTest = %date(%char(DToDate):*iso0);
on-error;
isValid = false;
endmon;

return isValid;

/end-free
P IsValidData E

Once I created "temp" fields defined like the prototype and copied the data into them, it all works.

--
Mike Wills
http://mikewills.me

On Dec 14, 2011, at 10:09 PM, Booth Martin wrote:

Would this work better if the two screen fields were defined as date
fields?

Type L, not zoned decimal.

Do I need to know what is in ISVALIDDATA to answer this issue definitively?

(Just as an aside, a benefit of using date fields is that date
validation is done for you.

http://www.martinvt.com/Code_Samples/Date_Math/date_math.html )


On 12/14/2011 9:33 PM, Mike Wills wrote:

I have a screen with two 8,0 decimal fields. My prototype takes the same two field types. See DFROMDATE and DTODATE and the two parameters in the screenshot here (http://dl.dropbox.com/u/2732434/2011-12-14-2126_screenshot.png). However, when I compile it, I get the error "RNF7535 The type and attributes of parameter 1 do not match those of the prototype." for both fields.

What am I missing?

dow (not isValid);

exfmt SCRN01;

if (F3 or F12);
leave;
endif;

if (IsValidData());
RunReport(DFromDate:DToDate);
endif;

enddo;

I feel like it is something stupid, I just don't see it.

--
Mike Wills
http://mikewills.me

--
Booth Martin
802-461-5349
http://www.martinvt.com
--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.