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