Ver Mensaje Individual
  #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