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
|
