Editar numero en CtList

[Breew]

Hola.

No consigo introducir un numero editado -zzz.zzz,99 en una posicion de un CtList.
Siempre me sale con formato numerico s999999,99

¿ Como lo hago ?


Gracias

[Kuk]

Breew,


ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 EDT-NUM PIC -ZZZ.ZZZ,99.
01 TXT-NUM REDEFINES EDT-NUM PIC X(11).

PROCEDURE DIVISION.

MOVE -58471 TO EDT-NUM

INVOKE ctList1 "AddItem" USING TXT-NUM