太空梭高傳真資訊科技股份有限公司 SPACE SHUTTLE HI-TECH CO.LTD
ps_post ps_close ps_void 過帳碼 結案碼 作廢碼
pa_valid 有效碼 回傳值 ：none
用 法 ：CALL cl_set_filed_pic(g_oea.oeaconf,g_approve,??,??,g_void,??)
103．cl_set_focus_form
程序名稱：cl_set_focus_form.4gl
用 途：截取當前游標停留在畫面上的字段位置 傳入參數： ui_code 畫面根節點組件 回傳值 ：fld_name 畫面名稱 frm_name 字段名稱
用 法 ：CALL cl_set_focus_form(ui.Interface.getRootNode())
104．cl_set_head_visible
程序名稱：cl_set_head_visible.4gl
用 途：動態顯示/隱藏畫面上的單頭區塊
傳入參數： ps_comps 要顯示/隱藏組件的字段名稱字符串（中間以逗點分隔） ps_visible 是否顯示(YES:顯示，NO:隱藏，AUTO：自動判斷) 回傳值 ：none
用 法 ：CALL cl_set_head_visible(?folder01,fold02?,?AUTO?)
105．cl_set_num_value
程序名稱：cl_set_num_value.4gl
用 途：設定數值小數字數(可以四捨五入) 傳入參數： ps_value STRING 傳入數值 Ps_digit INTERGER 小數位數 回傳值 ：ls_value
用 法 ：CALL cl_set_num_value(23.12345,4)RETURNING ls_value
106．cl_set_win_title
程序名稱：cl_.set_win_title.4gl
用 途：專門用於OPEN WINDOW但沒有FORM的title語言轉換 傳入參數： lc_frm_name 畫面名稱 回傳值 ：none
用 法 ：CALL cl_set_win_title（‘aimt370’）
第 26 頁，共 36 頁
太空梭高傳真資訊科技股份有限公司 SPACE SHUTTLE HI-TECH CO.LTD
107．cl_setup
程序名稱：cl_setup.4gl
用 途：程序執行的基本設定 傳入參數： ps_module 模組代號 回傳值 ：1 FOR TRUE 是 0 FOR FALSE 否
用 法 ：CALL cl_setup(?AXM?)
108．cl_show_array
程序名稱：cl_show_array.4gl
用 途：開窗顯示array的內容
傳入參數： pnode_array 傳入base.TypeInfo.create(Array變數)
ps_win_title 作為畫面上方的title字符串
ps_title_str 作為table中各字段Title的字符串，轉好多語言后用|組合
傳入
回傳值 ：none
用 法 ：CALL cl_show_array(base.TypeInfo.create(a_azb),?簽核人員列表?，“簽
核人員|密碼|金額”)
109．cl_show_fld_cont
程序名稱：cl_show_fld_cont.4gl
用 途：設定p_per內有特殊格式設定的字段 傳入參數： 1、匯率顯示：rate（幣別字段） 2、textEdit明細顯示：show_fd_desc 3、金額逗號：amt—不在此funcation控制 4、對象多語系名稱：show_item(參照tabel，參照欄名，key序列，per檔
上字段名稱)
5、多單位字段顯示：multi_unit（數量二字段，單位二字段，換算率二字段，
數量一字段，單位一字段，換算率一字段，採購單位欄位，料件號字段）
回傳值 ：none
用 法 ：CALL cl_show_fld_cont()
110．cl_show_help
程序名稱：cl_show_help.4gl 用 途：顯示程序的說明文檔 傳入參數：none
第 27 頁，共 36 頁
太空梭高傳真資訊科技股份有限公司 SPACE SHUTTLE HI-TECH CO.LTD
回傳值 ：none
用 法 ：CALL cl_show_help()
111．cl_show_req_fields
程序名稱：cl_show_req_fields.4gl
用 途：顯示畫面上要輸入的字段卻未輸入的所有字段 傳入參數：none 回傳值 ：none
用 法 ：CALL cl_show_req_fields()
112．cl_sure
程序名稱：cl_sure.4gl
用 途：詢問“是否確定執行本作業（Y/N）：” 傳入參數：p_row,p_col 回傳值 ：1 FOR TRUE 是 0 FOR FALSE 否 用 法 ：IF cl_sure(0,0)
113．cl_sure3
程序名稱：cl_sure3.4gl
用 途：詢問“您所輸入的數據是否正確（Y/N）？” 傳入參數：p_row,p_col 回傳值 ：1 FOR TRUE 是 0 FOR FALSE 否 用 法 ：IF cl_sure3(0,0)
114．cl_trans_xml
程序名稱：cl_trans_xml.4gl 用 途：轉換xml檔案
1：execl，2：html，3：callViewer，4：txt，5：html2pdf，6：word 傳入參數：xml_name 要轉換的xml檔案 out_type 轉換格式 回傳值 ：none
用 法 ：CALL cl_trans_xml(?aimr100.23r.xml?,?1?)
115．cl_download_file
程序名稱：cl_transfer_file.4gl
第 28 頁，共 36 頁
太空梭高傳真資訊科技股份有限公司 SPACE SHUTTLE HI-TECH CO.LTD
用 途：Transfer file from Server To Client 傳入參數：ps_source STRING Source file path ps_target STRING Destination file path
回傳值 ：1 FOR TURE 成功 0 FOR FALSE 失敗
用 法 ：CALL cl_download_file(?/tmp/a.doc?,?c:/temp:b.doc?)
116．cl_upload_file
程序名稱：cl_transfer_file.4gl
用 途：Transfer file from Clien To Server 傳入參數：ps_source STRING Source file path ps_target STRING Destination file path 回傳值 ：1 FOR TURE 成功
0 FOR FALSE 失敗
用 法 ：CALL cl_download_file(?c:/temp:a.doc?,? /tmp/b.doc?)
117．cl_browse_file
程序名稱：cl_transfer_file.4gl
用 途：Open a file dialog to get a file on Client
傳入參數：none
回傳值 ：file STRING -slected filed path or NULL means cancel selection 用 法 ：CALL cl_browse_file()
118．cl_server_file
程序名稱：cl_transfer_file.4gl
用 途：Open a directory dialog to get a file on Server 傳入參數：Defalut starting path
回傳值 ：file STRING –selected directory or null means cancel selection 用 法 ：CALL cl_server_file()
119．cl_ui_init
程序名稱：cl_ui_init.4gl 用 途：程序設定初始化 傳入參數：none 回傳值 ：none
用 法 ：CALL cl_ui_init()
第 29 頁，共 36 頁
太空梭高傳真資訊科技股份有限公司 SPACE SHUTTLE HI-TECH CO.LTD
120．cl_ui_locale 程序名稱：cl_ui_local.4gl 用 途：轉換語言別
傳入參數：pc_frm_name 換面名稱 (NULL 預設名稱：g_prog)
回傳值 ：none
用 法 ：CALL cl_ui_locale()
121．cl_upsw 程序名稱：cl_upsw.4gl
用 途：詢問“是否確認此張異動單據(Y/N)?” 或“是否取消確認此張異動單據(Y/N)?” 傳入參數：pc_row,p_col
p_upsw Y:確認 N：取消確認 回傳值 ：1 FOR TRUE 是 0 FOR FALSE 否
用 法 ：IF cl_upsw(0,0,p_upsw)
122．cl_used 程序名稱：cl_used.4gl
用 途：記錄各程序實際被執行的狀況 傳入參數：p_code 程序代號、 time1 起始執行時間 sw 1: 執行開始 RETURN TIEM 2:執行結束 回傳值 ：time
用 法 ：CALL cl_used(p_code,time1,sw) CALL cl_used(‘aom2020’,’09:30’,’1’
CALL cl_used(‘aom2020’,’09:40’,’2’123．cl_user 程序名稱：cl_user.4gl
用 途：設定關於用戶于系統公用變數的設定 傳入參數：none 回傳值 ：1 FOR TRUE 是
0 FOR FALSE
否
第 30 頁，共 36 頁
) )
太空梭高傳真資訊科技股份有限公司 SPACE SHUTTLE HI-TECH CO.LTD 類別 編號
RXXX SS-MIS-TIPTOP-XXX TipTop Function
Version:1.1 Author:MIS
SPACE SHUTTLE HI-TCCH CO.LTD
第 1 頁，共 36 頁
太空梭高傳真資訊科技股份有限公司 SPACE SHUTTLE HI-TECH CO.LTD
Chapter 1
TIPTOP Common Library Fuction
第 2 頁，共 36 頁
太空梭高傳真資訊科技股份有限公司 SPACE SHUTTLE HI-TECH CO.LTD
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 =?img01,img02,img03,img04,img09?
CALL cl_batch_proc(ls_headers)
5．cl_cal
程序名稱：cl_cal.4gl
用 途：傳入當前日期，要增加的月份及天數取得計算過後的日期 傳入參數：p_date 日期 p_month 月份 p_day 日 回傳值 ：l_year,l_month,l_day
第 3 頁，共 36 頁
太空梭高傳真資訊科技股份有限公司 SPACE SHUTTLE HI-TECH CO.LTD
用 法 ：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
(?ima01?,?NOENTRY|ITEMS?,?1|(1,2,3),(red,lue,green)?)
7．cl_chg_win_title
程序名稱：cl_chg_win_title.4gl 用 途：轉換程式Title顯示 傳入參數：ps_str 顯示的字符串 回傳值 ：none
用 法 ：CALL cl_chg_win_title(?更改后的窗體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
用 途：檢查資料是否連續
傳入參數：p_souce STRING 來源資料 回傳值 ：1 FOR TRUE 是 0 FOR FALSE 否
用 法 ：IF NOT cl_chk_data_continue(g_pmw.pmw01[5,10]) THEN …
第 4 頁，共 36 頁
太空梭高傳真資訊科技股份有限公司 SPACE SHUTTLE HI-TECH CO.LTD
10．cl_chk_str_correct
程序名稱：cl_chk_data_continue.4gl
用 途：檢查字符串是否符合0~9，a~z 傳入參數：ps_source STRING 來源資料 ps_count SMALLINT 檢查幾碼，如果未傳幾碼則會以來源字 符串長度當作ps_count 回傳值 ：1 FOR TRUE 是 0 FOR FALSE 否
用 法 ：IF NOT cl_chk_str_correct(g_pmw01[1,3]) THEN ...
11．cl_chkym
程序名稱：cl_chkym.4gl
用 途：檢查文字型態變數是否為年月型臺 傳入參數：p_str CHAR(6) 文字型態變數 回傳值 ：1 FOR TRUE 是 0 FOR FALSE 否
用 法 ：IF cl_cheym(p_str) THEN …
12．cl_choice
程序名稱：cl_choice.4gl
用 途：讓用戶輸入選擇
傳入參數：l_msg CHAR(100) 窗體上顯示的說明文字 回傳值 ：l_choice
用 法 ：CALL cl_choice(l_msg) RETURNING g_choice
13．cl_open_url
程序名稱：cl_client_app.4gl
用 途：藉由explorer開啟傳入的網址
傳入參數：p_url STRING 網址 回傳值 ：1 FOR TRUE 是 0 FOR FALSE 否
用 法 ：CALL cl_open_url(?http://www.space-shuttle.com.tw?)
14．cl_open_doc
程序名稱：cl_client_app.4gl 用 途：開啟檔案
第 5 頁，共 36 頁
太空梭高傳真資訊科技股份有限公司 SPACE SHUTTLE HI-TECH CO.LTD
p_key 用戶基本檔代碼 回傳值 ：p_key 用戶基本檔代碼
用 法 ：CALL cl_qzx(0,0,p_key)RETURNING p_key
81．cl_rbmsg
程序名稱：cl_rbmsg.4gl
用 途：顯示ROLLBACK WORK 訊息 傳入參數：p_code 訊息種類
1. 代表異動更新不成功
2及3.代表此張單據異動更新不成功 4.代表更新不成功
回傳值 ：none
用 法 ：CALL cl_rbmsg(l)
82．cl_repcon
程序名稱：cl_repcon.4gl
用 途：詢問特殊打印條件 傳入參數：p_date 制表日期 p_lang 選擇打印語言別
p_towhom
p_bgjob
報表收受單位或人員 是否延後執行本作業
p_time 執行時間 p_prtway 選擇打印方式 p_copies 打印份數 回傳值 ：同傳入參數列表
用 法 ：CALL cl_repcon(p_row,p_col, p_date, p_towhom, p_lang, p_bgjob, p_time,
p_prtway, p_copies) 83．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
84．cl_replace_str_by_index
程序名稱：cl_replace_str_by_index.4gl 用 途：依據索引位置取代字符串
第 21 頁，共 36 頁
太空梭高傳真資訊科技股份有限公司 SPACE SHUTTLE HI-TECH CO.LTD
傳入參數：ps_source pi_from pi_end STRING 來源字符串
STRING 起始索引位置 STRING 結束索引位置
ps_new STRING 要換成的新字符串 回傳值 ：ls_result STRING 取代后的新的字符串
用 法 ：CALL cl_replace_str_by_index(?abcdefg?,3,5,?WXYZ?)
RETURNING ls_new
85．cl_say
程序名稱：cl_say.4gl
用 途：將金額類數值轉換成SAY TOTALA 傳入參數：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_sqy1,l_sqy2
86．cl_set_act_visible
程序名稱：cl_set_act_visble.4gl
用 途：動態顯示/隱藏畫面上的Action
傳入參數：ps_act_names 要顯示或隱藏的字段名稱字符串(以逗號分隔) Pi_visible TRUE:顯示 FALSE:隱藏 回傳值 ：none
用 法 ：CALL cl_set_act_visible(?accept,cancel?,FALSE)
87．cl_set_action_active
程序名稱：cl_set_action_active.4gl
用 途：動態開啟或關閉畫面上的Action(不隱藏只是不可使用) 傳入參數：ps_actions 要顯示或隱藏的字段名稱字符串（以逗號分隔） 回傳值 ：pi_active TRUE:active FLASE:deactive 用 法 ：CALL cl_set_action_active(?act1,act2?,TRUE)
88．cl_set_check_text
程序名稱：cl_set_check_text.4gl
用 途：設定CHECKBOX的顯示文字 傳入參數：ps_field STRING 要設定的字段名稱 ps_text STRING 要設定的TEXT
第 22 頁，共 36 頁
太空梭高傳真資訊科技股份有限公司 SPACE SHUTTLE HI-TECH CO.LTD
回傳值 ：none
用 法 ：CALL cl_set_check_text(?aza04?,?新的文字卷標?)
89．cl_set_combo_items
程序名稱：cl_set_combo_items.4gl
用 途：動態設定ComboBox的Item 傳入參數：ps_field_name ComboBOX所對應的字段名稱 ps_value Item所對應的存儲值字符串(以逗號分隔)、 ps_items Item字符串（以逗號分隔） 回傳值 ：none
用 法 ：CALL cl_set_combobox_items
(?oea08?,?1,2?,?Local Order,?Export Order)
90．cl_set_combo_lang
程序名稱：cl_combo_lang.4gl
用 途：動態設定有選擇語言別的ComboBox語言選項 傳入參數：ps_filed_name ComboBOX所對應的字段名稱 回傳值 ：none
用 法 ：CALL cl_set_combo_lang(?oea08?)
91．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)
92．cl_set_comments
程序名稱：cl_comments.4gl
用 途：設定字段的comments 傳入參數：ps_fields 欲轉換哪個字段(以字符串代表) ps_att_value 欲轉換的字符串 回傳值 ：none
用 法 ：CALL cl_set_comments(?oea01,oea02?,?string1|string2?)
93．cl_set_comp_att_text
第 23 頁，共 36 頁
太空梭高傳真資訊科技股份有限公司 SPACE SHUTTLE HI-TECH CO.LTD
程序名稱：cl_set_comp_att_text.4gl
用 途：設定字段的顯示名稱(組件前面的Lable的text) 傳入參數：ps_fields 欲轉換的字段
ps_att_value 欲轉換的字符串 回傳值 ：none
用 法 ：CALL set_comp_att_text(?oma16?,?Order Number?)
94．cl_set_comp_entry
程序名稱：cl_set_comp_entry.4gl
用 途：動態設定組件是否可輸入 傳入參數：ps_fields 字段名稱字符串（中間以逗號分隔） pi_entry TRUE:可輸入 False：不可輸入 回傳值 ：none
用 法 ：CALL cl_set_comp_entry(?m01,m02,m08?,FALSE)
95．cl_set_comp_font_color
程序名稱：cl_set_comp_font.4gl
用 途：設定組件字型顏色 傳入參數：ps_fields 字段名稱字符串（中間以逗號分隔） ps_color 要設定的顏色（black，bule，cyan…） 回傳值 ：none
用 法 ：CALL cl_set_comp_font_color(?oea01,oea04?,?red?)
96．cl_set_comp_lab_text
程序名稱：cl_set_comp_lab_text.4gl
用 途：設定Static Label（dummy）的顯示名稱 傳入參數：ps_fields 欲轉換的字段 ps_att_value 欲轉換的字符串 回傳值 ：none
用 法 ：CALL cl_set_comp_lab_text(?oma10?,?Order Number?)
97．cl_set_comp_required
程序名稱：cl_set_comp_requird.4gl
用 途：動態設定字段是否必須輸入值 傳入參數：ps_fields 字段名稱字符串(中間以逗號分隔) pi_required TRUE:必須輸入值 FALSE：非必要輸入值 回傳值 ：none
第 24 頁，共 36 頁
太空梭高傳真資訊科技股份有限公司 SPACE SHUTTLE HI-TECH CO.LTD
用 法 ：CALL cl_set_comp_required(?m01,m08?,TRUE)
98．cl_set_comp_visible
程序名稱：cl_set_comp_visible.4gl
用 途：動態顯示/應藏畫面上的組件 傳入參數：ps_fields 字段名稱字符串（中間以逗號分隔） pi_visible TRUE:顯示 FALSE：應藏 回傳值 ：none
用 法 ：CALL cl_set_comp_visible(?oeca01,ocea3?,FALSE)
99．cl_set_docno_format
程序名稱：cl_set_docno_format.4gl
用 途：依照系統參數(aoos010)設定單據編號字段格式 傳入參數：ps_field 字段名稱 回傳值 ：none
用 法 ：CALL cl_set_docno_format(?pmw01?)
100．cl_set_doctype_format
程序名稱：cl_set_doctype_format.4gl
用 途：依照系統參數(aoos010)設定單別字段格式 傳入參數：ps_field 字段名稱 回傳值 ：none
用 法 ：CALL cl_set_doctype_format(?apyslip?)
101．cl_set_field_format
程序名稱：cl_set_field_format.4gl
用 途：設定組件的format(金額，日期) 傳入參數： ps_fields STRING 字段名稱字符串（中間以逗號分隔開） ps_format STRING 要設定的format字符串 回傳值 ：none
用 法 ：CALL cl_set_field_format(?oea01,oea04?,?###,###.#?)
102．cl_set_field_pic
程序名稱：cl_set_field_pic.4gl 用 途：設定顯示圖片
傳入參數： ps_confirm 確認碼 ps_approve 核准碼
第 25 頁，共 36 頁
太空梭高傳真資訊科技股份有限公司 SPACE SHUTTLE HI-TECH CO.LTD
用 法 ：CALL cl_dynamic_local()
37．cl_end
程序名稱：cl_end.4gl
用 途：顯示?作業結束，請按任意鍵繼續：? 傳入參數：p_row,p_col 無作用 回傳值 ：none
用 法 ：CALL c_end(0,0)
38．cl_end2
程序名稱：cl_end2.4gl
用 途：顯示執行結果，并詢問是否要繼續作業 傳入參數：p_code (1:成功 2:失敗) 回傳值 ：1 FOR TRUE 是 0 FOR FALSE 否
用 法 ：CALL cl_end2(1)RETURNING l_flag
39．cl_err
程序名稱：cl_err.4gl
用 途：顯示錯誤訊息
傳入參數：p_msg 錯誤訊息的附加說明 err_code 錯誤訊息代碼 p_n 顯示錯誤訊息后的停留秒數或是等用戶按下確定
0 ：不開啟訊息窗口，只在狀態列顯示、
>1 ：停留秒數
1 ：開啟訊息窗口等待用戶確定
回傳值 ：none
用 法 ：CALL cl_err(p_msg,err_code,p_n)
40．cl_err_msg
程序名稱：cl_err_msg.4gl
用 途：顯示錯誤訊息
傳入參數：ps_title 錯誤訊息的附加說明 ps_err_code 錯誤訊息代碼 ps_replace_arg 欲替換的訊息字符串，以?|?分隔字符串 pi_idle_sec idle秒數 0:不開啟訊息窗口，只在狀態列顯示
第 11 頁，共 36 頁
太空梭高傳真資訊科技股份有限公司 SPACE SHUTTLE HI-TECH CO.LTD
>1:停留秒數 1：開啟訊息窗口等待用戶確認 回傳值 ：none
用 法 ：CALL cl_err_msg(?Wring?,?1000?,NULL,1)
41．cl_err3
程序名稱：cl_err3.4gl
用 途：顯示資料庫處理后的錯誤訊息(insert/update/select/delete) 傳入參數：Type 訊息的類型(ins/upd/sel/del)
Tables Key1 Key2 Description
處理的table代碼
Key1的value Key2的value
額外訊息(訊息代碼/訊息字符串)
Action 訊息Action代碼(未來延伸功能，可不傳) Mark 按下?更多?按鍵時顯示的訊息 Open 是否開窗（0/1） 回傳值 ：none
用 法 ：CALL cl_err3
(ins?,?azb_file?,g_azb01,??,SQLCA.sqlcode,??,??,0)
42．cl_err_msg_log
程序名稱：cl_err_msg_log.4gl
用 途：記錄錯誤訊息 傳入參數：none 回傳值 ：none
用 法 ：WHENEVER ERROR CALL cl_err_msg_log
43．cl_exp
程序名稱：cl_exp.4gl
用 途：詢問?此筆資料是否確定無效(Y/N):? 或?此筆資料是否恢復有效(Y/N):? (for 單文件建文件無效功能) 傳入參數：p_row,o_col
P_old_acticode 有效碼(Y/N) 回傳值 ：1 FOR TRUE 是 0 FOR FALSE 否
用 法 ：IF (cl_exp(0,0,g_pmw.pmwacti))THEN…
第 12 頁，共 36 頁
太空梭高傳真資訊科技股份有限公司 SPACE SHUTTLE HI-TECH CO.LTD
44．cl_facfor
程序名稱：cl_facfor.4gl 用
途：將INPUT DECLIAM(16，8)數值轉換為9位字符的格式 若值為12345678， 將傳回’^12345678’ 若值為1234567， 將傳回’1234567.0’ 若值為123456， 將傳回’123456.00’ 若值為12345.67， 將傳回’12345.670’ 若值為.1234567， 將傳回’.12345670’
傳入參數：p_fac 數值
回傳值 ：l_str FORMAT后的數值，以CHAR形態RETURN 用 法 ：LET a = cl_facfor(p_fac);PRINT a PRINT cl_facfor(p_fac)
45．cl_field_fomat
程序名稱：cl_field_format.4gl
用 途：轉換p_per內自由格式設定的format 傳入參數：ps_currency CHAR(4) ---當前無用處 Pc_frm_name CHAR(10) 畫面檔名 回傳值 ：none
用 法 ：CALL cl_field_format(g_aza.aza17.mc_frm_name)
46．cl_fld_doc
程序名稱：cl_fld_doc.4gl
用 途：字段的相關檔案維護
傳入參數：ps_field STRING 字段名稱 回傳值 ：url 檔案的URL
用 法 ：CALL cl_fld_doc(?ima01?)
47．cl_fldhelp
程序名稱：cl_fldhelp.4gl
用 途：顯示字段的說明 傳入參數：g_frm_name 畫面檔名稱 g_fld_name 字段名稱 g_lang 語言別 回傳值 ：none
用 法 ：CALL cl_fldhelp(g_frm_name,g_fld_name,g_lang)
第 13 頁，共 36 頁
太空梭高傳真資訊科技股份有限公司 SPACE SHUTTLE HI-TECH CO.LTD
48．cl_flow_notify
程序名稱：cl_flow_notify.4gl
用 途：透過JavaMail傳送工作流程通知 傳入參數：ps_doc_no STRING 單據編號 pc_state CHAR(1) 功能類別 I.新增 U.更改 D.刪除 Y.確認 S.過帳 V.作廢 回傳值 ：none
用 法 ：CALL cl_flow_notify(g_pmw.pmw01,’I’)
49．cl_forupd_sql
程序名稱：cl_forupd_sql.4gl
用 途：判斷SELECT … FOR UPDATE 是否加上其他語法（by Database） 傳入參數：ps_forund_sql STRING 原傳入的SQL字符串 回傳值 ：ps_forupd_sql STRING 調整過的SQL字符串 用 法 ：CALL cl_forupd_sql(ps_forupd_sql)
50．cl_get_column_info
程序名稱：cl_get_column_info.4gl
用 途：取得字段型態及長度
傳入參數：p_tablename TABLE的名稱 p_colname 字段的名稱 回傳值 ：字段型態 not null FOR TURE:有回傳值 null FOR FALSE：否 長度 not null FOR TURE:有回傳值 null FOR FALSE:否
用 法 ：CALL cl_get_column_info(p_tablename,p_colname) RETURNING l_coldatatype,l_collenth
51．cl_get_feldname
程序名稱：cl_feldname.4gl
用 途：依字段代碼取出系統字段名稱設定維護作業(p_feldname)內的字段名稱 傳入參數：p_gaq01 字段代碼 p_lang 語言別 回傳值 ：p_gaq03 字段說明
用 法 ：LET g_msg = cl_get_feldname(p_gaq01,p_lang)
第 14 頁，共 36 頁
太空梭高傳真資訊科技股份有限公司 SPACE SHUTTLE HI-TECH CO.LTD
52．cl_get_progdesc
程序名稱：cl_get_progdesc.4gl
用 途：取得程序代碼說明(若有客制碼=?Y?的優先回傳) 傳入參數：p_gaz01 程序代碼 p_lang 語言別
回傳值 ：p_gaz03 程序代碼說明
用 法 ：LET g_msg = cl_get_progdesc(g_prog,p_lang)
53．cl_getmsg
程序名稱：cl_getmesg.4gl
用 途：依訊息代碼取出系統錯誤訊息文件(ze_file)內的錯誤信息 傳入參數：p_code 訊息代碼 P_lang 語言別 回傳值 ：l_msg 錯誤訊息
用 法 ：LET g_msg = cl_getmsg(p_code,p_lang)
54．cl_insert_top_menu
程序名稱：cl_insert_top_menu.4gl 用 途：插入TopMenu
傳入參數：pc_prog CHAR(10) 程序代號 回傳值 ：none
用 法 ：CALL cl_insert_top_menu(NULL)
55．cl_itemname_by_lang
程序名稱：cl_itemname_by_lang.4gl 用 途：多語言記錄功能查詢
傳入參數：l_gbc01 檔案代碼(Table ID) l_gbc02 字段代碼
l_gbc03 KEY值序列，多組時以,隔開 l_gbc04 語言別 l_gbc05 數據多語言名稱 回傳值 ：lc_gbc05 對應語言別的名稱
用 法 ：cl_itemname_by_lang(?ima_file?,?ima02?,g_ima.ima01CLIPPEND,
g_lang,g_ima.ima02)RETURNING g_ima.ima02
56．cl_load_act_list
第 15 頁，共 36 頁
太空梭高傳真資訊科技股份有限公司 SPACE SHUTTLE HI-TECH CO.LTD
程序名稱：cl_load_act_list.4gl
用 途：載入ActionList(程序所屬的4ad) 傳入參數：ps_prog STRING 程序代號 回傳值 ：none
用 法 ：CALL cl_load_act_list(NULL)
57．cl_load_act_sys
程序名稱：cl_load_act_sys.4gl
用 途：載入ActionList（系統標準的4ad） 傳入參數：ps_prog STRING 程序代號 回傳值 ：none
用 法 ：CALL cl_load_act_sys(NULL)
58．cl_load_action_view
程序名稱：cl_load_action_view.4gl 用 途：載入TopMenu與ToolBar 傳入參數：none 回傳值 ：none
用 法 ：CALL cl_load_action_view()
59．cl_load_style_list
程序名稱：cl_load_style_list.4gl 用 途：載入StyleList
傳入參數：ps_prog STRING 程序代號 回傳值 ：none
用 法 ：CALL cl_load_style_list(NULL)
60．cl_msgany
程序名稱：cl_msgany.4gl
用 途：顯示訊息，然後按任意鍵繼續 傳入參數：p_row,p_col 無作用 p_msg 回傳值 ：none
用 法 ：CALL cl_msgany(0,0,1_msg)
61．cl_navigator_seting
程序名稱：cl_navigator_seting.4gl
第 16 頁，共 36 頁
太空梭高傳真資訊科技股份有限公司 SPACE SHUTTLE HI-TECH CO.LTD
用 途：設定ToolBar上瀏覽上下筆數據的按鈕狀態 傳入參數：pic_curr_index 當前Cursor索引值 pic_row_count 資料筆數 回傳值 ：none
用 法 ：CALL cl_navigator_setting(g_cur_index,g_row_count)
62．cl_null
程序名稱：cl_null.4gl
用 途：檢查字符串是否為null或是空字符串 傳入參數：ps_source （來源字符） 回傳值 ：1 FOR TRUE 是 0 FOR FALSE 否
用 法 ：IF NOT cl_null(ps_source)THEN…
63．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…
64．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
65．cl_numfor3
程序名稱：cl_numfor3.4gl
用 途：將數值不須的小數位數不打印出 傳入參數：p_value數值
回傳值 ：l_str FORMAT后的數值，以CHAR型態RETURN
第 17 頁，共 36 頁
太空梭高傳真資訊科技股份有限公司 SPACE SHUTTLE HI-TECH CO.LTD
用 法 ：LET a = cl_numfor3(l_str,13);PRINT a
66．cl_on_idle
程序名稱：cl_on_idle.4gl 用 途：在ON IDLE時的處理 傳入參數：none 回傳值 ：none
用 法 ：CALL cl_on_idle()
67．cl_opmsg
程序名稱：cl_opmsg.4gl
用 途：顯示操作方法于狀態列 操作方法著重于FUCTION鍵的作用
傳入參數：p_op_type 操作型態 a:新增，u：更改，q：查詢，b:單身處理，w:多欄查詢，p：打印條件選擇 回傳值 ：none
用 法 ：CALL cl_opmsg(‘q’)
68．cl_outnam
程序名稱：cl_outnam.4gl
用 途：賦予一個報表文件代號(Disk File Name) 傳入參數：p_code 報表程序代號 回傳值 ：p_name 報表文件代號
用 法 ：CALL cl_outnam(p_code)RETURNING l_name
69．cl_parse
程序名稱：cl_parse.4gl
用 途：將MATCHS’[XYZ]’的指令轉成ORACLE的IN（’X’,’Y’,’Z’） 傳入參數：p_type 欲轉換的字符串 回傳值 ：l_str 轉換過后的字符串 用 法 ：CALL cl_parse(ls_str)
70．cl_pause
程序名稱：cl_pause.4gl 用 途：請按Enter繼續… 傳入參數：none 回傳值 ：none
第 18 頁，共 36 頁
太空梭高傳真資訊科技股份有限公司 SPACE SHUTTLE HI-TECH CO.LTD
用 法 ：IF cl_pause()
71．cl_prcgress_bar
程序名稱：cl_progress_bar.4gl 用 途：開啟作業處理的畫面 傳入參數：pi_total_count 回傳值 ：none
用 法 ：CALL cl_progress_bar(3)
72．cl_progressing
程序名稱：cl_progress_bar.4gl
用 途：顯示當前處理的進度 傳入參數：ps_log 正在處理的作業說明 回傳值 ：none
用 法 ：CALL cl_progressing(?Create:?)
73．cl_prompt
程序名稱：cl_prompt.4gl 用 途：詢問l_msg
傳入參數：p_row,p_col 無作用 l_msg 顯示于窗口上的信息 回傳值 ：1 FOR TURE 是 0 FOR FALSE 否
用 法 ：IF cl_prompt(0,0,l_msg)THEN…
74．cl_prt
程序名稱：cl_prt.4gl
用 途：詢問用戶以何種方式處理報表文件 傳入參數：p_name 報表文件名稱 p_prtway 打印方式 p_copies 打印份數 p_len 報表長度 回傳值 ：none
用 法 ：CALL cl_prt(l_name,’’,’1’,g_len)
75．cl_qbe_init
程序名稱：
第 19 頁，共 36 頁
太空梭高傳真資訊科技股份有限公司 SPACE SHUTTLE HI-TECH CO.LTD
用 途：預設QBE及g_qbe_code的值 傳入參數：none 回傳值 ：none
用 法 ：CALL cl_qbe_init()
76．cl_qbe_select
程序名稱：
用 途：開啟QBE查詢條件列表及顯示條件于畫面上 傳入參數：none
回傳值 ：none
用 法 ：CALL cl_qbe_select()
77．cl_qbe_list
程序名稱：
用 途：QBE查詢條件列表 傳入參數：none
回傳值 ：g_qbe_code 條件序號
用 法 ：CALL cl_qbe_list()RETURNING lc_qbe_sn
78．cl_qbe_display_condition
程序名稱：
用 途：顯示QBE查詢條件于畫面上 傳入參數：pc_gbm01 條件序號 回傳值 ：none
用 法 ：CALL cl_qbe_display_cndition(lc_qbe_sn)
79．cl_qbe_save
程序名稱：
用 途：QBE查詢條件儲存 傳入參數：none 回傳值 ：none
用 法 ：CALL cl_qbe_save()
80．cl_qzx
程序名稱：cl_qzx.4gl
用 途：對g_user提供可執行程序的窗口查詢 傳入參數：p_row,p_col 無作用
第 20 頁，共 36 頁
太空梭高傳真資訊科技股份有限公司 SPACE SHUTTLE HI-TECH CO.LTD
用 法 ：CALL cl_user()
124．cl_userdefined_field_check
程序名稱：cl_userdefined_field.4gl
用 途：檢查自訂字段值 傳入參數：pc_fldname 自訂字段名稱 ps_value 自訂字段值 回傳值 ：1 FOR TRUE 是 0 FOR FALSE 否
用 法 ：CALL cl_userdefined_field_check(?imaud01?,g_ima.imaud01) RETURNING li_result
125．cl_userdefined_field_query
程序名稱：cl_userdefined_field.4gl
用 途：自訂字段開窗 傳入參數：pc_fldname 自訂字段名稱 ps_construct TRUE：多選數據 FLASE：單選數據回傳 回傳值 ：lc_result 開窗回傳值
用 法 ：CALL cl_userdefined_field_check(?imaud01?,FALSE)
RETURNING g_ima.imaud02
126．cl_validate
程序名稱：cl_validate.4gl
用 途：檢查行業別字段數據、帶出關聯字段數據(p_per設定) 傳入參數：none
回傳值 ：li_result TRUE/FALSE
用 法 ：IF NOT cl_validate() THEN NEXT FIRLD CURRENT END IF
127．cl_ui_set_init
程序名稱：cl_validate.4gl
用 途：抓取組件設定值（p_per行業別字段設定） 傳入參數：none 回傳值 ：ls_value lc_gav20 lc_gav29 lc_gav22
畫面上顯示的值
動態檢查設定 關聯字段抓取方式 關聯字段動態設定
lc_gav28 lc_gav21 lc_gav31 lc_gav23
基本文件資料檢查方式 SQL或函數式檢查設定 關聯字段代碼
SQL或函數抓取方式
第 31 頁，共 36 頁
太空梭高傳真資訊科技股份有限公司 SPACE SHUTTLE HI-TECH CO.LTD
用 lc_gav30 數據重複檢查方式 lc_gav26 lc_gav27 SQL或函數檢查設定 法 ：CALL cl_ui_set_init() RETURNING g_ui.g_value
動態數據檢查
128．cl_data_check
程序名稱：cl_validate.4gl
用 途：基本文件數據檢查(p_per行業別字段設定) 傳入參數：ps_field 字段代碼 ps_value 字段值 回傳值 ：li_result TRUE/FALSE
用 法 ：CALL cl_data_check(?oeaida001?,g_oea.oeaida001) RETURNING li_result
129．cl_repeat_check
程序名稱：cl_validate.4gl
用 途：數據重複檢查(p_per行業別字段設定)
傳入參數：ps_field 字段代碼 ps_value 字段值 回傳值 ：li_result TRUE/FALSE
用 法 ：CALL cl_repeat_check(?oeaida001?,g_oea.oeaida001) RETURNING li_result
130．cl_reference:
程序名稱：cl_validate.4gl
用 途：關聯字段值抓取并顯示(p_per行業別字段設定) 傳入參數：ps_field 字段代碼
pc_value 字段值 回傳值 ：li_result
用 法 ：CALL cl_reference:(?oeaida001?,g_oea.oeaida001) RETURNING li_result
131．cl_qry_string
程序名稱：cl_validate.4gl
用 途：字段連查(p_per字段設定)
第 32 頁，共 36 頁
太空梭高傳真資訊科技股份有限公司 SPACE SHUTTLE HI-TECH CO.LTD
傳入參數：ps_fldname 字段代碼 回傳值 ：none
用 法 ：CALL cl_qry_string(?btn_01?)
132．cl_get_table_name
程序名稱：cl_validate.4gl
用 途：尋找字段在數據庫對應的table name 傳入參數：ps_fldname 字段代碼 回傳值 ：lc_frmname 表格代碼
用 法 ：CALL cl_get_table_name(lc_gaq01)
133．cl_void
程序名稱：cl_void.4gl
用 途：詢問“此筆資料是否確定作廢(Y/N):” 或 “此筆資料是否取消作廢(Y/N):” 傳入參數：p_row,p_col,p_old_acticode 回傳值 ：1 FOR TRUE 是 0 FOR FALSE 否
用 法 ：IF cl_void(0,0,p_old_acticode)
134．cl_wait
程序名稱：cl_wait.4gl 用 途：顯示等待訊息 傳入參數：none 回傳值 ：none
用 法 ：CALL cl_wait()
135．cl_wcchp
程序名稱：cl_wcchp.4gl
用 途:WC內重要字句中文化(Changing patter in p_wc) 傳入參數：p_wc VARCHAR(3000) WHERE condition p_oldp VARCHAR(60) Pattern(column list)to be changed 回傳值 ：p_newwc VARCHAR(300) New where condition after changed 用 法 ：CALL cl_wcchp(p_wc,p_oldp)RETURNING p_wc CALL cl_wcchp(1_wc,’gca01,gca02,gca03,gca06’) RETURNING P_WC
第 33 頁，共 36 頁
太空梭高傳真資訊科技股份有限公司 SPACE SHUTTLE HI-TECH CO.LTD
136．cl_wcshow
程序名稱：cl_wcshow.4gl
用 途：顯示組合的RDSQL指令于屏幕20，21，22，23行 傳入參數：p_wc（Where Condition clause） 回傳值 ：none
用 法 ：CALL cl_wcshow(p_wc)
第 34 頁，共 36 頁
太空梭高傳真資訊科技股份有限公司 SPACE SHUTTLE HI-TECH CO.LTD
137．cl_init_qry_var
程序名稱：cl_init_qry_var.4gl 用 途：清空g_qryparam變數 傳入參數：none 回傳值 ：none
用 法 ：CALL cl_int_qry_var()
138．cl_get_locale
程序名稱：
用 途：取得主機端系統目前設定的語系(一律轉成大寫) 傳入參數：
回傳值 ：ZH_TW,EN_US等編碼 用 法 ：CALL cl_get_locale()
# LET ms_locale = FGL_GETENV(\
# LET li_i = ms_locale.getIndexOf(\# IF li_i != 0 THEN
# LET ms_locale = ms_locale.subString(1, li_i - 1) # END IF
# LET ms_locale = ms_locale.toUpperCase() 139．cl_get_codeset
程序名稱：
用 途：取得主機端系統目前設定的語言別(一律轉成大寫) 傳入參數：
回傳值 ：UFT-8等編碼 用 法 ：CALL cl_get_codeset()
# LET lch_cmd = base.Channel.create()
# CALL lch_cmd.openPipe(\# WHILE lch_cmd.read(ms_codeset) # END WHILE
# LET ms_codeset = ms_codeset.toUpperCase() 140．cl_used_ap_hostname
程序名稱：
用 途：抓取AP Server的hostname 傳入參數：NULL
第 35 頁，共 36 頁
太空梭高傳真資訊科技股份有限公司 SPACE SHUTTLE HI-TECH CO.LTD
回傳值 ：AP_Server_Hostname String 用 法 ：CALL cl_used_ap_hostname()
第 36 頁，共 36 頁