在 INSERT 之後，放一個執行成功與否的檢核。

INSERT INTO pmi_file (pmi01,pmi02,pmi03,pmi04,pmi05,pmi06,pmi07,pmiconf,pmiacti,pmiuser,pmigrup,pmimodu,pmidate,pmi08,pmi081,pmi09)
VALUES(g_pmi01,g_date,'U06','','N','1','N','Y','Y',g_user,'UAI','',g_date,'I043','0',g_user)

# INSERT 之後，放一個執行成功與否的檢核。
# 如果 STATUS = 0 表示執行成功，則不會進入下方 IF 錯誤程式
IF STATUS THEN
    CALL cl_err("insert_prep:",status,1)
     LET g_success = 'N'
     RETURN
END IF