¿ 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
Cómo conocer la posición del cursor en la pantalla.

Creamos una pantalla para que puedas probar el código
A                                      DSPSIZ(24 80 *DS3)

A                                      CA03(03 'SALIR')

A          R FMT1

A                                 10  2'Mueve el cursor donde quieras'

A                                      COLOR(WHT)

A                                 12  4'y pulsa INTRO para saber'

A                                      COLOR(WHT)

A                                 14  6'cual es la posición exacta del 

					cursor'

A                                      COLOR(WHT)

A                                 23  3'F3--> SALIR'

A                                      COLOR(BLU)

Como habrás visto, es una pantalla sin campos relevantes que sólo te servirá para comprobar los datos que enviará el programa RPG DONDE son los correctos

Este es el código del programa DONDE que recupera la posición del cursor

H              J                                                 

FPANTALLACF  E                    WORKSTN

F                                              KINFDS INFDS

IINFDS       DS

I                                      370 370 LIN

I                                      371 371 COL

IINFDS1      DS

I                                    B   1   20BLIN

I                                        2   2 CLIN

I                                    B   3   40BCOL

I                                        4   4 CCOL

C                     Z-ADD0         BLIN

C                     Z-ADD0         BCOL

C                     MOVE LIN       CLIN

C                     MOVE COL       CCOL

C           BLIN      DSPLY

C           BCOL      DSPLY

C                     EXFMTFMT1

C           *IN03     DOWEQ*OFF

 *

C                     Z-ADD0         BLIN

C                     Z-ADD0         BCOL

C                     MOVE LIN       CLIN

C                     MOVE COL       CCOL

C           BLIN      DSPLY

C           BCOL      DSPLY

C                     EXFMTFMT1

 *

C                     ENDDO

C                     MOVE *ON       *INLR

Si quieres el código fuente aquí lo tienes

07-02-2001

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