RE: No me muestra registro de pantalla

Bernabé Estrada Fri, 08 Aug 2014 07:39:32 -0700

Estas usando Client Access?  Algun otro emulador?, la línea de mensajes esa
activada? Estas enviando un valor en la variable &MSG?  Me rindo


 

From: [email protected]
[mailto:[email protected]] On Behalf Of Javier B.
Sent: viernes, 08 de agosto de 2014 04:38 a.m.
To: Foro-Help400
Subject: RE: No me muestra registro de pantalla

 

Gracias Bernabé pero me temo que no surge ningún efecto :

 

SNDPGMMSG MSGID(CPF9898)  

          MSGF(QCPFMSG)   

          MSGDTA(&MSG) 

          TOPGMQ(*EXT)    

          MSGTYPE(*STATUS)

 

A mi no me visualiza nada, seguramente es algo que hago mal pero no se qué.

 

Saludos,


Javier

 
> ----------------------------------------------------------------------
> 
> Message: 1
> Date: Thu, 7 Aug 2014 08:39:16 -0600
> From: Bernabé Estrada <[email protected]>
> Subject: RE: No me muestra registro de pantalla
> To: "'forum.help400'" <[email protected]>
> Message-ID: <[email protected]>
> Content-Type: text/plain; charset="iso-8859-1"
> 
> Mismo ejemplo en RPG 3
> 
> 
> 
> FPANTALLACF E WORKSTN 
> 
> F KNUM 1 
> 
> C *IN03 DOUEQ*ON 
> 
> C WRITEREGISTRO 77 
> 
> C READ PANTALLA 8899 
> 
> C *IN03 IFEQ *OFF 
> 
> C DATO MULT 2 RESUL 
> 
> C ENDIF 
> 
> C ENDDO 
> 
> C MOVE *ON *INLR 
> 
> 
> 
> En lugar del maxdev de ile es el knum todo lo demás es prácticamente lo
> mismo.
> 
> Yo lo he usado para hacer precisamente pantallas que van indicando el
> porcentaje de avance de un proceso.
> 
> Tambien, si lo único que queres es mostrar el avance, podrías probar
> enviando un mensaje de estado con un comando:
> 
> 
> 
> En el programa principal leo el archivo (o lleno el subfile o lo que
> querras) y armo el mensaje (campo MSG) que se envía como parámetro a una
CL
> que lo único que hace es desplegar el mensaje en la línea de estatus:
> 
> FCVDCOVENIP E DISK 
> 
> E ARR 1 1 80 
> 
> I DS 
> 
> I 1 80 MSG 
> 
> I I 12 160REGIS 
> 
> I I 31 350TOTAL 
> 
> C ADD 1 CONTA 50 
> 
> C MOVEAARR,1 MSG 
> 
> C Z-ADD312 TOTAL 
> 
> C Z-ADDCONTA REGIS 
> 
> C CALL '$$' 
> 
> C PARM MSG 
> 
> C FREE '$$' 
> 
> ** 
> 
> PROCESADOS $$$$$ REGISTROS DE $$$$$ 
> 
> 
> 
> 
> 
> Y aquí está la CL.
> 
> 
> 
> PGM PARM(&MENSAJE) 
> 
> DCL VAR(&MENSAJE) TYPE(*CHAR) LEN(80) 
> 
> SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) + 
> 
> MSGDTA(&MENSAJE) TOPGMQ(*EXT) + 
> 
> MSGTYPE(*STATUS) 
> 
> ENDPGM 
> 
> 
> 
> 
> 
> 
> 
> Saludos.
> 
> 
> 
> From: [email protected]
> [mailto:[email protected]] On Behalf Of Javier B.
> Sent: jueves, 07 de agosto de 2014 06:43 a.m.
> To: Foro-Help400
> Subject: RE: No me muestra registro de pantalla
> 
> 
> 
> Pues me temo que no porque no utilizo ILE y porque me sale otro error :
> 
> "No hay coincidencia INDARA entre el programa y el archivo PMTU140"
> 
> 
> 
> Saludos y gracias de todas formas,
> 
> 
> 
> Javier
> 
>

____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

RE: No me muestra registro de pantalla

Responder a