Fighting with Invalid Dates

[chandrashekhar jinna <csjinna@YAHOO.COM>]

Hi Friends,
I am trying to make a chaeck on the following
operation. I have to check the date of birth of a
student and should throw an error message it was
working fine now the req is I need to check the null
values also and throw the same kinda message.
I have implemeted the following logic, But I donno why
it is throwing an invalidate error from the
application processor. Do lemme know if I am wrong
somewhere.

I appreciate your help.


Global string &ID;
Global any &BIRTHDATE;

If %PanelGroup = PANELGROUP.PAYMENT_PLAN And
%Mode = "A" Then
&ID = EMPLID;
SQLExec("SELECT BIRTHDATE FROM PS_PERSONAL_DATA WHERE
EMPLID = :1", &ID, &BIRTHDATE);
If (&BIRTHDATE Not = "NULL") Then
If (AddToDate(&BIRTHDATE, 18, 0, 0) > %Date) Then
WinMessage("The student you have selected is less than
18 years old. Press OK to continue cancel to suspend
the current operation.", 1 + 32, "Warning");
End-If;
Else
WinMessage("The student you have selected has no
Birthdate. Press OK to continue or cancel to suspend
the current operation.", 1 + 32, "Warning");
End-If;
End-If



__________________________________________________
Do You Yahoo!?
Yahoo! Greetings - Send FREE e-cards for every occasion!
http://greetings.yahoo.com