Hola de nuevo Jaime,
Respecto al segundo problema yo el tema de mensajes la unica vez que lo hice servir lo hacia de distinta manera.
Supongo que estos mensajes te refieres a mensajes que salen en la linea 25 de pantalla igual que el resto de ERRMSG y ERRSFLMSG y no al equivalente de un SNDMSG.
Para enviar el mensaje llamaba a un CL con el nombre del fichero de mensajes, el codigo de mensaje y un string para rellenar las variables del mensaje y en el CL hacia:
SNDPGMMSG MSGID(&MSG) MSGF(*LIBL/&MSGF) MSGDTA(&TEXT) TOPGMQ(*PRV)
Luego justo despues de mostrar la pantalla lo primero que hacia es llamar a otro CL para que borrara toda la cola de mensajes del programa, asi:
RMVMSG PGMQ(*PRV) CLEAR(*ALL)
El programa quedaria mas o menos asi:
DoW Not(finPgm) CALL 'CLSEND' PARM FILE PARM MSGID PARM TEXT
ExFmt FMT01 CALL 'CLBORRA'
ExSr srTrataPantalla EndDo
Esto no lo he conseguido hacer funcionar con programas RPGLE, asi que si alguien lo a conseguido que explique como lo a hecho.
Saludos Dani
Jaime Villa Torres wrote:
dos problemas que deben ser muy bobos,
1.- tengo un campo que al validarlo y si hay error prende el *in01, y al mismo tiempo este campo tiene definido un texto como ERRMSG, funciona correctamente, pero cuando antes del EXFMT, realizo el write del HEADER de la pantalla, el mensaje se pierde, espero alguna idea que hacer con el registro header.
2.- Estoy utilizando el api de enviar mensajes desde programa cuando encuentro registro bloqueado, efectivamente env�a el mensaje, el problema es que luego se queda pegado durante todas las pantallas.
Gracias de antemano.
Jaime Villa T.
_____________________________________________________ Forum.HELP400 es un servicio m�s de NEWS/400. � Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _____________________________________________________
Para darte de baja, env�a el mensaje resultante de pulsar mailto:[EMAIL PROTECTED]
