@dariodr, las estructuras que usas en escritura y en lectura son diferentes:
Código COBOL:
01 persona.
03 nombre pic x(10).
03 edad pic 99.
03 direccion pic x(25).
03 telefono pic 9(7).
01 persona.
05 nombre pic x(20).
05 edad pic 99.
05 direccion pic x(30).
05 telefono pic x(12).