Date validation RPGLE

as400dev

620 pts.

Tags:

AS/400

RPGLE

Hi,

I try to validate the date field but the Indicator sets on for both valid and invalid. Please advice.

D datevalid       S              8A   inz('20131225')    
D dateINVAlid     S              8A   inz('99999999')    
 *                                                                      
 /free                                                                  
  test(DE) *ymd0  datevalid;                                            
  if %error() ;                                                         
     dsply 'Error!' ;                                                   
  endif ;                                                               
 /end-free                                                              
 *                                                                      
C     *YMD          TEST(D)                 datevalid              44   
C  N44'valid'       dsply                                               
C     *YMD          TEST(D)                 dateINVAlid            55    
C 55'INVALID' dsply

Asked: October 21, 2013 4:09 AM Last updated: October 22, 2013 9:03 AM

Answer Wiki

Thanks. We'll let you know when a new response is added.

Send me notifications when members answer or reply to this question.

Discuss This Question: 6 Replies

There was an error processing your information. Please try again later.

Thanks. We'll let you know when a new response is added.

Send me notifications when members answer or reply to this question.

TomLiotta Oct 21, 2013 4:21 AM GMT
```
D datevalid       S              8A   inz('20131225')

C     *YMD          TEST(D)                 datevalid              44
```
You need to use a valid date if you want the test to succeed. "20131225" is not valid for format *YMD.
Tom
125,585 pointsBadges:
report
philpl1jb Oct 21, 2013 2:57 PM GMT

Odd, I thought that there was another response to this question.

It said use *ISO for the format.

54,090 pointsBadges:

report
BigKat Oct 21, 2013 4:40 PM GMT

there is on the other version of this question Test for date in *DMY format in RPGLE

9,220 pointsBadges:

report
philpl1jb Oct 21, 2013 6:31 PM GMT

Yes, thanks .. and as you said on that version the format should be *ISO0

54,090 pointsBadges:

report
TomLiotta Oct 22, 2013 1:42 AM GMT

In the other thread, this question here was added as the "Answer". I cut it out and used 'Discuss' to respond. It seemed to be a reasonable continuation of the original question. The OP here probably needs some experience in tracking these threads. -- Tom

125,585 pointsBadges:

report
as400dev Oct 22, 2013 9:03 AM GMT

Thanks for your response

620 pointsBadges:

report