Hola Lluis :
Muchas gracias pero, por desgracia, no me ha funcionado, ya el propio editor
dice esto :
“FUNCTION es una palabra reservada en el estándar ANSI
COBOL 1985 (revisado en 1989), pero no es una palabra reservada de
COBOL/400*”
Estoy utilizando COBOL/400 con OS/400 v.6.1.0
Saludos,
Javier
From: [email protected]
[mailto:[email protected]] On Behalf Of LLuis Segura
Sent: martes, 17 de octubre de 2017 10:41
To: forum.help400 <[email protected]>
Subject: RE: SENTENCIA ACCEPT X FROM DATE (COBOL)
La sentencia ACCEPT no recoge el año en cuatro digitos.
La major opción es usar la funcion
MOVE FUNCTION CURRENT-DATE TO DATACTUAL.
Siendo DATACTUAL
05 DATACTUAL.
10 DATAAC.
15 ANYACT PIC 9999.
15 MESACT PIC 99.
15 DIAACT PIC 99.
10 DATAAN REDEFINES DATAAC PIC S9(8).
10 HORACT PIC 99.
10 MINACT PIC 99.
10 SEGACT PIC 99.
10 CESACT PIC 99.
10 CARACT PIC X.
10 DEHACT PIC 99.
10 DEMACT PIC 99.
Saludos.
Lluis.
De:
[email protected]<mailto:[email protected]>
[mailto:[email protected]<mailto:[email protected]>]
En nombre de Javier Baca
Enviado el: dimarts, 17 d’octubre de 2017 10:22
Para: [email protected]<mailto:[email protected]>
Asunto: SENTENCIA ACCEPT X FROM DATE (COBOL)
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.
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
