Y en la pantalla (DSPF) ¿Qué tienes definido? 

 

En RPGLE yo tengo esto en un programilla

 

PANTALLA:

A            ROW            3S 0H                                  

A            COL            3S 0H                                  

 

PROGRAMA:

c                   Select      

c                   when      (ROW >= 1  and ROW <= 5 ) and 

c                             (COL >= 50 and COL <= 58)     

.

.

.

 

 

 


LogoElayFri

Vicente Aliaga
Director Informática

 

961 920 029

vali...@silomar.es

 


Silomar Elaborados y Distribución, SL & Silomar Frigoríficos, SL

Autovía A-3 Madrid-Valencia, km 345 • 46930 • QUART DE POBLET • Valencia •
www.silomar.es


P No lo imprima si no es necesario. Protejamos el medio ambiente.

Este mensaje y sus archivos adjuntos pueden contener información
confidencial y están dirigidos exclusivamente a su destinatario. Le
informamos que la legislación vigente prohíbe el uso, divulgación o copia
del contenido del presente mensaje por persona distinta del destinatario sin
autorización previa. Si Ud. no es el destinatario de este mensaje y lo ha
recibido por error le agradeceríamos que nos lo comunicara y que procediera
a destruirlo. This message can contain confidential information and is
directed exclusively to its adressee. We inform you that the legislation
prohibits to use, spreading or copy the content of the present message by
person different from the adressee without previous authorization. If you
are not the adressee of this message or you have received it by error we
would be thankful if you notify us and delete it.

 




 

De: forum.help400-boun...@listas.combios.es
[mailto:forum.help400-boun...@listas.combios.es] En nombre de Javier Baca
Enviado el: viernes, 23 de febrero de 2018 15:02
Para: forum.help400@listas.combios.es
Asunto: Devolver posición fila/columna de pantalla (COBOL400 o ILE COBOL)

 

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