Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   Fujitsu COBOL (https://www.cobolforo.es/forumdisplay.php?f=77)
-   -   [Sintaxis] Cantidad de Caracteres en un CmEdit (https://www.cobolforo.es/showthread.php?t=893)

jmeza 22 de septiembre de 2018 23:04
Cantidad de Caracteres en un CmEdit
 
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 23 de septiembre de 2018 07:03
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 25 de septiembre de 2018 03:23
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 25 de septiembre de 2018 05:37
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.
Código COBOL:
  1. FD  HISTORIA GLOBAL EXTERNAL LABEL RECORD STANDARD.
  2.         01  HISTORIA-REC.
  3.           05 HISTORIA-KEY.
  4.              10 COD-P-HIS PIC 9(6).
  5.              10 COD-M-HIS PIC 9(6).
  6.              10 ANO-HIS PIC 9999.
  7.              10 MES-HIS PIC 99.
  8.              10 DIA-HIS PIC 99.
  9.           05 TEMPERATURA-HIS PIC 9(6)V99.
  10.           05 PESO-HIS PIC 9(6)V99.
  11.           05 USUARIO-HIS PIC X(35).
  12.           05 DATOS-HIS PIC X(5000).
Código COBOL:
  1. MOVE POW-MULTITEXT8 OF CMText1 TO DATOS-HIS

Para impresión en COBVIEW
envias
Código COBOL:
  1. 01 RENGLON0.
  2.     02 FILLER     PIC X(08) VALUE "<COL #1>".
  3.     02 GLOSA-S    PIC X(2000).
  4. PROCEDURE DIVISION.
  5. move DATOS-HIS TO GLOSA-S
  6. WRITE RENGLON0.

jmeza 27 de septiembre de 2018 16:41
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
Código COBOL:
  1.           03  T-GLOSA       PIC X(500).
  2.            03  T-GLOSA-R REDEFINES T-GLOSA.
  3.                05 GLOSA1      PIC X(132).
  4.                05 GLOSA2      PIC X(132).
  5.                05 GLOSA3      PIC X(132).
  6.                05 GLOSA4      PIC X(104).

¿ hay otra forma de hacer ?

Roger 28 de septiembre de 2018 03:17
Para la impresión por cobview no tienes que redefinir
Código COBOL:
  1. 01 RENGLON0.
  2.     02 FILLER     PIC X(08) VALUE "<COL #1>".
  3.     02 GLOSA-S    PIC X(2000).
  4. PROCEDURE DIVISION.
  5.       MOVE DATOS-HIS TO GLOSA-S.
  6.       MOVE RENGLON0 TO LINEA.
  7.       WRITE REG-REPORTE.
trata en lo posible de escribir a la medida de una cara del tamaño A-4


La franja horaria es GMT +2. Ahora son las 01:59.

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.