函式名称：cl_create_4sm 程序名称：cl_create_4sm.4gl

用途：产生udm_tree 所需要的StartMenu 档案 传入参数：pc_menu_root StartMenu 的根节点 pi_rebuild 是否需要重新覆盖已存在的4sm 档案 回传值：none

用法：CALL cl_create_4sm(\

函式名称：cl_create_qry 程序名称：cl_create_qry.4gl

用途：动态产生窗口以供查询，并回传查询结果 传入参数：none

回传值：ms_ret1,ms_ret2,ms_ret3 回传数目依照对应的回传字段数 用法：CALL cl_create_qry() RETURNING g_oea.oea14

函式名称：cl_dynamic_qry 程序名称：cl_create_qry.4gl

用途：自定义/行业别字段动态产生开窗功能，并回传查询结果 传入参数：none

回传值：ms_ret1,ms_ret2,ms_ret3 回传数目依照对应的回传字段数 用法：CALL cl_dynamic_qry() RETURNING g_oea.oeaida001

函式名称：cl_days 程序名称：cl_days.4gl 用途：取得该年月的天数 传入参数：p_year 年份 p_month 月份

回传值：l_days 天数

用法：let l_days=cl_days(p_yy,p_mm)

函式名称：cl_delb 程序名称：cl_delb.4gl

用途：询问\是否确定取消此笔单身资料(Y/N)：\ (for 单文件建文件程序单身取消功能ON KEY F2) 传入参数：p_row,p_col 回传值：1 FOR TRUE 是 0 FOR FALSE 否

用法：IF cl_delb(0,0) THEN

函式名称：cl_delete 程序名称：cl_delete.4gl

用途：询问＂是否删除此笔资料？″ 传入参数：none

回传值：1 FOR TRUE 是

0 FOR FALSE 否

用法：IF (cl_delete()) THEN

函式名称：cl_delh 程序名称：cl_delh.4gl

用途：询问\是否确定删除此笔单头及所有单身数据(Y/N)：\ (for 单文件建文件程序单头删除功能) 传入参数：p_row,p_col 回传值：1 FOR TRUE 是 0 FOR FALSE 否 用法：if cl_delh(0,0)

函式名称：cl_delh1 程序名称：cl_delh1.4gl

用途：询问\是否确定取消此笔单头及所有单身数据(Y/N)：\(for 单文件建文件程序单头取消功能) 传入参数：p_row,p_col 回传值：1 FOR TRUE 是 0 FOR FALSE 否

用法：if cl_delh1(0,0)

函式名称：cl_detail_input_auth 程序名称：cl_detail_input_auth.4gl

用途：检查是否允许在单身中有insert 或delete 的权限

传入参数：ps_act_type STRING 要检查的字符串（insert/delete） 回传值：1 FOR TRUE 是 0 FOR FALSE 否

用法：CALL cl_detail_input_auth(\

函式名称：cl_digcut 程序名称：cl_digcut.4gl

用途：将数值依指定的小数位数做四舍五入 传入参数：p_value 数值 p_digit 允许小数位数

回传值：p_value 四舍五入后的数值 用法：LET a = cl_digcut(p_value,p_digit)

函式名称：cl_doc 程序名称：cl_doc.4gl 用途：相关档案维护 传入参数：none 回传值：none

用法：LET g_doc.column1 = \LET g_doc.value1 = g_oea.oea01

CALL cl_doc()

函式名称：cl_dynamic_locale 程序名称：cl_dynamic_locale.4gl 用途：动态转换画面语言别 传入参数：none 回传值：none

用法：CALL cl_dynamic_locale()

函式名称：cl_end 程序名

称：cl_end.4gl

用途：显示\作业结束，请按任何键继续：\传入参数：p_row,p_col 无作用 回传值：none

用法：CALL cl_end(0,0)

函式名称：cl_end2 程序名称：cl_end2.4gl

用途：显示执行结果，并询问是否要继续作业 传入参数：p_code （1 代表成功，2 代表失败） 回传值：1 FOR TRUE 是 0 FOR FALSE 否

用法：CALL cl_end2(1) RETURNING l_flag

函式名称：cl_err 程序名称：cl_err.4gl 用途：显示错误讯息

传入参数：p_msg 错误讯息的附加说明 err_code 错误讯息代码

p_n 显示错误讯息后的停留秒数或是等用户按下确定 0 ：不开启讯息窗口，只在状态列显示 > 1 ：停留秒数

1 ：开启讯息窗口等待用户确定 回传值：none

用法：CALL cl_err(p_msg,err_code,p_n)

函式名称：cl_err_msg 程序名称：cl_err_msg.4gl 用途：显示错误讯息

传入参数：ps_title 错误讯息的附加说明 ps_err_code 错误讯息代码

ps_replace_arg 欲替换的讯息字符串，以”| ”分隔字符串 pi_idle_sec idle 秒数

0 ：不开启讯息窗口，只在状态列显示 > 1 ：停留秒数

1 ：开启讯息窗口等待用户确定 回传值：none

用法：CALL cl_err_msg(\

函式名称：cl_err3 程序名称：

用途：显示数据库处理后的错误讯息（insert/update/delete/select） 传入参数：Type 讯息的类型（ins、del、upd、sel） Tables 处理的table 代码 Key1 Key1 的value Key2 Key2 的value

Description 额外讯息（讯息代码/讯息字符串） Action 讯息Action 代码（未来延伸功能，可不传） Mark 按下＂更多″按键时显示的讯息 Open 是否开窗（0/1） 回传值：none

用法：CALL cl_err3(\

函式名称：cl_err_msg_log 程序名称：cl_err_msg.4gl 用途：纪录错误讯息 传入参数：none 回传值：none

用法：WHENEVER ERROR CALL cl_err_msg_log

函式名称：cl_exp 程序名称：cl_exp.4gl

用途：询问\此笔资料是否确定无效(Y/N)：\或\此笔资料是否恢复有效(Y/N)：\(for 单文件建文件无效功能) 传入参数：p_row,p_col

p_old_acticode 有效码［Y/N］ 回传值：1 FOR TRUE 是 0 FOR FALSE 否

用法：IF cl_exp(0,0,g_pmw.pmwacti) THEN

函式名称：cl_export_to_excel 程序名称：cl_export_to_excel.4gl 用途：

传入参数：n 画面的根节点组件［ui.Interface.getRootNode()］ t、t1、t2 单身的数据［若有两个以上的单身才会用到t1、t2 ］