Hola amigos coboleros, otra vez molestando por aca.
Tengo este codigo para leer archivos secuenciales, la pregunta es:
Como hago para que los datos leidos se muestren en forma horizontal.
Ejm:
Nombre del empleado ID del empleado Cantidad de casa vendidas
Pedro Perez 1 3
Juan Lopez 2 2
Código COBOL:
identification division.
program-id. venta-casa.
*
environment division.
input-output section.
file-control.
select empleados assign to "empleados.txt".
*
data division.
file section.
fd empleados.
01 reg-empleados.
03 nombre-empleado pic x(20).
03 idempleado pic 999.
03 casas-vendidas pic 99.
working-storage section.
01 fin-archivo pic x value 'n'.
*
procedure division.
programa-principal.
perform abrir-archivo.
perform proceso.
perform cerrar-archivo.
perform fin-programa.
*
abrir-archivo.
open input empleados.
*
cerrar-archivo.
close empleados.
*
proceso.
perform lee-datos until fin-archivo = 's'.
*
lee-datos.
read empleados
at end move 's' to fin-archivo
not at end
perform muestra-datos
end-read.
*
fin-programa.
stop run.
*
muestra-datos.
display "Nombre de empleado: " nombre-empleado.
display "ID del empleado: " idempleado.
display "Cantidad de casas vendidas: " casas-vendidas.
display " ".