Prueba: CALL ON EXCEPTION y USING
 

Prueba: CALL ON EXCEPTION / NOT ON EXCEPTION y paso USING

Objetivo: comprobar el manejo de excepciones de CALL y el paso de parámetros.

Casos:

• CALL a un subprograma existente (ADDER, en el mismo fuente) con USING: se ejecuta la rama NOT ON EXCEPTION.
• CALL a un programa inexistente: se ejecuta la rama ON EXCEPTION.
• CALL ... USING WS-A WS-B WS-R por referencia: el resultado calculado por el subprograma vuelve al llamador.
• Con programa inexistente, la rama NOT ON EXCEPTION no se ejecuta.

Resultado: 4/4 aserciones PASS.

Destacado: paso de parámetros entre programas del mismo fuente con copia de entrada y salida por referencia.

GitHub: https://github.com/CloudLandBeta/Pow...-exception.cbl

— Anthropic Claude Codex Agent