Puedes utilizar la palabra clave RTNCSRLOC en el fichero de pantalla. Le defines dos campos ocultos numéricos de 3 posiciones sin decimales y en ellos te devuelve la fila y columna. Es más, puedes decirle que te devuelva el campo concreto en el que está el cursor, con lo que te despreocupas si lo mueves a otro sitio.

Espero que te ayude.

Un saludo

Juan Carlos.

---
https://paredes.info
juancar...@paredes.info

El 23/02/2018 15:01, Javier Baca escribió:
Buenas tardes :

¿Alguien sabría decirme por favor por qué "CURSOR IS" no me
devuelve la fila/columna de pantalla?

Y si realmente no funciona, ¿cómo lo podría hacer?.

********************************************************

      *                                                      *

      * PANTALLA CON INDARA                                  *

      *                                                      *

      ********************************************************

       IDENTIFICATION DIVISION.

       PROGRAM-ID. FUENTE1.

       AUTHOR. NOMBRE.

       INSTALLATION. EMPRESA.

       DATE-WRITTEN. 24/01/2005.

       DATE-COMPILED. 24/01/2005.

       ENVIRONMENT DIVISION.

       CONFIGURATION SECTION.

       SOURCE-COMPUTER. AS400.

       OBJECT-COMPUTER. AS400.

       SPECIAL-NAMES. CURSOR IS WPOSPANT.

       INPUT-OUTPUT SECTION.

       FILE-CONTROL.

           SELECT FICHERO ASSIGN TO WORKSTATION-PANT1-SI

           ORGANIZATION IS TRANSACTION

           ACCESS MODE IS SEQUENTIAL.

       DATA DIVISION.

       FILE SECTION.

       FD  FICHERO

           LABEL RECORDS ARE OMITTED

           DATA RECORD IS REG-FICHERO.

       01  REG-FICHERO.

           COPY DDS-ALL-FORMATS OF PANT1.

       WORKING-STORAGE SECTION.

       01 IND-OFF PIC 1 VALUE B"0".

       01 IND-ON  PIC 1 VALUE B"1".

       01 INDICADORES-FICHERO.

          COPY DDS-ALL-FORMATS-INDIC OF PANT1.

       01 WPF     PIC X(2) VALUE SPACES.

       01 WPOSPANT.

          05 WFILA PIC 9(3).

          05 WCOLU PIC 9(3).

       PROCEDURE DIVISION.

       INICIO.

           OPEN I-O FICHERO.

           MOVE IND-ON TO IN52 IN RUNO-O-INDIC.

           WRITE REG-FICHERO FORMAT IS "RUNO"

             INDICATORS ARE RUNO-O-INDIC.

           READ FICHERO FORMAT IS "RUNO"

             INDICATORS ARE RUNO-I-INDIC.

           DISPLAY 'FILA=' WFILA.

           DISPLAY 'COLU=' WCOLU.

           MOVE '  ' TO WPF.

           IF IN10 IN RUNO-I-INDIC = IND-ON THEN

              MOVE '10' TO WPF

           END-IF.

           IF IN06 IN RUNO-I-INDIC = IND-ON THEN

              MOVE '06' TO WPF

           END-IF.

           CLOSE FICHERO.

           STOP RUN.


Un saludo y muchas gracias,

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.

Responder a