short version:
01  FD.
    05  FD-CCYY.
        10  FD-CC PIC 99.
        10  FD-YY PIC 99.
    05  FD-MMDD.
        10  FD-MM PIC 99.
        10  FD-DD PIC 99.
....
IF  F-D < 99991232                                           TP940711
     AND FD-MM > 0 AND FD-MM < 13                                 TP940711
     AND FD-DD > 0                                                TP940711
     AND (    FD-DD <= DAYS-IN-MONTH (FD-MM)                      TP940711
          OR (    FD-MMDD = "0229"                                TP940711
              AND FD-CCYY / 4 * 4 = FD-CCYY                       TP940711
              AND FD-CCYY / 100 * 100 <> FD-CCYY )                971010TP
          OR (    FD-MMDD = "0229"                                TP940711
              AND FD-CCYY / 400 * 400 = FD-CCYY )                 971010TP
         )                                                        TP940711
         CONTINUE                                                 TP940711
     ELSE                                                         TP940711
         MOVE 999999999 TO F-D                                    TP940711
         GO TO DATE-ROUTINE-EXIT.                                 TP940711

> -----Original Message-----
> From: Olav Kappert [mailto:[log in to unmask]]
> Sent: Saturday, February 05, 2005 8:02 PM
> To: [log in to unmask]
> Subject: Cobol date procedures
>
>
> Hello:
>
> Does anyone have a cobol procedure that will verify if a
> particular date
> is indeed a valid date in the format of yyyymmdd.
>
> I tried date-to-integer and integer-to-date but what I got was an
> aborted program when entering  02/30/2005.
>
> Any ideas ?
>
> Olav.
>
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
>

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *