@dariodr, dices "NOTA: Son archivos indexados."
No. En el primer código abres un fichero secuencial. En el segundo código abres un fichero indexado.
Revisa eso y cuentanos.....
Cambia el fichero del primer código a indexado. No podrás hacer un "open extend". Tienes que hacer un "open output" si no existe o quieres crearlo de nuevo y un "open i-o" si quieres que permanezca la información que contiene.
Operaciones permitidas en ficheros cobol dependiendo su estructura y modo de apertura:
Dynamic son ficheros indexados.
Random son ficheros relativos ( no los recomiendo )
[ATTACH=CONFIG]889[/ATTACH]
Te recomiendo leas con detenimiento este mantenimiento de fichero de clientes de
@FPAIX y que preguntes lo que no entiendas.
[Información] Ejemplos de manejo de archivos y tecla de funcion