{"id":1428,"date":"2019-06-27T08:44:39","date_gmt":"2019-06-27T00:44:39","guid":{"rendered":"http:\/\/www.hefeiyu.com\/?p=1428"},"modified":"2021-04-17T10:47:52","modified_gmt":"2021-04-17T02:47:52","slug":"tiptop-gp-%e5%85%b1%e7%94%a8%e7%a8%8b%e5%bc%8f%e6%9f%a5%e8%af%a2%e6%89%8b%e5%86%8cv1-1","status":"publish","type":"post","link":"https:\/\/www.hefeiyu.com\/?p=1428","title":{"rendered":"Tiptop GP \u5171\u7528\u5185\u7f6e\u51fd\u6570\u51fd\u5f0f\u7a0b\u5f0f\u67e5\u8be2\u624b\u518cV1.1"},"content":{"rendered":"

TIPTOP Common Library Fuction<\/strong><\/p>\n

 <\/p>\n

1\uff0ecl_about<\/p>\n

\u7a0b\u5e8f\u540d\u79f0\uff1acl_about.4gl<\/p>\n

\u7528 \u9014\uff1a\u7a0b\u5e8f\u4fe1\u606f<\/p>\n

\u4f20\u5165\u53c2\u6570\uff1anone<\/p>\n

\u56de\u4f20\u503c \uff1anone<\/p>\n

\u7528 \u6cd5 \uff1aCALL cl_about()<\/p>\n

2\uff0ecl_anykey<\/strong><\/p>\n

\u7a0b\u5e8f\u540d\u79f0\uff1acl_anykey.4gl<\/p>\n

\u7528 \u9014\uff1a\u6309\u4efb\u610f\u952e\u7ee7\u7eed<\/p>\n

\u4f20\u5165\u53c2\u6570\uff1ap_sw Not used<\/p>\n

\u56de\u4f20\u503c \uff1anone<\/p>\n

\u7528 \u6cd5 \uff1aCALL cl_anykey()<\/p>\n

3\uff0ecl_autotime<\/strong><\/p>\n

\u7a0b\u5e8f\u540d\u79f0\uff1acl_autotime.4gl<\/p>\n

\u7528 \u9014\uff1a\u81ea\u52a8\u7d2f\u52a0\u65f6\u95f4\uff0c\u7d2f\u52a0\u7ea7\u6570\u4e3a1<\/p>\n

\u4f20\u5165\u53c2\u6570\uff1atime1 \u7d2f\u52a0\u8d77\u59cb\u65f6\u95f4<\/p>\n

sw \u7d2f\u52a0\u7c7b\u578b H:\u5c0f\u65f6 M\uff1a\u5206\u949f S\uff1a\u79d2\u949f<\/p>\n

lay \u7d2f\u52a0\u7ea7\u6570 Default = 1<\/p>\n

\u56de\u4f20\u503c \uff1aTime \u65f6\u95f4<\/p>\n

\u7528 \u6cd5 \uff1aCALL cl_autotime(`09:30`,`H`,1)<\/p>\n

4\uff0ecl_batch_proc<\/strong><\/p>\n

\u7a0b\u5e8f\u540d\u79f0\uff1acl_batch_proc.4gl<\/p>\n

\u7528 \u9014\uff1a\u52a8\u6001\u4ea7\u751f\u6279\u6b21\u6570\u636e\u5904\u7406\u753b\u9762<\/p>\n

\u4f20\u5165\u53c2\u6570\uff1aps_headers (Table\u7684Header\u5b57\u7b26\u4e32\uff0c\u4e2d\u95f4\u4ee5\u9017\u53f7\u5206\u9694)<\/p>\n

\u56de\u4f20\u503c \uff1anone<\/p>\n

\u7528 \u6cd5 \uff1aLET ls_headers =\u201dimg01,img02,img03,img04,img09\u201d<\/p>\n

CALL cl_batch_proc(ls_headers)<\/p>\n

5\uff0ecl_cal<\/strong><\/p>\n

\u7a0b\u5e8f\u540d\u79f0\uff1acl_cal.4gl<\/p>\n

\u7528 \u9014\uff1a\u4f20\u5165\u5f53\u524d\u65e5\u671f\uff0c\u8981\u589e\u52a0\u7684\u6708\u4efd\u53ca\u5929\u6570\u53d6\u5f97\u8ba1\u7b97\u8fc7\u540e\u7684\u65e5\u671f<\/p>\n

\u4f20\u5165\u53c2\u6570\uff1ap_date \u65e5\u671f p_month \u6708\u4efd p_day \u65e5<\/p>\n

\u56de\u4f20\u503c \uff1al_year,l_month,l_day<\/p>\n

\u7528 \u6cd5 \uff1aLET l_date = cl_cal(p_date,p_mm,p_dd)<\/p>\n

6\uff0ecl_chg_comp_att<\/strong><\/p>\n

\u7a0b\u5e8f\u540d\u79f0\uff1acl_chg_comp_att.4gl<\/p>\n

\u7528 \u9014\uff1a\u66f4\u52a8\u539f\u6709\u5bf9\u8c61\u7684attribute<\/p>\n

\u4f20\u5165\u53c2\u6570\uff1aps_field STRING \u6b32\u66f4\u52a8\u5b57\u6bb5\u7684\u540d\u79f0<\/p>\n

ps_atts STRING \u5b57\u6bb5type\u5c5e\u6027<\/p>\n

ps_values STRING \u5b57\u6bb5type\u5c5e\u6027\u503c<\/p>\n

\u56de\u4f20\u503c \uff1anone<\/p>\n

\u7528 \u6cd5 \uff1aCALL cl_chg_comp_att<\/p>\n

(\u201cima01\u201d,\u201dNOENTRY|ITEMS\u201d,\u201d1|(1,2,3),(red,lue,green)\u201d)<\/p>\n

7\uff0ecl_chg_win_title<\/strong><\/p>\n

\u7a0b\u5e8f\u540d\u79f0\uff1acl_chg_win_title.4gl<\/p>\n

\u7528 \u9014\uff1a\u8f6c\u6362\u7a0b\u5e8fTitle\u663e\u793a<\/p>\n

\u4f20\u5165\u53c2\u6570\uff1aps_str \u663e\u793a\u7684\u5b57\u7b26\u4e32<\/p>\n

\u56de\u4f20\u503c \uff1anone<\/p>\n

\u7528 \u6cd5 \uff1aCALL cl_chg_win_title(\u201c\u66f4\u6539\u540e\u7684\u7a97\u4f53Title\u201d)<\/p>\n

8\uff0ecl_chk_act_auth<\/strong><\/p>\n

\u7a0b\u5e8f\u540d\u79f0\uff1acl_chk_act_auth.4gl<\/p>\n

\u7528 \u9014\uff1a\u68c0\u67e5ACTION\u7684\u6743\u9650\uff08\u68c0\u67e5\u524d\u5fc5\u987b\u6307\u5b9ag_action_choice\u7684\u503c\uff09<\/p>\n

\u4f20\u5165\u53c2\u6570\uff1anone<\/p>\n

\u56de\u4f20\u503c \uff1a1 FOR TRUE \u662f<\/p>\n

0 FOR FALSE \u5426<\/p>\n

\u7528 \u6cd5 \uff1aLET g_action_choice = \u201cinsert\u201d<\/p>\n

IF cl_chk_act_auth() THEN \u2026<\/p>\n

9\uff0ecl_chk_data_continue<\/strong><\/p>\n

\u7a0b\u5e8f\u540d\u79f0\uff1acl_chk_data_continue.4gl<\/p>\n

\u7528 \u9014\uff1a\u68c0\u67e5\u8d44\u6599\u662f\u5426\u8fde\u7eed<\/p>\n

\u4f20\u5165\u53c2\u6570\uff1ap_souce STRING \u6e90\u6570\u636e<\/p>\n

\u56de\u4f20\u503c \uff1a1 FOR TRUE \u662f<\/p>\n

0 FOR FALSE \u5426<\/p>\n

\u7528 \u6cd5 \uff1aIF NOT cl_chk_data_continue(g_pmw.pmw01[5,10]) THEN \u2026<\/p>\n

10\uff0ecl_chk_str_correct<\/strong><\/p>\n

\u7a0b\u5e8f\u540d\u79f0\uff1acl_chk_data_continue.4gl<\/p>\n

\u7528 \u9014\uff1a\u68c0\u67e5\u5b57\u7b26\u4e32\u662f\u5426\u7b26\u54080~9\uff0ca~z<\/p>\n

\u4f20\u5165\u53c2\u6570\uff1aps_source STRING \u6e90\u6570\u636e<\/p>\n

ps_count SMALLINT \u68c0\u67e5\u51e0\u7801\uff0c\u5982\u679c\u672a\u4f20\u51e0\u7801\u5219\u4f1a\u4ee5\u6765\u6e90\u5b57<\/p>\n

\u7b26\u4e32\u957f\u5ea6\u5f53\u4f5cps_count<\/p>\n

\u56de\u4f20\u503c \uff1a1 FOR TRUE \u662f<\/p>\n

0 FOR FALSE \u5426<\/p>\n

\u7528 \u6cd5 \uff1aIF NOT cl_chk_str_correct(g_pmw01[1,3]) THEN …<\/p>\n

11\uff0ecl_chkym<\/strong><\/p>\n

\u7a0b\u5e8f\u540d\u79f0\uff1acl_chkym.4gl<\/p>\n

\u7528 \u9014\uff1a\u68c0\u67e5\u6587\u5b57\u578b\u6001\u53d8\u91cf\u662f\u5426\u4e3a\u5e74\u6708\u578b\u53f0<\/p>\n

\u4f20\u5165\u53c2\u6570\uff1ap_str CHAR(6) \u6587\u5b57\u578b\u6001\u53d8\u91cf<\/p>\n

\u56de\u4f20\u503c \uff1a1 FOR TRUE \u662f<\/p>\n

0 FOR FALSE \u5426<\/p>\n

\u7528 \u6cd5 \uff1aIF cl_cheym(p_str) THEN \u2026<\/p>\n

12\uff0ecl_choice<\/strong><\/p>\n

\u7a0b\u5e8f\u540d\u79f0\uff1acl_choice.4gl<\/p>\n

\u7528 \u9014\uff1a\u8ba9\u7528\u6237\u8f93\u5165\u9009\u62e9<\/p>\n

\u4f20\u5165\u53c2\u6570\uff1al_msg CHAR(100) \u7a97\u4f53\u4e0a\u663e\u793a\u7684\u8bf4\u660e\u6587\u5b57<\/p>\n

\u56de\u4f20\u503c \uff1al_choice<\/p>\n

\u7528 \u6cd5 \uff1aCALL cl_choice(l_msg) RETURNING g_choice<\/p>\n

13\uff0ecl_open_url<\/strong><\/p>\n

\u7a0b\u5e8f\u540d\u79f0\uff1acl_client_app.4gl<\/p>\n

\u7528 \u9014\uff1a\u85c9\u7531explorer\u5f00\u542f\u4f20\u5165\u7684\u7f51\u5740<\/p>\n

\u4f20\u5165\u53c2\u6570\uff1ap_url STRING \u7f51\u5740<\/p>\n

\u56de\u4f20\u503c \uff1a1 FOR TRUE \u662f<\/p>\n

0 FOR FALSE \u5426<\/p>\n

\u7528 \u6cd5 \uff1aCALL cl_open_url(\u201chttp:\/\/www.space-shuttle.com.tw\u201d)<\/p>\n

14\uff0ecl_open_doc<\/strong><\/p>\n

\u7a0b\u5e8f\u540d\u79f0\uff1acl_client_app.4gl<\/p>\n

\u7528 \u9014\uff1a\u5f00\u542f\u6863\u6848<\/p>\n

\u4f20\u5165\u53c2\u6570\uff1aps_doc STRING \u6863\u6848\u4f4d\u7f6e<\/p>\n

\u56de\u4f20\u503c \uff1a1 FOR TRUE \u662f<\/p>\n

0 FOR FALSE \u5426<\/p>\n

\u7528 \u6cd5 \uff1aCALL cl_open_doc(\u201cC:\/tiptop\/tiptop.txt\u201d)<\/p>\n

15\uff0ecl_open_prog<\/strong><\/p>\n

\u7a0b\u5e8f\u540d\u79f0\uff1acl_client_app.4gl<\/p>\n

\u7528 \u9014\uff1a\u85c9\u7531\u6307\u5b9a\u7684\u7a0b\u5e8f\u5f00\u542f\u6863\u6848<\/p>\n

\u4f20\u5165\u53c2\u6570\uff1aps_prog STRING \u7a0b\u5e8f\u5de5\u5177<\/p>\n

ps_arg STRING \u5f85\u5f00\u542f\u6863\u6848\u7684\u4f4d\u7f6e<\/p>\n

\u56de\u4f20\u503c \uff1a1 FOR TURE \u662f<\/p>\n

0 FOR FALSE \u5426<\/p>\n

\u7528 \u6cd5 \uff1aCALL cl_open_prog<\/p>\n

(\u201cC:\/editor.exe\u201d,\u201dC:\/toptip\/toptip.txt\u201d)<\/p>\n

16\uff0ecl_close<\/strong><\/p>\n

\u7a0b\u5e8f\u540d\u79f0\uff1acl_close.4gl<\/p>\n

\u7528 \u9014\uff1a\u8be2\u95ee\u201d\u6b64\u7b14\u8d44\u6599\u662f\u5426\u786e\u5b9a\u7ed3\u6848\uff08Y\/N\uff09\uff1a\u201d<\/p>\n

\u6216\u201d\u6b64\u7b14\u8d44\u6599\u662f\u5426\u53d6\u6d88\u7ed3\u6848\uff08Y\/N\uff09\uff1a\u201d<\/p>\n

\u4f20\u5165\u53c2\u6570\uff1ap_row,p_col \u65e0\u4f5c\u7528\uff0c\u4f20\u51650\uff0c0\u5373\u53ef<\/p>\n

P_old_acticode \u4f20\u5165Y\u4ee3\u8868\u8baf\u606f\u4e3a\u53d6\u6d88\u7ed3\u6848;N\u4ee3\u8868\u786e\u5b9a\u7ed3\u6848<\/p>\n

\u56de\u4f20\u503c \uff1a1 FOR TRUE \u662f<\/p>\n

0 FOR FALSE \u5426<\/p>\n

\u7528 \u6cd5 \uff1aIF cl_close(0,0,,\u201dY\u201d)<\/p>\n

17\uff0ecl_cmdask<\/strong><\/p>\n

\u7a0b\u5e8f\u540d\u79f0\uff1acl_cmdask.4gl<\/p>\n

\u7528 \u9014\uff1a\u8be2\u95ee\u7528\u6237\u6b32\u6267\u884c\u7684\u7a0b\u5e8f\uff0c\u5e76\u6267\u884c\u4e4b<\/p>\n

\u4f20\u5165\u53c2\u6570\uff1anone<\/p>\n

\u56de\u4f20\u503c \uff1anone<\/p>\n

\u7528 \u6cd5 \uff1aCALL cl_cmdask()<\/p>\n

18\uff0ecl_cmdat<\/strong><\/p>\n

\u7a0b\u5e8f\u540d\u79f0\uff1acl_cmdat.4gl<\/p>\n

\u7528 \u9014\uff1a\u6307\u5b9a\u65f6\u95f4\u5ef6\u540e\u6267\u884cUNIX\u6307\u4ee4<\/p>\n

\u4f20\u5165\u53c2\u6570\uff1ap_time \u6307\u5b9a\u65f6\u95f4<\/p>\n

p_cmd UNIX\u6307\u4ee4<\/p>\n

\u56de\u4f20\u503c \uff1anone<\/p>\n

\u7528 \u6cd5 \uff1aCALL cl_cmdat(ptime\uff0cpcmd)<\/p>\n

19\uff0ecl_cmdrun<\/strong><\/p>\n

\u7a0b\u5e8f\u540d\u79f0\uff1acl_cmdrun.4gl<\/p>\n

\u7528 \u9014\uff1a\u6267\u884cUNIX\u6307\u4ee4<\/p>\n

\u4f20\u5165\u53c2\u6570\uff1aps_cmd \u7a0b\u5e8f\u4ee3\u7801\u6216UNIX\u6267\u884c\u6307\u4ee4<\/p>\n

\u56de\u4f20\u503c \uff1anone<\/p>\n

\u7528 \u6cd5 \uff1aCALL cl_cmdrun(\u2018axmq450\u2019)<\/p>\n

20\uff0ecl_cmdrun_wait<\/strong><\/p>\n

\u7a0b\u5e8f\u540d\u79f0\uff1acl_cmdrun_wait.4gl<\/p>\n

\u7528 \u9014\uff1a\u6267\u884cUNIX\u6307\u4ee4\uff0c\u9700\u7b49\u5f85\u6b64\u6307\u4ee4\u7ed3\u675f\u540e\u624d\u53ef\u7ee7\u7eed\u539f\u7a0b\u5e8f\u7684\u6267\u884c<\/p>\n

\u4f20\u5165\u53c2\u6570\uff1aps_cmd \u7a0b\u5e8f\u4ee3\u7801\u6216UNIX\u6267\u884c\u6307\u4ee4<\/p>\n

\u56de\u4f20\u503c \uff1anone<\/p>\n

\u7528 \u6cd5 \uff1aLET l_cmd = \u201caxmp800\u201d<\/p>\n

CALL cl_cmd(l_cmd)<\/p>\n

21\uff0ecl_cmmsg<\/strong><\/p>\n

\u7a0b\u5e8f\u540d\u79f0\uff1acl_cmmsg.4gl<\/p>\n

\u7528 \u9014\uff1a\u663e\u793a \u5f02\u52a8\u66f4\u65b0\u6210\u529f \u8baf\u606f<\/p>\n

\u4f20\u5165\u53c2\u6570\uff1ap_code \u8baf\u606f\u79cd\u7c7b 1\u53ca4\uff1a\u4ee3\u8868\u5f02\u52a8\u66f4\u65b0\u5b8c\u6210<\/p>\n

2\u53ca3\uff1a\u4ee3\u8868\u6b64\u5f20\u5355\u636e\u5f02\u52a8\u66f4\u65b0\u5b8c\u6210<\/p>\n

\u56de\u4f20\u503c \uff1anone<\/p>\n

\u7528 \u6cd5 \uff1aCALL cl_cmmsg(1)<\/p>\n

22\uff0ecl_conf3<\/strong><\/p>\n

\u7a0b\u5e8f\u540d\u79f0\uff1acl_conf3.4gl<\/p>\n

\u7528 \u9014\uff1a\u6839\u636eMESSAGE CODE\u53d6\u51fa\u6b63\u786e\u8baf\u606f\uff0c\u8be2\u95ee<\/p>\n

\uff08\u914d\u5408\u53d1\u7968\u7684\u4f7f\u7528\uff0c\u672c\u4f5c\u4e1a\u5141\u8bb8\u7528\u6237\u4e0d\u8f93\u5165\u6570\u636e\uff09<\/p>\n

\u4f20\u5165\u53c2\u6570\uff1ap_row,p_col \u65e0\u4f5c\u7528<\/p>\n

P_msgcode<\/p>\n

\u56de\u4f20\u503c \uff1a1 FOR TURE \u662f<\/p>\n

0 FOR FALSE \u5426<\/p>\n

\u7528 \u6cd5 \uff1aIF cl_conf3(0,0,mesgcode)THEN \u2026<\/p>\n

23\uff0ecl_confirm<\/strong><\/p>\n

\u7a0b\u5e8f\u540d\u79f0\uff1acl_confirm.4gl<\/p>\n

\u7528 \u9014\uff1a\u4f9d\u7167\u8baf\u606f\u4ee3\u7801\u5c06\u6570\u636e\u663e\u793a\u5728\u753b\u9762\u4e0a\uff0c\u8be2\u95ee\u201d\u662f\u5426\u2026\u201d<\/p>\n

\u4f20\u5165\u53c2\u6570\uff1aps_msg \u8baf\u606f\u4ee3\u7801\u6216\u8baf\u606f\u5b57\u7b26\u4e32<\/p>\n

\u56de\u4f20\u503c \uff1a1 FOR TRUE \u662f<\/p>\n

0 FOR FALSE \u5426<\/p>\n

\u7528 \u6cd5 \uff1aIF(cl_confirm(\u201cagl_021\u201d))THEN\u2026<\/p>\n

24\uff0ecl_cont<\/strong><\/p>\n

\u7a0b\u5e8f\u540d\u79f0\uff1acl_cont.4gl<\/p>\n

\u7528 \u9014\uff1a\u8be2\u95ee\u201d\u662f\u5426\u7ee7\u7eed\u6267\u884c\u672c\u4f5c\u4e1a\uff08Y\/N\uff09:\u201d<\/p>\n

\u4f20\u5165\u53c2\u6570\uff1ap_row,p_col \u65e0\u4f5c\u7528<\/p>\n

\u56de\u4f20\u503c \uff1a1 FOR TURE \u662f<\/p>\n

0 FOR FALSE \u5426<\/p>\n

\u7528 \u6cd5 \uff1aIF cl_cont(0,0)THEN\u2026<\/p>\n

25\uff0ecl_create_4sm<\/strong><\/p>\n

\u7a0b\u5e8f\u540d\u79f0\uff1acl_create_4sm.4gl<\/p>\n

\u7528 \u9014\uff1a\u4ea7\u751fudm_tree\u6240\u9700\u8981\u7684StartMenu\u6863\u6848<\/p>\n

\u4f20\u5165\u53c2\u6570\uff1apc_menu_root StartMenu\u7684\u6839\u8282\u70b9<\/p>\n

Pi_rebuild \u662f\u5426\u9700\u8981\u91cd\u65b0\u8986\u76d6\u5df2\u5b58\u5728\u76844sm\u6863\u6848<\/p>\n

\u56de\u4f20\u503c \uff1anone<\/p>\n

\u7528 \u6cd5 \uff1aCALL cl_create_4sm(\u201cm01\u201d,TRUE)<\/p>\n

26\uff0ecl_create_qry<\/strong><\/p>\n

\u7a0b\u5e8f\u540d\u79f0\uff1acl_create_qry.4gl<\/p>\n

\u7528 \u9014\uff1a\u52a8\u6001\u4ea7\u751f\u7a97\u53e3\u4ee5\u4f9b\u67e5\u8be2\uff0c\u5e76\u56de\u4f20\u67e5\u8be2\u7ed3\u679c<\/p>\n

\u4f20\u5165\u53c2\u6570\uff1anone<\/p>\n

\u56de\u4f20\u503c \uff1ams_ret1,ms_ret2,ms_ret3\u2026 \u56de\u4f20\u6570\u76ee\u4f9d\u7167\u5bf9\u5e94\u7684\u56de\u4f20\u5b57\u6bb5\u6570<\/p>\n

\u7528 \u6cd5 \uff1aCALL cl_create_qry() RETURNING g_oea.oea14<\/p>\n

27\uff0ecl_dynamic_qry<\/strong><\/p>\n

\u7a0b\u5e8f\u540d\u79f0\uff1acl_dynamic_qry.4gl<\/p>\n

\u7528 \u9014\uff1a \u81ea\u5b9a\u4e49\u884c\u522b\u5b57\u6bb5\u52a8\u6001\u4ea7\u751f\u5f00\u7a97\u529f\u80fd\uff0c\u5e76\u56de\u4f20\u67e5\u8be2\u7ed3\u679c<\/p>\n

\u4f20\u5165\u53c2\u6570\uff1anone<\/p>\n

\u56de\u4f20\u503c \uff1ams_ret1,ms_ret2,ms_ret3\u2026 \u56de\u4f20\u6570\u76ee\u4f9d\u7167\u5bf9\u5e94\u7684\u56de\u4f20\u5b57\u6bb5\u6570<\/p>\n

\u7528 \u6cd5 \uff1aCALL cl_dynamic_qry()RETURNING g_oea.oeaida001<\/p>\n

28\uff0ecl_days<\/strong><\/p>\n

\u7a0b\u5e8f\u540d\u79f0\uff1acl_days.4gl<\/p>\n

\u7528 \u9014\uff1a\u53d6\u5f97\u8be5\u5e74\u6708\u7684\u5929\u6570<\/p>\n

\u4f20\u5165\u53c2\u6570\uff1ap_year \u5e74\u4efd<\/p>\n

p_month \u6708\u4efd<\/p>\n

\u56de\u4f20\u503c \uff1al_days \u5929\u6570<\/p>\n

\u7528 \u6cd5 \uff1aLET l_days = cl_days(p_yy,p_mm)<\/p>\n

29\uff0ecl_delb<\/strong><\/p>\n

\u7a0b\u5e8f\u540d\u79f0\uff1acl_delb.4gl<\/p>\n

\u7528 \u9014\uff1a\u8be2\u95ee\u201d\u662f\u5426\u786e\u5b9a\u53d6\u6d88\u6b64\u7b14\u5355\u8eab\u8d44\u6599\uff08Y\/N\uff09\uff1a\u201d<\/p>\n

\uff08for \u5355\u6587\u4ef6\u5efa\u6587\u4ef6\u7a0b\u5e8f\u5355\u8eab\u53d6\u6d88\u529f\u80fd ON KEY F2\uff09<\/p>\n

\u4f20\u5165\u53c2\u6570\uff1ap_row , p_col<\/p>\n

\u56de\u4f20\u503c \uff1a1 FOR TRUE \u662f<\/p>\n

0 FOR FALSE \u5426<\/p>\n

\u7528 \u6cd5 \uff1aIF cl_delb(0,0)THEN\u2026<\/p>\n

30\uff0ecl_delete<\/strong><\/p>\n

\u7a0b\u5e8f\u540d\u79f0\uff1acl_delete.4gl<\/p>\n

\u7528 \u9014\uff1a\u8be2\u95ee\u201d\u662f\u5426\u5220\u9664\u6b64\u7b14\u8d44\u6599\u201d<\/p>\n

\u4f20\u5165\u53c2\u6570\uff1anone<\/p>\n

\u56de\u4f20\u503c \uff1a1 FOR TURE \u662f<\/p>\n

0 FOR FALSE \u5426<\/p>\n

\u7528 \u6cd5 \uff1aIF (cl_delete()) THEN \u2026<\/p>\n

31\uff0ecl_delh<\/strong><\/p>\n

\u7a0b\u5e8f\u540d\u79f0\uff1acl_delh.4gl<\/p>\n

\u7528 \u9014\uff1a\u8be2\u95ee\u201d\u662f\u5426\u786e\u5b9a\u5220\u9664\u6b64\u7b14\u5355\u5934\u53ca\u6240\u6709\u5355\u8eab\u6570\u636e(Y\/N):\u201d<\/p>\n

(for \u5355\u6587\u4ef6\u5efa\u6587\u4ef6\u7a0b\u5e8f\u5355\u5934\u5220\u9664\u529f\u80fd)<\/p>\n

\u4f20\u5165\u53c2\u6570\uff1ap_row,p_col<\/p>\n

\u56de\u4f20\u503c \uff1a1 FOR TRUE \u662f<\/p>\n

0 FOR FALSE \u5426<\/p>\n

\u7528 \u6cd5 \uff1aIF(cl_delh(0,0))THEN\u2026<\/p>\n

32\uff0ecl_delh1<\/strong><\/p>\n

\u7a0b\u5e8f\u540d\u79f0\uff1acl_deh1.4gl<\/p>\n

\u7528 \u9014\uff1a\u8be2\u95ee\u201d\u662f\u5426\u786e\u5b9a\u53d6\u6d88\u6b64\u7b14\u5355\u5934\u53ca\u6240\u6709\u5355\u8eab\u6570\u636e(Y\/N):\u201d<\/p>\n

(for \u5355\u6587\u4ef6\u5efa\u6587\u4ef6\u7a0b\u5e8f\u5355\u5934\u53d6\u6d88\u529f\u80fd)<\/p>\n

\u4f20\u5165\u53c2\u6570\uff1ap_row,p_col<\/p>\n

\u56de\u4f20\u503c \uff1a1 FOR TURE \u662f<\/p>\n

0 FOR FALSE \u5426<\/p>\n

\u7528 \u6cd5 \uff1aIF(cl_dehl(0,0))THEN\u2026<\/p>\n

33\uff0ecl_detail_input_auth<\/strong><\/p>\n

\u7a0b\u5e8f\u540d\u79f0\uff1acl_detail_input_auth.4gl<\/p>\n

\u7528 \u9014\uff1a\u68c0\u67e5\u662f\u5426\u5141\u8bb8\u5728\u5355\u8eab\u4e2d\u6709insert\u6216delete\u7684\u6743\u9650<\/p>\n

\u4f20\u5165\u53c2\u6570\uff1aps_act_type STRING \u8981\u68c0\u67e5\u7684\u5b57\u7b26\u4e32(insert\/delete)<\/p>\n

\u56de\u4f20\u503c \uff1a1 FOR TURE \u662f<\/p>\n

0 FOR FALSE \u5426<\/p>\n

\u7528 \u6cd5 \uff1aIF(cl_detail_input_auth(\u201cinsert\u201d))<\/p>\n

34\uff0ecl_digcut<\/strong><\/p>\n

\u7a0b\u5e8f\u540d\u79f0\uff1acl_digcut.4gl<\/p>\n

\u7528 \u9014\uff1a\u5c06\u6570\u503c\u4f9d\u7167\u6307\u5b9a\u7684\u5c0f\u6570\u5b57\u6570\u8fdb\u884c\u56db\u820d\u4e94\u5165<\/p>\n

\u4f20\u5165\u53c2\u6570\uff1ap_value \u6570\u503c<\/p>\n

P_digit \u5141\u8bb8\u7684\u5c0f\u6570\u4f4d\u6570<\/p>\n

\u56de\u4f20\u503c \uff1ap_afterValue<\/p>\n

\u7528 \u6cd5 \uff1aLET p_afterValue = cl_digcut(p_value,p_digit)<\/p>\n

35\uff0ecl_doc<\/strong><\/p>\n

\u7a0b\u5e8f\u540d\u79f0\uff1acl_doc.4gl<\/p>\n

\u7528 \u9014\uff1a\u76f8\u5173\u6863\u6848\u7ef4\u62a4<\/p>\n

\u4f20\u5165\u53c2\u6570\uff1anone<\/p>\n

\u56de\u4f20\u503c \uff1anone<\/p>\n

\u7528 \u6cd5 \uff1aLET g_doc.columnl = \u201coea01\u201d<\/p>\n

LET g_doc.valuel = g_oea.oea01<\/p>\n

CALL cl_doc()<\/p>\n

36\uff0ecl_dynamic_locale<\/strong><\/p>\n

\u7a0b\u5e8f\u540d\u79f0\uff1acl_dynamic_local.4gl<\/p>\n

\u7528 \u9014\uff1a\u52a8\u6001\u8f6c\u6362\u753b\u9762\u7684\u8bed\u8a00\u522b<\/p>\n

\u4f20\u5165\u53c2\u6570\uff1anone<\/p>\n

\u56de\u4f20\u503c \uff1anone<\/p>\n

\u7528 \u6cd5 \uff1aCALL cl_dynamic_local()<\/p>\n

37\uff0ecl_end<\/strong><\/p>\n

\u7a0b\u5e8f\u540d\u79f0\uff1acl_end.4gl<\/p>\n

\u7528 \u9014\uff1a\u663e\u793a\u201d\u4f5c\u4e1a\u7ed3\u675f\uff0c\u8bf7\u6309\u4efb\u610f\u952e\u7ee7\u7eed\uff1a\u201d<\/p>\n

\u4f20\u5165\u53c2\u6570\uff1ap_row,p_col \u65e0\u4f5c\u7528<\/p>\n

\u56de\u4f20\u503c \uff1anone<\/p>\n

\u7528 \u6cd5 \uff1aCALL c_end(0,0)<\/p>\n

38\uff0ecl_end2<\/strong><\/p>\n

\u7a0b\u5e8f\u540d\u79f0\uff1acl_end2.4gl<\/p>\n

\u7528 \u9014\uff1a\u663e\u793a\u6267\u884c\u7ed3\u679c\uff0c\u5e76\u8be2\u95ee\u662f\u5426\u8981\u7ee7\u7eed\u4f5c\u4e1a<\/p>\n

\u4f20\u5165\u53c2\u6570\uff1ap_code (1:\u6210\u529f 2:\u5931\u8d25)<\/p>\n

\u56de\u4f20\u503c \uff1a1 FOR TRUE \u662f<\/p>\n

0 FOR FALSE \u5426<\/p>\n

\u7528 \u6cd5 \uff1aCALL cl_end2(1)RETURNING l_flag<\/p>\n

39\uff0ecl_err<\/strong><\/p>\n

\u7a0b\u5e8f\u540d\u79f0\uff1acl_err.4gl<\/p>\n

\u7528 \u9014\uff1a\u663e\u793a\u9519\u8bef\u8baf\u606f<\/p>\n

\u4f20\u5165\u53c2\u6570\uff1ap_msg \u9519\u8bef\u8baf\u606f\u7684\u9644\u52a0\u8bf4\u660e<\/p>\n

err_code \u9519\u8bef\u8baf\u606f\u4ee3\u7801<\/p>\n

p_n \u663e\u793a\u9519\u8bef\u8baf\u606f\u540e\u7684\u505c\u7559\u79d2\u6570\u6216\u662f\u7b49\u7528\u6237\u6309\u4e0b\u786e\u5b9a<\/p>\n

    \n
  1. \uff1a\u4e0d\u5f00\u542f\u8baf\u606f\u7a97\u53e3\uff0c\u53ea\u5728\u72b6\u6001\u680f\u663e\u793a\u3001<\/li>\n<\/ol>\n

    >1 \uff1a\u505c\u7559\u79d2\u6570<\/p>\n

    1 \uff1a\u5f00\u542f\u8baf\u606f\u7a97\u53e3\u7b49\u5f85\u7528\u6237\u786e\u5b9a<\/p>\n

    \u56de\u4f20\u503c \uff1anone<\/p>\n

    \u7528 \u6cd5 \uff1aCALL cl_err(p_msg,err_code,p_n)<\/p>\n

    40\uff0ecl_err_msg<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1acl_err_msg.4gl<\/p>\n

    \u7528 \u9014\uff1a\u663e\u793a\u9519\u8bef\u8baf\u606f<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1aps_title \u9519\u8bef\u8baf\u606f\u7684\u9644\u52a0\u8bf4\u660e<\/p>\n

    ps_err_code \u9519\u8bef\u8baf\u606f\u4ee3\u7801<\/p>\n

    ps_replace_arg \u6b32\u66ff\u6362\u7684\u8baf\u606f\u5b57\u7b26\u4e32\uff0c\u4ee5\u201d|\u201d\u5206\u9694\u5b57\u7b26\u4e32<\/p>\n

    pi_idle_sec idle\u79d2\u6570<\/p>\n

    0:\u4e0d\u5f00\u542f\u8baf\u606f\u7a97\u53e3\uff0c\u53ea\u5728\u72b6\u6001\u680f\u663e\u793a<\/p>\n

    >1:\u505c\u7559\u79d2\u6570<\/p>\n

    1\uff1a\u5f00\u542f\u8baf\u606f\u7a97\u53e3\u7b49\u5f85\u7528\u6237\u786e\u8ba4<\/p>\n

    \u56de\u4f20\u503c \uff1anone<\/p>\n

    \u7528 \u6cd5 \uff1aCALL cl_err_msg(\u201cWring\u201d,\u201d1000\u201d,NULL,1)<\/p>\n

    41\uff0ecl_err3<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1acl_err3.4gl<\/p>\n

    \u7528 \u9014\uff1a\u663e\u793a\u6570\u636e\u5e93\u5904\u7406\u540e\u7684\u9519\u8bef\u8baf\u606f(insert\/update\/select\/delete)<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1aType \u8baf\u606f\u7684\u7c7b\u578b(ins\/upd\/sel\/del)<\/p>\n

    Tables \u5904\u7406\u7684table\u4ee3\u7801<\/p>\n

    Key1 Key1\u7684value<\/p>\n

    Key2 Key2\u7684value<\/p>\n

    Description \u989d\u5916\u8baf\u606f(\u8baf\u606f\u4ee3\u7801\/\u8baf\u606f\u5b57\u7b26\u4e32)<\/p>\n

    Action \u8baf\u606fAction\u4ee3\u7801(\u672a\u6765\u5ef6\u4f38\u529f\u80fd\uff0c\u53ef\u4e0d\u4f20)<\/p>\n

    Mark \u6309\u4e0b\u201d\u66f4\u591a\u201d\u6309\u952e\u65f6\u663e\u793a\u7684\u8baf\u606f<\/p>\n

    Open \u662f\u5426\u5f00\u7a97\uff080\/1\uff09<\/p>\n

    \u56de\u4f20\u503c \uff1anone<\/p>\n

    \u7528 \u6cd5 \uff1aCALL cl_err3<\/p>\n

    (ins\u201d,\u201dazb_file\u201d,g_azb01,\u201d\u201d,SQLCA.sqlcode,\u201d\u201d,\u201d\u201d,0)<\/p>\n

    42\uff0ecl_err_msg_log<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1acl_err_msg_log.4gl<\/p>\n

    \u7528 \u9014\uff1a\u8bb0\u5f55\u9519\u8bef\u8baf\u606f<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1anone<\/p>\n

    \u56de\u4f20\u503c \uff1anone<\/p>\n

    \u7528 \u6cd5 \uff1aWHENEVER ERROR CALL cl_err_msg_log<\/p>\n

    43\uff0ecl_exp<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1acl_exp.4gl<\/p>\n

    \u7528 \u9014\uff1a\u8be2\u95ee\u201d\u6b64\u7b14\u8d44\u6599\u662f\u5426\u786e\u5b9a\u65e0\u6548(Y\/N):\u201d<\/p>\n

    \u6216\u201d\u6b64\u7b14\u8d44\u6599\u662f\u5426\u6062\u590d\u6709\u6548(Y\/N):\u201d<\/p>\n

    (for \u5355\u6587\u4ef6\u5efa\u6587\u4ef6\u65e0\u6548\u529f\u80fd)<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1ap_row,o_col<\/p>\n

    P_old_acticode \u6709\u6548\u7801(Y\/N)<\/p>\n

    \u56de\u4f20\u503c \uff1a1 FOR TRUE \u662f<\/p>\n

    0 FOR FALSE \u5426<\/p>\n

    \u7528 \u6cd5 \uff1aIF (cl_exp(0,0,g_pmw.pmwacti))THEN\u2026<\/p>\n

    44\uff0ecl_facfor<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1acl_facfor.4gl<\/p>\n

    \u7528 \u9014\uff1a\u5c06INPUT DECLIAM(16\uff0c8)\u6570\u503c\u8f6c\u6362\u4e3a9\u4f4d\u5b57\u7b26\u7684\u683c\u5f0f<\/p>\n

    \u82e5\u503c\u4e3a12345678\uff0c \u5c06\u4f20\u56de\u2019^12345678\u2019<\/p>\n

    \u82e5\u503c\u4e3a1234567\uff0c \u5c06\u4f20\u56de\u20191234567.0\u2019<\/p>\n

    \u82e5\u503c\u4e3a123456\uff0c \u5c06\u4f20\u56de\u2019123456.00\u2019<\/p>\n

    \u82e5\u503c\u4e3a12345.67\uff0c \u5c06\u4f20\u56de\u201912345.670\u2019<\/p>\n

    \u82e5\u503c\u4e3a.1234567\uff0c \u5c06\u4f20\u56de\u2019.12345670\u2019<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1ap_fac \u6570\u503c<\/p>\n

    \u56de\u4f20\u503c \uff1al_str FORMAT\u540e\u7684\u6570\u503c\uff0c\u4ee5CHAR\u5f62\u6001RETURN<\/p>\n

    \u7528 \u6cd5 \uff1aLET a = cl_facfor(p_fac);PRINT a<\/p>\n

    PRINT cl_facfor(p_fac)<\/p>\n

    45\uff0ecl_field_fomat<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1acl_field_format.4gl<\/p>\n

    \u7528 \u9014\uff1a\u8f6c\u6362p_per\u5185\u81ea\u7531\u683c\u5f0f\u8bbe\u5b9a\u7684format<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1aps_currency CHAR(4) —\u5f53\u524d\u65e0\u7528\u5904<\/p>\n

    Pc_frm_name CHAR(10) \u753b\u9762\u6863\u540d<\/p>\n

    \u56de\u4f20\u503c \uff1anone<\/p>\n

    \u7528 \u6cd5 \uff1aCALL cl_field_format(g_aza.aza17.mc_frm_name)<\/p>\n

    46\uff0ecl_fld_doc<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1acl_fld_doc.4gl<\/p>\n

    \u7528 \u9014\uff1a\u5b57\u6bb5\u7684\u76f8\u5173\u6863\u6848\u7ef4\u62a4<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1aps_field STRING \u5b57\u6bb5\u540d\u79f0<\/p>\n

    \u56de\u4f20\u503c \uff1aurl \u6863\u6848\u7684URL<\/p>\n

    \u7528 \u6cd5 \uff1aCALL cl_fld_doc(\u201cima01\u201d)<\/p>\n

    47\uff0ecl_fldhelp<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1acl_fldhelp.4gl<\/p>\n

    \u7528 \u9014\uff1a\u663e\u793a\u5b57\u6bb5\u7684\u8bf4\u660e<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1ag_frm_name \u753b\u9762\u6863\u540d\u79f0<\/p>\n

    g_fld_name \u5b57\u6bb5\u540d\u79f0<\/p>\n

    g_lang \u8bed\u8a00\u522b<\/p>\n

    \u56de\u4f20\u503c \uff1anone<\/p>\n

    \u7528 \u6cd5 \uff1aCALL cl_fldhelp(g_frm_name,g_fld_name,g_lang)<\/p>\n

    48\uff0ecl_flow_notify<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1acl_flow_notify.4gl<\/p>\n

    \u7528 \u9014\uff1a\u900f\u8fc7JavaMail\u4f20\u9001\u5de5\u4f5c\u6d41\u7a0b\u901a\u77e5<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1aps_doc_no STRING \u5355\u636e\u7f16\u53f7<\/p>\n

    pc_state CHAR(1) \u529f\u80fd\u7c7b\u522b<\/p>\n

    I.\u65b0\u589e U.\u66f4\u6539 D.\u5220\u9664 Y.\u786e\u8ba4 S.\u8fc7\u8d26 V.\u4f5c\u5e9f<\/p>\n

    \u56de\u4f20\u503c \uff1anone<\/p>\n

    \u7528 \u6cd5 \uff1aCALL cl_flow_notify(g_pmw.pmw01,\u2019I\u2019)<\/p>\n

    49\uff0ecl_forupd_sql<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1acl_forupd_sql.4gl<\/p>\n

    \u7528 \u9014\uff1a\u5224\u65adSELECT \u2026 FOR UPDATE \u662f\u5426\u52a0\u4e0a\u5176\u4ed6\u8bed\u6cd5\uff08by Database\uff09<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1aps_forund_sql STRING \u539f\u4f20\u5165\u7684SQL\u5b57\u7b26\u4e32<\/p>\n

    \u56de\u4f20\u503c \uff1aps_forupd_sql STRING \u8c03\u6574\u8fc7\u7684SQL\u5b57\u7b26\u4e32<\/p>\n

    \u7528 \u6cd5 \uff1aCALL cl_forupd_sql(ps_forupd_sql)<\/p>\n

    50\uff0ecl_get_column_info<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1acl_get_column_info.4gl<\/p>\n

    \u7528 \u9014\uff1a\u53d6\u5f97\u5b57\u6bb5\u578b\u6001\u53ca\u957f\u5ea6<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1ap_tablename TABLE\u7684\u540d\u79f0<\/p>\n

    p_colname \u5b57\u6bb5\u7684\u540d\u79f0<\/p>\n

    \u56de\u4f20\u503c \uff1a\u5b57\u6bb5\u578b\u6001 not null FOR TURE:\u6709\u56de\u4f20\u503c<\/p>\n

    null FOR FALSE\uff1a\u5426<\/p>\n

    \u957f\u5ea6 not null FOR TURE:\u6709\u56de\u4f20\u503c<\/p>\n

    null FOR FALSE:\u5426<\/p>\n

    \u7528 \u6cd5 \uff1aCALL cl_get_column_info(p_tablename,p_colname)<\/p>\n

    RETURNING l_coldatatype,l_collenth<\/p>\n

    51\uff0ecl_get_feldname<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1acl_feldname.4gl<\/p>\n

    \u7528 \u9014\uff1a\u4f9d\u5b57\u6bb5\u4ee3\u7801\u53d6\u51fa\u7cfb\u7edf\u5b57\u6bb5\u540d\u79f0\u8bbe\u5b9a\u7ef4\u62a4\u4f5c\u4e1a(p_feldname)\u5185\u7684\u5b57\u6bb5\u540d\u79f0<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1ap_gaq01 \u5b57\u6bb5\u4ee3\u7801<\/p>\n

    p_lang \u8bed\u8a00\u522b<\/p>\n

    \u56de\u4f20\u503c \uff1ap_gaq03 \u5b57\u6bb5\u8bf4\u660e<\/p>\n

    \u7528 \u6cd5 \uff1aLET g_msg = cl_get_feldname(p_gaq01,p_lang)<\/p>\n

    52\uff0ecl_get_progdesc<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1acl_get_progdesc.4gl<\/p>\n

    \u7528 \u9014\uff1a\u53d6\u5f97\u7a0b\u5e8f\u4ee3\u7801\u8bf4\u660e(\u82e5\u6709\u5ba2\u5236\u7801=\u201dY\u201d\u7684\u4f18\u5148\u56de\u4f20)<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1ap_gaz01 \u7a0b\u5e8f\u4ee3\u7801<\/p>\n

    p_lang \u8bed\u8a00\u522b<\/p>\n

    \u56de\u4f20\u503c \uff1ap_gaz03 \u7a0b\u5e8f\u4ee3\u7801\u8bf4\u660e<\/p>\n

    \u7528 \u6cd5 \uff1aLET g_msg = cl_get_progdesc(g_prog,p_lang)<\/p>\n

    53\uff0ecl_getmsg<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1acl_getmesg.4gl<\/p>\n

    \u7528 \u9014\uff1a\u4f9d\u8baf\u606f\u4ee3\u7801\u53d6\u51fa\u7cfb\u7edf\u9519\u8bef\u8baf\u606f\u6587\u4ef6(ze_file)\u5185\u7684\u9519\u8bef\u4fe1\u606f<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1ap_code \u8baf\u606f\u4ee3\u7801<\/p>\n

    P_lang \u8bed\u8a00\u522b<\/p>\n

    \u56de\u4f20\u503c \uff1al_msg \u9519\u8bef\u8baf\u606f<\/p>\n

    \u7528 \u6cd5 \uff1aLET g_msg = cl_getmsg(p_code,p_lang)<\/p>\n

    54\uff0ecl_insert_top_menu<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1acl_insert_top_menu.4gl<\/p>\n

    \u7528 \u9014\uff1a\u63d2\u5165TopMenu<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1apc_prog CHAR(10) \u7a0b\u5e8f\u4ee3\u53f7<\/p>\n

    \u56de\u4f20\u503c \uff1anone<\/p>\n

    \u7528 \u6cd5 \uff1aCALL cl_insert_top_menu(NULL)<\/p>\n

    55\uff0ecl_itemname_by_lang<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1acl_itemname_by_lang.4gl<\/p>\n

    \u7528 \u9014\uff1a\u591a\u8bed\u8a00\u8bb0\u5f55\u529f\u80fd\u67e5\u8be2<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1al_gbc01 \u6863\u6848\u4ee3\u7801(Table ID)<\/p>\n

    l_gbc02 \u5b57\u6bb5\u4ee3\u7801<\/p>\n

    l_gbc03 KEY\u503c\u5e8f\u5217\uff0c\u591a\u7ec4\u65f6\u4ee5,\u9694\u5f00<\/p>\n

    l_gbc04 \u8bed\u8a00\u522b<\/p>\n

    l_gbc05 \u6570\u636e\u591a\u8bed\u8a00\u540d\u79f0<\/p>\n

    \u56de\u4f20\u503c \uff1alc_gbc05 \u5bf9\u5e94\u8bed\u8a00\u522b\u7684\u540d\u79f0<\/p>\n

    \u7528 \u6cd5 \uff1acl_itemname_by_lang(\u201cima_file\u201d,\u201dima02\u201d,g_ima.ima01CLIPPEND,<\/p>\n

    g_lang,g_ima.ima02)RETURNING g_ima.ima02<\/p>\n

    56\uff0ecl_load_act_list<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1acl_load_act_list.4gl<\/p>\n

    \u7528 \u9014\uff1a\u52a0\u8f7dActionList(\u7a0b\u5e8f\u6240\u5c5e\u76844ad)<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1aps_prog STRING \u7a0b\u5e8f\u4ee3\u53f7<\/p>\n

    \u56de\u4f20\u503c \uff1anone<\/p>\n

    \u7528 \u6cd5 \uff1aCALL cl_load_act_list(NULL)<\/p>\n

    57\uff0ecl_load_act_sys<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1acl_load_act_sys.4gl<\/p>\n

    \u7528 \u9014\uff1a\u52a0\u8f7dActionList\uff08\u7cfb\u7edf\u6807\u51c6\u76844ad\uff09<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1aps_prog STRING \u7a0b\u5e8f\u4ee3\u53f7<\/p>\n

    \u56de\u4f20\u503c \uff1anone<\/p>\n

    \u7528 \u6cd5 \uff1aCALL cl_load_act_sys(NULL)<\/p>\n

    58\uff0ecl_load_action_view<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1acl_load_action_view.4gl<\/p>\n

    \u7528 \u9014\uff1a\u8f7d\u5165TopMenu\u4e0eToolBar<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1anone<\/p>\n

    \u56de\u4f20\u503c \uff1anone<\/p>\n

    \u7528 \u6cd5 \uff1aCALL cl_load_action_view()<\/p>\n

    59\uff0ecl_load_style_list<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1acl_load_style_list.4gl<\/p>\n

    \u7528 \u9014\uff1a\u8f7d\u5165StyleList<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1aps_prog STRING \u7a0b\u5e8f\u4ee3\u53f7<\/p>\n

    \u56de\u4f20\u503c \uff1anone<\/p>\n

    \u7528 \u6cd5 \uff1aCALL cl_load_style_list(NULL)<\/p>\n

    60\uff0ecl_msgany<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1acl_msgany.4gl<\/p>\n

    \u7528 \u9014\uff1a\u663e\u793a\u8baf\u606f\uff0c\u7136\u540e\u6309\u4efb\u610f\u952e\u7ee7\u7eed<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1ap_row,p_col \u65e0\u4f5c\u7528<\/p>\n

    p_msg<\/p>\n

    \u56de\u4f20\u503c \uff1anone<\/p>\n

    \u7528 \u6cd5 \uff1aCALL cl_msgany(0,0,1_msg)<\/p>\n

    61\uff0ecl_navigator_seting<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1acl_navigator_seting.4gl<\/p>\n

    \u7528 \u9014\uff1a\u8bbe\u5b9aToolBar\u4e0a\u6d4f\u89c8\u4e0a\u4e0b\u7b14\u6570\u636e\u7684\u6309\u94ae\u72b6\u6001<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1apic_curr_index \u5f53\u524dCursor\u7d22\u5f15\u503c<\/p>\n

    pic_row_count \u8d44\u6599\u7b14\u6570<\/p>\n

    \u56de\u4f20\u503c \uff1anone<\/p>\n

    \u7528 \u6cd5 \uff1aCALL cl_navigator_setting(g_cur_index,g_row_count)<\/p>\n

    62\uff0ecl_null<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1acl_null.4gl<\/p>\n

    \u7528 \u9014\uff1a\u68c0\u67e5\u5b57\u7b26\u4e32\u662f\u5426\u4e3anull\u6216\u662f\u7a7a\u5b57\u7b26\u4e32<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1aps_source \uff08\u6765\u6e90\u5b57\u7b26\uff09<\/p>\n

    \u56de\u4f20\u503c \uff1a1 FOR TRUE \u662f<\/p>\n

    0 FOR FALSE \u5426<\/p>\n

    \u7528 \u6cd5 \uff1aIF NOT cl_null(ps_source)THEN\u2026<\/p>\n

    63\uff0ecl_numchk<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1acl_numchk.4gl<\/p>\n

    \u7528 \u9014\uff1a\u68c0\u67e5\u2019p_str\u2019\u662f\u5426\u4e3a\u6570\u503c\u578b\u6001<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1ap_str \u6b32\u68c0\u67e5\u5b57\u7b26\u4e32<\/p>\n

    p_len \u68c0\u67e5\u7684\u957f\u5ea6<\/p>\n

    \u56de\u4f20\u503c \uff1a1 FOR TRUE \u662f<\/p>\n

    0 FOR FALSE \u5426<\/p>\n

    \u7528 \u6cd5 \uff1aIF cl_numchk(p_str,p_len)THEN\u2026<\/p>\n

    64\uff0ecl_numfor<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1acl_numfor.4gl<\/p>\n

    \u7528 \u9014\uff1a\u5c06\u6570\u503c\u4f9d\u6307\u5b9a\u7684\u6253\u5370\u957f\u5ea6\u53ca\u5c0f\u6570\u5b57\u6570\u505aFORMAT\uff0c\u4ee5\u4fbf\u6253\u5370<\/p>\n

    \u82e5\u503c\u4e3a0\uff0c\u5c06\u8fd4\u56de0.00\uff0c\u5e76\u975e\u7a7a\u767d<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1ap_value \u6570\u503c<\/p>\n

    p_len \u5141\u8bb8\u6253\u5370\u7684\u957f\u5ea6<\/p>\n

    \u56de\u4f20\u503c \uff1al_str FORMAT\u540e\u7684\u6570\u503c\uff0c\u4ee5CHAR\u578b\u6001RETURN<\/p>\n

    \u7528 \u6cd5 \uff1aLET a = cl_numfor(amt,17);PRINT a<\/p>\n

    65\uff0ecl_numfor3<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1acl_numfor3.4gl<\/p>\n

    \u7528 \u9014\uff1a\u5c06\u6570\u503c\u4e0d\u987b\u7684\u5c0f\u6570\u4f4d\u6570\u4e0d\u6253\u5370\u51fa<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1ap_value\u6570\u503c<\/p>\n

    \u56de\u4f20\u503c \uff1al_str FORMAT\u540e\u7684\u6570\u503c\uff0c\u4ee5CHAR\u578b\u6001RETURN<\/p>\n

    \u7528 \u6cd5 \uff1aLET a = cl_numfor3(l_str,13);PRINT a<\/p>\n

    66\uff0ecl_on_idle<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1acl_on_idle.4gl<\/p>\n

    \u7528 \u9014\uff1a\u5728ON IDLE\u65f6\u7684\u5904\u7406<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1anone<\/p>\n

    \u56de\u4f20\u503c \uff1anone<\/p>\n

    \u7528 \u6cd5 \uff1aCALL cl_on_idle()<\/p>\n

    67\uff0ecl_opmsg<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1acl_opmsg.4gl<\/p>\n

    \u7528 \u9014\uff1a\u663e\u793a\u64cd\u4f5c\u65b9\u6cd5\u4e8e\u72b6\u6001\u680f<\/p>\n

    \u64cd\u4f5c\u65b9\u6cd5\u7740\u91cd\u4e8eFUCTION\u952e\u7684\u4f5c\u7528<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1ap_op_type \u64cd\u4f5c\u578b\u6001<\/p>\n

    a:\u65b0\u589e\uff0cu\uff1a\u66f4\u6539\uff0cq\uff1a\u67e5\u8be2\uff0cb:\u5355\u8eab\u5904\u7406\uff0cw:\u591a\u680f\u67e5\u8be2\uff0cp\uff1a\u6253\u5370\u6761\u4ef6\u9009\u62e9<\/p>\n

    \u56de\u4f20\u503c \uff1anone<\/p>\n

    \u7528 \u6cd5 \uff1aCALL cl_opmsg(\u2018q\u2019)<\/p>\n

    68\uff0ecl_outnam<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1acl_outnam.4gl<\/p>\n

    \u7528 \u9014\uff1a\u8d4b\u4e88\u4e00\u4e2a\u62a5\u8868\u6587\u4ef6\u4ee3\u53f7(Disk File Name)<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1ap_code \u62a5\u8868\u7a0b\u5e8f\u4ee3\u53f7<\/p>\n

    \u56de\u4f20\u503c \uff1ap_name \u62a5\u8868\u6587\u4ef6\u4ee3\u53f7<\/p>\n

    \u7528 \u6cd5 \uff1aCALL cl_outnam(p_code)RETURNING l_name<\/p>\n

    69\uff0ecl_parse<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1acl_parse.4gl<\/p>\n

    \u7528 \u9014\uff1a\u5c06MATCHS\u2019[XYZ]\u2019\u7684\u6307\u4ee4\u8f6c\u6210ORACLE\u7684IN\uff08\u2019X\u2019,\u2019Y\u2019,\u2019Z\u2019\uff09<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1ap_type \u6b32\u8f6c\u6362\u7684\u5b57\u7b26\u4e32<\/p>\n

    \u56de\u4f20\u503c \uff1al_str \u8f6c\u6362\u8fc7\u540e\u7684\u5b57\u7b26\u4e32<\/p>\n

    \u7528 \u6cd5 \uff1aCALL cl_parse(ls_str)<\/p>\n

    70\uff0ecl_pause<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1acl_pause.4gl<\/p>\n

    \u7528 \u9014\uff1a\u8bf7\u6309Enter\u7ee7\u7eed\u2026<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1anone<\/p>\n

    \u56de\u4f20\u503c \uff1anone<\/p>\n

    \u7528 \u6cd5 \uff1aIF cl_pause()<\/p>\n

    71\uff0ecl_prcgress_bar<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1acl_progress_bar.4gl<\/p>\n

    \u7528 \u9014\uff1a\u5f00\u542f\u4f5c\u4e1a\u5904\u7406\u7684\u753b\u9762<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1api_total_count<\/p>\n

    \u56de\u4f20\u503c \uff1anone<\/p>\n

    \u7528 \u6cd5 \uff1aCALL cl_progress_bar(3)<\/p>\n

    72\uff0ecl_progressing<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1acl_progress_bar.4gl<\/p>\n

    \u7528 \u9014\uff1a\u663e\u793a\u5f53\u524d\u5904\u7406\u7684\u8fdb\u5ea6<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1aps_log \u6b63\u5728\u5904\u7406\u7684\u4f5c\u4e1a\u8bf4\u660e<\/p>\n

    \u56de\u4f20\u503c \uff1anone<\/p>\n

    \u7528 \u6cd5 \uff1aCALL cl_progressing(\u201cCreate:\u201d)<\/p>\n

    73\uff0ecl_prompt<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1acl_prompt.4gl<\/p>\n

    \u7528 \u9014\uff1a\u8be2\u95eel_msg<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1ap_row,p_col \u65e0\u4f5c\u7528<\/p>\n

    l_msg \u663e\u793a\u4e8e\u7a97\u53e3\u4e0a\u7684\u4fe1\u606f<\/p>\n

    \u56de\u4f20\u503c \uff1a1 FOR TURE \u662f<\/p>\n

    0 FOR FALSE \u5426<\/p>\n

    \u7528 \u6cd5 \uff1aIF cl_prompt(0,0,l_msg)THEN\u2026<\/p>\n

    74\uff0ecl_prt<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1acl_prt.4gl<\/p>\n

    \u7528 \u9014\uff1a\u8be2\u95ee\u7528\u6237\u4ee5\u4f55\u79cd\u65b9\u5f0f\u5904\u7406\u62a5\u8868\u6587\u4ef6<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1ap_name \u62a5\u8868\u6587\u4ef6\u540d\u79f0<\/p>\n

    p_prtway \u6253\u5370\u65b9\u5f0f<\/p>\n

    p_copies \u6253\u5370\u4efd\u6570<\/p>\n

    p_len \u62a5\u8868\u957f\u5ea6<\/p>\n

    \u56de\u4f20\u503c \uff1anone<\/p>\n

    \u7528 \u6cd5 \uff1aCALL cl_prt(l_name,\u2019\u2019,\u20191\u2019,g_len)<\/p>\n

    75\uff0ecl_qbe_init<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1a<\/p>\n

    \u7528 \u9014\uff1a\u9884\u8bbeQBE\u53cag_qbe_code\u7684\u503c<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1anone<\/p>\n

    \u56de\u4f20\u503c \uff1anone<\/p>\n

    \u7528 \u6cd5 \uff1aCALL cl_qbe_init()<\/p>\n

    76\uff0ecl_qbe_select<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1a<\/p>\n

    \u7528 \u9014\uff1a\u5f00\u542fQBE\u67e5\u8be2\u6761\u4ef6\u5217\u8868\u53ca\u663e\u793a\u6761\u4ef6\u4e8e\u753b\u9762\u4e0a<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1anone<\/p>\n

    \u56de\u4f20\u503c \uff1anone<\/p>\n

    \u7528 \u6cd5 \uff1aCALL cl_qbe_select()<\/p>\n

    77\uff0ecl_qbe_list<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1a<\/p>\n

    \u7528 \u9014\uff1aQBE\u67e5\u8be2\u6761\u4ef6\u5217\u8868<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1anone<\/p>\n

    \u56de\u4f20\u503c \uff1ag_qbe_code \u6761\u4ef6\u5e8f\u53f7<\/p>\n

    \u7528 \u6cd5 \uff1aCALL cl_qbe_list()RETURNING lc_qbe_sn<\/p>\n

    78\uff0ecl_qbe_display_condition<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1a<\/p>\n

    \u7528 \u9014\uff1a\u663e\u793aQBE\u67e5\u8be2\u6761\u4ef6\u4e8e\u753b\u9762\u4e0a<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1apc_gbm01 \u6761\u4ef6\u5e8f\u53f7<\/p>\n

    \u56de\u4f20\u503c \uff1anone<\/p>\n

    \u7528 \u6cd5 \uff1aCALL cl_qbe_display_cndition(lc_qbe_sn)<\/p>\n

    79\uff0ecl_qbe_save<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1a<\/p>\n

    \u7528 \u9014\uff1aQBE\u67e5\u8be2\u6761\u4ef6\u50a8\u5b58<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1anone<\/p>\n

    \u56de\u4f20\u503c \uff1anone<\/p>\n

    \u7528 \u6cd5 \uff1aCALL cl_qbe_save()<\/p>\n

    80\uff0ecl_qzx<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1acl_qzx.4gl<\/p>\n

    \u7528 \u9014\uff1a\u5bf9g_user\u63d0\u4f9b\u53ef\u6267\u884c\u7a0b\u5e8f\u7684\u7a97\u53e3\u67e5\u8be2<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1ap_row,p_col \u65e0\u4f5c\u7528<\/p>\n

    p_key \u7528\u6237\u57fa\u672c\u6587\u4ef6\u4ee3\u7801<\/p>\n

    \u56de\u4f20\u503c \uff1ap_key \u7528\u6237\u57fa\u672c\u6587\u4ef6\u4ee3\u7801<\/p>\n

    \u7528 \u6cd5 \uff1aCALL cl_qzx(0,0,p_key)RETURNING p_key<\/p>\n

    81\uff0ecl_rbmsg<\/strong><\/p>\n

    \u7a0b\u5e8f\u540d\u79f0\uff1acl_rbmsg.4gl<\/p>\n

    \u7528 \u9014\uff1a\u663e\u793aROLLBACK WORK \u8baf\u606f<\/p>\n

    \u4f20\u5165\u53c2\u6570\uff1ap_code \u8baf\u606f\u79cd\u7c7b<\/p>\n

      \n
    1. \u4ee3\u8868\u5f02\u52a8\u66f4\u65b0\u4e0d\u6210\u529f<\/li>\n<\/ol>\n

      2\u53ca3.\u4ee3\u8868\u6b64\u5f20\u5355\u636e\u5f02\u52a8\u66f4\u65b0\u4e0d\u6210\u529f<\/p>\n

      4.\u4ee3\u8868\u66f4\u65b0\u4e0d\u6210\u529f<\/p>\n

      \u56de\u4f20\u503c \uff1anone<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_rbmsg(l)<\/p>\n

      82\uff0ecl_repcon<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_repcon.4gl<\/p>\n

      \u7528 \u9014\uff1a\u8be2\u95ee\u7279\u6b8a\u6253\u5370\u6761\u4ef6<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1ap_date \u5236\u8868\u65e5\u671f p_towhom \u62a5\u8868\u6536\u53d7\u5355\u4f4d\u6216\u4eba\u5458<\/p>\n

      p_lang \u9009\u62e9\u6253\u5370\u8bed\u8a00\u522b p_bgjob \u662f\u5426\u5ef6\u540e\u6267\u884c\u672c\u4f5c\u4e1a<\/p>\n

      p_time \u8fd0\u884c\u65f6\u95f4 p_prtway \u9009\u62e9\u6253\u5370\u65b9\u5f0f<\/p>\n

      p_copies \u6253\u5370\u4efd\u6570<\/p>\n

      \u56de\u4f20\u503c \uff1a\u540c\u4f20\u5165\u53c2\u6570\u5217\u8868<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_repcon(p_row,p_col, p_date, p_towhom, p_lang, p_bgjob, p_time,<\/p>\n

      p_prtway, p_copies)<\/p>\n

      83\uff0ecl_replace_str<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_replace_str.4gl<\/p>\n

      \u7528 \u9014\uff1a\u53d6\u4ee3\u5b57\u7b26\u4e32<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1aps_source STRING \u6765\u6e90\u5b57\u7b26\u4e32<\/p>\n

      ps_old STRING \u8981\u88ab\u6362\u6389\u7684\u65e7\u7684\u5b57\u7b26\u4e32<\/p>\n

      ps_new STRING \u8981\u6362\u6210\u7684\u65b0\u5b57\u7b26\u4e32<\/p>\n

      \u56de\u4f20\u503c \uff1als_result STRING \u53d6\u4ee3\u540e\u7684\u65b0\u5b57\u7b26\u4e32<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_replace_str(\u201cabcdefg\u201d,\u201dcde\u201d,\u201dWXYZ\u201d)RETURNING ls_new<\/p>\n

      84\uff0ecl_replace_str_by_index<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_replace_str_by_index.4gl<\/p>\n

      \u7528 \u9014\uff1a\u4f9d\u636e\u7d22\u5f15\u4f4d\u7f6e\u53d6\u4ee3\u5b57\u7b26\u4e32<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1aps_source STRING \u6765\u6e90\u5b57\u7b26\u4e32<\/p>\n

      pi_from STRING \u8d77\u59cb\u7d22\u5f15\u4f4d\u7f6e<\/p>\n

      pi_end STRING \u7ed3\u675f\u7d22\u5f15\u4f4d\u7f6e<\/p>\n

      ps_new STRING \u8981\u6362\u6210\u7684\u65b0\u5b57\u7b26\u4e32<\/p>\n

      \u56de\u4f20\u503c \uff1als_result STRING \u53d6\u4ee3\u540e\u7684\u65b0\u7684\u5b57\u7b26\u4e32<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_replace_str_by_index(\u201cabcdefg\u201d,3,5,\u201dWXYZ\u201d)<\/p>\n

      RETURNING ls_new<\/p>\n

      85\uff0ecl_say<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_say.4gl<\/p>\n

      \u7528 \u9014\uff1a\u5c06\u91d1\u989d\u7c7b\u6570\u503c\u8f6c\u6362\u6210SAY TOTALA<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1ap_amt(Decimal value of money)<\/p>\n

      p_len\uff08String length of SAY1 and SAY2\uff09<\/p>\n

      \u56de\u4f20\u503c \uff1al_say1(Say total string-1 of p_amt)<\/p>\n

      L_say2(Say total string-2 of p_amt)<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_say(p_amt,p_len)RETURNING l_sqy1,l_sqy2<\/p>\n

      86\uff0ecl_set_act_visible<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_set_act_visble.4gl<\/p>\n

      \u7528 \u9014\uff1a\u52a8\u6001\u663e\u793a\/\u9690\u85cf\u753b\u9762\u4e0a\u7684Action<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1aps_act_names \u8981\u663e\u793a\u6216\u9690\u85cf\u7684\u5b57\u6bb5\u540d\u79f0\u5b57\u7b26\u4e32(\u4ee5\u9017\u53f7\u5206\u9694)<\/p>\n

      Pi_visible TRUE:\u663e\u793a FALSE:\u9690\u85cf<\/p>\n

      \u56de\u4f20\u503c \uff1anone<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_set_act_visible(\u201caccept,cancel\u201d,FALSE)<\/p>\n

      87\uff0ecl_set_action_active<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_set_action_active.4gl<\/p>\n

      \u7528 \u9014\uff1a\u52a8\u6001\u5f00\u542f\u6216\u5173\u95ed\u753b\u9762\u4e0a\u7684Action(\u4e0d\u9690\u85cf\u53ea\u662f\u4e0d\u53ef\u4f7f\u7528)<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1aps_actions \u8981\u663e\u793a\u6216\u9690\u85cf\u7684\u5b57\u6bb5\u540d\u79f0\u5b57\u7b26\u4e32\uff08\u4ee5\u9017\u53f7\u5206\u9694\uff09<\/p>\n

      \u56de\u4f20\u503c \uff1api_active TRUE:active FLASE:deactive<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_set_action_active(\u201cact1,act2\u201d,TRUE)<\/p>\n

      88\uff0ecl_set_check_text<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_set_check_text.4gl<\/p>\n

      \u7528 \u9014\uff1a\u8bbe\u5b9aCHECKBOX\u7684\u663e\u793a\u6587\u5b57<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1aps_field STRING \u8981\u8bbe\u5b9a\u7684\u5b57\u6bb5\u540d\u79f0<\/p>\n

      ps_text STRING \u8981\u8bbe\u5b9a\u7684TEXT<\/p>\n

      \u56de\u4f20\u503c \uff1anone<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_set_check_text(\u201caza04\u201d,\u201d\u65b0\u7684\u6587\u5b57\u5377\u6807\u201d)<\/p>\n

      89\uff0ecl_set_combo_items<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_set_combo_items.4gl<\/p>\n

      \u7528 \u9014\uff1a\u52a8\u6001\u8bbe\u5b9aComboBox\u7684Item<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1aps_field_name ComboBOX\u6240\u5bf9\u5e94\u7684\u5b57\u6bb5\u540d\u79f0<\/p>\n

      ps_value Item\u6240\u5bf9\u5e94\u7684\u5b58\u50a8\u503c\u5b57\u7b26\u4e32(\u4ee5\u9017\u53f7\u5206\u9694)\u3001<\/p>\n

      ps_items Item\u5b57\u7b26\u4e32\uff08\u4ee5\u9017\u53f7\u5206\u9694\uff09<\/p>\n

      \u56de\u4f20\u503c \uff1anone<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_set_combobox_items<\/p>\n

      (\u201coea08\u201d,\u201d1,2\u201d,\u201dLocal Order,\u201dExport Order)<\/p>\n

      90\uff0ecl_set_combo_lang<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_combo_lang.4gl<\/p>\n

      \u7528 \u9014\uff1a\u52a8\u6001\u8bbe\u5b9a\u6709\u9009\u62e9\u8bed\u8a00\u522b\u7684ComboBox\u8bed\u8a00\u9009\u9879<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1aps_filed_name ComboBOX\u6240\u5bf9\u5e94\u7684\u5b57\u6bb5\u540d\u79f0<\/p>\n

      \u56de\u4f20\u503c \uff1anone<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_set_combo_lang(\u201coea08\u201d)<\/p>\n

      91\uff0ecl_set_combo_module<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_set_combo_module.4gl<\/p>\n

      \u7528 \u9014\uff1a\u52a8\u6001\u8bbe\u5b9a\u6709\u9009\u62e9\u6a21\u5757\u6570\u636e\u7684ComboBOX\u9009\u9879<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1aps_field_name ComboBox\u6240\u5bf9\u5e94\u7684\u5b57\u6bb5\u540d\u79f0<\/p>\n

      pi_type pi_type = 1\u65f6\u8f93\u51fa\u5927\u5199\u6570\u636e<\/p>\n

      \u56de\u4f20\u503c \uff1anone<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_set_combo_module(\u201coea08\u201d,0)<\/p>\n

      92\uff0ecl_set_comments<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_comments.4gl<\/p>\n

      \u7528 \u9014\uff1a\u8bbe\u5b9a\u5b57\u6bb5\u7684comments<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1aps_fields \u6b32\u8f6c\u6362\u54ea\u4e2a\u5b57\u6bb5(\u4ee5\u5b57\u7b26\u4e32\u4ee3\u8868)<\/p>\n

      ps_att_value \u6b32\u8f6c\u6362\u7684\u5b57\u7b26\u4e32<\/p>\n

      \u56de\u4f20\u503c \uff1anone<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_set_comments(\u201coea01,oea02\u201d,\u201dstring1|string2\u201d)<\/p>\n

      93\uff0ecl_set_comp_att_text<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_set_comp_att_text.4gl<\/p>\n

      \u7528 \u9014\uff1a\u8bbe\u5b9a\u5b57\u6bb5\u7684\u663e\u793a\u540d\u79f0(\u7ec4\u4ef6\u524d\u9762\u7684Lable\u7684text)<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1aps_fields \u6b32\u8f6c\u6362\u7684\u5b57\u6bb5<\/p>\n

      ps_att_value \u6b32\u8f6c\u6362\u7684\u5b57\u7b26\u4e32<\/p>\n

      \u56de\u4f20\u503c \uff1anone<\/p>\n

      \u7528 \u6cd5 \uff1aCALL set_comp_att_text(\u201coma16\u201d,\u201dOrder Number\u201d)<\/p>\n

      94\uff0ecl_set_comp_entry<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_set_comp_entry.4gl<\/p>\n

      \u7528 \u9014\uff1a\u52a8\u6001\u8bbe\u5b9a\u7ec4\u4ef6\u662f\u5426\u53ef\u8f93\u5165<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1aps_fields \u5b57\u6bb5\u540d\u79f0\u5b57\u7b26\u4e32\uff08\u4e2d\u95f4\u4ee5\u9017\u53f7\u5206\u9694\uff09<\/p>\n

      pi_entry TRUE:\u53ef\u8f93\u5165 False\uff1a\u4e0d\u53ef\u8f93\u5165<\/p>\n

      \u56de\u4f20\u503c \uff1anone<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_set_comp_entry(\u201cm01,m02,m08\u201d,FALSE)<\/p>\n

      95\uff0ecl_set_comp_font_color<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_set_comp_font.4gl<\/p>\n

      \u7528 \u9014\uff1a\u8bbe\u5b9a\u7ec4\u4ef6\u5b57\u578b\u989c\u8272<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1aps_fields \u5b57\u6bb5\u540d\u79f0\u5b57\u7b26\u4e32\uff08\u4e2d\u95f4\u4ee5\u9017\u53f7\u5206\u9694\uff09<\/p>\n

      ps_color \u8981\u8bbe\u5b9a\u7684\u989c\u8272\uff08black\uff0cbule\uff0ccyan\u2026\uff09<\/p>\n

      \u56de\u4f20\u503c \uff1anone<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_set_comp_font_color(\u201coea01,oea04\u201d,\u201dred\u201d)<\/p>\n

      96\uff0ecl_set_comp_lab_text<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_set_comp_lab_text.4gl<\/p>\n

      \u7528 \u9014\uff1a\u8bbe\u5b9aStatic Label\uff08dummy\uff09\u7684\u663e\u793a\u540d\u79f0<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1aps_fields \u6b32\u8f6c\u6362\u7684\u5b57\u6bb5<\/p>\n

      ps_att_value \u6b32\u8f6c\u6362\u7684\u5b57\u7b26\u4e32<\/p>\n

      \u56de\u4f20\u503c \uff1anone<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_set_comp_lab_text(\u201coma10\u201d,\u201dOrder Number\u201d)<\/p>\n

      97\uff0ecl_set_comp_required<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_set_comp_requird.4gl<\/p>\n

      \u7528 \u9014\uff1a\u52a8\u6001\u8bbe\u5b9a\u5b57\u6bb5\u662f\u5426\u5fc5\u987b\u8f93\u5165\u503c<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1aps_fields \u5b57\u6bb5\u540d\u79f0\u5b57\u7b26\u4e32(\u4e2d\u95f4\u4ee5\u9017\u53f7\u5206\u9694)<\/p>\n

      pi_required TRUE:\u5fc5\u987b\u8f93\u5165\u503c FALSE\uff1a\u975e\u5fc5\u8981\u8f93\u5165\u503c<\/p>\n

      \u56de\u4f20\u503c \uff1anone<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_set_comp_required(\u201cm01,m08\u201d,TRUE)<\/p>\n

      98\uff0ecl_set_comp_visible<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_set_comp_visible.4gl<\/p>\n

      \u7528 \u9014\uff1a\u52a8\u6001\u663e\u793a\/\u5e94\u85cf\u753b\u9762\u4e0a\u7684\u7ec4\u4ef6<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1aps_fields \u5b57\u6bb5\u540d\u79f0\u5b57\u7b26\u4e32\uff08\u4e2d\u95f4\u4ee5\u9017\u53f7\u5206\u9694\uff09<\/p>\n

      pi_visible TRUE:\u663e\u793a FALSE\uff1a\u5e94\u85cf<\/p>\n

      \u56de\u4f20\u503c \uff1anone<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_set_comp_visible(\u201coeca01,ocea3\u201d,FALSE)<\/p>\n

      99\uff0ecl_set_docno_format<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_set_docno_format.4gl<\/p>\n

      \u7528 \u9014\uff1a\u4f9d\u7167\u7cfb\u7edf\u53c2\u6570(aoos010)\u8bbe\u5b9a\u5355\u636e\u7f16\u53f7\u5b57\u6bb5\u683c\u5f0f<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1aps_field \u5b57\u6bb5\u540d\u79f0<\/p>\n

      \u56de\u4f20\u503c \uff1anone<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_set_docno_format(\u201cpmw01\u201d)<\/p>\n

      100\uff0ecl_set_doctype_format<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_set_doctype_format.4gl<\/p>\n

      \u7528 \u9014\uff1a\u4f9d\u7167\u7cfb\u7edf\u53c2\u6570(aoos010)\u8bbe\u5b9a\u5355\u522b\u5b57\u6bb5\u683c\u5f0f<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1aps_field \u5b57\u6bb5\u540d\u79f0<\/p>\n

      \u56de\u4f20\u503c \uff1anone<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_set_doctype_format(\u201capyslip\u201d)<\/p>\n

      101\uff0ecl_set_field_format<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_set_field_format.4gl<\/p>\n

      \u7528 \u9014\uff1a\u8bbe\u5b9a\u7ec4\u4ef6\u7684format(\u91d1\u989d\uff0c\u65e5\u671f)<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1a ps_fields STRING \u5b57\u6bb5\u540d\u79f0\u5b57\u7b26\u4e32\uff08\u4e2d\u95f4\u4ee5\u9017\u53f7\u5206\u9694\u5f00\uff09<\/p>\n

      ps_format STRING \u8981\u8bbe\u5b9a\u7684format\u5b57\u7b26\u4e32<\/p>\n

      \u56de\u4f20\u503c \uff1anone<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_set_field_format(\u201coea01,oea04\u201d,\u201d###,###.#\u201d)<\/p>\n

      102\uff0ecl_set_field_pic<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_set_field_pic.4gl<\/p>\n

      \u7528 \u9014\uff1a\u8bbe\u5b9a\u663e\u793a\u56fe\u7247<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1a ps_confirm \u786e\u8ba4\u7801<\/p>\n

      ps_approve \u6838\u51c6\u7801<\/p>\n

      ps_post \u8fc7\u8d26\u7801<\/p>\n

      ps_close \u7ed3\u6848\u7801<\/p>\n

      ps_void \u4f5c\u5e9f\u7801<\/p>\n

      pa_valid \u6709\u6548\u7801<\/p>\n

      \u56de\u4f20\u503c \uff1anone<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_set_filed_pic(g_oea.oeaconf,g_approve,\u201d\u201d,\u201d\u201d,g_void,\u201d\u201d)<\/p>\n

      103\uff0ecl_set_focus_form<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_set_focus_form.4gl<\/p>\n

      \u7528 \u9014\uff1a\u622a\u53d6\u5f53\u524d\u5149\u6807\u505c\u7559\u5728\u753b\u9762\u4e0a\u7684\u5b57\u6bb5\u4f4d\u7f6e<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1a ui_code \u753b\u9762\u6839\u8282\u70b9\u7ec4\u4ef6<\/p>\n

      \u56de\u4f20\u503c \uff1afld_name \u753b\u9762\u540d\u79f0<\/p>\n

      frm_name \u5b57\u6bb5\u540d\u79f0<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_set_focus_form(ui.Interface.getRootNode())<\/p>\n

      104\uff0ecl_set_head_visible<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_set_head_visible.4gl<\/p>\n

      \u7528 \u9014\uff1a\u52a8\u6001\u663e\u793a\/\u9690\u85cf\u753b\u9762\u4e0a\u7684\u5355\u5934\u533a\u5757<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1a ps_comps \u8981\u663e\u793a\/\u9690\u85cf\u7ec4\u4ef6\u7684\u5b57\u6bb5\u540d\u79f0\u5b57\u7b26\u4e32\uff08\u4e2d\u95f4\u4ee5\u9017\u70b9\u5206\u9694\uff09<\/p>\n

      ps_visible \u662f\u5426\u663e\u793a(YES:\u663e\u793a\uff0cNO:\u9690\u85cf\uff0cAUTO\uff1a\u81ea\u52a8\u5224\u65ad)<\/p>\n

      \u56de\u4f20\u503c \uff1anone<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_set_head_visible(\u201cfolder01,fold02\u201d,\u201dAUTO\u201d)<\/p>\n

      105\uff0ecl_set_num_value<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_set_num_value.4gl<\/p>\n

      \u7528 \u9014\uff1a\u8bbe\u5b9a\u6570\u503c\u5c0f\u6570\u5b57\u6570(\u53ef\u4ee5\u56db\u820d\u4e94\u5165)<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1a ps_value STRING \u4f20\u5165\u6570\u503c<\/p>\n

      Ps_digit INTERGER \u5c0f\u6570\u4f4d\u6570<\/p>\n

      \u56de\u4f20\u503c \uff1als_value<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_set_num_value(23.12345,4)RETURNING ls_value<\/p>\n

      106\uff0ecl_set_win_title<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_.set_win_title.4gl<\/p>\n

      \u7528 \u9014\uff1a\u4e13\u95e8\u7528\u4e8eOPEN WINDOW\u4f46\u6ca1\u6709FORM\u7684title\u8bed\u8a00\u8f6c\u6362<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1a lc_frm_name \u753b\u9762\u540d\u79f0<\/p>\n

      \u56de\u4f20\u503c \uff1anone<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_set_win_title\uff08\u2018aimt370\u2019\uff09<\/p>\n

      107\uff0ecl_setup<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_setup.4gl<\/p>\n

      \u7528 \u9014\uff1a\u7a0b\u5e8f\u6267\u884c\u7684\u57fa\u672c\u8bbe\u5b9a<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1a ps_module \u6a21\u5757\u4ee3\u53f7<\/p>\n

      \u56de\u4f20\u503c \uff1a1 FOR TRUE \u662f<\/p>\n

      0 FOR FALSE \u5426<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_setup(\u201cAXM\u201d)<\/p>\n

      108\uff0ecl_show_array<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_show_array.4gl<\/p>\n

      \u7528 \u9014\uff1a\u5f00\u7a97\u663e\u793aarray\u7684\u5185\u5bb9<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1a pnode_array \u4f20\u5165base.TypeInfo.create(Array\u53d8\u6570)<\/p>\n

      ps_win_title \u4f5c\u4e3a\u753b\u9762\u4e0a\u65b9\u7684title\u5b57\u7b26\u4e32<\/p>\n

      ps_title_str \u4f5c\u4e3atable\u4e2d\u5404\u5b57\u6bb5Title\u7684\u5b57\u7b26\u4e32\uff0c\u8f6c\u597d\u591a\u8bed\u8a00\u540e\u7528|\u7ec4\u5408<\/p>\n

      \u4f20\u5165<\/p>\n

      \u56de\u4f20\u503c \uff1anone<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_show_array(base.TypeInfo.create(a_azb),\u201d\u7b7e\u6838\u4eba\u5458\u5217\u8868\u201d\uff0c\u201c\u7b7e<\/p>\n

      \u6838\u4eba\u5458|\u5bc6\u7801|\u91d1\u989d\u201d)<\/p>\n

      109\uff0ecl_show_fld_cont<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_show_fld_cont.4gl<\/p>\n

      \u7528 \u9014\uff1a\u8bbe\u5b9ap_per\u5185\u6709\u7279\u6b8a\u683c\u5f0f\u8bbe\u5b9a\u7684\u5b57\u6bb5<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1a 1\u3001\u6c47\u7387\u663e\u793a\uff1arate\uff08\u5e01\u522b\u5b57\u6bb5\uff09<\/p>\n

      2\u3001textEdit\u660e\u7ec6\u663e\u793a\uff1ashow_fd_desc<\/p>\n

      3\u3001\u91d1\u989d\u9017\u53f7\uff1aamt\u2014\u4e0d\u5728\u6b64funcation\u63a7\u5236<\/p>\n

      4\u3001\u5bf9\u8c61\u591a\u8bed\u7cfb\u540d\u79f0\uff1ashow_item(\u53c2\u7167tabel\uff0c\u53c2\u7167\u680f\u540d\uff0ckey\u5e8f\u5217\uff0cper\u6a94<\/p>\n

      \u4e0a\u5b57\u6bb5\u540d\u79f0)<\/p>\n

      5\u3001\u591a\u5355\u4f4d\u5b57\u6bb5\u663e\u793a\uff1amulti_unit\uff08\u6570\u91cf\u4e8c\u5b57\u6bb5\uff0c\u5355\u4f4d\u4e8c\u5b57\u6bb5\uff0c\u6362\u7b97\u7387\u4e8c\u5b57\u6bb5\uff0c<\/p>\n

      \u6570\u91cf\u4e00\u5b57\u6bb5\uff0c\u5355\u4f4d\u4e00\u5b57\u6bb5\uff0c\u6362\u7b97\u7387\u4e00\u5b57\u6bb5\uff0c\u91c7\u8d2d\u5355\u4f4d\u5b57\u6bb5\uff0c\u6599\u4ef6\u53f7\u5b57\u6bb5\uff09<\/p>\n

      \u56de\u4f20\u503c \uff1anone<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_show_fld_cont()<\/p>\n

      110\uff0ecl_show_help<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_show_help.4gl<\/p>\n

      \u7528 \u9014\uff1a\u663e\u793a\u7a0b\u5e8f\u7684\u8bf4\u660e\u6587\u6587\u4ef6<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1anone<\/p>\n

      \u56de\u4f20\u503c \uff1anone<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_show_help()<\/p>\n

      111\uff0ecl_show_req_fields<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_show_req_fields.4gl<\/p>\n

      \u7528 \u9014\uff1a\u663e\u793a\u753b\u9762\u4e0a\u8981\u8f93\u5165\u7684\u5b57\u6bb5\u5374\u672a\u8f93\u5165\u7684\u6240\u6709\u5b57\u6bb5<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1anone<\/p>\n

      \u56de\u4f20\u503c \uff1anone<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_show_req_fields()<\/p>\n

      112\uff0ecl_sure<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_sure.4gl<\/p>\n

      \u7528 \u9014\uff1a\u8be2\u95ee\u201c\u662f\u5426\u786e\u5b9a\u6267\u884c\u672c\u4f5c\u4e1a\uff08Y\/N\uff09\uff1a\u201d<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1ap_row,p_col<\/p>\n

      \u56de\u4f20\u503c \uff1a1 FOR TRUE \u662f<\/p>\n

      0 FOR FALSE \u5426<\/p>\n

      \u7528 \u6cd5 \uff1aIF cl_sure(0,0)<\/p>\n

      113\uff0ecl_sure3<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_sure3.4gl<\/p>\n

      \u7528 \u9014\uff1a\u8be2\u95ee\u201c\u60a8\u6240\u8f93\u5165\u7684\u6570\u636e\u662f\u5426\u6b63\u786e\uff08Y\/N\uff09\uff1f\u201d<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1ap_row,p_col<\/p>\n

      \u56de\u4f20\u503c \uff1a1 FOR TRUE \u662f<\/p>\n

      0 FOR FALSE \u5426<\/p>\n

      \u7528 \u6cd5 \uff1aIF cl_sure3(0,0)<\/p>\n

      114\uff0ecl_trans_xml<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_trans_xml.4gl<\/p>\n

      \u7528 \u9014\uff1a\u8f6c\u6362xml\u6863\u6848<\/p>\n

      1\uff1aexecl\uff0c2\uff1ahtml\uff0c3\uff1acallViewer\uff0c4\uff1atxt\uff0c5\uff1ahtml2pdf\uff0c6\uff1aword<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1axml_name \u8981\u8f6c\u6362\u7684xml\u6863\u6848<\/p>\n

      out_type \u8f6c\u6362\u683c\u5f0f<\/p>\n

      \u56de\u4f20\u503c \uff1anone<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_trans_xml(\u201caimr100.23r.xml\u201d,\u201d1\u201d)<\/p>\n

      115\uff0ecl_download_file<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_transfer_file.4gl<\/p>\n

      \u7528 \u9014\uff1aTransfer file from Server To Client<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1aps_source STRING Source file path<\/p>\n

      ps_target STRING Destination file path<\/p>\n

      \u56de\u4f20\u503c \uff1a1 FOR TURE \u6210\u529f<\/p>\n

      0 FOR FALSE \u5931\u8d25<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_download_file(\u201c\/tmp\/a.doc\u201d,\u201dc:\/temp:b.doc\u201d)<\/p>\n

      116\uff0ecl_upload_file<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_transfer_file.4gl<\/p>\n

      \u7528 \u9014\uff1aTransfer file from Clien To Server<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1aps_source STRING Source file path<\/p>\n

      ps_target STRING Destination file path<\/p>\n

      \u56de\u4f20\u503c \uff1a1 FOR TURE \u6210\u529f<\/p>\n

      0 FOR FALSE \u5931\u8d25<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_download_file(\u201cc:\/temp:a.doc\u201d,\u201d \/tmp\/b.doc\u201d)<\/p>\n

      117\uff0ecl_browse_file<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_transfer_file.4gl<\/p>\n

      \u7528 \u9014\uff1aOpen a file dialog to get a file on Client<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1anone<\/p>\n

      \u56de\u4f20\u503c \uff1afile STRING -slected filed path or NULL means cancel selection<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_browse_file()<\/p>\n

      118\uff0ecl_server_file<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_transfer_file.4gl<\/p>\n

      \u7528 \u9014\uff1aOpen a directory dialog to get a file on Server<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1aDefalut starting path<\/p>\n

      \u56de\u4f20\u503c \uff1afile STRING \u2013selected directory or null means cancel selection<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_server_file()<\/p>\n

      119\uff0ecl_ui_init<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_ui_init.4gl<\/p>\n

      \u7528 \u9014\uff1a\u7a0b\u5e8f\u8bbe\u5b9a\u521d\u59cb\u5316<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1anone<\/p>\n

      \u56de\u4f20\u503c \uff1anone<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_ui_init()<\/p>\n

      120\uff0ecl_ui_locale<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_ui_local.4gl<\/p>\n

      \u7528 \u9014\uff1a\u8f6c\u6362\u8bed\u8a00\u522b<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1apc_frm_name \u6362\u9762\u540d\u79f0 (NULL \u9884\u8bbe\u540d\u79f0\uff1ag_prog)<\/p>\n

      \u56de\u4f20\u503c \uff1anone<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_ui_locale()<\/p>\n

      121\uff0ecl_upsw<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_upsw.4gl<\/p>\n

      \u7528 \u9014\uff1a\u8be2\u95ee\u201c\u662f\u5426\u786e\u8ba4\u6b64\u5f20\u5f02\u52a8\u5355\u636e(Y\/N)?\u201d<\/p>\n

      \u6216\u201c\u662f\u5426\u53d6\u6d88\u786e\u8ba4\u6b64\u5f20\u5f02\u52a8\u5355\u636e(Y\/N)?\u201d<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1apc_row,p_col<\/p>\n

      p_upsw Y:\u786e\u8ba4<\/p>\n

      N\uff1a\u53d6\u6d88\u786e\u8ba4<\/p>\n

      \u56de\u4f20\u503c \uff1a1 FOR TRUE \u662f<\/p>\n

      0 FOR FALSE \u5426<\/p>\n

      \u7528 \u6cd5 \uff1aIF cl_upsw(0,0,p_upsw)<\/p>\n

      122\uff0ecl_used<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_used.4gl<\/p>\n

      \u7528 \u9014\uff1a\u8bb0\u5f55\u5404\u7a0b\u5e8f\u5b9e\u9645\u88ab\u6267\u884c\u7684\u72b6\u51b5<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1ap_code \u7a0b\u5e8f\u4ee3\u53f7\u3001<\/p>\n

      time1 \u8d77\u59cb\u8fd0\u884c\u65f6\u95f4<\/p>\n

      sw 1: \u6267\u884c\u5f00\u59cb RETURN TIEM<\/p>\n

      2:\u6267\u884c\u7ed3\u675f<\/p>\n

      \u56de\u4f20\u503c \uff1atime<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_used(p_code,time1,sw)<\/p>\n

      CALL cl_used(\u2018aom2020\u2019,\u201909:30\u2019,\u20191\u2019)<\/p>\n

      CALL cl_used(\u2018aom2020\u2019,\u201909:40\u2019,\u20192\u2019)<\/p>\n

      123\uff0ecl_user<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_user.4gl<\/p>\n

      \u7528 \u9014\uff1a\u8bbe\u5b9a\u5173\u4e8e\u7528\u6237\u4e8e\u7cfb\u7edf\u516c\u7528\u53d8\u91cf\u7684\u8bbe\u5b9a<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1anone<\/p>\n

      \u56de\u4f20\u503c \uff1a1 FOR TRUE \u662f<\/p>\n

      0 FOR FALSE \u5426<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_user()<\/p>\n

      124\uff0ecl_userdefined_field_check<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_userdefined_field.4gl<\/p>\n

      \u7528 \u9014\uff1a\u68c0\u67e5\u81ea\u5b9a\u4e49\u5b57\u6bb5\u503c<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1apc_fldname \u81ea\u5b9a\u4e49\u5b57\u6bb5\u540d\u79f0<\/p>\n

      ps_value \u81ea\u5b9a\u4e49\u5b57\u6bb5\u503c<\/p>\n

      \u56de\u4f20\u503c \uff1a1 FOR TRUE \u662f<\/p>\n

      0 FOR FALSE \u5426<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_userdefined_field_check(\u201cimaud01\u201d,g_ima.imaud01)<\/p>\n

      RETURNING li_result<\/p>\n

      125\uff0ecl_userdefined_field_query<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_userdefined_field.4gl<\/p>\n

      \u7528 \u9014\uff1a\u81ea\u5b9a\u4e49\u5b57\u6bb5\u5f00\u7a97<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1apc_fldname \u81ea\u5b9a\u4e49\u5b57\u6bb5\u540d\u79f0<\/p>\n

      ps_construct TRUE\uff1a\u591a\u9009\u6570\u636e FLASE\uff1a\u5355\u9009\u6570\u636e\u56de\u4f20<\/p>\n

      \u56de\u4f20\u503c \uff1alc_result \u5f00\u7a97\u56de\u4f20\u503c<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_userdefined_field_check(\u201cimaud01\u201d,FALSE)<\/p>\n

      RETURNING g_ima.imaud02<\/p>\n

      126\uff0ecl_validate<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_validate.4gl<\/p>\n

      \u7528 \u9014\uff1a\u68c0\u67e5\u884c\u4e1a\u522b\u5b57\u6bb5\u6570\u636e\u3001\u5e26\u51fa\u5173\u8054\u5b57\u6bb5\u6570\u636e(p_per\u8bbe\u5b9a)<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1anone<\/p>\n

      \u56de\u4f20\u503c \uff1ali_result TRUE\/FALSE<\/p>\n

      \u7528 \u6cd5 \uff1aIF NOT cl_validate() THEN NEXT FIRLD CURRENT<\/p>\n

      END IF<\/p>\n

      127\uff0ecl_ui_set_init<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_validate.4gl<\/p>\n

      \u7528 \u9014\uff1a\u6293\u53d6\u7ec4\u4ef6\u8bbe\u5b9a\u503c\uff08p_per\u884c\u4e1a\u522b\u5b57\u6bb5\u8bbe\u5b9a\uff09<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1anone<\/p>\n

      \u56de\u4f20\u503c \uff1als_value \u753b\u9762\u4e0a\u663e\u793a\u7684\u503c lc_gav28 \u57fa\u672c\u6587\u4ef6\u8d44\u6599\u68c0\u67e5\u65b9\u5f0f<\/p>\n

      lc_gav20 \u52a8\u6001\u68c0\u67e5\u8bbe\u5b9a lc_gav21 SQL\u6216\u51fd\u6570\u5f0f\u68c0\u67e5\u8bbe\u5b9a<\/p>\n

      lc_gav29 \u5173\u8054\u5b57\u6bb5\u6293\u53d6\u65b9\u5f0f lc_gav31 \u5173\u8054\u5b57\u6bb5\u4ee3\u7801<\/p>\n

      lc_gav22 \u5173\u8054\u5b57\u6bb5\u52a8\u6001\u8bbe\u5b9a lc_gav23 SQL\u6216\u51fd\u6570\u6293\u53d6\u65b9\u5f0f<\/p>\n

      lc_gav30 \u6570\u636e\u91cd\u590d\u68c0\u67e5\u65b9\u5f0f lc_gav26 \u52a8\u6001\u6570\u636e\u68c0\u67e5<\/p>\n

      lc_gav27 SQL\u6216\u51fd\u6570\u68c0\u67e5\u8bbe\u5b9a<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_ui_set_init()<\/p>\n

      RETURNING g_ui.g_value<\/p>\n

       <\/p>\n

       <\/p>\n

      128\uff0ecl_data_check<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_validate.4gl<\/p>\n

      \u7528 \u9014\uff1a\u57fa\u672c\u6587\u4ef6\u6570\u636e\u68c0\u67e5(p_per\u884c\u4e1a\u522b\u5b57\u6bb5\u8bbe\u5b9a)<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1aps_field \u5b57\u6bb5\u4ee3\u7801<\/p>\n

      ps_value \u5b57\u6bb5\u503c<\/p>\n

      \u56de\u4f20\u503c \uff1ali_result TRUE\/FALSE<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_data_check(\u201coeaida001\u201d,g_oea.oeaida001)<\/p>\n

      RETURNING li_result<\/p>\n

      129\uff0ecl_repeat_check<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_validate.4gl<\/p>\n

      \u7528 \u9014\uff1a\u6570\u636e\u91cd\u590d\u68c0\u67e5(p_per\u884c\u4e1a\u522b\u5b57\u6bb5\u8bbe\u5b9a)<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1aps_field \u5b57\u6bb5\u4ee3\u7801<\/p>\n

      ps_value \u5b57\u6bb5\u503c<\/p>\n

      \u56de\u4f20\u503c \uff1ali_result TRUE\/FALSE<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_repeat_check(\u201coeaida001\u201d,g_oea.oeaida001)<\/p>\n

      RETURNING li_result<\/p>\n

      130\uff0ecl_reference:<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_validate.4gl<\/p>\n

      \u7528 \u9014\uff1a\u5173\u8054\u5b57\u6bb5\u503c\u6293\u53d6\u5e76\u663e\u793a(p_per\u884c\u4e1a\u522b\u5b57\u6bb5\u8bbe\u5b9a)<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1aps_field \u5b57\u6bb5\u4ee3\u7801<\/p>\n

      pc_value \u5b57\u6bb5\u503c<\/p>\n

      \u56de\u4f20\u503c \uff1ali_result<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_reference:(\u201coeaida001\u201d,g_oea.oeaida001)<\/p>\n

      RETURNING li_result<\/p>\n

      131\uff0ecl_qry_string<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_validate.4gl<\/p>\n

      \u7528 \u9014\uff1a\u5b57\u6bb5\u8fde\u67e5(p_per\u5b57\u6bb5\u8bbe\u5b9a)<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1aps_fldname \u5b57\u6bb5\u4ee3\u7801<\/p>\n

      \u56de\u4f20\u503c \uff1anone<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_qry_string(\u201cbtn_01\u201d)<\/p>\n

      132\uff0ecl_get_table_name<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_validate.4gl<\/p>\n

      \u7528 \u9014\uff1a\u5bfb\u627e\u5b57\u6bb5\u5728\u6570\u636e\u5e93\u5bf9\u5e94\u7684table name<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1aps_fldname \u5b57\u6bb5\u4ee3\u7801<\/p>\n

      \u56de\u4f20\u503c \uff1alc_frmname \u8868\u683c\u4ee3\u7801<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_get_table_name(lc_gaq01)<\/p>\n

      133\uff0ecl_void<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_void.4gl<\/p>\n

      \u7528 \u9014\uff1a\u8be2\u95ee\u201c\u6b64\u7b14\u8d44\u6599\u662f\u5426\u786e\u5b9a\u4f5c\u5e9f(Y\/N):\u201d<\/p>\n

      \u6216 \u201c\u6b64\u7b14\u8d44\u6599\u662f\u5426\u53d6\u6d88\u4f5c\u5e9f(Y\/N):\u201d<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1ap_row,p_col,p_old_acticode<\/p>\n

      \u56de\u4f20\u503c \uff1a1 FOR TRUE \u662f<\/p>\n

      0 FOR FALSE \u5426<\/p>\n

      \u7528 \u6cd5 \uff1aIF cl_void(0,0,p_old_acticode)<\/p>\n

      134\uff0ecl_wait<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_wait.4gl<\/p>\n

      \u7528 \u9014\uff1a\u663e\u793a\u7b49\u5f85\u8baf\u606f<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1anone<\/p>\n

      \u56de\u4f20\u503c \uff1anone<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_wait()<\/p>\n

      135\uff0ecl_wcchp<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_wcchp.4gl<\/p>\n

      \u7528 \u9014:WC\u5185\u91cd\u8981\u5b57\u53e5\u4e2d\u6587\u5316(Changing patter in p_wc)<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1ap_wc VARCHAR(3000) WHERE condition<\/p>\n

      p_oldp VARCHAR(60) Pattern(column list)to be changed<\/p>\n

      \u56de\u4f20\u503c \uff1ap_newwc VARCHAR(300) New where condition after changed<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_wcchp(p_wc,p_oldp)RETURNING p_wc<\/p>\n

      CALL cl_wcchp(1_wc,\u2019gca01,gca02,gca03,gca06\u2019)<\/p>\n

      RETURNING P_WC<\/p>\n

      136\uff0ecl_wcshow<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_wcshow.4gl<\/p>\n

      \u7528 \u9014\uff1a\u663e\u793a\u7ec4\u5408\u7684RDSQL\u6307\u4ee4\u4e8e\u5c4f\u5e5520\uff0c21\uff0c22\uff0c23\u884c<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1ap_wc\uff08Where Condition clause\uff09<\/p>\n

      \u56de\u4f20\u503c \uff1anone<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_wcshow(p_wc)<\/p>\n

      137\uff0ecl_init_qry_var<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1acl_init_qry_var.4gl<\/p>\n

      \u7528 \u9014\uff1a\u6e05\u7a7ag_qryparam\u53d8\u6570<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1anone<\/p>\n

      \u56de\u4f20\u503c \uff1anone<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_int_qry_var()<\/p>\n

      138\uff0ecl_get_locale<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1a<\/p>\n

      \u7528 \u9014\uff1a\u53d6\u5f97\u4e3b\u673a\u7aef\u7cfb\u7edf\u76ee\u524d\u8bbe\u5b9a\u7684\u8bed\u7cfb(\u4e00\u5f8b\u8f6c\u6210\u5927\u5199)<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1a<\/p>\n

      \u56de\u4f20\u503c \uff1aZH_TW,EN_US\u7b49\u7f16\u7801<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_get_locale()<\/p>\n

      # LET ms_locale = FGL_GETENV(“LANG”)<\/p>\n

      # LET li_i = ms_locale.getIndexOf(“.”, 1)<\/p>\n

      # IF li_i != 0 THEN<\/p>\n

      # LET ms_locale = ms_locale.subString(1, li_i – 1)<\/p>\n

      # END IF<\/p>\n

      # LET ms_locale = ms_locale.toUpperCase()<\/p>\n

      139\uff0ecl_get_codeset<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1a<\/p>\n

      \u7528 \u9014\uff1a\u53d6\u5f97\u4e3b\u673a\u7aef\u7cfb\u7edf\u76ee\u524d\u8bbe\u5b9a\u7684\u8bed\u8a00\u522b(\u4e00\u5f8b\u8f6c\u6210\u5927\u5199)<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1a<\/p>\n

      \u56de\u4f20\u503c \uff1aUFT-8\u7b49\u7f16\u7801<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_get_codeset()<\/p>\n

      # LET lch_cmd = base.Channel.create()<\/p>\n

      # CALL lch_cmd.openPipe(“locale charmap | cut -d. -f1 | tr -d \\”‘\\”‘\\”‘”, “r”)<\/p>\n

      # WHILE lch_cmd.read(ms_codeset)<\/p>\n

      # END WHILE<\/p>\n

      # LET ms_codeset = ms_codeset.toUpperCase()<\/p>\n

      140\uff0ecl_used_ap_hostname<\/strong><\/p>\n

      \u7a0b\u5e8f\u540d\u79f0\uff1a<\/p>\n

      \u7528 \u9014\uff1a\u6293\u53d6AP Server\u7684hostname<\/p>\n

      \u4f20\u5165\u53c2\u6570\uff1aNULL<\/p>\n

      \u56de\u4f20\u503c \uff1aAP_Server_Hostname String<\/p>\n

      \u7528 \u6cd5 \uff1aCALL cl_used_ap_hostname()<\/p>\n

      \u8f6c\u8f7d\u8bf7\u6ce8\u660e\uff1a\u8d6b\u975e\u57df<\/a> » Tiptop GP \u5171\u7528\u5185\u7f6e\u51fd\u6570\u51fd\u5f0f\u7a0b\u5f0f\u67e5\u8be2\u624b\u518cV1.1<\/a><\/p>","protected":false},"excerpt":{"rendered":"

      TIPTOP Common Library Fuction   1\uff0ecl_about \u7a0b\u5e8f\u540d\u79f0\uff1acl_about.4gl \u7528 \u9014\uff1a\u7a0b\u5e8f\u4fe1\u606f \u4f20\u5165\u53c2\u6570\uff1anone \u56de\u4f20\u503c \uff1anone \u7528 \u6cd5 \uff1aCALL cl_about() 2\uff0ecl_anyk […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[26],"tags":[304,904,305],"class_list":["post-1428","post","type-post","status-publish","format-standard","hentry","category-4gl","tag-304","tag-904","tag-305"],"_links":{"self":[{"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts\/1428","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1428"}],"version-history":[{"count":2,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts\/1428\/revisions"}],"predecessor-version":[{"id":7991,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts\/1428\/revisions\/7991"}],"wp:attachment":[{"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1428"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1428"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1428"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}