Re: Ayuda con SUBFICHERO

Fri, 22 Oct 2010 07:52:14 -0700 

No se si esto te puede valer está en COBOL:

    R P01
                                RTNCSRLOC(&REGCUR &CAMCUR)
                                CSRLOC(FILA COLU)
      FILA                3S 0H
      COLU              3S 0H
      REGCUR        10A  H
      CAMCUR        10A  H
      ZESTCTL          7A  B  4 51
                         1 22'CARGA DE ESTACIONES'
      ZGRPCTL         7A  B  4 51
                         3 22'CARGA DE GRUPOS'


En programa (COBOL)


CONFIGURATION SECTION.
SOURCE-COMPUTER. AS-400.
OBJECT-COMPUTER. AS-400.
SPECIAL-NAMES.   DECIMAL-POINT IS COMMA
                 I-O-FEEDBACK  IS I-O-F
                 LOCAL-DATA    IS LDA.
working
03 LIN-CURSOR             PIC 99.
03 COL-CURSOR             PIC 99.


Despues de leer pantalla
ACCEPT     AREA-PANTALLA FROM I-O-F.
DIVIDE     POS-CURSOR BY 256 GIVING LIN-CURSOR
                          REMAINDER COL-CURSOR.

Con esto controlas la linea y columna donde pulsa el raton
Si preguntas por el campo de pantalla CAMCUR que es donde este situado el
cursor
If camcur(1:4) = "ZEST"
        proceso1
If camcur(1:4) = "ZGRP"
        proceso2

El 22 de octubre de 2010 14:24, INFORMATICA
<[email protected]>escribió:

>  Buenas tardes.
>
> Os explico lo que me gustaría hacer:
>
> Un subfichero de unos 200 registros. El tamaño puede variar.
>
> Que el usuario marcara encima de un registro e hiciera
> "algo".
>
> El diseño debería ser parecido al de un menú.
> He mirado el MNUBAR, pero no me aclaro.
>
> Alguien tiene algún ejemplo?
>
> Gracias
>
> Este mensaje se dirige exclusivamente a su destinatario y puede contener
> información CONFIDENCIAL sometida a secreto profesional o cuya divulgación
> este prohibida en virtud de la legislación vigente. Si ha recibido este
> mensaje por error,  le rogamos que nos lo comunique inmediatamente por
> esta misma vía y proceda a su destrucción.
>
>  (This message is intended exclusively for its address and may contain
> information that is CONFIDENTIAL and protected by a professional privilege
> or whose disclosure is prohibited by law. If this message has been received
> in error, please immediately notify us via e-mail and delete it.)
>
> ____________________________________________________
> Ú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