用途：将金额类数值转换成SAY TOTAL 传入参数：p_amt (Decimal value of money) p_len (String length of SAY1 and SAY2)

回传值：l_say1 (Say total string-1 of p_amt) l_say2 (Say total string-2 of p_amt) 用法：CALL cl_say(p_amt,p_len) RETURNING l_say1,l_say2

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

用途：动态显现/隐藏画面上的Action

传入参数：ps_act_names 要显示或隐藏的字段名称字符串（以逗号分隔） pi_visible TRUE：显现，FALSE：隐藏 回传值：none

用法：CALL cl_set_act_visible(\

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

用途：动态开启或关闭画面上的Action［不隐藏只是不可使用］

传入参数：ps_actions 要显示或隐藏的字段名称字符串（以逗号分隔） pi_active TRUE：active，FALSE：deactive 回传值：none

用法：CALL cl_set_action_active(\

函式名称：cl_set_check_text 程序名称：cl_set_check_text.4gl 用途：设定CHECKBOX 的显示文字

传入参数：ps_field STRING 要设定的字段名称 ps_text STRING 要设定的TEXT 回传值：none

用法：CALL cl_set_check_text(\新的文字卷标\

函式名称：cl_set_combo_items 程序名称：cl_set_combo_items.4gl 用途：动态设定ComboBox 的Item

传入参数：ps_field_name ComboBox 所对应的字段名称 ps_values Item 所对应的储存值字符串（以逗号分 隔）

ps_items Item 字符串（以逗号分隔） 回传值：None

用法：CALL cl_set_combo_items(\Order\

函式名称：cl_set_combo_lang

程序名称：cl_set_combo_lang.4gl

用途：动态设定有选择语言别的ComboBox 语言选项 传入参数：ps_field_name ComboBox 所对应的字段名称 回传值：None

用法：CALL cl_set_combo_lang(\

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

用途：动态设定有选择模块数据的ComboBox 选项 传入参数：ps_field_name ComboBox 所对应的字段名称 pi_type pi_type = 1 时输出大写数据 回传值：None

用法：CALL cl_set_combo_module(\

函式名称：cl_set_comments 程序名称：cl_set_comments.4gl 用途：设定字段的comments

传入参数：ps_fields 欲转换哪个字段（以字符串代表） ps_att_value 欲转换的字符串 回传值：none

用法：CALL cl_set_comments(\

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

用途：设定字段的显示名称（组件前面Label 的text） 传入参数：ps_fields 欲转换的字段 ps_att_value 欲转换的字符串 回传值：None

用法：CALL cl_set_comp_att_text(\”,”Order Number”)

函式名称：cl_set_comp_entry 程序名称：cl_set_comp_entry.4gl 用途：动态设定组件是否可输入

传入参数：ps_fields 字段名称字符串（中间以逗号分隔） pi_entry TRUE：可输入，FALSE：不可输入 回传值：None

用法：CALL cl_set_comp_entry(\

函式名称：cl_set_comp_font_color 程序名称：cl_set_comp_font_color.4gl 用途：设定组件字型颜色

传入参数：ps_fields 字段名称字符串（中间以逗号分隔） ps_color 要设定的颜色（black,blue,cyan,...） 回传值：None

用法：CALL cl_set_comp_font_color(\

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

用途：设定Static Label (dummy) 的显示名称 传入参数：ps_fields 欲转换的字段 ps_att_value 欲转换的字符串 回传值：none

用法：CALL cl_set_comp_att_text(\”,”Order Number”)

函式名称：cl_set_comp_required 程序名称：cl_set_comp_required.4gl 用途：动态设定字段是否必须输入值

传入参数：ps_fields 字段名称字符串（中间以逗号分隔） pi_required TRUE：必须输入值，FALSE：非必须输入值 回传值：None

用法：CALL cl_set_comp_required(\

函式名称：cl_set_comp_visible 程序名称：cl_set_comp_visible.4gl 用途：动态显现/隐藏画面上的组件

传入参数：ps_fields 字段名称字符串（中间以逗号分隔） pi_visible TRUE：显现，FALSE：隐藏 回传值：None

用法：CALL cl_set_comp_visible(\

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

用途：依照系统参数(aoos010)设定单据编号字段格式 传入参数：ps_field 字段名称 回传值：none

用法：CALL cl_set_docno_format(\

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

用途：依照系统参数(aoos010)设定单别字段格式 传入参数：ps_field 字段名称 回传值：none

用法：CALL cl_set_doctype_format (\

函式名称：cl_set_field_format 程序名称：cl_set_field_format.4gl 用途：设定组件的format(金额,日期)

传入参数：ps_fields STRING 字段名称字符串(中间以逗点分隔)

pi_format STRING 要设定的format 字符串 回传值：none

用法：CALL cl_set_field_format(\

函式名称：cl_set_field_pic 程序名称：cl_set_field_pic.4gl 用途：设定显示图片

传入参数：ps_confirm 确认码 ps_approve 核准码 ps_post 过帐码 ps_close 结案码 ps_void 作废码 ps_valid 有效码 回传值：none

用法：CALL cl_set_field_pic(g_oea.oeaconf,g_approve,\

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

用途：截取当前光标停留在画面上的字段位置 传入参数：ui_node 画面根节点组件 回传值：fld_name 画面名称 frm_name 字段名称

用法：CALL cl_set_focus_form(ui.Interface.getRootNode())

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

用途：动态显现/隐藏画面上的单头区块

传入参数：ps_comps 要显现/隐藏组件的字段名称字符串(中间以逗点分 隔)

ps_visible 是否显现(YES→显现,NO→隐藏,AUTO→自动判断) 回传值：none

用法：CALL cl_set_head_visible(\

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

用途：设定数值小数字数(可以四舍五入) 传入参数：ps_value STRING 传入数值 ps_digit INTEGER 小数位数 回传值：ls_value 回传数值

用法：CALL cl_set_num_value(23.12345,4) RETURNING ls_value

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

用途：专门用于OPENWINDOW 但没有FORM 的title 语言转换