informix调试存储过程

create procedure check_order(p_order_num int)
    define p_ship_date like orders.ship_date;
    set debug file to “/tmp/trace_check”;
    trace on;
    select ship_date into p_ship_date
        from orders
        where order_num = p_order_num;
    if p_ship_date is null then
        trace “ship date is null”;----------输出调试语句
        execute procedure notify_shipping(p_order_num);
    end if;
    trace off;
end procedure;