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.

Responder a