Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   RM/COBOL (https://www.cobolforo.es/forumdisplay.php?f=16)
-   -   [Duda] Variar Tamaño de registro (https://www.cobolforo.es/showthread.php?t=765)

Gatomalo 20 de noviembre de 2017 17:07
Variar Tamaño de registro
 
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.

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

Fito 20 de noviembre de 2017 20:36
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...

Gatomalo 20 de noviembre de 2017 21:10
Fito funciono de 100% ;)

Hrmcobol 21 de noviembre de 2017 00:34
BIEN FITO !!

SALUDOS !!!


La franja horaria es GMT +2. Ahora son las 14:45.

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