[Duda] Hacer referencia a un "Name" con una variable

[Josber]

Estoy intentando a través de una variable, hacer referencia al Nombre (propiedad 'Name') de un CONTROL, por ejemplo, suponiendo que tengo dos controles en un form, que uno se llama NOMBRE y el otro se llama APELLIDOS, la codificación sería

WORKING-STORAGE SECTION.
01  CONTROL_NAME                PIC X(32) VALUE SPACES.
01  FLAG                                 PIC 9.
       .
       .
       .
PROCEDURE DIVISION.
INICIO-000.
       .
       .
       .
     IF FLAG = 0
         MOVE "Name" OF NOMBRE TO CONTROL_NAME
     ELSE
         MOVE "Name" OF APELLIDOS TO CONTROL_NAME
    END-IF.
       .
       .
       .
    MOVE SPACES TO "Text" OF CONTROL_NAME.

Pero al compilar me da el error
F_PRUEBA PRUEBA(182) : JMN2505I-S 'TO' must be specified in the MOVE statement. 'TO' is assumed.

Por lo que presupongo que, el error es que no tiene ni idea de qué control estoy usando, ya que la sintaxis, está bien

¿Hay alguna manera de hacerlo?

Mil gracias y un salu2.-

[Kuk]

@Josber,

    MOVE SPACES TO "Text" OF CONTROL_NAME. *> ERROR!!!!
    MOVE SPACES TO CONTROL_NAME.

Se te están mezclando ya los controles del Power y las variables Cobol

O sea que tu problema está ne la línea 20

[Josber]

@Kuk, no, no está mal, yo no quiero vaciar la variable CONTROL_NAME, quiero vaciar el control cuyo nombre es el que hay en la variable CONTROL_NAME, (pongo vaciar, pero podría ser, usar el 'hwnd', tipo de letra, colores, etc, cualquier propiedad del control), o sea, unas veces querré vaciar el control Nombre y otras veces el control Apellidos, dependiendo del valor que tenga CONTROL_NAME.

Un salu2.-

[Kuk]

@Josber, amigo, ya lo pillo. Pues esto no lo puedes hacer como tu quieres... pero sí de esta manera:

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01  COBJECT         OBJECT REFERENCE POW-COBJECT.
 01  OBJETO          OBJECT REFERENCE COM. 
 
 01  contenido   pic x(50).
 
 PROCEDURE       DIVISION.
       
     move spaces to contenido
       
     move CmText1 to COBJECT
     
     CALL "POWERCONVTOCOM" USING COBJECT RETURNING OBJETO
     
     invoke OBJETO "SET-Text" using contenido
     

[Josber]

Gracias @Kuk, que mal, no me sirve porque, lo que he puesto es un ejemplo 'al vuelo', realmente lo necesito con otras propiedades, como sería usar el hwnd, color, foco, etc. Imagínate que son varios controles ListView, y que dependiendo de unos parámetros externos, necesite poner un checkbox en ciertos ListView, para ello, necesito saber el hwnd de ese control en concreto

Éste, sería el código que funciona perfectamente

     MOVE "hWnd" OF VIEW2 TO WS-HANDLE.
     CALL "SendMessageA" WITH STDCALL USING BY VALUE WS-HANDLE
                                            BY VALUE LVM-SETEXTENDEDLISTVIEWSTYLE
                                            BY VALUE LVS-EX-CHECKBOXES
            .
            .
            .

y éste el que quiero usar, pero que no funciona

     EVALUATE OPC
                     WHEN 1
                               MOVE "View1" TO CONTROL_NAME
                     WHEN 2
                               MOVE "View2" TO CONTROL_NAME
            .
            .
            .
     END-EVALUATE.
 
 
     MOVE "hWnd" OF CONTROL_NAME TO WS-HANDLE.
     CALL "SendMessageA" WITH STDCALL USING BY VALUE WS-HANDLE
                                            BY VALUE LVM-SETEXTENDEDLISTVIEWSTYLE
                                            BY VALUE LVS-EX-CHECKBOXES
            .
            .
            .

