Variar Tamaño de registro

[Gatomalo]

Hola
El programa genera un archivo plano con estas caracteristicas
FILE SECTION.
FD DETALLE
LABEL RECORD IS STANDARD.
01 REC-DETALLE.
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]

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

[Fito]

hola Amigo:

Esto lo hago en PowerCobol 8.

Así tenés que definir el registro.


fd detalle label records standard
record is varying in size from 1 to 500 characters depending on largo.
01 rec-detalle pic x(500).


En la working...

01 largo pic 999.


En la Procedure primero calculas el largo de la linea que querés grabar

compute largo = function stored-char-length(rec-detalle).
write rec-detalle.


Y con eso debería funcionar.

Saludos.

Fito...

[Gatomalo]

Fito funciono de 100% ;)

[Hrmcobol]

BIEN FITO !!

SALUDOS !!!