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.
