Formatear Fecha

[dariodr]

Buenas comunidad, tengo este codigo (es simple) lo que quiero es formatear la fecha al formato YY/MM/DD con las barras de separacion y no me sale, que hago mal.
Saludos.

       IDENTIFICATION DIVISION.
       PROGRAM-ID. YOUR-PROGRAM-NAME.
       DATA DIVISION.
       FILE SECTION.
       WORKING-STORAGE SECTION.
       01  HOY        PIC 9(6).
       01  FECHA-HOY.
           03 ANIO    PIC 99.
           03 FILLER  PIC X VALUE '/'.
           03 MES     PIC 99.
           03 FILLER  PIC X VALUE '/'.
           03 DIA     PIC 99.
       PROCEDURE DIVISION.
       MAIN-PROCEDURE.
            DISPLAY "Fecha: ".
            ACCEPT HOY FROM DATE.
            MOVE HOY TO FECHA-HOY.
            DISPLAY FECHA-HOY.
            STOP RUN.
       END PROGRAM YOUR-PROGRAM-NAME.

[fastpho]

Hola @dariodr

 WORKING-STORAGE SECTION.    
 01  HOY.
      03 Hoy-Anio   PIC 99.
      03 Hoy-Mes   PIC 99.
      03 Hoy-Dia    PIc 99.
 
 01  FECHA-HOY.
     03 ANIO    PIC 99.
     03 FILLER  PIC X VALUE '/'.
     03 MES     PIC 99.
     03 FILLER  PIC X VALUE '/'.
     03 DIA     PIC 99.   
 PROCEDURE DIVISION.
            ACCEPT HOY FROM DATE.
            *>MOVE HOY TO FECHA-HOY.
            MOVE Hoy-Anio TO ANIO
            MOVE Hoy-Mes  TO MES
            MOVE Hoy-Dia  TO DIA
            DISPLAY FECHA-HOY. 

Saludos ....

[JCantero]

@dariodr, cuestión de gustos, pero a mi e gusta hacerlo así:

         string hoy(1:2) '/' hoy(3:2) '/' hoy(5:2) delimited by size into fecha-hoy

y si quieres ponerla en formato dd/mm/aa

         string hoy(5:2) '/' hoy(3:2) '/' hoy(1:2) delimited by size into fecha-hoy

[Fito]

Hola:

Tambien lo podés hacer de esta manera

 
       WORKING-STORAGE SECTION.
       01  HOY           PIC 9(6).
       01  FECHA-HOY     pic 99/99/99.
 
       PROCEDURE DIVISION.
 
       MAIN-PROCEDURE.
            ACCEPT HOY FROM DATE.
            MOVE HOY TO FECHA-HOY.
            DISPLAY FECHA-HOY.
            STOP RUN.

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