Hola Javier.
Además de las formas que ya te han comentado.
En COBOL sería igual que en RPG. Más o menos así :
ENVIRONMENT DIVISION.
SPECIAL-NAMES. I-O-FEEDBACK I-O-F.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT PANTA ASSIGN WORKSTATION-PANTA01-SI
TRANSACTION ACCESS DYNAMIC
RELATIVE NRR-PANTA
CONTROL-AREA AREA-CONTROL.
DATA DIVISION.
FILE SECTION.
FD PANTA.
01 R-PANTA PIC X(200).
WORKING-STORAGE SECTION.
01 I-O-FEEDBACK.
02 PIC X(147).
02 POS-CURSOR PIC 9(4) USAGE BINARY.
01 FILA PIC S9(3).
01 COLUMNA PIC S9(3).
PROCEDURE DIVISION.
WRITE R-PANTA . . .
READ PANTA . . .
ACCEPT I-O-FEEDBACK FROM I-O-F FOR PANTA.
DIVIDE POS-CURSOR BY 256 GIVING FILA
REMAINDER COLUMNA.
. . .
Un saludo.
El 23 de octubre de 2017, 8:06, Javier Baca <javier.b...@bcndepot.com>
escribió:
> Buenos días :
>
>
>
> ¿Alguien sabe cómo recuperar fila/columna del cursor en pantalla en
> Cobol/400?, en RPG/400 era muy fácil, yo lo hacía así :
>
>
>
> RPG :
>
>
>
> FPANT1 CF E WORKSTN KINFDS CUR
>
>
>
> ICUR DS
>
> I B 370 3710LP
>
>
>
> C LP DIV 256 WFILA
>
> C MVR WCOLU
>
>
>
> PANTALLA :
>
>
>
> A RTNCSRLOC(&DONDE2 &CAMPO2)
>
> A CSRLOC(WFILA WCOLU)
>
> A OVERLAY
>
> A PROTECT
>
> A DONDE2 10A H
>
> A CAMPO2 10A H
>
> A WFILA 3S 0H
>
> A WCOLU 3S 0H
>
>
>
> Y al ejecutar DIV/MVR, tengo en WFILA/WCOLU la fila/columna
> respectivamente.
>
> Creo que el sería averiguar donde se encuentra INFDS y cómo leer esta
> información.
>
>
>
> Saludos y muchas gracias por anticipado,
>
>
>
> Javier
>
>
>
>
>
> ____________________________________________________
> Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
> Forum.Help400 © Publicaciones Help400, S.L.
>
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
