@nbiker, no te disculpes, las fiestas son la mejor causa que se me occurre para la ausencia de alguien. Lo menos bueno es que hayas estado pachucho, espero que nada grave
La verdad es que no he trabajado con GnuCOBOL, hace mucho tiempo trabajé con COBOL-IT que es un fork del anterior, comercializado por un grupo de franceses hace unos 15 años y posteriormente comprado por Micro Focus. Así que voy un poco a ciegas.
Por lo que entiendo, en GnuCOBOL hemos de respetar la tipología C, (y ahora que lo pienso es lógico, porque el código Cobol se convierte en código C y después se compila con un compilador C).
Prueba la misma llamada pero con el campo declarado como lo tenías antes, con tipo POINTER.
Es decir:
Código COBOL:
WORKING-STORAGE SECTION.
01 DB-HANDLE POINTER.
PROCEDURE DIVISION.
*> Intentar inicializar MySQL
CALL "mysql_init" RETURNING DB-HANDLE
IF DB-HANDLE = 0 *> entonces ERROR, no debe ser 0 (nulo)