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