【正文】 0 FOR FALSE 否 用法： IF cl_delb(0,0) THEN 函式名稱： cl_delete 程序名稱： 用途：詢問(wèn)＂是否刪除此筆資料？″ 傳入?yún)?shù)： none 回傳值： 1 FOR TRUE 是 0 FOR FALSE 否 用法： IF (cl_delete()) THEN 函式名稱： cl_delh 程序名稱： 用途：詢問(wèn) 是否確定刪除此筆單頭及所有單身數(shù)據(jù) (Y/N)： (for 單文件建文件程序單頭刪除功能 ) 傳入?yún)?shù)： p_row,p_col 回傳值： 1 FOR TRUE 是 0 FOR FALSE 否 用法： if cl_delh(0,0) 函式名稱： cl_delh1 程序名稱： 用途：詢問(wèn) 是否確定取消此筆單頭及所有單身數(shù)據(jù) (Y/N)： (for 單文件建文件程序單頭取消功能 ) 傳入?yún)?shù)： p_row,p_col 回傳值： 1 FOR TRUE 是 0 FOR FALSE 否 用法： if cl_delh1(0,0) 函式名稱： cl_detail_input_auth 程序名稱： 用途：檢查是否允許在單身中有 insert 或 delete 的權(quán)限 傳入?yún)?shù)： ps_act_type STRING 要檢查的字符串（ insert/delete） 回傳值： 1 FOR TRUE 是 0 FOR FALSE 否 用法： CALL cl_detail_input_auth(insert) 函式名稱： cl_digcut 程序名稱： 用途：將數(shù)值依指定的小數(shù)位數(shù)做四舍五入 傳入?yún)?shù)： p_value 數(shù)值 p_digit 允許小數(shù)位數(shù) 回傳值： p_value 四舍五入后的數(shù)值 用法： LET a = cl_digcut(p_value,p_digit) 函式名稱： cl_doc 程序名稱： 用途：相關(guān)檔案維護(hù) 傳入?yún)?shù)： none 回傳值： none 用法： LET = oea01 LET = CALL cl_doc() 函式名稱： cl_dynamic_locale 程序名稱： 用途：動(dòng)態(tài)轉(zhuǎn)換畫面語(yǔ)言別 傳入?yún)?數(shù)： none 回傳值： none 用法： CALL cl_dynamic_locale() 函式名稱： cl_end 程序名 稱： 用途：顯示 作業(yè)結(jié)束，請(qǐng)按任何鍵繼續(xù)： 傳入?yún)?shù)： p_row,p_col 無(wú)作用 回傳值： none 用法： CALL cl_end(0,0) 函式名稱： cl_end2 程序名稱： 用途：顯示執(zhí)行結(jié)果，并詢問(wèn)是否要繼續(xù)作業(yè) 傳入?yún)?shù)： p_code （ 1 代表成功， 2 代表失?。? 回傳值： 1 FOR TRUE 是 0 FOR FALSE 否 用法： CALL cl_end2(1) RETURNING l_flag 函式名稱： cl_err 程序名稱： 用途：顯示錯(cuò)誤訊息 傳入?yún)?shù)： p_msg 錯(cuò)誤訊息的附加說(shuō)明 err_code 錯(cuò)誤訊息代碼 p_n 顯示錯(cuò)誤訊息后的停留秒數(shù)或是等用戶按下確定 0 ：不開啟訊息窗口，只在狀態(tài)列顯示 1 ：停留秒數(shù) 1 ：開啟訊息窗口等待用戶確定 回傳值： none 用法： CALL cl_err(p_msg,err_code,p_n) 函式名稱： cl_err_msg 程序名稱： 用途：顯示錯(cuò)誤訊息 傳入?yún)?shù)： ps_title 錯(cuò)誤訊息的附加說(shuō)明 ps_err_code 錯(cuò)誤訊息代碼 ps_replace_arg 欲替換的訊息字符串，以” | ”分隔字符串 pi_idle_sec idle 秒數(shù) 0 ：不開啟訊息窗口，只在狀態(tài)列顯示 1 ：停留秒數(shù) 1 ：開啟訊息窗口等待用戶確定 回傳值： none 用法： CALL cl_err_msg(Warning,1000,NULL,1) 函式名稱： cl_err3 程序名稱： 用途：顯示數(shù)據(jù)庫(kù)處理后的錯(cuò)誤 訊息（ insert/update/delete/select） 傳入?yún)?shù)： Type 訊息的類型（ ins、 del、 upd、 sel） Tables 處理的 table 代碼 Key1 Key1 的 value Key2 Key2 的 value Description 額外訊息（訊息代碼 /訊息字符串） Action 訊息 Action 代碼（未來(lái)延伸功能，可不傳） Mark 按下＂更多″按鍵時(shí)顯示的訊息 Open 是否開窗（ 0/1） 回傳值： none 用法： CALL cl_err3(ins,azb_file,g_azb01,,0) 函式名稱： cl_err_msg_log 程序名稱： 用途：紀(jì)錄錯(cuò)誤訊息 傳入?yún)?shù)： none 回傳值： none 用法： WHENEVER ERROR CALL cl_err_msg_log 函式名稱： cl_exp 程序名稱： 用途：詢問(wèn) 此筆資料是否確定無(wú)效 (Y/N)： 或 此筆資料是否恢復(fù)有效 (Y/N)： (for 單文件建文件無(wú)效功能 ) 傳入?yún)?shù)： p_row,p_col p_old_acticode 有效碼［ Y/N］ 回傳值： 1 FOR TRUE 是 0 FOR FALSE 否 用法： IF cl_exp(0,0,) THEN 函式名稱： cl_export_to_excel 程序名稱： 用途： 傳入?yún)?shù)： n 畫面的根節(jié)點(diǎn)組件［ ()］ t、 t t2 單身的數(shù)據(jù)［若有兩個(gè)以上的單身才會(huì)用到 t t2 ］ 回傳值： none 用法： CALL cl_export_to_excel ((),(g_pmx),39。39。,39。39。) 函式名稱： cl_facfor 程序名稱： 用途：將 INPUT DECLIAM(16,8) 數(shù)值轉(zhuǎn)為 9 位字符的格式 若值為 12345678 , 將傳回 39。^1234567839。 若值為 1234567 , 將傳回 39。39。 若值為 123456 , 將傳回 39。39。 若值為 , 將傳回 39。39。 若值為 , 將傳回 39。39。 若值為 .1234567 , 將傳回 39。.1234567039。 傳入?yún)?shù)： p_fac 數(shù)值 回傳值： l_str FORMAT 后的數(shù)值，以 CHAR 型態(tài) RETURN 用法： LET a = cl_facfor(p_fac)。 PRINT a PRINT cl_facfor(p_fac) 函式名稱： cl_field_format 程序名稱： 用途：轉(zhuǎn)換 p_per 內(nèi)自由格式設(shè)定的 format 傳入?yún)?shù)： ps_currency CHAR(04) ［當(dāng)前無(wú)用處］ pc_frm_name CHAR(10) 畫面檔名 回傳值： none 用法： CALL cl_field_format(, mc_frm_name) 函式名稱： cl_fld_doc 程序名稱： 用途：字段的相關(guān)檔案維護(hù) 傳入?yún)?shù)： ps_field STRING 字段名稱 回傳值： url 檔案的 URL 用法： CALL cl_fld_doc(ima01) 函式名稱： cl_fldhelp 程 序名稱： 用途：顯示字段說(shuō)明 傳入?yún)?shù)： g_frm_name 畫面檔名稱 g_fld_name 字段名稱 g_lang 語(yǔ)言別 回傳值： none 用法： CALL cl_fldhelp(g_frm_name,g_fld_name,g_lang) 函式名稱： cl_flow_notify 程序名稱： 用途：透過(guò) JavaMail 傳送工作流程通知 傳入?yún)?shù)： ps_doc_no STRING 單據(jù)編號(hào) pc_state CHAR(1) 功能類別 ( ) 回傳值： none 用法： CALL cl_flow_notify(,39。I39。) 函式名稱： cl_forupd_sql 程序名稱： 用途：判斷 SELECT ... FOR UPDATE 是否加上其它語(yǔ)法 (by Database) 傳入?yún)?shù)： ps_forupd_sql STRING 原傳入 SQL 字符串 回傳值： ps_forupd_sql STRING 調(diào)整過(guò)的 SQL 字符串 用法： CALL cl_forupd_sql(ps_forupd_sql) 函式名稱： cl_get_column_info 程序名稱： 用途：取得字段型態(tài)及長(zhǎng)度 傳入?yún)?shù)： p_tabname TABLE 名稱 p_colname 字段名稱 回傳值：字段型態(tài) not null FOR TRUE：有回傳值： null FOR FALSE：否 長(zhǎng)度 not null FOR TRUE：有回傳值： null FOR FALSE：否 用法： CALL cl_get_column_info(p_tabname,p_colname) RETURNING l_coldatatype,l_collength 函式名稱： cl_get_feldname 程序名稱： 用途：依字段代碼取出系統(tǒng)字段名稱設(shè)定維護(hù)作業(yè) (p_feldname)內(nèi)的 字段名稱 傳入?yún)?shù)： p_gaq01 字段代碼 p_lang 語(yǔ)言別 回傳值： l_gaq03 字段說(shuō)明 用法： LET g_msg = cl_get_feldname(p_gaq01,p_lang) 函式名稱： cl_get_progdesc 程序名稱： 用途：取得程序代碼說(shuō)明 (若有客制碼 =39。Y39。的優(yōu)先回傳 ) 傳入?yún)?shù)： p_gaz01 程序代碼 p_lang 語(yǔ)言別 回傳值： l_gaz03 程序代碼說(shuō)明 用法： LET g_msg = cl_get_progdesc(g_prog,p_lang) 函式名稱： cl_getmsg 程序名稱： 用途：依訊息代碼取出系統(tǒng)錯(cuò)誤訊息文件 (ze_file)內(nèi)的錯(cuò)誤訊息 傳入?yún)?shù)： p_code 訊息代碼 p_lang 語(yǔ)言別 回傳值： l_msg 錯(cuò)誤訊息 . 用 法： LET g_msg = cl_getmsg(p_code,p_lang) 函式名稱： cl_insert_top_menu 程序名稱： 用途：插入 TopMenu 傳入?yún)?shù)