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.
Código COBOL:
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.
**>*-------------------------------------------------------------------------------------------------------