[Kuk]

@nbiker, prueba así:

       WORKING-STORAGE SECTION.
       01  DB-HANDLE  PIC S9(9) COMP-5.
 
       PROCEDURE DIVISION.
           
           *> Intentar inicializar MySQL
           CALL "mysql_init" RETURNING DB-HANDLE
 
           IF  DB-HANDLE = 0 *> entonces ERROR, no debe ser 0 (nulo)