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

用途：将数值依指定的打印长度及小数字数做FORMAT，以便打印 若值为0，将传回0.00，并非空白 传入参数：p_value 数值 p_len 允许打印长度

回传值：l_str FORMAT 后的数值，以CHAR 型态RETURN 用法：LET a = cl_numfor(amt,17)；PRINT a

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

用途：将数值不须的小数位数不打印出 传入参数：p_value 数值

回传值：l_str FORMAT 后的数值，以CHAR 型态RETURN 用法：LET a = cl_numfor3(amt,13)；PRINT a

函式名称：cl_on_idle 程序名称：cl_on_idle.4gl 用途：在ON IDLE 时的处理 传入参数：none 回传值：none

用法：CALL cl_on_idle()

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

用途：显示操作方法于状态列

操作方法着重于FUNCTION 键的使用 传入参数：p_op_type 操作型态

a:新增,u:更改,q:查询b:单身处理,w:多栏查询,p:打印条件选择 回传值：none

用法：CALL cl_opmsg('q')

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

用途：赋予一个报表文件代号(Disk File Name) 传入参数：p_code 报表程序代号 回传值：p_name 报表文件代号

用法：call cl_outnam(p_code) RETURNING l_name

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

用途：将MATCHES '[xyz]' 的指令转成ORACLE 的IN ('x','y','z') 传入参数：p_type 欲转换的字符串 回传值：l_str 转换过后的字符串

用法：CALL cl_parse(ls_str)

函式名称：cl_pause 程序名称：cl_pause.4gl 用途：请按Enter 继续? 传入参数：none 回传值：none

用法：IF cl_pause()

函式名称：cl_progress_bar 程序名称：cl_progress_bar.4gl 用途：开启作业处理进度画面

传入参数：pi_total_count 处理作业总次数 回传值：none

用法：CALL cl_progress_bar(3)

函式名称：cl_progressing 程序名称：cl_progress_bar.4gl 用途：显示当前处理进度

传入参数：ps_log 正在处理的作业说明 回传值：none

用法：CALL cl_progressing(\

函式名称：cl_prompt 程序名称：cl_prompt.4gl 用途：询问l_msg

传入参数：p_row,p_col 无作用 l_msg 显示于窗口上的说明 回传值：1 FOR TRUE 是 0 FOR FALSE 否

用法：IF cl_prompt(0,0,l_msg) THEN

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

用途：询问用户以何种方式处理报表文件 传入参数：p_name 报表文件名称 p_prtway 打印方式 p_copies 打印份数 p_len 报表长度 回传值：none

用法：CALL cl_prt(l_name,' ','1',g_len)

函式名称：cl_qbe_init 程序名称：

用途：预设QBE 及g_qbe_code 的值 传入参数：none 回传值：none

用法：CALL cl_qbe_init()

函式名称：cl_qbe_select 程序名称：

用途：开启QBE 查询条件列表及显示条件于画面上 传入参数：none 回传值：none

用法：CALL cl_qbe_select()

函式名称：cl_qbe_list 程序名称：

用途：QBE 查询条件列表 传入参数：none

回传值：g_qbe_code 条件序号

用法：CALL cl_qbe_list() RETURNING lc_qbe_sn

函式名称：cl_qbe_display_condition 程序名称：

用途：显示QBE 查询条件于画面上 传入参数：pc_gbm01 条件序号 回传值：none

用法：CALL cl_qbe_display_condition(lc_qbe_sn)

函式名称：cl_qbe_save 程序名称：

用途：QBE 查询条件储存 传入参数：none 回传值：none

用法：CALL cl_qbe_save()

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

用途：对g_user 提供可执行程序的窗口查询 传入参数：p_row,p_col 无作用 p_key 用户基本档代码

回传值：p_key 用户基本档代码

用法：call cl_qzx(0,0,p_key) returning p_key

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

用途：显示ROLLBACKWORK 讯息

传入参数：p_code 讯息种类1 代表异动更新不成功 2 及3 代表此张单据异动更新不成功 4 代表更新不成功 回传值：none

用法：CALL cl_rbmsg(1)

函式名称：cl_repcon 程序名称：cl_repcon.4gl 用途：询问特殊打印条件

传入参数：p_pdate 制表日期p_towhom 报表收受单位或人员 p_lang 选择打印语言别p_bgjob 是否延后执行本作业 p_time 执行时间p_prtway 选择打印方式 p_copies 打印份数

回传值：p_pdate 制表日期p_towhom 报表收受单位或人员 p_lang 选择打印语言别p_bgjob 是否延后执行本作业 p_time 执行时间p_prtway 选择打印方式 p_copies 打印份数

用法：CALL cl_repcon(p_row,p_col,p_pdate,p_towhom,p_lang, p_bgjob,p_time,p_prtway,p_copies) Returning p_row,p_col, p_pdate,p_towhom,p_lang,p_bgjob,p_time,p_prtway,p_copies

函式名称：cl_replace_str 程序名称：cl_replace_str.4gl 用途：取代字符串

传入参数：ps_source STRING 来源字符串 ps_old STRING 要被换掉的旧字符串 ps_new STRING 要换成的新字符串

回传值：ls_result STRING 取代后的新字符串

用法：CALL cl_replace_str(\ls_new

函式名称：cl_replace_str_by_index 程序名称：cl_replace_str_by_index.4gl 用途：依据索引位置取代字符串

传入参数：ps_source STRING 来源字符串 pi_from SMALLINT 起始索引位置 pi_end SMALLINT 结束索引位置 ps_new STRING 要换成的新字符串

回传值：ls_result STRING 取代后的新字符串

用法：CALL cl_replace_str_by_index(\RETURNING ls_new

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