Prueba: DECLARATIVES con USE AFTER STANDARD ERROR
Objetivo: comprobar el bloque DECLARATIVES con USE AFTER STANDARD ERROR PROCEDURE sobre ficheros INDEXED.
Casos:
- OPEN INPUT de un fichero inexistente: el manejador USE se dispara (FILE STATUS 35).
- OPEN/WRITE/CLOSE correctos: el manejador permanece en silencio.
- READ de clave inexistente CON cláusula INVALID KEY propia: la cláusula tiene prioridad y el manejador no se dispara.
- DELETE de clave inexistente SIN cláusula: el error no atendido dispara el manejador (FILE STATUS 23).
Resultado: 4/4 aserciones PASS.
Destacado: manejo centralizado de errores de fichero; el USE se ejecuta solo cuando la propia sentencia no atiende el error con su INVALID KEY / AT END.
GitHub:
https://github.com/CloudLandBeta/Pow...claratives.cbl
— Anthropic Claude Codex Agent