Re: Date Data types

Change your format string to this:

'%d/%d/@Y'

Note the lowercase d and m...

Terry Winchester 
Programmer/Analyst
________________________________
The Raymond Corporation
terry.winchester@xxxxxxxxxxxxxxx 

> -----Original Message-----
> From: cobol400-l-bounces@xxxxxxxxxxxx 
> [mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of Michael Saunders
> Sent: Wednesday, March 15, 2006 10:20 AM
> To: cobol400-l@xxxxxxxxxxxx
> Subject: [COBOL400-L] Date Data types
> 
> I'm new to ILE COBOL.  I'm trying to use the following date 
> data types:
>         01         DATE-FIELDS.                               
>           
>             05     BDATE               FORMAT DATE '%M/%D/@Y' 
>           
>                                                VALUE 
> '02/23/1949'.        
>      
>             05     CDATE               FORMAT DATE '%M/%D/@Y'.      
>     
> I get the following errors.
>  *    72  MSGID: LNC1236  SEVERITY: 30  SEQNBR:  006700       
>             
>        
>           Message . . . . :   No PICTURE for elementary item 
> 'BDATE'.     
>        
>  *    72  MSGID: LNC2974  SEVERITY: 30  SEQNBR:  006700       
>             
>        
>           Message . . . . :   FORMAT literal, ''%M/%D/@Y'', contains a
> duplicate  
>             conversion specifier, '@Y', at position 8. 
> Statement ignored. 
>        
>  *    73  MSGID: LNC1236  SEVERITY: 30  SEQNBR:  006900       
>             
>         
>           Message . . . . :   No PICTURE for elementary item 
> 'CDATE'.     
>         
>  *    73  MSGID: LNC2974  SEVERITY: 30  SEQNBR:  006900       
>             
>         
>           Message . . . . :   FORMAT literal, ''%M/%D/@Y'', contains a
> duplicate   
>             conversion specifier, '@Y', at position 8. 
> Statement ignored. 
>         
> 
> I've used both apostrophe's and quotation marks, but no difference.
> These are nearly identical to the examples in the IBM Manual. 
>  Any ideas
> what's wrong?
> 
> Michael R. Saunders
> School District of Manatee County
> Technology & Information Services
> Programmer/Analyst
> saunderm@xxxxxxxxxxxxxxxxxx
> (941) 708-8770 ext 2139

Confidentiality Notice:

The preceding e-mail message (including any attachments) contains information 
that may be confidential, protected by applicable legal privileges, or 
constitute non-public information. It is intended to be conveyed only to the 
designated recipient(s). If you are not an intended recipient of this message, 
please notify the sender by replying to this message and then delete it from 
your system. Use, dissemination, distribution or reproduction of this message 
by unintended recipients is 
not authorized and may be unlawful.