El tema está en que son muchos controles y esto ahorraría escribir mucho, ya no para el ListView, sino para otros controles que he de usar que no tienen nada que ver con un ListView.

Muchas gracias.-

[Kuk]

@Josber, cómo que no? Sí que funciona!

 01  contenido   pic x(50).
 01  hwnd        pic s9(9) comp-5.
 01  WM_SETTEXT  pic s9(9) comp-5 value H"000C".
 PROCEDURE       DIVISION.
       
       move "Hola Josber" to contenido
       
     move CmText1 to COBJECT
     
     CALL "POWERCONVTOCOM" USING COBJECT RETURNING OBJETO
     
     invoke OBJETO "GET-hwnd" returning hwnd
 
     call "SendMessageA" with stdcall using by value hwnd
                                            by value WM_SETTEXT
                                            by value 0
                                            by reference contenido
 

[Kuk]

@Josber, también tienes la siguiente opción que se me acaba de ocurrir y me parece que es lo que estabas buscando exactamente:

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01  miTextBox OBJECT REFERENCE AMixed-DCmTextbox-Main-with-DCfGroupItem-Main.
 PROCEDURE       DIVISION.
     
     move CmText1 to miTextBox
     
     move "Hola Josber" to "Text" OF miTextBox
          

Para ver qué clase debes indicar en OBJECT REFERENCE, tienes que mirar en la carpeta DEBUG el fichero MainForm.prc y dentro buscar el nombre del control, por ejemplo CmText1 y luego copiar y usar la clase en tu código. Quiere decir que todos los CmText tendrán esta clase en referencia. Podrías hasta hacer un OCCURS tipo:

 01  campoDeTexto.
     05  misTextBox OCCURS 100 OBJECT REFERENCE AMixed-DCmTextbox-Main-with-DCfGroupItem-Main.

[Josber]

@Kuk, si uso la primera opción, (porque la segunda no me gusta, además que es un poco problemática porque los controles están en un Array de controles), y la defino como me has puesto

 01  COBJECT                OBJECT REFERENCE POW-COBJECT.
 01  OBJETO                 OBJECT REFERENCE COM.

Así, tal y como está, en 01 OBJETO, al compilar me da el error:

JMN5100I-S The class-name specified in the USAGE OBJECT REFERENCE clause is invalid. The class-name is ignored.

ya sé que no sería el caso pero, si defino en REPOSITORY

     CLASS COM AS "*COM".

entonces me da el error:

error LNK2001: unresolved external symbol _XXXXXXXXXXX

donde _XXXXXXXXXXX, es el nombre de la subrutina de la PROCEDURE donde están definidas esas variables.

¿Dónde puede estar el problema?

[Kuk]

@Josber, la segunda opción no tiene por qué ser un array. Puedes usar una sola variable por tipo de componente visual. Así que bueno, en realidad es lo que querías en principio. Y mientras que no uses componentes distintos una sola variable te vale.

En cuanto al problema de compilación de la primera opción. Es el error de que te falta la librería correspondiente. En caso de mi ejemplo, SendMessageA es la librería User32.lib.

A mi el ejemplo del código me compila y funciona correctamente.

Y es verdad que tienes que añadir lo de

     CLASS COM AS "*COM".

[Josber]

❞ @Josber, En cuanto al problema de compilación de la primera opción. Es el error de que te falta la librería correspondiente. En caso de mi ejemplo, SendMessageA es la librería User32.lib.

La verdad es que tengo otros programas que sí utilizan SendMessageA, (para el tema de poner y quitar líneas, checkbox, etc. en un listview, se hace todo a través de esa llamada), y no tienen incluida la librería User32.lib, pero, de todas maneras, éste sí que la tiene incorporada, porque si no, con el tema del tooltip "casero", no funcionaría y me daría error al compilar, para ser exactos, están incluidas esa librería y advapi32.lib

[ATTACH=CONFIG]876[/ATTACH]