Cobol Foro
Navegación en el Foro
Retroceder   Cobol Foro Entornos de desarrollo y compiladores Cobol Micro Focus COBOL RM/COBOL
RM/COBOL IDE y Compilador RM/COBOL
 
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Duda] Buscar un Registro dariodr COBOL - General 1 8 de mayo de 2024 23:08
[Duda] Registro encontrado Dasije WinDev 0 7 de agosto de 2016 20:55
[Duda] Tamaño de campo Josber PowerFORM 2 16 de diciembre de 2015 19:47
[Duda] Tamaño de pantalla Roger PowerCOBOL (ActiveX, v4 - v11) 4 12 de julio de 2015 23:51
[Sintaxis] Reducir tamaño de imagen Roger PowerCOBOL (ActiveX, v4 - v11) 4 15 de mayo de 2015 15:36

Respuesta
 
Herramientas

  #1
Antiguo 20 de noviembre de 2017, 17:07
Gatomalo
Forero
Última Actividad 01.07.2020 18:41
Posts Posts: 58
Likes enviados Enviados: 6
Likes recibidos Recibidos: 2
Configuración Variar Tamaño de registro
0 Inactivo Inactivo

Hola
El programa genera un archivo plano con estas caracteristicas
Código COBOL:
  1. FILE SECTION.
  2.  FD DETALLE
  3.      LABEL RECORD IS STANDARD.
  4.  01 REC-DETALLE.
  5.      02 LINEA PIC X(500).

Si por ejemplo grabo
"0001,juan Diaz,calle colonial 425" el resto del registro lo graba de blanco hasta 500 caracteres que le puse en la descripción, se puede hacer que solo se grabe ese parrafo exacto los 33 caracteres.
"0002,Maria Solis del Campo,av. Buena Ventura colonial central 45" y en este caso en 55 caracteres y asi dependiendo del tamaño de la escritura.
Gatomalo is offline   Responder Con Cita
  #2
Antiguo 20 de noviembre de 2017, 20:22
Kuk
Administrador
Última Actividad 19.09.2026 20:11
Posts Posts: 2.500
Likes enviados Enviados: 1037
Likes recibidos Recibidos: 1207

Gatomalo, qué compilador usas? Normalmente, debería haber una directiva de compilación para configurar lo que dices.



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk is offline   Responder Con Cita
  #3
Antiguo 20 de noviembre de 2017, 20:36
Fito
Guardián del Foro
Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Issue reason: Por muchos agradecimientos de parte de los Foreros Guardián del Foro: Guardián del espíritu y clima del Foro - Issue reason: Por el Avatar Activista del Foro: Activista del Foro - Issue reason: Por aportar ideas 
Última Actividad 19.09.2026 13:19
Posts Posts: 458
Likes enviados Enviados: 267
Likes recibidos Recibidos: 243

hola Amigo:

Esto lo hago en PowerCobol 8.

Así tenés que definir el registro.

Código COBOL:
  1.  fd  detalle label records standard
  2.      record is varying in size from 1 to 500 characters depending on largo.
  3.  01  rec-detalle             pic x(500).

En la working...
Código COBOL:
  1.  01  largo            pic 999.

En la Procedure primero calculas el largo de la linea que querés grabar
Código COBOL:
  1.      compute largo = function stored-char-length(rec-detalle).
  2.      write rec-detalle.

Y con eso debería funcionar.

Saludos.

Fito...
Fito is offline   Responder Con Cita
  #4
Antiguo 20 de noviembre de 2017, 21:10
Gatomalo
Forero
Última Actividad 01.07.2020 18:41
Posts Posts: 58
Likes enviados Enviados: 6
Likes recibidos Recibidos: 2

Fito funciono de 100%
Gatomalo is offline   Responder Con Cita
  #5
Antiguo 21 de noviembre de 2017, 00:34
Hrmcobol
Guardián del Foro
Guardián del Foro: Guardián del espíritu y clima del Foro - Issue reason: Por implicación en la vida del Foro 
Última Actividad 01.03.2022 02:59
Posts Posts: 323
Likes enviados Enviados: 102
Likes recibidos Recibidos: 120

BIEN FITO !!

SALUDOS !!!
Hrmcobol is offline   Responder Con Cita
Respuesta



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

Saltar a Foro


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