Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
  COBOL Foro > IDE-s y compiladores COBOL > MicroFocus COBOL > RM/COBOL
RM/COBOL IDE y Compilador RM/COBOL
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Sintaxis] Lectura del ultimo registro jmeza PowerCOBOL (ActiveX, v4 - v11) 4 5 de febrero de 2018 02:13
[Sintaxis] Uso de COMP-6 en registro jmeza Fujitsu COBOL 3 17 de junio de 2017 01:52
[Sintaxis] Ultimo registro de una tabla Dasije WinDev 0 11 de agosto de 2016 01:32
[Información] Registro encontrado Dasije WinDev 0 7 de agosto de 2016 19:55
[Información] Tamaño de pantalla Roger PowerCOBOL (ActiveX, v4 - v11) 4 12 de julio de 2015 22:51
Respuesta
 
Herramientas

  #1
Antiguo 20 de noviembre de 2017, 16:07
IDENTIFICATION DIVISION
Gatomalo
 Novato Junior
ENVIRONMENT DIVISION
Avatar de Gatomalo
DATA DIVISION
abril 2015
Panama
01.07.2020 17:41
PROCEDURE DIVISION
Posts: 61
Enviado: 6
Recibido: 2
Soluiones: 1
Reputación: 7
Gatomalo is on a distinguished road
Configuración 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.
Gatomalo no ha iniciado sesión   Responder Con Cita
  #2
Antiguo 20 de noviembre de 2017, 19:22
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
diciembre 2014
Madrid
36 años
16.06.2021 09:06
PROCEDURE DIVISION
Posts: 1.754
Enviado: 552
Recibido: 721
Soluiones: 94
Reputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

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 no ha iniciado sesión   Responder Con Cita
  #3
Antiguo 20 de noviembre de 2017, 19:36
IDENTIFICATION DIVISION
Fito
 Guardián del Foro
Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por el Avatar  Activista del Foro: Activista del Foro - Razón: Por aportar ideas 
ENVIRONMENT DIVISION
Avatar de Fito
DATA DIVISION
febrero 2015
Córdoba, Villa María
50 años
16.06.2021 12:09
PROCEDURE DIVISION
Posts: 264
Enviado: 137
Recibido: 127
Soluiones: 13
Reputación: 19
Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road
Predeterminado

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 no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Josber (21 de noviembre de 2017)
  #4
Antiguo 20 de noviembre de 2017, 20:10
IDENTIFICATION DIVISION
Gatomalo
 Novato Junior
ENVIRONMENT DIVISION
Avatar de Gatomalo
DATA DIVISION
abril 2015
Panama
01.07.2020 17:41
PROCEDURE DIVISION
Posts: 61
Enviado: 6
Recibido: 2
Soluiones: 1
Reputación: 7
Gatomalo is on a distinguished road
Predeterminado

Fito funciono de 100%
Gatomalo no ha iniciado sesión   Responder Con Cita
  #5
Antiguo 20 de noviembre de 2017, 23:34
IDENTIFICATION DIVISION
Hrmcobol
 Guardián del Foro
Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por implicación en la vida del Foro 
ENVIRONMENT DIVISION
Avatar de Hrmcobol
DATA DIVISION
febrero 2015
Puerto Madryn
69 años
14.06.2021 02:25
PROCEDURE DIVISION
Posts: 313
Enviado: 102
Recibido: 116
Soluiones: 10
Reputación: 18
Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light
Predeterminado

BIEN FITO !!

SALUDOS !!!
Hrmcobol no ha iniciado sesión   Responder Con Cita
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 12:21.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.