Oracle checkdig函数,[分享]TIPTOP内置函数 经典收藏

函式名称：cl_get_progdesc

程序名称：cl_get_progdesc.4gl

用途：取得程序代码说明(若有客制码='Y'的优先回传)

传入参数：p_gaz01 程序代码

p_lang 语言别

回传值：l_gaz03 程序代码说明

用法：LET g_msg = cl_get_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)

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

l_gbc05 数据多语言名称"中文名称"

回传值：lc_gbc05 对应语言别的名称

用法：CALL cl_itemname_by_lang("ima_file","ima02",g_ima.ima01

CLIPPED,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_load_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

传入参数：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 资料笔数

回传值：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_pmx[l_ac].pmx02) THEN

函式名称：cl_numchk

程序名称：cl_numchk.4gl

用途：检查'p_str' 是否为数值型态

传入参数：p_str 欲检查字符串

p_len 检查的长度

回传值：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

用途：将数值不须的小数位数不打印出

传入参数：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("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

用途：询问用户以何种方式处理报表文件

传入参数：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("abcdefg", "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("abcdefg", 3, 5, "WXYZ")

RETURNING ls_new

函式名称：cl_say

程序名称：cl_say.4gl

用途：将金额类数值转换成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("accept,cancel", FALSE)

函式名称：cl_set_action_active

程序名称：cl_set_action_active.4gl

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

传入参数：ps_actions 要显示或隐藏的字段名称字符串(以逗号分隔)

pi_active TRUE：active，FALSE：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_check_text("aza04", "新的文字卷标")

函式名称：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", "1,2", "Local Order,Export

Order")

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

用途：动态设定有选择模块数据的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

用法：CALL cl_set_comments("oea01,oea02","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_color

程序名称：cl_set_comp_font_color.4gl

用途：设定组件字型颜色

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

ps_color 要设定的颜色(black,blue,cyan,...)

回传值：None

用法：CALL cl_set_comp_font_color("oea01,oea04", "red")

函式名称：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("oma16”,”Order Number”)

函式名称：cl_set_comp_required

程序名称：cl_set_comp_required.4gl

用途：动态设定字段是否必须输入值

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

pi_required TRUE：必须输入值，FALSE：非必须输入值

回传值：None

用法：CALL cl_set_comp_required("m01,m03,m07", TRUE)

函式名称：cl_set_comp_visible

程序名称：cl_set_comp_visible.4gl

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

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

pi_visible TRUE：显现，FALSE：隐藏

回传值：None

用法：CALL cl_set_comp_visible("oea01,oea04", FALSE)

函式名称：cl_set_docno_format

程序名称：cl_set_docno_format.4gl

用途：依照系统参数(aoos010)设定单据编号字段格式

传入参数：ps_field 字段名称

回传值：none

用法：CALL cl_set_docno_format("pmw01")

函式名称：cl_set_doctype_format

程序名称：cl_set_doctype_format.4gl

用途：依照系统参数(aoos010)设定单别字段格式

传入参数：ps_field 字段名称

回传值：none

用法：CALL cl_set_doctype_format ("apyslip")

函式名称：cl_set_field_format

程序名称：cl_set_field_format.4gl

用途：设定组件的format(金额,日期)

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

pi_format STRING 要设定的format 字符串

回传值：none

用法：CALL cl_set_field_format("oea01,oea04", "###,###.##")