Buenos días :
Sigo refrescando COBOL/400 y no consigo que me devuelva la fecha con el año a 4
dígitos mediante:
WORKING-STORAGE SECTION.
01 FECHA-AMD.
05 ANY-AMD PIC 9(2).
05 MES-AMD PIC 9(2).
05 DIA-AMD PIC 9(2).
PROCEDURE DIVISION.
INICIO.
ACCEPT FECHA-AMD FROM DATE.
¿Alguien sabe por favor cómo hacerlo?
Si ANY-AMD la defino como PIC 9(4), el resultado no es correcto.
El "truco" de sumarle 2000 a ANY-AMD no me acaba de gustar.
Un saludo y muchas gracias,
Javier
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
