Se me olvidaba, el tipo de miembro debe ser CBLLE. El 17 de octubre de 2017, 11:07, Javier Baca <javier.b...@bcndepot.com> escribió:
> 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:* forum.help400-boun...@listas.combios.es [mailto: > forum.help400-boun...@listas.combios.es] *On Behalf Of *LLuis Segura > *Sent:* martes, 17 de octubre de 2017 10:41 > *To:* forum.help400 <forum.help400@listas.combios.es> > *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:* forum.help400-boun...@listas.combios.es [mailto: > forum.help400-boun...@listas.combios.es] *En nombre de *Javier Baca > *Enviado el:* dimarts, 17 d’octubre de 2017 10:22 > *Para:* forum.help400@listas.combios.es > *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.