TIPTOP内置函数 收藏

1.函式名称：cl_about 程序名称：cl_about.4gl 用途：程序信息 传入参数：none 回传值：none 用法：CALL cl_about()

2.函式名称：cl_anykey 程序名称：cl_anykey.4gl 用途：请按任何键继续 传入参数：p_sw Not used 回传值：none 用法：CALL cl_anykey()

3.函式名称：cl_autotime 程序名称：cl_autotime.4gl 用途：自动累加时间，累加级数1 传入参数：time1 累加起始时间 sw 累加类型H:小时M:分钟S:秒钟

lay 累加级数Default = 1 回传值：Time 时间 用法：CALL cl_autotime('09:30','H',1)

4.函式名称：cl_batch_proc 程序名称：cl_batch_proc.4gl 用途：动态产生批次数据处理画面 传入参数：ps_headers (Table 的Header 字符串，中间以逗号分隔) 回传值：none 用法：LET ls_headers = \ CALL cl_batch_proc(ls_headers)

5.函式名称：cl_cal

程序名称：cl_cal.4gl 用途：传入当前日期，要增加的月份及天数取得计算过后的日期 传入参数：p_date 日期 p_month 月份 p_day 日

回传值：l_year,l_month,l_day 用法：LET l_date=cl_cal(p_date,p_mm,p_dd)

6.函式名称：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

(\

7.函式名称：cl_chg_win_title 程序名称：cl_chg_win_title.4gl 用途： 转换程序Title 显示 传入参数：ps_str 显示字符串 回传值：none

用法：CALL cl_chg_win_title(“用户参数设定作业”)

8.函式名称：cl_chk_act_auth 程序名称：cl_chk_act_auth.4gl

用途： 检查ACTION 的权限［检查前务必指定g_action_choice 值］ 传入参数：none

回传值：1 FOR TRUE 是 0 FOR FALSE 否

用法：LET g_action_choice = “insert” IF cl_chk_act_auth() THEN

9.函式名称：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.pmw01[5,10]) THEN

10.函式名称：cl_chk_str_correct 程序名称：cl_chk_data_continue.4gl 用途：检查字符串是否符合0~9,a~z 传入参数：ps_source STRING 来源资料

ps_count SMALLINT 检查几码，如果未传几码，则会以 来源字符串长度当作ps_count li_result SMALLINT 回传结果 回传值：1 FOR TRUE 是 0 FOR FALSE 否

用法：IF NOT cl_chk_data_continue(g_pmw.pmw01[1,3]) THEN

11.函式名称：cl_chkym 程序名称：cl_chkym.4gl

用途：检查文字型态变量是否为年月型态 传入参数：p_str CHAR(6) 文字型态变量 回传值：1 FOR TRUE 是 0 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(\

函式名称：cl_open_doc 程序名称：cl_client_app.4gl 用途：开启档案

传入参数：ps_doc STRING 档案位置 回传值：1 FOR TRUE 是 0 FOR FALSE 否

用法：CALL cl_open_doc(\

函式名称：cl_open_prog 程序名称：cl_client_app.4gl

用途：藉由指定的程序开启档案 传入参数：ps_prog STRING 程序工具 ps_arg STRING 档案位置 回传值：1 FOR TRUE 是 0 FOR FALSE 否

用法：CALL cl_open_prog(\

函式名称：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 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

用法：CALL cl_cmdrun('axmq450')

函式名称：cl_cmdrun_wait 程序名称：

用途：执行UNIX 指令，需等待此指令结束后才可继续原程序的执行 传入参数：ps_cmd 程序代码或UNIX 执行指令 回传值：none

用法：LET l_cmd=\ CALL cl_cmdrun_wait(l_cmd)

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

用途：显示异动更新成功讯息

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

用法：CALL cl_cmmsg(1)

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

用途：根据MESSAGE CODE 取出正确讯息，询问 ［配合发票的使用，本作业允许用户不输入数据］ 传入参数：p_row,p_col 无作用 p_msgcode

回传值：1 FOR TRUE 是 0 FOR FALSE 否

用法：IF cl_conf(0,0,p_msgcode) THEN

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

用途：依照讯息代码将数据显示在画面上，询问＂是否?″ 传入参数：ps_msg 讯息代码或讯息字符串 回传值：1 FOR TRUE 是 0 FOR FALSE 否

用法：IF (cl_confirm(\

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

用途：询问\是否继续执行本作业(Y/N)：\ 传入参数：p_row,p_col 无作用 回传值：1 FOR TRUE 是 0 FOR FALSE 否

用法：IF cl_cont(0,0) THEN