【正文】 239。09:4039。aom202039。139。09:3039。aom202039。139。 39。z39。y39。x39。[xyz]39。q39。p_str39。Y39。I39。 傳入?yún)?shù)： p_fac 數(shù)值 回傳值： l_str FORMAT 后的數(shù)值，以 CHAR 型態(tài) RETURN 用法： LET a = cl_facfor(p_fac)。 若值為 .1234567 , 將傳回 39。 若值為 , 將傳回 39。 若值為 , 將傳回 39。 若值為 123456 , 將傳回 39。 若值為 1234567 , 將傳回 39。) 函式名稱(chēng)： cl_facfor 程序名稱(chēng)： 用途：將 INPUT DECLIAM(16,8) 數(shù)值轉(zhuǎn)為 9 位字符的格式 若值為 12345678 , 將傳回 39。,39。 CALL cl_cmdrun_wait(l_cmd) 函式名稱(chēng)： cl_cmmsg 程序名稱(chēng)： 用途：顯示異動(dòng)更新成功訊息 傳入?yún)?shù)： p_code 訊息種類(lèi) 1 及 4 代表異動(dòng)更新完成 2 及 3 代表此張單據(jù)異動(dòng)更新完成 回傳值： none 用法： CALL cl_cmmsg(1) 函式名稱(chēng)： cl_conf3 程序名稱(chēng)： 用途：根據(jù) MESSAGE CODE 取出正確訊息，詢(xún)問(wèn) ［配合發(fā)票的使用，本作業(yè)允許用戶(hù)不輸入數(shù)據(jù)］ 傳入?yún)?shù)： p_row,p_col 無(wú)作用 p_msgcode 回傳值： 1 FOR TRUE 是 0 FOR FALSE 否 用法： IF cl_conf(0,0,p_msgcode) THEN 函式名稱(chēng)： cl_confirm 程序名稱(chēng)： 用途：依照訊息代碼將數(shù)據(jù)顯示在畫(huà)面上，詢(xún)問(wèn)＂是否?″ 傳入?yún)?shù)： ps_msg 訊息代碼或訊息字符串 回傳值： 1 FOR TRUE 是 0 FOR FALSE 否 用法： IF (cl_confirm(agl021)) THEN 函式名稱(chēng)： cl_cont 程序名稱(chēng)： 用途：詢(xún)問(wèn) 是否繼續(xù)執(zhí)行本作業(yè) (Y/N)： 傳入?yún)?shù)： p_row,p_col 無(wú)作用 回傳值： 1 FOR TRUE 是 0 FOR FALSE 否 用法： IF cl_cont(0,0) THEN 函式名稱(chēng)： cl_create_4sm 程序名稱(chēng)： 用途：產(chǎn)生 udm_tree 所需要的 StartMenu 檔案 傳入?yún)?shù)： pc_menu_root StartMenu 的根節(jié)點(diǎn) pi_rebuild 是否需要重新覆蓋已存在的 4sm 檔案 回傳值： none 用法： CALL cl_create_4sm(m01, TRUE) 函式名稱(chēng)： cl_create_qry 程序名稱(chēng)： 用途：動(dòng)態(tài)產(chǎn)生窗口以供查詢(xún)，并回傳查詢(xún)結(jié)果 傳入?yún)?shù)： none 回傳值： ms_ret1,ms_ret2,ms_ret3 回傳數(shù)目依照對(duì)應(yīng)的回傳字段數(shù) 用法： CALL cl_create_qry() RETURNING 函式名稱(chēng)： cl_dynamic_qry 程序名稱(chēng)： 用途：自定義 /行業(yè)別字段動(dòng)態(tài)產(chǎn)生開(kāi)窗功能，并回傳查詢(xún)結(jié)果 傳入?yún)?shù)： none 回傳值： ms_ret1,ms_ret2,ms_ret3 回傳數(shù)目依照對(duì)應(yīng)的回傳字段數(shù) 用法： CALL cl_dynamic_qry() RETURNING 函式名稱(chēng)： cl_days 程序名稱(chēng)： 用途：取得該年月的天數(shù) 傳入?yún)?shù)： p_year 年份 p_month 月份 回傳值： l_days 天數(shù) 用法： let l_days=cl_days(p_yy,p_mm) 函式名稱(chēng)： cl_delb 程序名稱(chēng)： 用途：詢(xún)問(wèn) 是否確定取消此筆單身資料 (Y/N)： (for 單文件建文件程序單身取消功能 ON KEY F2) 傳入?yún)?shù)： p_row,p_col 回傳值： 1 FOR TRUE 是 0 FOR FALSE 否 用法： IF cl_delb(0,0) THEN 函式名稱(chēng)： cl_delete 程序名稱(chēng)： 用途：詢(xún)問(wèn)＂是否刪除此筆資料？″ 傳入?yún)?shù)： none 回傳值： 1 FOR TRUE 是 0 FOR FALSE 否 用法： IF (cl_delete()) THEN 函式名稱(chēng)： cl_delh 程序名稱(chēng)： 用途：詢(xún)問(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) 函式名稱(chēng)： cl_delh1 程序名稱(chēng)： 用途：詢(xún)問(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) 函式名稱(chēng)： cl_detail_input_auth 程序名稱(chēng)： 用途：檢查是否允許在單身中有 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) 函式名稱(chēng)： cl_digcut 程序名稱(chēng)： 用途：將數(shù)值依指定的小數(shù)位數(shù)做四舍五入 傳入?yún)?shù)： p_value 數(shù)值 p_digit 允許小數(shù)位數(shù) 回傳值： p_value 四舍五入后的數(shù)值 用法： LET a = cl_digcut(p_value,p_digit) 函式名稱(chēng)： cl_doc 程序名稱(chēng)： 用途：相關(guān)檔案維護(hù) 傳入?yún)?shù)： none 回傳值： none 用法： LET = oea01 LET = CALL cl_doc() 函式名稱(chēng)： cl_dynamic_locale 程序名稱(chēng)： 用途：動(dòng)態(tài)轉(zhuǎn)換畫(huà)面語(yǔ)言別 傳入?yún)?數(shù)： none 回傳值： none 用法： CALL cl_dynamic_locale() 函式名稱(chēng)： cl_end 程序名 稱(chēng)： 用途：顯示 作業(yè)結(jié)束，請(qǐng)按任何鍵繼續(xù)： 傳入?yún)?shù)： p_row,p_col 無(wú)作用 回傳值： none 用法： CALL cl_end(0,0) 函式名稱(chēng)： cl_end2 程序名稱(chēng)： 用途：顯示執(zhí)行結(jié)果，并詢(xún)問(wèn)是否要繼續(xù)作業(yè) 傳入?yún)?shù)： p_code （ 1 代表成功， 2 代表失?。? 回傳值： 1 FOR TRUE 是 0 FOR FALSE 否 用法： CALL cl_end2(1) RETURNING l_flag 函式名稱(chēng)： cl_err 程序名稱(chēng)： 用途：顯示錯(cuò)誤訊息 傳入?yún)?shù)： p_msg 錯(cuò)誤訊息的附加說(shuō)明 err_code 錯(cuò)誤訊息代碼 p_n 顯示錯(cuò)誤訊息后的停留秒數(shù)或是等用戶(hù)按下確定 0 ：不開(kāi)啟訊息窗口，只在狀態(tài)列顯示 1 ：停留秒數(shù) 1 ：開(kāi)啟訊息窗口等待用戶(hù)確定 回傳值： none 用法： CALL cl_err(p_msg,err_code,p_n) 函式名稱(chēng)： cl_err_msg 程序名稱(chēng)： 用途：顯示錯(cuò)誤訊息 傳入?yún)?shù)： ps_title 錯(cuò)誤訊息的附加說(shuō)明 ps_err_code 錯(cuò)誤訊息代碼 ps_replace_arg 欲替換的訊息字符串，以” | ”分隔字符串 pi_idle_sec idle 秒數(shù) 0 ：不開(kāi)啟訊息窗口，只在狀態(tài)列顯示 1 ：停留秒數(shù) 1 ：開(kāi)啟訊息窗口等待用戶(hù)確定 回傳值： none 用法： CALL cl_err_msg(Warning,1000,NULL,1) 函式名稱(chēng)： cl_err3 程序名稱(chēng)： 用途：顯示數(shù)據(jù)庫(kù)處理后的錯(cuò)誤 訊息（ insert/update/delete/select） 傳入?yún)?shù)： Type 訊息的類(lèi)型（ ins、 del、 upd、 sel） Tables 處理的 table 代碼 Key1 Key1 的 value Key2 Key2 的 value Description 額外訊息（訊息代碼 /訊息字符串） Action 訊息 Action 代碼（未來(lái)延伸功能，可不傳） Mark 按下＂更多″按鍵時(shí)顯示的訊息 Open 是否開(kāi)窗（ 0/1） 回傳值： none 用法： CALL cl_err3(ins,azb_file,g_azb01,0) 函式名稱(chēng)： cl_err_msg_log 程序名稱(chēng)： 用途：紀(jì)錄錯(cuò)誤訊息 傳入?yún)?shù)： none 回傳值： none 用法： WHENEVER ERROR CALL cl_err_msg_log 函式名稱(chēng)： cl_exp 程序名稱(chēng)： 用途：詢(xún)問(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 函式名稱(chēng)： cl_export_to_excel 程序名稱(chēng)： 用途： 傳入?yún)?shù)： n 畫(huà)面的根節(jié)點(diǎn)組件［ ()］ t、 t t2 單身的數(shù)據(jù)［若有兩個(gè)以上的單身才會(huì)用到 t t2 ］ 回傳值： none 用法： CALL cl_export_to_excel ((),(g_pmx),39。 39。) 函式名稱(chēng)： cl_cmdrun_wait 程序名稱(chēng)： 用途：執(zhí)行 UNIX 指令，需等待此指令結(jié)束后才可繼續(xù)原程序的執(zhí)行 傳入?yún)?shù)： ps_cmd 程序代碼或 UNIX 執(zhí)行指令 回傳值： none 用法： LET l_cmd=axmp800 39。,1) ： cl_batch_proc 程序名稱(chēng)： 用途：動(dòng)態(tài)產(chǎn)生 批次數(shù)據(jù)處理畫(huà)面 傳入?yún)?shù)： ps_headers (Table 的 Header