Cantidad de Caracteres en un CmEdit

[jmeza]

Hola, necesito saber la capacidad hasta cuantos caracteres se pueden ingresar en un campo del registro, estoy programando un campo obs. con Pic x(400) pero solo me guarda (250).

Saludos

[Roger]

POW-TEXT, con un máximo de X(256), POW-MULTITEXT que es X(4092) y POW-MULTITEXT8 que es X(8192)

copiado de cita de Josber

[jmeza]

Ok, Roger
un saludo

---------- Post añadido : 01:23 ---------- Post anterior : 01:05 ----------

Roger, cual seria la sintaxis para imprimir en estos caso que la cantidad de caracteres es demasiado larga, para que imprima una cantidad determinada por linea y pase a la siguiente linea.

[Roger]

Usa un campo cmtext pero con la opcion marcada de style multilineas y en multiline marcar las opciones horizontal scrollbar , vertical scrollbar y envias a grabar de esta manera.
Donde DATOS-HIS puede ser una variable de tu archivo.
FD HISTORIA GLOBAL EXTERNAL LABEL RECORD STANDARD.
01 HISTORIA-REC.
05 HISTORIA-KEY.
10 COD-P-HIS PIC 9(6).
10 COD-M-HIS PIC 9(6).
10 ANO-HIS PIC 9999.
10 MES-HIS PIC 99.
10 DIA-HIS PIC 99.
05 TEMPERATURA-HIS PIC 9(6)V99.
05 PESO-HIS PIC 9(6)V99.
05 USUARIO-HIS PIC X(35).
05 DATOS-HIS PIC X(5000).
MOVE POW-MULTITEXT8 OF CMText1 TO DATOS-HIS

Para impresión en COBVIEW
envias 01 RENGLON0.
02 FILLER PIC X(08) VALUE "<COL #1>".
02 GLOSA-S PIC X(2000).
PROCEDURE DIVISION.
move DATOS-HIS TO GLOSA-S
WRITE RENGLON0.

[jmeza]

Roger, hice los cambio que me indicas y funciono ok
solo me queda un detalle, la impresión en COBVIEW el dato GLOSA que tiene un PIC (500)
me imprime en una sola linea.
¿ tendré que REDEFINES el dato glosa para que pueda imprimir lo suficiente por linea ?

ejemplo
03 T-GLOSA PIC X(500).
03 T-GLOSA-R REDEFINES T-GLOSA.
05 GLOSA1 PIC X(132).
05 GLOSA2 PIC X(132).
05 GLOSA3 PIC X(132).
05 GLOSA4 PIC X(104).

¿ hay otra forma de hacer ?

[Roger]

Para la impresión por cobview no tienes que redefinir
01 RENGLON0.
02 FILLER PIC X(08) VALUE "<COL #1>".
02 GLOSA-S PIC X(2000).
PROCEDURE DIVISION.
MOVE DATOS-HIS TO GLOSA-S.
MOVE RENGLON0 TO LINEA.
WRITE REG-REPORTE.
trata en lo posible de escribir a la medida de una cara del tamaño A-4