[Sintaxis] Uso del raton para ampliar un registro de CmList

[Hrmcobol]

Hola Breew, te paso las lineas para mostrar el SubText en el el CtList.
Ojo corte rápido las lineas, ya que estoy de vacaciones, no te fijes en la lógica.
En principio necesitas un 01. que contenga los datos a mostrar y saber la longitud desde el inicio del texto hasta el ultimo carácter distinto de espacios (wl-longi) y definir desde que columna queres que empiece a mostrar.
Empeza a probar y lo vamos viendo.
Por sino teles el Help del CtList te mando una foto.

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 
 01 WL-LONGI   PIC S9(9)    COMP-5.  *> longitud del texto a mostrar
 
 01  WL-ALARMA.
     02  WL-TABALR.
         03  AL-VENCI  PIC X(012) VALUE "Vto: ".
         03  AL-FECHA  PIC X(010).
         03  AL-FILL   PIC X(001).
         03  AL-DESCRI PIC X(070).
         03  AL-0D0A   PIC X(002).
 
 LINKAGE         SECTION.
 01  POW-NINDEX  PIC S9(9) COMP-5.
 01  POW-NCOLUMN PIC S9(4) COMP-5.
 PROCEDURE       DIVISION USING POW-NINDEX POW-NCOLUMN.
 
**>*--------------------------------------------------------------------------------------------------------------------      
        MOVE ZEROS TO "ListSubHeight"(POW-NINDEX) OF CtList
 
        MOVE 3 TO "SubColumnStart" OF CtList *> columna del CtList donde comienza el SUbTexto en Azul
 
        MOVE WL-ALARMA(01:WL-LONGI) TO "ListSubText"  (POW-NINDEX) OF CtList   
        INVOKE CtList "CalcSubTextHeight" USING POW-NINDEX RETURNING WL-CANTI 
        MOVE WL-CANTI TO "ListSubHeight"(POW-NINDEX) OF CtList
 
**>*-------------------------------------------------------------------------------------------------------      
 
     *> si el click es en la column zero borro en SubTexto
     IF POW-NCOLUMN = ZEROS
        MOVE ZEROS        TO "ListSubHeight"(POW-NINDEX) OF CT-011101
        EXIT PROGRAM.
**>*-------------------------------------------------------------------------------------------------------