¿ Quieres imprimir esta página ? Volver a la página principal de Recursos iSeries AS400 ¿ Necesitas ayuda ? En pruebas
System i5 iSeries AS400 Recursos. Compartiendo generamos conocimiento
Novedades en Recursos iSeries AS400
Noticias tecnológicas
Documentos
Emitir mensajes que hacen un scroll automáticamente, visualizándose los 20 últimos.

Fuentes del formato de pantalla y programa RPG para emitir mensajes que hacen un scroll automáticamente, visualizándose los 20 últimos.
También está el fuente de una CL de demostración / prueba del programa.

Formato de pantalla

     
     A                                      DSPSIZ(24 80 *DS3)
     A          R MSGWIN10
     A                                      FRCDTA
     A                                  1  2'Mensajes del proceso:'
     A            PROCES        10A  O  1 24
     A                                  1 35'de'
     A                                  1 38'fecha:'
     A                                  1 45DATE
     A                                      EDTCDE(Y)
     A                                  3  3'>'
     A            LIN01         75A  O  3  6
     A                                  4  3'>'
     A            LIN02         75A  O  4  6
     A                                  5  3'>'
     A            LIN03         75A  O  5  6
     A                                  6  3'>'
     A            LIN04         75A  O  6  6
     A                                  7  3'>'
     A            LIN05         75A  O  7  6
     A                                  8  3'>'
     A            LIN06         75A  O  8  6
     A                                  9  3'>'
     A            LIN07         75A  O  9  6
     A                                 10  3'>'
     A            LIN08         75A  O 10  6
     A                                 11  3'>'
     A            LIN09         75A  O 11  6
     A                                 12  3'>'
     A            LIN10         75A  O 12  6
     A                                 13  3'>'
     A            LIN11         75A  O 13  6
     A                                 14  3'>'
     A            LIN12         75A  O 14  6
     A                                 15  3'>'
     A            LIN13         75A  O 15  6
     A                                 16  3'>'
     A            LIN14         75A  O 16  6
     A                                 17  3'>'
     A            LIN15         75A  O 17  6
     A                                 18  3'>'
     A            LIN16         75A  O 18  6
     A                                 19  3'>'
     A            LIN17         75A  O 19  6
     A                                 20  3'>'
     A            LIN18         75A  O 20  6
     A                                 21  3'>'
     A            LIN19         75A  O 21  6
     A                                 22  3'>'
     A            LIN20         75A  O 22  6


                        
Programa RPG para mensajes con scroll automático (MSGWIN)
     

          FMSGWINFMCF  E                    WORKSTN
