TIPTOP内置函数

1、TIPTOP内置函数函式名称：cl_about程序名称：cl_about.4gl用途：程序信息传入参数：none回传值：none用法： CALL cl_about()函式名称：cl_anykey程序名称：cl_anykey.4gl用途：请按任何键继续传入参数：p_sw Not used回传值：none用法： CALL cl_anykey()函式名称：cl_autotime程序名称：cl_autotime.4gl用途：自动累加时间，累加级数为1传入参数：time1 累加起始时间sw 累加类型H:小时 M: 分钟S:秒钟lay 累加级数Default = 1回传值： Time 时间用法： CALL

2、 cl_autotime('09:30','H',1)函式名称：cl_batch_proc程序名称：cl_batch_proc.4gl用途：动态产生批次数据处理画面传入参数：ps_headers (Table 的Header 字符串，中间以逗号分隔)回传值：none用法： LET ls_headers = "img01,img02,img03,img04,imk09"CALL cl_batch_proc(ls_headers)函式名称：cl_cal程序名称：cl_cal.4gl用途：传入当前日期

3、，要增加的月份及天数取得计算过后的日期传入参数：p_date 日期p_month 月份p_day 日回传值：l_year,l_month,l_day用法： LET l_date=cl_cal(p_date,p_mm,p_dd)函式名称：cl_chg_comp_att程序名称：cl_chg_comp_att.4gl用途：更动原有对象的attribute传入参数：ps_field STRING欲更动字段名称ps_atts STRING字段type 属性ps_values STRING字段type 属性值回传值：none用法： CALL cl_chg_comp_att("ima01

4、","NOENTRY|ITEMS","1|(1,2,3),(red,b lue,green)")函式名称：cl_chg_win_title程序名称：cl_chg_win_title.4gl用途： 转换程序Title 显示传入参数：ps_str 显示字符串回传值：none用法：CALL cl_chg_win_title“用户参数设定作业”()函式名称：cl_chk_act_auth程序名称：cl_chk_act_auth.4gl用途： 检查 ACTION 的权限检查前务必指定g_action_choice

5、值传入参数：none回传值：1 FOR TRUE是0 FOR FALSE否用法：LET g_action_choice =“ insert”IF cl_chk_act_auth() THEN函式名称：cl_chk_data_continue程序名称：cl_chk_data_continue.4gl用途： 检查资料是否连续传入参数：ps_source STRING来源资料回传值：1 FOR TRUE是0 FOR FALSE否用法： IF NOT cl_chk_data_continue(g_pmw.pmw015,10) THEN函式名称：cl_chk_str_correct程序名称：cl_chk

6、_data_continue.4gl用途：检查字符串是否符合09,az传入参数：ps_source STRING来源资料ps_count SMALLINT检查几码，如果未传几码，则会以来源字符串长度当作ps_countli_result SMALLINT 回传结果回传值：1 FOR TRUE是0 FOR FALSE否用法： IF NOT cl_chk_data_continue(g_pmw.pmw011,3) THEN函式名称：cl_chkym程序名称：cl_chkym.4gl用途：检查文字型态变量是否为年月型态传入参数：p_str CHAR(6) 文字型态变量回传值：1 FOR TRUE是0

7、 FOR FALSE否用法： IF cl_chkym(p_str)函式名称：cl_choice程序名称：cl_choice.4gl用途：让用户输入选择传入参数：l_msg CHAR(100)窗口上显示的说明文字回传值：l_choice用法： CALL cl_choice(l_msg) RETURNING g_choice函式名称：cl_open_url程序名称：cl_client_app.4gl用途：藉由explorer 开启传入的网址传入参数：ps_url STRING网址回传值：1 FOR TRUE是0 FOR FALSE否用法：CALL cl_open_url("htt

8、p:/www")函式名称：cl_open_doc程序名称：cl_client_app.4gl用途：开启档案传入参数：ps_doc STRING档案位置回传值：1 FOR TRUE是0 FOR FALSE否用法：CALL cl_open_doc("C:/tiptop/tiptop.txt")函式名称：cl_open_prog程序名称：cl_client_app.4gl用途：藉由指定的程序开启档案传入参数：ps_prog STRING程序工具ps_arg STRING档案位置回传值：1 FOR TRUE是0 FOR FALSE否用法：CALL

9、cl_open_prog("C:/Editor.exe","C:/tiptop/tiptop.txt")函式名称：cl_close程序名称：cl_close.4gl用途：询问" 此笔资料是否确定结案(Y/N)："或 "此笔资料是否取消结案(Y/N)： "传入参数：p_row,p_col 无作用，传入0,0 即可p_old_acticode 传入 Y 代表讯息为取消结案；N 代表确定结案回传值：1 FOR TRUE是0 FOR FALSE否用法： IF

10、cl_close(0,0”, Y” )函式名称：cl_cmdask程序名称：cl_cmdask.4gl用途：询问用户欲执行的程序，并执行之传入参数：none回传值：none用法： CALL cl_cmdask()函式名称：cl_cmdat程序名称：cl_cmdat.4gl用途：指定时间延后执行UNIX 指令传入参数：p_time 指定时间p_cmd UNIX 指令回传值：none用法： CALL cl_cmdat(p_code,p_time,p_cmd)函式名称：cl_cmdrun程序名称：用途：执行UNIX 指令传入参数：ps_cmd 程序代码或UNIX 执行指令回传值：none用法： CA

11、LL cl_cmdrun('axmq450')函式名称：cl_cmdrun_wait程序名称：用途：执行UNIX 指令，需等待此指令结束后才可继续原程序的执行传入参数：ps_cmd 程序代码或UNIX 执行指令回传值：none用 法 ： LET l_cmd="axmp800 '",g_oea.oea01,"''",g_oea.oea905,"' "CALL cl_cmdrun_wait(l_c

12、md)函式名称：cl_cmmsg程序名称：cl_cmmsg.4gl用途：显示异动更新成功讯息传入参数：p_code 讯息种类1 及 4代表异动更新完成2 及 3 代表此张单据异动更新完成回传值：none用法： CALL cl_cmmsg(1)函式名称：cl_conf3程序名称：cl_conf3.4gl用途：根据MESSAGECOD取出正确讯息，询问E配合发票的使用，本作业允许用户不输入数据传入参数：p_row,p_col无作用p_msgcode回传值：1 FOR TRUE是0 FOR FALSE否用法： IF cl_conf(0,0,p_msgcode) THEN函式名称：cl_confirm

13、程序名称：cl_confirm.4gl用途：依照讯息代码将数据显示在画面上，询问是否传入参数：ps_msg 讯息代码或讯息字符串回传值：1 FOR TRUE是0 FOR FALSE否用法： IF (cl_confirm("agl-021") THEN函式名称：cl_cont程序名称：cl_cont.4gl用途：询问" 是否继续执行本作业(Y/N)： "传入参数：p_row,p_col 无作用回传值：1 FOR TRUE是0 FOR FALSE否用法： IF cl_cont(0,0) THEN函式名称：cl_create_4

14、sm程序名称：cl_create_4sm.4gl用途：产生udm_tree 所需要的StartMenu档案传入参数：pc_menu_root StartMenu的根节点pi_rebuild 是否需要重新覆盖已存在的4sm 档案回传值：none用法： CALL cl_create_4sm("m01", TRUE)函式名称：cl_create_qry程序名称：cl_create_qry.4gl用途：动态产生窗口以供查询，并回传查询结果传入参数：none回传值：ms_ret1,ms_ret2,ms_ret3 回传数目依照对应的回传字段数用法： CALL cl_cr

15、eate_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_day

16、s(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程

17、序名称：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_

18、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("insert")函式名称：cl_digcut程序名称：cl_digcut.4gl用途：将数值依指定的小数位数做四舍五入传入参数：p_value 数值p_digit

19、允许小数位数回传值：p_value 四舍五入后的数值用法： LET a = cl_digcut(p_value,p_digit)函式名称：cl_doc程序名称：cl_doc.4gl用途：相关档案维护传入参数：none回传值：none用法： LET g_doc.column1 = "oea01"LET g_doc.value1 = g_oea.oea01 CALL cl_doc()函式名称：cl_dynamic_locale程序名称：cl_dynamic_locale.4gl用途：动态转换画面语言别传入参数：none回传值：none用法： CALL cl_dy

20、namic_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用途：显示错误讯息传入

21、参数：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 ：不开启讯息窗口，只

22、在状态列显示> 1 ：停留秒数1 ：开启讯息窗口等待用户确定回传值：none用法： CALL cl_err_msg("Warning","1000",NULL,1)函式名称：cl_err3程序名称：用途：显示数据库处理后的错误讯息(insert/update/delete/select )传入参数：Type 讯息的类型(ins、 del、 upd、 sel)Tables 处理的 table 代码Key1 Key1 的 valueKey2 Key2 的 valueDescription 额外讯息(讯息代码/讯息

23、字符串)Action 讯息 Action 代码(未来延伸功能，可不传)Mark 按下更多按键时显示的讯息Open 是否开窗(0/1 )回传值：none用法：CALLcl_err3("ins","azb_file",g_azb01,"",SQLCA.sqlcod e,"","",0)函式名称：cl_err_msg_log程序名称：cl_err_msg.4gl用途：纪录错误讯息传入参数：none回传值：none用法： W

24、HENEVER ERROR CALL cl_err_msg_log函式名称：cl_exp程序名称：cl_exp.4gl用途：询问" 此笔资料是否确定无效(Y/N)： "或 "此笔资料是否恢复有效(Y/N)： "(for 单文件建文件无效功能)传入参数：p_row,p_colp_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_e

25、xcel.4gl用途：传入参数：n 画面的根节点组件ui.Interface.getRootNode()t、 t1 、 t2 单身的数据若有两个以上的单身才会用到t1 、 t2回传值：none用法： CALL cl_export_to_excel(ui.Interface.getRootNode(),base.TypeInfo.create(g_pmx),'','')函式名称：cl_facfor程序名称：cl_facfor.4gl用途：将INPUT DECLIAM(16,8)数值转为9 位字符的格式若值为 12345678 , 将

26、传回 '12345678'若值为1234567 , 将传回'1234567.0'若值为 123456 , 将传回 '123456.00'若值为12345.67 , 将传回'12345.670'若值为1.234567 , 将传回'1.2345670'若值为.1234567 , 将传回'.12345670'传入参数：p_fac数值回传值：l_str FORMAT后的数值，以CHAR 型态RETURN用法： L

27、ET a = cl_facfor(p_fac); PRINT aPRINT cl_facfor(p_fac)函式名称：cl_field_format程序名称：cl_field_format.4gl用途：转换p_per 内自由格式设定的format传入参数：ps_currency CHAR(04)当前无用处pc_frm_name CHAR(10) 画面档名回传值：none用法： CALL cl_field_format(g_aza.aza17, mc_frm_name)函式名称：cl_fld_doc程序名称：cl_fld_doc.4gl用途：字段的相关档案维护传入参数：ps_field STRI

28、NG字段名称回传值：url 档案的 URL用法： CALL cl_fld_doc("ima01")函式名称：cl_fldhelp程序名称：cl_fldhelp.4gl用途：显示字段说明传入参数：g_frm_name 画面档名称g_fld_name 字段名称g_lang 语言别回传值：none用法： CALL cl_fldhelp(g_frm_name,g_fld_name,g_lang)函式名称：cl_flow_notify程序名称：cl_flow_notify.4gl用途：透过JavaMail 传送工作流程通知传入参数：ps_doc_no STRING单据

29、编号pc_state CHAR(1)功能类别(I.新增U.更改D.删除Y.确认S.过帐V.作废)回传值：none用法： CALL cl_flow_notify(g_pmw.pmw01,'I')函式名称：cl_forupd_sql程序名称：cl_forupd_sql.4gl用途：判断SELECT . FOR UPDA是否加上其它语法TE(byDatabase)传入参数：ps_forupd_sql STRING原传入SQL 字符串回传值：ps_forupd_sql STRING调整过的SQL 字符串用法： CALL cl_forupd_sql(ps_forupd_s

30、ql)函式名称：cl_get_column_info程序名称：cl_get_column_info.4gl用途：取得字段型态及长度传入参数：p_tabname TABLE名称p_colname 字段名称回传值：字段型态not null FOR TRU：有回传值：Enull FOR FALS：否 E长度 not null FOR TRU：有回传值：Enull FOR FALS：否 E用法： CALL cl_get_column_info(p_tabname,p_colname)RETURNING l_coldatatype,l_collength函式名称：cl_get_feldname程序名称：

31、cl_get_feldname.4gl用途：依字段代码取出系统字段名称设定维护作业(p_feldname)内的字段名称传入参数：p_gaq01 字段代码p_lang 语言别回传值：l_gaq03 字段说明用法： LET g_msg = cl_get_feldname(p_gaq01,p_lang)称： cl_get_progdesc程序名称：cl_get_progdesc.4gl用途：取得程序代码说明(若有客制码='Y'的优先回传)传入参数：p_gaz01 程序代码p_lang 语言别回传值：l_gaz03 程序代码说明用法： LET g_msg = cl_ge

32、t_progdesc(g_prog,p_lang)函式名称：cl_getmsg程序名称：cl_getmsg.4gl用途：依讯息代码取出系统错误讯息文件(ze_file)内的错误讯息传入参数：p_code 讯息代码p_lang 语言别回传值：l_msg 错误讯息.用法： LET g_msg = cl_getmsg(p_code,p_lang)函式名称：cl_insert_top_menu程序名称：cl_insert_top_menu.4gl用途：插入TopMenu传入参数：pc_prog CHAR(10)程序代号回传值：none用法： CALL cl_insert_top_menu(NULL)函

33、式名称：cl_itemname_by_lang程序名称：cl_itemname_by_lang.4gl用途：多语言记录功能查询传入参数：l_gbc01 档案代码(Table ID) "zx_file"l_gbc02 字段代码"zx02"l_gbc03 KEY值序列，多组时以，隔开"001"l_gbc04 语言别 g_langl_gbc05 数据多语言名称" 中文名称"回传值：lc_gbc05 对应语言别的名称用法：CALLcl_itemname_by_

34、lang("ima_file","ima02",g_ima.ima01CLIPPED,g_lang,g_ima.ima02) RETURNING g_ima.ima02函式名称：cl_load_act_list程序名称：cl_load_act_list.4gl用途：载入ActionList 程序所属的4ad， ex. axmt410.4ad传入参数：ps_prog STRING程序代号回传值：none用法： CALL cl_load_act_list(NULL)函式名称：cl_load_act_sys程序名称：cl_loa

35、d_act_sys.4gl用途：加载ActionList 系统标准的4ad， tiptop.4ad传入参数：ps_prog STRING程序代号回传值：none用法： CALL cl_load_act_sys(NULL)函式名称：cl_load_action_view程序名称：cl_load_action_view.4gl用途：载入TopMenu 与 ToolBar传入参数：none回传值：none用法： CALL cl_load_action_view()函式名称：cl_load_style_list程序名称：cl_load_style_list.4gl用途：载入StyleList传入参数：

36、ps_prog STRING程序代号回传值：none用法： CALL cl_load_style_list(NULL)函式名称：cl_msgany程序名称：cl_msgany.4gl用途：显示讯息，然后按任何键继续传入参数：p_row,p_col 无作用p_msg 讯息代码回传值：none用法： CALL cl_prompt(0,0,l_msg)函式名称：cl_navigator_setting程序名称：cl_navigator_setting.4gl用途：设定ToolBar 上浏览上下笔数据的按钮状态传入参数：pi_curr_index 当前 Cursor 索引值pi_row_count 资

37、料笔数回传值：none用法： CALL cl_navigator_setting( g_curs_index, g_row_count )函式名称：cl_null程序名称：cl_null.4gl用途：检查字符串是否为Null 或是空字符串传入参数：ps_source(来源字符串)回传值：1 FOR TRUE是0 FOR FALSE否用法： IF NOT cl_null(g_pmxl_ac.pmx02) THEN函式名称：cl_numchk程序名称：cl_numchk.4gl用途：检查'p_str' 是否为数值型态传入参数： p_str 欲检查字符串p_len 检

38、查的长度回传值：1 FOR TRUE是0 FOR FALSE否用法： IF cl_numchk(p_str,p_len) THEN函式名称：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用途：将数值不须的小数位数不打印出传入参

39、数：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:打印条件选择回传值：non

40、e用法： 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&

41、amp;#39;,'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_prog

42、ressing程序名称：cl_progress_bar.4gl用途：显示当前处理进度传入参数：ps_log 正在处理的作业说明回传值：none用法： CALL cl_progressing("Create : ")函式名称：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用途：询问用户以何种方式处理

43、报表文件传入参数：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_s

44、elect()函式名称：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_s

45、ave()函式名称：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_re

46、pcon.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

47、_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("abcdefg", &

48、amp;quot;cde", "WXYZ") RETURNING 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(&quo

49、t;abcdefg", 3, 5, "WXYZ") RETURNING ls_new函式名称：cl_say程序名称：cl_say.4gl用途：将金额类数值转换成SAY TOTAL传入参数：p_amt (Decimalvalue 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)RETURNIN

50、G l_say1,l_say2函式名称：cl_set_act_visible程序名称：cl_set_act_visible.4gl用途：动态显现/隐藏画面上的Action传入参数：ps_act_names 要显示或隐藏的字段名称字符串(以逗号分隔)pi_visible TRUE：显现，FALS：隐藏E回传值：none用法： CALL cl_set_act_visible("accept,cancel", FALSE)函式名称：cl_set_action_active程序名称：cl_set_action_active.4gl用途：动态开启或关闭画面上的Acti

51、on不隐藏只是不可使用传入参数：ps_actions 要显示或隐藏的字段名称字符串（以逗号分隔）pi_active TRUE： active， FALS：E deactive回传值：none用法： CALL cl_set_action_active（"act1,act2", TRUE）函式名称：cl_set_check_text程序名称：cl_set_check_text.4gl用途：设定CHECKBOX的显示文字传入参数：ps_field STRING要设定的字段名称ps_text STRING要设定的TEXT回传值：none用法： CALL cl_set

52、_check_text（"aza04", &quot新的文字卷标;"）函式名称：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（"oea08", &qu

53、ot;1,2", "Local Order,ExportOrder"）函式名称：cl_set_combo_lang程序名称：cl_set_combo_lang.4gl用途：动态设定有选择语言别的ComboBox 语言选项传入参数：ps_field_name ComboBox 所对应的字段名称回传值：None用法： CALL cl_set_combo_lang（"oea08"）函式名称：cl_set_combo_module程序名称：cl_set_combo_module.4gl用途：动态设定有选择模块数据

54、的ComboBox 选项传入参数：ps_field_name ComboBox 所对应的字段名称pi_type pi_type = 1 时输出大写数据回传值：None用法： CALL cl_set_combo_module（"oea08",0）函式名称：cl_set_comments程序名称：cl_set_comments.4gl用途：设定字段的comments传入参数：ps_fields 欲转换哪个字段（以字符串代表）ps_att_value 欲转换的字符串回传值：none用法：CALLcl_set_comments("oea01,oea

55、02","string1|string2")函式名称：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("oma16” ,” Order Number” )函式名称：cl_set_comp_entry程序名称：cl_set_comp_entry.4gl用途：动态设定组件是否可输入传入参数：ps_fields 字段名称字符串(中间以逗号分隔)pi_entry TRUE：可输入，FALSE：不可输入回传值：None用法： CALL cl_set_comp_entry("m01,m03,m07", FALSE)函式名称：cl_set_comp_font_