Cobol - Validar formato de fecha

Hola:

Necesitamos saber cómo validar que una fecha tenga formato YYYYMMDD?

Saludos

En el Accept Agrega la sintaxis VALIDATE

ya le envie por mail

Buen día... es posible que me pueda facilitar ese código?...

Muchas gracias, estoy pendiente.

WORKING STORAGE.
01 FECHA.
02 ANO PIC 9999.
02 MES PIC 99.
02 DIA PIC 99.
PROCEDURE DIVISION.
ACCEPT FECHA FROM CENTURY-DATE.
.