@Josber, yo creo que se ha liado un poco pero lo que quería hacer es esto:
Código COBOL:
open input empleados-archivo
perform lee-siguiente-registro
perform until fin-del-archivo = "0"
perform muestra-campos
perform lee-siguiente-registro
end-perform
close empleados-archivo