En mi caso lo que siempre he hecho es condicionar el error con dos indicadores por ejemplo:
30 97 Error 1 31 97 Error 2 32 97 Error 3 De esta manera, si hay error primero hago un write del formato de registro, después enciendo el 97 y al volver al EXFMT ha grabado los cambios en pantalla Saludos *De:* Forum.help400 [mailto:[email protected]] *En nombre de *XEM foro i5 *Enviado el:* martes, 20 de abril de 2021 11:06 *Para:* 'forum.help400' *Asunto:* RE: Problema con ERRMSG Lo que digo Juan es usar un indicador intermedio. El error activa dos indicadores, uno específico para cada error y uno genérico. Finalizada la validación de datos, el indicador genérico hace el write y activa el indicador de error final. El ERRMSG debes condicionarlo al indicador de error específico + el indicador de error final. Un saludo Xavier *De:* Forum.help400 <[email protected]> *En nombre de *Juan García *Enviado el:* martes, 20 de abril de 2021 10:23 *Para:* forum.help400 <[email protected]> *Asunto:* Re: Problema con ERRMSG Hola Ya lo he probado pero al hacer el write también se envía el indicador del ERRMSG encendido y ocurre lo mismo que con el EXFMT, la única solución que veo es sustituir los ERRMSG por literales con los mensajes de error Un saludo El mar, 20 abr 2021 a las 9:41, XEM foro i5 (<[email protected]>) escribió: Hola Juan, Sin saber, sin conocer y sin probar, pregunto: ¿puedes hacer un write del formato de pantalla antes de activar el/los indicador/es de error? Saludos, Xavier *De:* Forum.help400 <[email protected]> *En nombre de *Juan García *Enviado el:* martes, 20 de abril de 2021 9:20 *Para:* forum.help400 <[email protected]> *Asunto:* Re: Problema con ERRMSG Hola, no se produce ningún error el funcionamiento de ERRMSG es ese: " Conditions occurring during message display The displaying of a message using ERRMSG and ERRMSGID is similar to the displaying of messages by the IBM i operating system when field validation errors are detected. When a message is displayed because of either the ERRMSG or the ERRMSGID keyword, all fields on the display are kept, including the field the message is associated with. Except for option indicators, data in the output buffer is ignored (that is, any new data from the program is not sent to the display).", No se envían datos nuevos a la pantalla, pero yo necesito que se muestre en pantalla los datos que se hayan recuperado de la bbdd Un saludo El lun, 19 abr 2021 a las 19:12, Juan Gutierrez Ruiz (< [email protected]>) escribió: El error puede producirce porque estas ocupando un archivo de mensajes y este no esta dentro del mismo Saludos ------------------------------ *From:* Forum.help400 <[email protected]> on behalf of Juan García <[email protected]> *Sent:* Monday, April 19, 2021 10:02:40 AM *To:* forum.help400 <[email protected]> *Subject:* Problema con ERRMSG Buenos días Cuando en una pantalla se utiliza la palabra clave ERRMSG, y se produce un error los campos no se devuelven a la pantalla, por lo que hay campos que se han podido cambiar y no se visualizan, ¿alguien sabe alguna forma de poder visualizar los campos del formato de registro en la pantalla? Gracias Un saludo ____________________________________________________ Ú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. -- *Nota de Confidencialidad***** Este mensaje se envía desde el sistema de correo electrónico de la empresa *Productos Climax, S.A.*. Podría contener por lo tanto secretos de empresa y otra información confidencial tutelados por las leyes de la Unión Europea y otros Estados. Si Vd. lo recibiera por error o sin ser una de las personas indicadas en el encabezamiento, deberá destruirlo sin copiarlo ni revelarlo o cualquier otra acción relacionada con el contenido del mensaje e informar inmediatamente por correo electrónico al emisor del mensaje. Las personas y entidades que violen sus deberes de confidencialidad podrán ser perseguidas ante los Tribunales de Justicia al amparo de la legislación civil, penal y administrativa nacional e internacional. Gracias por su colaboración.**** *Política de Privacidad***** En base al Reglamento (UE) 2016/679 del Parlamento Europeo y del Consejo de 27 de abril de 2016 relativo a la protección de las personas físicas (RGPD), así como con la Ley 34/2002, de 11 de julio, de Servicios de la Sociedad de la Información y Comercio Electrónico (LSSICE o LSSI), le comunicamos que su dirección de correo electrónico forma parte de nuestro fichero automatizado, al objeto de continuar enviándole ofertas de nuestros servicios y / o el mantenimiento de las comunicaciones en nuestras relaciones contractuales. En virtud de las Leyes antes mencionadas, tiene derecho de oposición, acceso, rectificación y cancelación de sus datos. Le recordamos que sus datos nunca son suministrados a terceros bajo ningún concepto, siendo únicamente utilizados para el envío de nuestras comunicaciones con Vd.
____________________________________________________ �nete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 � Publicaciones Help400, S.L.
