FUNCTION integridad()
    DEFINE bandera,numero_msg SMALLINT
         IF sqlca.sqlcode <  0 THEN
            LET numero_msg = sqlca.sqlcode
            CALL msg(numero_msg)
            LET bandera = 1    
            LET status = 0
            #SLEEP 2
            RETURN
        END IF
   RETURN
END FUNCTION