7 16 DATECHECK

LANSA Technical

7.16 DATECHECK

The DATECHECK command is used to check if a date field is valid against one of five possible formats and optionally that the date is within a certain number of days before and/or after the current date.

Also See

7.16.1 DATECHECK Parameters

7.16.2 DATECHECK Comments / Warnings

7.16.3 DATECHECK Examples

7.4 BEGINCHECK

7.7 CALLCHECK

7.14 CONDCHECK

7.35 ENDCHECK

7.48 FILECHECK

7.78 RANGECHECK

7.99 VALUECHECK

                                                         Required 

                                                                  

  DATECHECK ---- FIELD -------- field name ---------------------> 

                                                                  

 -----------------------------------------------------------------

                                                         Optional 

                                                                  

             >-- IN_FORMAT ---- *SYSFMT ------------------------> 

                                *DDMMYY                           

                                *MMDDYY                           

                                *YYMMDD                           

                                *DDMMYYYY                         

                                *YYYYMMDD                         

                                *YYYYDDMM                         

                                *YYMM                             

                                *MMYY                             

                                *MMDDYYYY                         

                                *YYYYMM                           

                                *MMYYYY                           

                                *SYSFMT8                         

                                                                  

             >-- BEFORE ------- 9999999 ------------------------> 

                                numeric value                     

                                                                  

             >-- AFTER -------- 9999999 ------------------------> 

                                numeric value                     

                                                                  

             >-- IF_VALID ----- *NEXT --------------------------> 

                                *ERROR                            

                                *ACCEPT                           

                                                                  

             >-- IF_INVALID --- *ERROR -------------------------> 

                                *NEXT                             

                                *ACCEPT                           

                                                                  

             >-- MSGTXT ------- *NONE --------------------------> 

                                message text                      

                                                                  

             >-- MSGID -------- DCU0006 ------------------------> 

                                message identifier                

                                                                  

             >-- MSGF --------- DC@M01 . *LIBL -----------------> 

                                message file . library name       

                                                                  

             >-- MSGDTA ------- substitution variables ---------| 

                             |  expandable group expression     | 

                              ----- ----- 20 max ---------------