Re: Date Data types

It may be that your compiler doesn't support this method or some option
or element is missing when you compile.

I know the following will always work for display fields if you're in a
hurry and can't wait for someone more knowledgeable to answer.


05 BDATE        PIC 99/99/9999 VALUE 02231949.

Or 

05 BDATE        PIC Z9/99/9999 VALUE 02231949.  (suppresses leading
zero)



Basil Zangare
Applications Specialist
Nikon Inc
1300 Walt Whitman Road
Melville, New York 11747
phone: (631) 547-4389
fax: (631) 547-4026
bzangare@xxxxxxxxx


-----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