Son funciones especiales de COBOL 400, yo lo estoy usando actualmente. Mirate el manual de COBOL ILE en las INTRINSIC FUNCTIONS.
https://www.ibm.com/support/knowledgecenter/ca/ssw_ibm_i_71/rzasb/sc0925391045.htm#fnlst Saludos. *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 11:08 *Para:* forum.help400@listas.combios.es *Asunto:* RE: SENTENCIA ACCEPT X FROM DATE (COBOL) 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 <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.
