TIPTOP、T100系统程序的内置函数使用详解

函式名称：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 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
用途：传入当前日期，要增加的月份及天数取得计算过后的日期
传入参数：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”,“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 值］
传入参数：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.pmw01[5,10]) THEN

函式名称：cl_chk_str_correct
程序名称：cl_chk_data_continue.4gl
用途：检查字符串是否符合0_9,az
传入参数：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

函式名称：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(“http://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 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 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=“axmp800 '”,g_oea.oea01,"’ ‘",g_oea.oea905,"’ "
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(“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_4sm
程序名称：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_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
用途：询问&