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.
Código COBOL:
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.