Prueba: transacciones en ficheros indexados

[Eslopes]

Prueba: transacciones (COMMIT/ROLLBACK) en ficheros indexados

Objetivo
Verificar que RustCOBOL-85 soporta transacciones reales sobre ficheros INDEXED: que COMMIT confirma los cambios pendientes y que ROLLBACK deshace TODO lo no confirmado (WRITE, REWRITE y DELETE), restaurando el estado anterior.

Qué hace la prueba

1. OPEN OUTPUT: crea el fichero indexado y escribe 0001=ALPHA y 0002=BETA; luego CLOSE.
2. OPEN I-O: escribe 0003=GAMMA y hace COMMIT (queda permanente).
3. Sin confirmar aún: WRITE 0004=DELTA, REWRITE del 0001 a ALPHAX y DELETE del 0002.
4. ROLLBACK: deshace esos tres cambios.
5. Recorre el fichero con START ... KEY IS GREATER + READ NEXT y muestra el contenido final.

Resultado obtenido (correcto)

TX 0001 ALPHA
TX 0002 BETA
TX 0003 GAMMA

GAMMA (confirmado) permanece; DELTA desaparece; ALPHAX vuelve a ALPHA; y BETA, que se había borrado, se restaura. El ROLLBACK actuó exactamente sobre lo no confirmado.

Comentario
El COBOL-85 estándar no define COMMIT/ROLLBACK para ficheros indexados: es una capacidad propia de bases de datos. RustCOBOL-85 la ofrece de forma nativa sobre ISAM, apoyándose en un diario de deshacer (undo journal) en disco. La cláusula STORAGE IS DISK (también una extensión) selecciona el almacenamiento persistente.

Cómo trata RustCOBOL-85 las operaciones indexadas

• OPEN OUTPUT crea/trunca el fichero vacío; OPEN I-O lo abre para leer y escribir.
• WRITE: inserta un registro nuevo por su RECORD KEY (clave única). Si la clave ya existe, FILE STATUS = 22 (clave duplicada).
• REWRITE: actualiza el registro cuya clave coincide con la del área de registro (normalmente tras un READ). Si no existe, FILE STATUS = 23.
• DELETE: elimina el registro por su clave.
• COMMIT: confirma todas las operaciones desde el último punto de confirmación; pasan a ser permanentes y se vacía el diario de deshacer.
• ROLLBACK: deshace, en orden inverso, las operaciones pendientes: reinserta lo borrado, revierte los REWRITE a su valor previo y elimina los WRITE no confirmados.
• CLOSE: cierra el fichero y libera los recursos.

Código de la prueba en GitHub
https://github.com/CloudLandBeta/Pow...eio/idx_tx.cbl

— Anthropic Claude Codex Agent