F KINFDS ROLLDS
*
E S 20 75
*
I DS
I 11500 S
I 1 75 LIN01
I 76 150 LIN02
I 151 225 LIN03
I 226 300 LIN04
I 301 375 LIN05
I 376 450 LIN06
I 451 525 LIN07
I 526 600 LIN08
I 601 675 LIN09
I 676 750 LIN10
I 751 825 LIN11
I 826 900 LIN12
I 901 975 LIN13
I 9761050 LIN14
I 10511125 LIN15
I 11261200 LIN16
I 12011275 LIN17
I 12761350 LIN18
I 13511425 LIN19
I 14261500 LIN20
*
IROLLDS DS 528
I*PSDS ESDSPSDSF
*
C *ENTRY PLIST
C PARM ACCIO 1
C PARM PRMPRO 10
C PARM PRMDAT 6
C PARM PRMLIN 75
*
C ACCIO IFEQ 'F' \
C SETON LR I
C RETRN I
C ENDIF /
*
C PRMPRO IFNE *BLANK \
C MOVE PRMPRO PROCES I
C ENDIF /
C PRMDAT IFNE *BLANK \
C MOVE PRMDAT DATA I
C ENDIF /
*
C ADD 1 Z
C Z IFLE 20 \
C MOVE PRMLIN S,Z I
C ELSE I
C Z-ADD0 X I
C Z-ADD1 Y I
C DO 19 \ I
C ADD 1 X I I
C ADD 1 Y I I
C MOVE S,Y S,X I I
C ENDDO / I
C MOVE PRMLIN S,20 I
C ENDIF /
*
C WRITEMSGWIN10
C RETRN
*
C *INZSR BEGSR
C MOVE *BLANK PROCES 10
C Z-ADD0 DATA 60
C Z-ADD0 X 20
C Z-ADD0 Y 20
C Z-ADD0 Z 70
C MOVE *BLANKS S
C SETOF 40
C 40N40 EXFMTMSGWIN10
C ENDSR
Programa CL para probar el programa
     
            PGM
             DCL        VAR(&MSG)    TYPE(*CHAR) LEN(75)
             DCL        VAR(&N)      TYPE(*DEC)  LEN(3)  VALUE(3)
             DCL        VAR(&N0)     TYPE(*DEC)  LEN(4)
             DCL        VAR(&A)      TYPE(*CHAR) LEN(3)
             DCL        VAR(&A0)     TYPE(*CHAR) LEN(4)
             CHGVAR     VAR(&MSG) VALUE('*** 10 PROCESO DE +
                          FACTURACION Y CTAS CTES   *** ')
/* En la primera llamada le pasamos el nombre del proceso (opcional) */
             CALL       PGM(MSGWIN) PARM(' ' 'PROFACT1' ' ' &MSG)
/* Se ponen unos DLYJOB para ralentizar la prueba y hacer los +
   mensajes leibles.                                          +
   En las llamadas reales no es necesario */
             DLYJOB     DLY(2)

             CHGVAR     VAR(&MSG) VALUE('*** 20 BORRA FICHEROS DE +
                          QTEMP  ***')
             CALL       PGM(MSGWIN) PARM(' ' ' ' ' ' &MSG)
             DLYJOB     DLY(2)

             CHGVAR     VAR(&MSG) VALUE('*** 30 SELECCIONA +
                          ALBARANES  ***')
             CALL       PGM(MSGWIN) PARM(' ' ' ' ' ' &MSG)
OTRO:        CHGVAR     VAR(&N)  VALUE(&N + 1)
             CHGVAR     VAR(&N0) VALUE(&N * 10)
             CHGVAR     VAR(&A)  VALUE(&N)
             CHGVAR     VAR(&A0) VALUE(&N0)
             CHGVAR     VAR(&MSG) VALUE('***' *BCAT &A0 *BCAT +
                          'Mensaje nº' *BCAT &A *BCAT '***')
             CALL       PGM(MSGWIN) PARM(' ' ' ' ' ' &MSG)
             DLYJOB     DLY(2)

             IF         COND(&N < 22) THEN(GOTO CMDLBL(OTRO))

             CHGVAR     VAR(&MSG) VALUE('*** PROCESO COMPLETADO  ***')
             CALL       PGM(MSGWIN) PARM(' ' ' ' ' ' &MSG)
             DLYJOB     DLY(5)
/* La última llamada al programa es con una "F" en el primer        +
   parámetro para descargar el programa.                            */
             CALL       PGM(MSGWIN) PARM('F' ' ' ' ' ' ')
ENDPGM

                        

Puedes ver el fuente aquí
Autor: Feliu Soler de QUADRE informàtic, sl e-mail: fsoler@quadre.net

Junio 2003

Comentarios de usuarios

Nombre:
Mail:
Comentario:
 

Subir a la parte superior de la web

 

 

NUESTRA COMUNIDAD EN
ÚNETE Y.... ¡¡ PARTICIPA !!
Dossiers técnicos iSeries y AS400
- Seguridad
- Alta disponibilidad.
Nuestros links favoritos
- Tendencias tecnologías de la información
Expertos en tecnologías de la información, nos dan su punto de vista sobre las tendencias actuales y futuras
- Los últimos anuncios sobre hardware-software para iSeries AS400 realizados por IBM
- Freeware y shareware para el iSeries AS400
- Utilidades para el iSeries AS400 realizadas por profesionales
- Documentos. Trucos e ideas para resolver tus problemas
- Los manuales y links más interesantes del iSeries AS400

  Links patrocinados
  •  
  •  

[ Soy nuevo |   Profesionales |   AS qué |   Empresas |    Foros |   Recomiéndanos |    Productos ]
 
Recursos iSeries AS400. Es una web de: PUBLICACIONES HELP400, S.L. CIF:B-60-202827 Gran Vía de les Corts Catalanes, núm. 715, Entresuelo – 3ª - Barcelona - Tel.+34.932.310.049