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 ;