GBASE南大通用例程中的 TRACE 语句的示例

例程中的 TRACE 语句的示例 

  以下示例显示了添加到 SPL 例程 items_pct 中的 TRACE 语句。SET DEBUG FILE TO 语 句将跟踪输出定向至路径名所指定的文件。TRACE ON 语句开始跟踪过程中的语句和变 量。

CREATE PROCEDURE items_pct(mac CHAR(3)) 

 DEFINE tp MONEY; 

 DEFINE mc_tot MONEY;

 DEFINE pct DECIMAL; SET DEBUG FILE TO 'pathname';

 TRACE 'begin trace'; 

 TRACE ON;

 LET tp = (SELECT SUM(total_price) FROM items); 

 LET mc_tot = (SELECT SUM(total_price) FROM items

 WHERE manu_code = mac);

 LET pct = mc_tot / tp; 

 IF pct > .10 THEN

 RAISE EXCEPTION -745; 

END IF 

 TRACE OFF; 

 END PROCEDURE; CREATE TRIGGER items_ins

 INSERT ON items 

 REFERENCING NEW AS post_ins

 FOR EACH ROW(EXECUTE PROCEDURE items_pct (post_ins.manu_code));