Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL
Fujitsu COBOL Sub-Foro dedicado a Compiladores e IDE-s de Fujitsu.
Noticias y Avisos
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Sintaxis] Problema en el evento "Return" en TextBox (CmEdit) dmosca PowerCOBOL (ActiveX, v4 - v11) 8 3 de agosto de 2017 22:40
[Sintaxis] Filtro con CmEdit y evento "change" Roger PowerCOBOL (ActiveX, v4 - v11) 4 26 de febrero de 2017 13:09
[Noticia] Traslado Caracteres de Excel a powercobol Gatomalo PowerCOBOL (ActiveX, v4 - v11) 5 4 de marzo de 2016 17:49
Respuesta
 
Herramientas

  #1
Antiguo 22 de septiembre de 2018, 22:04
IDENTIFICATION DIVISION
jmeza
Novato Junior
ENVIRONMENT DIVISION
Avatar de jmeza
DATA DIVISION
Forero desde (Registrado)abril 2017
Chile
UbicaciónCurico Chile
Última Actividad23.06.2019 01:30
PROCEDURE DIVISION
PostsPosts: 66
Ha dicho GraciasEnviado: 9
Ha recibido agradecimientosRecibido: 2
Mejores respuestasSoluiones: 0
ReputaciónReputación: 3
jmeza is an unknown quantity at this point
Form 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
jmeza no ha iniciado sesión   Responder Con Cita
  #2
Antiguo 23 de septiembre de 2018, 06:03
IDENTIFICATION DIVISION
Roger
Forero
ENVIRONMENT DIVISION
Avatar de Roger
DATA DIVISION
Forero desde (Registrado)febrero 2015
Perú
UbicaciónLima
Última Actividad04.07.2019 15:58
PROCEDURE DIVISION
PostsPosts: 225
Ha dicho GraciasEnviado: 18
Ha recibido agradecimientosRecibido: 60
Mejores respuestasSoluiones: 4
ReputaciónReputación: 9
Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road
Predeterminado
1 usuarios han marcado este post como "Solución"

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
Roger no ha iniciado sesión   Responder Con Cita
  #3
Antiguo 25 de septiembre de 2018, 02:23
IDENTIFICATION DIVISION
jmeza
Novato Junior
ENVIRONMENT DIVISION
Avatar de jmeza
DATA DIVISION
Forero desde (Registrado)abril 2017
Chile
UbicaciónCurico Chile
Última Actividad23.06.2019 01:30
PROCEDURE DIVISION
PostsPosts: 66
Ha dicho GraciasEnviado: 9
Ha recibido agradecimientosRecibido: 2
Mejores respuestasSoluiones: 0
ReputaciónReputación: 3
jmeza is an unknown quantity at this point
Predeterminado

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.
jmeza no ha iniciado sesión   Responder Con Cita
  #4
Antiguo 25 de septiembre de 2018, 04:37
IDENTIFICATION DIVISION
Roger
Forero
ENVIRONMENT DIVISION
Avatar de Roger
DATA DIVISION
Forero desde (Registrado)febrero 2015
Perú
UbicaciónLima
Última Actividad04.07.2019 15:58
PROCEDURE DIVISION
PostsPosts: 225
Ha dicho GraciasEnviado: 18
Ha recibido agradecimientosRecibido: 60
Mejores respuestasSoluiones: 4
ReputaciónReputación: 9
Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road
PC

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.
Roger no ha iniciado sesión   Responder Con Cita
  #5
Antiguo 27 de septiembre de 2018, 15:41
IDENTIFICATION DIVISION
jmeza
Novato Junior
ENVIRONMENT DIVISION
Avatar de jmeza
DATA DIVISION
Forero desde (Registrado)abril 2017
Chile
UbicaciónCurico Chile
Última Actividad23.06.2019 01:30
PROCEDURE DIVISION
PostsPosts: 66
Ha dicho GraciasEnviado: 9
Ha recibido agradecimientosRecibido: 2
Mejores respuestasSoluiones: 0
ReputaciónReputación: 3
jmeza is an unknown quantity at this point
Predeterminado

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 ?
jmeza no ha iniciado sesión   Responder Con Cita
  #6
Antiguo 28 de septiembre de 2018, 02:17
IDENTIFICATION DIVISION
Roger
Forero
ENVIRONMENT DIVISION
Avatar de Roger
DATA DIVISION
Forero desde (Registrado)febrero 2015
Perú
UbicaciónLima
Última Actividad04.07.2019 15:58
PROCEDURE DIVISION
PostsPosts: 225
Ha dicho GraciasEnviado: 18
Ha recibido agradecimientosRecibido: 60
Mejores respuestasSoluiones: 4
ReputaciónReputación: 9
Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road
PC

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
Roger no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
jmeza (29 de septiembre de 2018)
Respuesta


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 15:55.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2019, Jelsoft Enterprises Ltd.