[Josber]

Yo soy más clásico

01  FECHA.
      03  AA                 PIC 99.
      03  MM                PIC 99.
      03  DD                 PIC 99.
 
01  FECHA-EDI.
      03  DD                 PIC 99.
      03  FILLER           PIC X VALUE "/".
      03  MM                PIC 99.
      03  FILLER           PIC X VALUE "/".
      03  AA                 PIC 99.
.
.
.
 
      ACCEPT FECHA FROM DATE.
      MOVE CORRESPONDING FECHA TO FECHA-EDI.

Lo pongo porque, veo que en el foro, se ha comentado o se ha puesto muy pocas veces algo usando el verbo CORR ó CORRESPONDING y, es más útil de lo que parece.
Un saludo a todos.