Hola Fernando!!
Muchísima gracias!!!, tus instrucciones han sido super claras y me ha ido muy
bien, lo acabo de probar y funciona perfectamente.
Saludos,
Javier
From: forum.help400-boun...@listas.combios.es
[mailto:forum.help400-boun...@listas.combios.es] On Behalf Of FERNANDO MURU
ADURIZ
Sent: lunes, 26 de febrero de 2018 11:14
To: forum.help400 <forum.help400@listas.combios.es>
Subject: RE: Devolver posición fila/columna de pantalla (COBOL400 o ILE COBOL)
El uso del CSRLOC es posicionar el cursor en operaciones de SALIDA.
Recuperar la posición del cursor en ENTRADA
RTNCSRLOC (Return Cursor Location) keyword for display files
You use this record-level keyword to return the location of the cursor to an
application program.
Para conocer la fila y columna del cursor en el momento de la entrada también
se usa:
READ Pantalla ....
ACCEPT AREA-PANTALLA FROM I-O-F
DIVIDE POS-CURSOR BY 256 GIVING CSRLOC-FILA
REMAINDER CSRLOC-COLUMNA
Donde I-O-F es el área de Feedback de las operaciones de I-O.
Se especifica dentro de SPECIAL-NAMES:
IDENTIFICATION DIVISION.
PROGRAM-ID. DEMO.
*****************************
* EJEMPLO
*****************************
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES. LOCAL-DATA IS LDA
DECIMAL-POINT IS COMMA
I-O-FEEDBACK IS I-O-F.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
Etc
*************************************
WORKING-STORAGE SECTION.
*
*
01 AREA-PANTALLA.
02 FILLER PIC X(147).
02 POS-CURSOR PIC 9999 COMP-4.
*
Espero que te sirva algo de lo indicado... (no sé si lo he dejado muy claro)
Saludos,
F.Muru
De:
forum.help400-boun...@listas.combios.es<mailto:forum.help400-boun...@listas.combios.es>
[mailto:forum.help400-boun...@listas.combios.es] En nombre de Javier Baca
Enviado el: lunes, 26 de febrero de 2018 10:09
Para: forum.help400@listas.combios.es<mailto:forum.help400@listas.combios.es>
Asunto: RE: Devolver posición fila/columna de pantalla (COBOL400 o ILE COBOL)
Buenos días:
¿Alguien sabe cómo hacer esto pero en cobol/400?, es decir, recuperar las
coordenada x/y actuales del cursor en pantalla? :
DDSs pantalla :
A CSRLOC(COORDY COORDX)
A OVERLAY
A PROTECT
A COORDY 3S 0H
A COORDX 3S 0H
Sentencias RPG :
FPMTC002 CF E WORKSTN KINFDS CUR
F NRR1 KSFILE SFL001
I*****************************************************************
I* POSICION DEL CURSOR
I*****************************************************************
ICUR DS
I B 370 3710LP
C*
C LP DIV 256 COORDY
C MVR COORDX
C*
Saludos,
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.
