例如:
IF g_browser_cnt = 0 THEN INITIALIZE g_errparam TO NULL LET g_errparam.extend = "" LET g_errparam.code = "-100" LET g_errparam.popup = TRUE CALL cl_err() CLEAR FORM ELSE CALL cxmi101_fetch("F") END IF
LET g_errparam.extend = "" —— 可维护中文、英文等提示,可写入提示内容;
LET g_errparam.code = "-100" —— 是azzi920的错误信息代码
LET g_errparam.popup = TRUE —— TRUE为弹出错误信息窗口提示,FALSE为在作业界面下面状态栏位置显示(红色字体错误提示)
CALL cl_err() —— 调用函数,显示错误信息内容
其次,也可直接使用 CALL cl_ask_confirm3("axm-00440","") 函数;
注意,axm-00440 为azzi920错误信息维护作业里的错误代码;