**FREE                                                                                              
DCL-C CONST_CDMY                  'CDMY';                                                           
DCL-C CONST_CDMY0                 'CDMY0';                                                          
DCL-C CONST_CDMYAMPERSAND         'CDMY&';                                                          
DCL-C CONST_CDMYCOMMA             'CDMY,';                                                          
DCL-C CONST_CDMYDASH              'CDMY-';                                                          
DCL-C CONST_CDMYPERIOD            'CDMY.';                                                          
DCL-C CONST_CDMYSLASH             'CDMY/';                                                          
DCL-C CONST_CMDY                  'CMDY';                                                           
DCL-C CONST_CMDY0                 'CMDY0';                                                          
DCL-C CONST_CMDYAMPERSAND         'CMDY&';                                                          
DCL-C CONST_CMDYCOMMA             'CMDY,';                                                          
DCL-C CONST_CMDYDASH              'CMDY-';                                                          
DCL-C CONST_CMDYPERIOD            'CMDY.';                                                          
DCL-C CONST_CMDYSLASH             'CMDY/';                                                          
DCL-C CONST_CYMD                  'CYMD';                                                           
DCL-C CONST_CYMD0                 'CYMD0';                                                          
DCL-C CONST_CYMDAMPERSAND         'CYMD&';                                                          
DCL-C CONST_CYMDCOMMA             'CYMD,';                                                          
DCL-C CONST_CYMDDASH              'CYMD-';                                                          
DCL-C CONST_CYMDPERIOD            'CYMD.';                                                          
DCL-C CONST_CYMDSLASH             'CYMD/';                                                          
DCL-C CONST_DMY                   'DMY';                                                            
DCL-C CONST_DMY0                  'DMY0';                                                           
DCL-C CONST_DMYAMPERSAND          'DMY&';                                                           
DCL-C CONST_DMYCOMMA              'DMY,';                                                           
DCL-C CONST_DMYDASH               'DMY-';                                                           
DCL-C CONST_DMYPERIOD             'DMY.';                                                           
DCL-C CONST_DMYSLASH              'DMY/';                                                           
DCL-C CONST_EUR                   'EUR';                                                            
DCL-C CONST_EUR0                  'EUR0';                                                           
DCL-C CONST_EURPERIOD             'EUR.';                                                           
DCL-C CONST_HMS                   'HMS';                                                            
DCL-C CONST_HMS0                  'HMS0';                                                           
DCL-C CONST_ISO                   'ISO';                                                            
DCL-C CONST_ISO0                  'ISO0';                                                           
DCL-C CONST_ISODASH               'ISO-';                                                           
DCL-C CONST_JIS                   'JIS';                                                            
DCL-C CONST_JIS0                  'JIS0';                                                           
DCL-C CONST_JISDASH               'JIS-';                                                           
DCL-C CONST_JUL                   'JUL';                                                            
DCL-C CONST_JUL0                  'JUL0';                                                           
DCL-C CONST_JULAMPERSAND          'JUL&';                                                           
DCL-C CONST_JULCOMMA              'JUL,';                                                           
DCL-C CONST_JULDASH               'JUL-';                                                           
DCL-C CONST_JULPERIOD             'JUL.';                                                           
DCL-C CONST_JULSLASH              'JUL/';                                                           
DCL-C CONST_LONGJUL               'LONGJUL';                                                        
DCL-C CONST_LONGJUL0              'LONGJUL0';                                                       
DCL-C CONST_LONGJULAMPERSAND      'LONGJUL&';                                                       
DCL-C CONST_LONGJULCOMMA          'LONGJUL,';                                                       
DCL-C CONST_LONGJULDASH           'LONGJUL-';                                                       
DCL-C CONST_LONGJULPERIOD         'LONGJUL.';                                                       
DCL-C CONST_LONGJULSLASH          'LONGJUL/';                                                       
DCL-C CONST_MDY                   'MDY';                                                            
DCL-C CONST_MDY0                  'MDY0';                                                           
DCL-C CONST_MDYAMPERSAND          'MDY&';                                                           
DCL-C CONST_MDYCOMMA              'MDY,';                                                           
DCL-C CONST_MDYDASH               'MDY-';                                                           
DCL-C CONST_MDYPERIOD             'MDY.';                                                           
DCL-C CONST_MDYSLASH              'MDY/';                                                           
DCL-C CONST_USA                   'USA';                                                            
DCL-C CONST_USA0                  'USA0';                                                           
DCL-C CONST_USASLASH              'USA/';                                                           
DCL-C CONST_YMD                   'YMD';                                                            
DCL-C CONST_YMD0                  'YMD0';                                                           
DCL-C CONST_YMDAMPERSAND          'YMD&';                                                           
DCL-C CONST_YMDCOMMA              'YMD,';                                                           
DCL-C CONST_YMDDASH               'YMD-';                                                           
DCL-C CONST_YMDPERIOD             'YMD.';                                                           
DCL-C CONST_YMDSLASH              'YMD/';