{"id":5107,"date":"2019-08-12T08:26:44","date_gmt":"2019-08-12T00:26:44","guid":{"rendered":"http:\/\/www.hefeiyu.com\/?p=5107"},"modified":"2019-08-12T08:26:44","modified_gmt":"2019-08-12T00:26:44","slug":"%e9%bc%8e%e6%8d%b7t100%e5%bc%80%e5%8f%91%e6%89%80%e9%81%87%e5%88%b0%e7%9a%84%e9%97%ae%e9%a2%98","status":"publish","type":"post","link":"https:\/\/www.hefeiyu.com\/?p=5107","title":{"rendered":"\u9f0e\u6377T100\u5f00\u53d1\u6240\u9047\u5230\u7684\u95ee\u9898"},"content":{"rendered":"<p>1\u3001Program stopped at &#8216;cin_aint340.4gl&#8217;, line number 1121.<br \/>\nFORMS statement error number -1338.<br \/>\nThe function &#8216;cl_exe_rep&#8217; has not been defined in any module in the program.<\/p>\n<p>\u89e3\u51b3\u529e\u6cd5\uff1a1\u3001\u505a\u62a5\u8868\u6253\u5370\u683c\u5f0f\u65f6\uff0c\u5728azzi988\u91cc\u9762\u6dfb\u52a0\u62a5\u8868\u5143\u4ef6\u53c2\u6570\u65f6\uff0c\u5fc5\u987b\u8981\u91cd\u65b0\u4e0b\u8f7d\u5355\u636e\u7a0b\u5e8f\u5e76\u4e14\u4e0a\u4f20\uff0c<br \/>\n2\u3001\u4e0a\u4f20\u540e\u7b2c\u4e00\u6b21\u8fd0\u884c\u5355\u636e\u4f5c\u4e1a\u4f1a\u51fa\u73b0\u5168\u82f1\u6587<br \/>\n3\u3001\u7136\u540e\u5173\u6389\u5c31\u597d\u4e86<br \/>\n3\u3001\u767b\u9646\u95ee\u9898<br \/>\n1\u7528\u6237\u767b\u5f55\u4e0d\u4e86\uff0c\u62a5\u7c7b\u4f3cflm\u7684\u9519\u8bef\u7528root\u6267\u884c\u4ee5\u4e0b\u547d\u4ee4cd \/u1\/genero\/flm. envflmflmprg -s \u7136\u540eflmprg -r<br \/>\n2\u7f51\u9875\u7aef\u767b\u5f55\u4e0d\u4e86systemctl restart httpd.servicesystemctl restart gas_topprd.service<\/p>\n<p>3\u3001T100\u7528\u6237\u767b\u5f55\u9519\u8bef\u89e3\u51b3\u65b9\u6cd5<\/p>\n<p>1 \u7528\u6237\u767b\u5f55\u4e0d\u4e86\uff0c\u62a5\u7c7b\u4f3cflm \u7684\u9519\u8bef<br \/>\n\u7528root\u6267\u884c\u4ee5\u4e0b\u547d\u4ee4<br \/>\ncd \/u1\/genero\/flm<br \/>\n. envflm<br \/>\nflmprg -s<br \/>\n\u7136\u540eflmprg -r<\/p>\n<p>2 \u7f51\u9875\u7aef\u767b\u5f55\u4e0d\u4e86<br \/>\nsystemctl restart httpd.service<br \/>\nsystemctl restart gas_topprd.service<\/p>\n<p>4\u3001\u7a0b\u5e8f\u4ee3\u53f7 cpmr050 \u6ca1\u6709\u7248\u6b21 1 \u7684\u753b\u9762\u8bbe\u8ba1\u6570\u636e, \u8bf7\u67e5\u660e\u539f\u56e0\u540e\u518d\u91cd\u65b0\u4e0b\u8f7d.<br \/>\n\u89e3\u51b3\u529e\u6cd5\uff1a\u6ca1\u6709\u76f8\u5e94\u7684\u753b\u9762\uff0c\u9700\u8981\u5230\u753b\u9762\u4ea7\u751f\u5668adzp168\u91cc\u9762\u4ea7\u751f\u753b\u9762<\/p>\n<p>5\u3001T100\u4e0d\u80fd\u6253\u5370<br \/>\n\u539f\u56e0\uff1a\u62a5\u8868\u670d\u52a1\u5668\u6ca1\u94fe\u63a5\u5230T100\u670d\u52a1\u5668<br \/>\n\u89e3\u51b3\u529e\u6cd5\uff1adf -h \u67e5\u770b\u539f\u56e0<br \/>\n1\u3001\u94fe\u63a5\u670d\u52a1\u566810.10.50.121 \u65ad\u4e86<br \/>\n\u5728xshell\u91cc\u9762\u8f93\u5165cd \/T100_gr\uff0c\u5728ls -la<br \/>\n2\u3001\u5728\u81ea\u5df1\u7684\u7535\u8111\u4e0a\u8f93\u5165\uff1a\\\\10.10.50.121\\T100_gr<\/p>\n<p>6\u3001\u65b0\u589e\u7684\u680f\u4f4d\u4e3a\u53ea\u8bfb\u72b6\u6001\uff0c\u9700\u8981\u67e5\u8be2\u4e0e\u4fee\u6539\uff1f<br \/>\n\u89e3\u51b3\u529e\u6cd5\uff1a\u5728CONSTRUCT\u3001INPUT\u91cc\u9762\u589e\u52a0\u81ea\u5df1\u65b0\u589e\u680f\u4f4d\u7684\u540d\u79f0<\/p>\n<p>7\u3001\u5728\u89c4\u683c\u91cc\u9762\u65b0\u589e\u680f\u4f4d\uff0c\u5f53\u663e\u793a\u4e3a******\u65f6\u53ef\u4ee5\u5c1d\u8bd5\u628a\u680f\u4f4d\u62c9\u5bbd\u6216\u8005\u67e5\u770b\u683c\u5f0f\u5316\u662f\u5426\u6b63\u786e<\/p>\n<p>8\u3001\u4fee\u6539\u62a5\u8868\u6837\u5f0f\u65f6\uff0c\u5982cinr302_g01\u3001cinr302_g01_01\u65f6\u9700\u8981\u5728zh_CN\u3001zh_TW\u91cc\u9762\u6dfb\u52a0\u76f8\u5e94\u7684\u683c\u5f0f<\/p>\n<p>9\u3001\u5728\u5df2\u6709\u62a5\u8868\u4e2d\u6539\u53d8\u62a5\u8868\u6392\u7248\u65f6\uff0c\u5728\u6d4b\u8bd5\u533a\u4fee\u6539OK\uff0c\u5bfc\u51fa\u4e0a\u4f20\u6b63\u5f0f\u533a\u6ca1\u62a5\u9519\uff0c\u4f46\u662f\u62a5\u8868\u6837\u677f\u6ca1\u6709\u6539\u53d8\uff1f<br \/>\n\u5148\u5728azzi301\u91cc\u9762\u65b0\u589e\u9700\u8981\u52a0\u7684\u6a21\u677f<br \/>\n9.1 \u8bbe\u7f6e\u62a5\u8868\u6392\u7248\u662f\u4e0d\u80fd\u5220\u9664\uff0c\u8981\u8bbe\u7f6e\u6210\u9690\u85cf<br \/>\n9.2 \u62a5\u8868\u7684\u6392\u5e8f\u4e00\u5b9a\u8981\u5728adzp188\u91cc\u9762\u8bbe\u7f6e\uff0c\u7136\u540e\u70b9\u51fb\u751f\u6210\u4ee3\u7801, \u7136\u540e\u8fd8\u8981\u6309\u7167\u8fd9\u4e2a\u987a\u5e8f\u64cd\u4f5c\u4e00\u4e0b\uff1a\u91cd\u65b0\u4e0b\u8f7d4gl\uff0c\u4e0a\u4f204gl\uff0c\u4e0b\u8f7d\u62a5\u8868\u6837\u677f\uff0c\u4e0a\u4f20\u62a5\u8868\u6837\u677f<br \/>\n9.3 \u4fee\u6539\u6392\u7248\u540e\uff0c\u8981\u5c06azzi301\u91cc\u9762\u7684\u6570\u636e\u4e00\u8d77\u5bfc\u5165\uff0c\u6b65\u9aa4\uff1a1 \u5728adzi888\u91cc\u9762\u5f55\u5165\u6570\u636e\uff0c2.\u5f55\u5b8c\u540e\uff0c\u70b9\u5bfc\u51fa(\u6e05\u5355+\u6570\u636e)\uff0c\u7136\u540e\u70b9\u4e0b\u8f7d\uff0c\u4e0b\u8f7d\u6587\u4ef6\u5230\u684c\u9762 3.\u7136\u540e\u5728\u6b63\u5f0f\u533a\u6253\u5f00\u8fd9\u4e2a\u4f5c\u4e1aadzi888\uff0c\u70b9\u51fb\u5bfc\u51fa\u6863\u4e0a\u4f20\uff0c\u5c31\u662f\u4e0a\u6b21\u521a\u521a\u5bfc\u51fa\u7684\u90a3\u4e2a\u6587\u4ef6\uff0c\u6700\u540e\u70b9\u6ce8\u518c\u6570\u636e\u5bfc\u5165\u5c31\u53ef\u4ee5\u4e86<\/p>\n<p>10\u3001\u6c47\u51faexcel\u6807\u51c6\u7248<br \/>\n#excel\u532f\u51fa\u529f\u80fd<br \/>\nON ACTION exporttoexcel<br \/>\nLET g_action_choice=&#8221;exporttoexcel&#8221;<br \/>\nIF cl_auth_chk_act(&#8220;exporttoexcel&#8221;) THEN<br \/>\n#browser<br \/>\nCALL g_export_node.clear()<br \/>\nIF g_main_hidden = 1 THEN<br \/>\nLET g_export_node[1] = base.typeInfo.create(g_browser)<br \/>\nLET g_export_id[1]\u00a0\u00a0 = &#8220;s_browse&#8221;<br \/>\nCALL cl_export_to_excel()<br \/>\n#\u975ebrowser<br \/>\nELSE<br \/>\nLET g_export_node[1] = base.typeInfo.create(g_ecbb_d)<br \/>\nLET g_export_id[1]\u00a0\u00a0 = &#8220;s_detail1&#8221;<br \/>\nLET g_export_node[2] = base.typeInfo.create(g_ecbb2_d)<br \/>\nLET g_export_id[2]\u00a0\u00a0 = &#8220;s_detail2&#8221;<br \/>\nLET g_export_node[3] = base.typeInfo.create(g_ecbb3_d)<br \/>\nLET g_export_id[3]\u00a0\u00a0 = &#8220;s_detail3&#8243;<\/p>\n<p>#add-point:ON ACTION exporttoexcel name=&#8221;menu.exporttoexcel&#8221;<\/p>\n<p>#END add-point<br \/>\nCALL cl_export_to_excel_getpage()<br \/>\nCALL cl_export_to_excel()<br \/>\nEND IF<br \/>\nEND IF<\/p>\n<p>11.T100\u52a8\u6001\u4e0b\u62c9\u6846\uff1aCALL cl_set_combo_scc(&#8216;type&#8217;,&#8217;1020&#8242;)\uff0c\u5728azzi600,\u7cfb\u7edf\u5206\u7c7b\u7801\u7ef4\u62a4\u4f5c\u4e1a<\/p>\n<p>12.\u5f53\u9047\u5230\u5355\u8eab\u65e0\u6cd5\u4e0b\u6761\u4ef6\u67e5\u8be2\u65f6\uff0c\u8fd9\u65f6\u5019\u9700\u8981\u6392\u9664\u8fd9\u4e2a\u539f\u56e0\uff1a<br \/>\nBEFORE DIALOG<br \/>\nCALL cl_qbe_init()<br \/>\n#add-point:cs\u6bb5b_dialog name=&#8221;cs.b_dialog&#8221;<br \/>\nLET g_xmapuc_d[1].xmapucseq = &#8220;&#8221;<br \/>\nDISPLAY ARRAY g_xmapuc_d TO s_detail1.*<br \/>\nBEFORE DISPLAY<br \/>\nEXIT DISPLAY<br \/>\nEND DISPLAY<\/p>\n<p>13.\u5207\u6362\u8425\u8fd0\u636e\u70b9\u7684\u65b9\u6cd5\uff1a<br \/>\nIF cl_site_select_check() THEN<br \/>\nLET g_xmdg_m.xmdgsite =g_site<br \/>\nCALL s_desc_get_department_desc(g_xmdg_m.xmdgsite) RETURNING g_xmdg_m.xmdgsite_desc<br \/>\nDISPLAY g_xmdg_m.xmdgsite TO xmdgsite\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 #\u986f\u793a\u5230\u756b\u9762\u4e0a<br \/>\nDISPLAY BY NAME g_xmdg_m.xmdgsite_desc<br \/>\nEND IF<\/p>\n<p>14.\u600e\u4e48\u52a0\u6743\u9650\uff1a\u9996\u5148\u5728azzi800\u91cc\u628a\u7528\u6237\u7684\u89d2\u8272\u627e\u5230\uff0c\u7136\u540e\u5728azzi850\u91cc\u67e5\u5230\u8fd9\u4e2a\u89d2\u8272\uff0c\u7136\u540e\u628a\u4f5c\u4e1a\u7f16\u53f7\u52a0\u8fdb\u53bb\uff0c\u7136\u540e\u00a0\u00a0 r.r azzp195 \u4f5c\u4e1a\u7f16\u53f7\uff0c\u6700\u540e\u5728azzi850\u91cc\u6309\u89d2\u8272\u67e5\u5230\u8fd9\u4e2a\u8fd9\u652f\u4f5c\u4e1a\uff0c\u5728\u7b2c\u4e8c\u5355\u8eab\u628a\u6240\u6709\u7684\u529f\u80fd\u90fd\u52fe\u9009\u4e0a<\/p>\n<p>15.\u589e\u52a0action\uff1a\u5148\u5728\u753b\u9762\u4e0a\u6700\u53f3\u4fa7\u70b9\u51fb\u3010\u65b0\u589e\u9879\u76ee\u3011\uff0c\u7136\u540e\u5bf9action\u7684\u540d\u5b57\u8fdb\u884c\u7ef4\u62a4\uff0c\u7136\u540e\u4e0a\u4f20\u89c4\u683c\uff1b\u7136\u540e\u6253\u5f00 azzi903(\u529f\u80fd\u53ca\u9009\u5355\u914d\u7f6e\u4f5c\u4e1a)\uff0c\u901a\u8fc7\u8fd9\u4e2a\u4f5c\u4e1a\u518d\u5bf9action<br \/>\n\u7684\u6309\u94ae\u5177\u4f53\u653e\u7f6e\u5728\u54ea\u4e2a\u9875\u7b7e\u4e0b\uff0c\u4ee5\u53ca\u5b83\u7684\u540d\u5b57\u518d\u8fdb\u884c\u7ef4\u62a4\uff0c\u6700\u540e\u518d\u5f00\u542f\u8be5\u652f\u4f5c\u4e1a\u5c31\u4f1a\u5728\u5bf9\u5e94\u9875\u7b7e\u4e0b\u770b\u5230\u52a0\u7684action\u540d\u79f0<\/p>\n<p>16.\u65b0\u589e\u4f5c\u4e1a\u65f6\uff0c\u5c06\u4f5c\u4e1a\u7f16\u53f7\u52a0\u5165\u6811\u72b6\u56fe\u53ca\u636e\u70b9\uff1f<br \/>\n\u5728\u4f5c\u4e1aazzi880\u91cc\u9762\u5c06\u65b0\u589e\u7684\u4f5c\u4e1a\u6dfb\u52a0\u5230\u6811\u72b6\u56fe\uff0c\u52a0\u5165\u636e\u70b9\u65f6\u5728azzi850\u91cc\u9762\u8fdb\u884c\u5f55\u5165\u65b0\u589e\u7684\u5355\u636e\u5355\u53f7\uff0c\u5982\u679c\u662ftiptop\u65f6\u5728admin\u4e0b\u9762\u8fdb\u884c\u5f55\u5165\u5373\u53ef<\/p>\n<p>17.T100\u5355\u8eab\u6c47\u603b\u540e\u8981\u67e5\u8be2\uff0c\u5728BEFORE DIALOG\u52a0\u5982\u4e0b\u4ee3\u7801<br \/>\nLET g_apba2_d[1].isam008 = &#8221;<br \/>\nDISPLAY ARRAY g_apba2_d TO s_detail2.*<br \/>\nBEFORE DISPLAY<br \/>\nEXIT DISPLAY<br \/>\nEND DISPLAY<br \/>\n\u5355\u8eab\u52a0\u4e86\u6c47\u603b\u540e\uff0c\u5728\u5355\u8eab\u5f55\u5165\u591a\u884c\u7684\u65f6\u5019\u53ea\u80fd\u7528Tab\u952e\u5207\u6362\u5230\u4e0b\u4e00\u884c<\/p>\n<p>18.aooi100 \u6dfb\u52a0logo<\/p>\n<p>19.azzi090 \u5b57\u6bb5\u5f62\u6001\u8bbe\u8ba1<\/p>\n<p>20.ainq100 \u6599\u4ef6\u5e93\u5b58\u67e5\u8be2<\/p>\n<p>21.azzi908 inc\u7a0b\u5e8f\u5171\u7528\u53d8\u91cf\u8bbe\u7f6e\u6863\u7ef4\u62a4<br \/>\neg:<br \/>\nSCHEMA ds<\/p>\n<p>GLOBALS<br \/>\nDEFINE g_detail_insert\u00a0\u00a0 LIKE type_t.num5\u00a0\u00a0 #\u55ae\u8eab\u7684\u65b0\u589e\u6b0a\u9650<br \/>\nDEFINE g_detail_delete\u00a0\u00a0 LIKE type_t.num5\u00a0\u00a0 #\u55ae\u8eab\u7684\u522a\u9664\u6b0a\u9650<br \/>\nDEFINE g_wc2_m20001\u00a0\u00a0\u00a0\u00a0\u00a0 STRING\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 #\u55ae\u8eabQBE\u689d\u4ef6<br \/>\nDEFINE g_d_idx_m20001\u00a0\u00a0\u00a0 LIKE type_t.num5\u00a0\u00a0 #\u55ae\u8eab\u6240\u5728\u7b46\u6578<br \/>\nDEFINE g_d_cnt_m20001\u00a0\u00a0\u00a0 LIKE type_t.num5\u00a0\u00a0 #\u55ae\u8eab\u7e3d\u7b46\u6578<br \/>\nDEFINE g_imaa001_d\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 LIKE imaa_t.imaa001<br \/>\nDEFINE g_appoint_idx\u00a0\u00a0\u00a0\u00a0 LIKE type_t.num5\u00a0\u00a0 #\u6307\u5b9a\u9032\u5165\u55ae\u8eab\u884c\u6578<br \/>\nDEFINE g_loc\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 LIKE type_t.chr5\u00a0\u00a0 #\u5224\u65b7\u6e38\u6a19\u6240\u5728\u4f4d\u7f6e<br \/>\nEND GLOBALS<\/p>\n<p>22.DeBug\u65f6\u62a5\u9519 -8014<br \/>\n\u89e3\u51b3\u6b65\u9aa4\uff1a1.cd \u76ee\u5f55\u540d\u79f0\u00a0\u00a0\u00a0 eg: cd cpm<br \/>\n2.cd 4gl<br \/>\n3.r.d \u7a0b\u5e8f\u540d\u79f0\u00a0\u00a0 eg: r.d apmr500<br \/>\n\u5982\u6839\u636e\u4e0a\u8ff0\u8fd8\u662f\u4e0d\u80fdDeBug\uff0c\u5982\u8981debugasft311\uff0c\u5219\u5982\u4e0b:<br \/>\neg:asft311 \u7684\u7a0b\u5e8f\u662fasft310<br \/>\n1. r.dg asft300<br \/>\n2. r.d asft311<br \/>\n23.T100\u767b\u9646\u4e0d\u4e0a\u5728\u5b89\u88c5\u76ee\u5f55\u6700\u540e \u52a0-aDM<\/p>\n<p>24.http:\/\/61.159.137.8:8099\/wtoptst\/wa\/r\/app\/gdc_azzi000?Arg=88&amp;Arg=zh_CN\u00a0 \u5916\u7f51\u6d4b\u8bd5\u533a<\/p>\n<p>http:\/\/erp.yiqingjt.com:8099<\/p>\n<p>25.\u6570\u636e\u5e93\u8868\u589e\u52a0\u680f\u4f4d\u957f\u5ea6<br \/>\n\u65b0\u589e\u8868\u683c\u540e\u4e5f\u8981\u6267\u884cr.s ds \uff0c\u5426\u5219\u5728adzi140\u91cc\u9762\u4f1a\u62a5\u9519<br \/>\n1.r.t adzi140<br \/>\n2.\u66f4\u6539\u680f\u4f4d\u5c5e\u6027<br \/>\n3.\u6267\u884c\u5f02\u52a8\u6807\u5fd7<br \/>\n4.\u6267\u884c r.s ds \u547d\u4ee4\u662f\u66f4\u65b0ds\u6570\u636e\u5e93\u7684\u53c2\u7167\u8868\uff0c<br \/>\nr.c \u8868\u683c\u540d\u79f0 ALL \u8fd9\u4e2a\u662f\u628a\u6240\u6709\u7528\u5230\u8fd9\u4e2a\u8868\u7684\u7a0b\u5e8f\u7f16\u8bd1\u4e00\u904d<\/p>\n<p>\u65b0\u589e\u8868\u683c\u5b57\u6bb5\uff0c\u5728adzi140\u91cc\u9762\u65b0\u589e\u7136\u540e 1.\u6267\u884c\u5f02\u52a8\u6807\u5fd7<br \/>\n2.\u6267\u884c r.s ds \u547d\u4ee4\u662f\u66f4\u65b0ds\u6570\u636e\u5e93\u7684\u53c2\u7167\u8868\uff0c<br \/>\nr.c \u8868\u683c\u540d\u79f0 ALL \u8fd9\u4e2a\u662f\u628a\u6240\u6709\u7528\u5230\u8fd9\u4e2a\u8868\u7684\u7a0b\u5e8f\u7f16\u8bd1\u4e00\u904d<br \/>\n\u7136\u540e\u5728\u8bbe\u8ba1\u5668\u91cc\u9762\u66f4\u65b0\u57fa\u7840\u6570\u636e\u5373\u53ef\u770b\u5230\u65b0\u589e\u7684\u5b57\u6bb5\u4e86<\/p>\n<p>26.\u7528\u7f51\u9875\u4e0d\u80fd\u6253\u5f00T100<br \/>\n\u67e5\u770bgas_toptst\u6709\u6ca1\u6709\u542f\u52a8\uff0c\u7528\u547d\u4ee4systemctl restart gas_toptst\u5373\u53ef\u91cd\u65b0\u542f\u52a8<\/p>\n<p>27.\u51ed\u8bc1\u62a5\u8868\u6253\u5370\u663e\u793a\u4e0d\u5168\u6216\u8005\u51fa\u73b0\u91cd\u53e0<br \/>\n\u5c06PageRoot\u7684X_size\uff0cY_size\u8bbe\u7f6e\u6210\u6700\u5927<\/p>\n<p>28.\u73b0\u573a\u60c5\u51b5\u8bf4\u660e<br \/>\n\u5f88\u591a\u65f6\u5019\u4f1a\u6709\u6279\u91cf\u5f55\u5165\u5355\u8eab\u7684\u9700\u6c42\uff0c\u4e00\u822c\u60c5\u51b5\u53ef\u80fd\u76f4\u63a5\u5728EXCEL\u8868\u4e2d\u590d\u5236\u5230\u5355\u8eab\u5373\u53ef\uff0c\u4f46\u6709\u65f6\u5019\u53ef\u80fd\u5355\u8eab\u5b58\u5728ComboBox(\u4e0b\u62c9\u6846)\u63a7\u4ef6\u65f6\uff0c\u6ca1\u529e\u6cd5\u6279\u91cf\u590d\u5236\u5230\u5355\u8eab\uff0c\u4ea6\u6216\u8005\u662f\u9700\u6c42\u76f4\u63a5\u6c47\u5165\u5355\u6863\u6570\u636e\u65f6\uff0c\u9700\u501f\u7528EXCEL\u5bfc\u5165\u529f\u80fd\u3002<br \/>\n\u89e3\u51b3\u65b9\u6cd5<br \/>\n\u53ef\u53c2\u8003\u5982\u4e0b\u4ee3\u7801\u5f00\u53d1excel\u6279\u91cf\u5bfc\u5165\u6570\u636e\u529f\u80fd\uff1a<br \/>\nDEFINE\u00a0 lr_err\u00a0\u00a0\u00a0\u00a0\u00a0 DYNAMIC ARRAY OF RECORD<br \/>\nline\u00a0\u00a0\u00a0 STRING,<br \/>\nkey1\u00a0\u00a0\u00a0 STRING,<br \/>\nerr\u00a0\u00a0\u00a0\u00a0 STRING<br \/>\nEND RECORD<br \/>\nDEFINE gs_location\u00a0\u00a0 STRING<br \/>\nDEFINE li_k\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 SMALLINT<br \/>\nDEFINE ls_cell\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 STRING<br \/>\nDEFINE ls_cell_r\u00a0\u00a0\u00a0\u00a0 STRING<br \/>\nDEFINE li_i_r\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 SMALLINT<br \/>\nDEFINE li_i\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 SMALLINT<br \/>\nDEFINE cnt\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 STRING<br \/>\nDEFINE li_no\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 SMALLINT<br \/>\nDEFINE li_str\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 STRING<br \/>\nDEFINE g_fileloc\u00a0\u00a0\u00a0\u00a0\u00a0 STRING<br \/>\nDEFINE p_row,p_col,l_n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 SMALLINT<br \/>\nDEFINE xlapp,iRes,iRow,i,j\u00a0\u00a0\u00a0\u00a0 INTEGER<br \/>\nDEFINE sValue\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 STRING<\/p>\n<p>LET gs_location = cl_client_browse_file()\u00a0\u00a0 #\u5f39\u51fa\u7a97\u53e3\uff0c\u63a5\u6536\u672c\u5730\u6587\u4ef6\u8def\u5f84<br \/>\n#\u8f6c\u6362\u8def\u5f84\u5206\u9694\u7b26<br \/>\nLET g_fileloc = cl_replace_str(gs_location,&#8221;\/&#8221;,&#8221;\\\\&#8221;)<br \/>\nLET li_k = 1<br \/>\nLET li_i_r = 1<br \/>\nLET g_success = &#8216;Y&#8217;<br \/>\nCALL lr_err.clear()<br \/>\n#\u6253\u5f00EXCEL<br \/>\nCALL ui.interface.frontCall(&#8216;WinCOM&#8217;,&#8217;CreateInstance&#8217;,[&#8216;Excel.Application&#8217;],[xlApp])<br \/>\nIF xlApp &lt;&gt; -1 THEN<br \/>\n#\u8bfb\u53d6\u8be5\u6587\u4ef6EXCEL\u9875\u7b7e\u5185\u5bb9<br \/>\nCALL ui.interface.frontCall(&#8216;WinCOM&#8217;,&#8217;CallMethod&#8217;,[xlApp,&#8217;WorkBooks.Open&#8217;,g_fileloc],[iRes])<br \/>\nIF iRes &lt;&gt; -1 THEN<br \/>\n#\u83b7\u53d6EXCEL\u6570\u636e\u5217\u6570<br \/>\nCALL ui.interface.frontCall(&#8216;WinCOM&#8217;,&#8217;GetProperty&#8217;,<br \/>\n[xlApp,&#8217;ActiveSheet.UsedRange.Rows.Count&#8217;],[iRow])<br \/>\n#\u4ece\u7b2c\u51e0\u884c\u5f00\u59cb<br \/>\nFOR i = 2 TO iRow<br \/>\nCALL s_transaction_begin()<br \/>\nLET li_i_r = i<br \/>\n#\u8bfb\u53d6\u7b2c\u51e0\u884c\u7684\u7b2c\u51e0\u5217\u6570\u636e<br \/>\nCALL ui.interface.frontCall(&#8216;WinCOM&#8217;,&#8217;GetProperty&#8217;,[xlApp,&#8217;ActiveSheet.Cells(&#8216;||i||&#8217;,2).Value&#8217;],[l_type1])<br \/>\nCALL ui.interface.frontCall(&#8216;WinCOM&#8217;,&#8217;GetProperty&#8217;,[xlApp,&#8217;ActiveSheet.Cells(&#8216;||i||&#8217;,3).Value&#8217;],[l_type2])<br \/>\nCALL\u00a0 ui.interface.frontCall(&#8216;WinCOM&#8217;,&#8217;GetProperty&#8217;,[xlApp,&#8217;ActiveSheet.Cells(&#8216;||i||&#8217;,4).Value&#8217;],[l_type3])<br \/>\n###\u6dfb\u52a0\u68c0\u67e5\u4ee5\u53ca\u62a5\u9519\u4fe1\u606f<br \/>\nIF cl_null(l_type1) THEN<br \/>\nLET lr_err[li_k].line = li_i_r<br \/>\nLET lr_err[li_k].key1 = l_imaa.imaa001<br \/>\nLET lr_err[li_k].err\u00a0 = &#8216;\u8be5\u6599\u4ef6\u672a\u8f93\u5165\u65b0\u589e\/\u4fee\u6539\u7c7b\u578b,\u8bf7\u68c0\u67e5!&#8217;<br \/>\nLET li_k = li_k + 1<br \/>\nCONTINUE FOR<br \/>\nELSE<br \/>\nIF l_type1 NOT MATCHES &#8216;[12]&#8217; THEN<br \/>\nLET lr_err[li_k].line = li_i_r<br \/>\nLET lr_err[li_k].key1 = l_imaa.imaa001<br \/>\nLET lr_err[li_k].err\u00a0 = &#8216;\u8be5\u6599\u4ef6\u65b0\u589e\/\u4fee\u6539\u7c7b\u578b\u8f93\u5165\u6709\u8bef,\u8bf7\u68c0\u67e5!&#8217;<br \/>\nLET li_k = li_k + 1<br \/>\nCONTINUE FOR<br \/>\nEND IF<br \/>\nEND IF<br \/>\nINSERT INTO xxx_t values (xxx)<br \/>\nCALL s_transaction_end(&#8216;Y&#8217;,&#8217;0&#8242;)<br \/>\nEND FOR<br \/>\nELSE<br \/>\nDISPLAY &#8216;NO FILE&#8217;<br \/>\nEND IF<br \/>\nELSE<br \/>\nDISPLAY &#8216;NO EXCEL&#8217;<br \/>\nEND IF<br \/>\n##\u5173\u95edEXCEL\u6587\u4ef6<br \/>\nCALL ui.interface.frontCall(&#8216;WinCOM&#8217;,&#8217;CallMethod&#8217;,[xlApp,&#8217;Quit&#8217;],[iRes])<br \/>\nCALL ui.interface.frontCall(&#8216;WinCOM&#8217;,&#8217;ReleaseInstance&#8217;,[xlApp],[iRes])<br \/>\n##\u663e\u793a\u62a5\u9519\u4fe1\u606f<br \/>\nIF lr_err.getLength() &gt; 0 THEN<br \/>\nCALL cl_show_array(base.TypeInfo.create(lr_err),cl_getmsg(&#8220;lib-314&#8243;,g_lang),&#8221;Line|Key1|Error&#8221;)<br \/>\nELSE<br \/>\nIF li_i_r&gt;2 THEN<br \/>\nINITIALIZE g_errparam TO NULL<br \/>\nLET g_errparam.code = &#8216;!&#8217;<br \/>\nLET g_errparam.extend = &#8216;\u8d44\u6599\u5bfc\u5165\u6210\u529f!&#8217;<br \/>\nLET g_errparam.popup = TRUE<br \/>\nCALL cl_err()<br \/>\nEND IF<br \/>\nEND IF<\/p>\n<p>29.\u5f53\u5355\u636e\u663e\u793a\u8d44\u6599\u5df2\u88ab\u9501\u5b9a\uff0c\u65e0\u6cd5\u4fee\u6539\uff01\u8bf7\u79bb\u5f00\u7a0b\u5e8f\uff0c\u7a0d\u540e\u518d\u8fdb\u884c\u8d44\u6599\u5904\u7406<br \/>\n\u5904\u7406\u529e\u6cd5\uff1a\u6253\u5f00\u5220\u9664\u6570\u636e\u8868\u9501\u5b9a\u4f5c\u4e1a\uff08adzp146\uff09\u5220\u9664\u5f53\u524d\u7684\u6240\u6709\u7528\u6237<\/p>\n<p>30.\u62a5\u8868\u683c\u5f0f\u95ee\u9898<br \/>\nPageFooters\u00a0\u00a0\u00a0 Y-Size\u503c\u4e3amin\uff0c\u8c03\u8282\u6b64\u503c\u4f1a\u5bf9\u9875\u5e95\u6709\u5f71\u54cd<br \/>\nPageHeaders<br \/>\nReportHeaders<br \/>\nDetailTable<br \/>\nReportFooters<\/p>\n<p>31.\u4fee\u6539\u6570\u636e<br \/>\nselect * from \u8868\u540d where \u6761\u4ef6 for update<\/p>\n<p>32.azzi903 \u529f\u80fd\u53ca\u9078\u55ae\u7dad\u8b77\u4f5c\u696d<\/p>\n<p>33.\u67e5\u770b\u7528\u6237\u6570<br \/>\nfglWrt -a info user|grep User<\/p>\n<p>34.\u5728\u5f00\u7a97\u8bbe\u8ba1\u5668\u91cc\u9762\u65b0\u5efa\u4e00\u4e2a\u7a97\u53e3\uff0c\u63d0\u793a\u8be5\u7a97\u53e3\u672a\u6ce8\u518c\uff0c\u53ea\u9700r.l cqry\u4e00\u4e0b\u5c31OK<\/p>\n<p>35.T100\u8868\u7a7a\u95f4\u95ee\u9898\uff1a<br \/>\n1.sqlplus system\/tiptop100@toptst<br \/>\n2.\u7528\u6237\u540d\u5bc6\u7801\uff1adsdata<br \/>\n3.@q_tbsFREE<br \/>\n4.select name from v$datafile;\u67e5\u770b\u5173\u4e8eDSDATA\u7684\u6587\u4ef6\u8def\u5f84\uff0c\u6839\u636e\u8def\u5f84\u6765\u8fdb\u884c\u6dfb\u52a0\u8868\u7a7a\u95f4\u6570\u636e\u6587\u4ef6<br \/>\n5.\u5728SQL\u91cc\u9762\u8f93\u5165exit\u9000\u51fa\u540e\uff0c\u8f93\u5165\u547d\u4ee4df \u2013h\u67e5\u770b\u78c1\u76d8\u7a7a\u95f4\/u2\u662f\u5426\u8db3\u591f<br \/>\n6.alter tablespace DSDATA add datafile \u2018\/u2\/oradata\/$ORACLE_SID\/dsdata3.dbf\u2019 size 4096M<\/p>\n<p>36.\u5217\u8f6c\u884c\u51fd\u6570\uff1aSELECT LISTAGG(XXX,XXX) WITHIN GROUP (ORDER BY XXX) \u5217\u540d\u00a0 FROM \u8868\u540d WHERE \u6761\u4ef6 GROUP BY \u6761\u4ef6<\/p>\n<p>eg\uff1aSELECT DISTINCT LISTAGG(sfebdocno,&#8217;,&#8217;) WITHIN GROUP (ORDER BY sfebdocno) l_sfebdocno<br \/>\nFROM sfeb_t,sfba_t,sfea_t<br \/>\nWHERE sfebent = sfbaent AND sfebent=sfeaent<br \/>\nAND sfebdocno=sfeadocno<br \/>\nAND sfeb001 = sfbadocno<br \/>\nAND sfebent = &#8220;,g_enterprise,&#8221;<br \/>\nAND sfba009 = &#8216;Y&#8217;<br \/>\nAND sfba013 &gt;= 0<br \/>\nAND sfea005 IS NULL<br \/>\nAND sfbadocno in (select sfeb001 from sfeb_t where sfebdocno='&#8221;,p_key1,&#8221;&#8216;)\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 GROUP<br \/>\nsfbaent,sfbasite,sfbadocno,sfbaseq,sfbaseq1,sfba006,sfba010,sfba011,sfba013,sfba014,sfba016,sfba019,sfba020,sfba021,sfba024,sfba029,sfba030,sfeb003,sfeb004,sfeb005<br \/>\n\u805a\u5408\u51fd\u6570\u7684\u4f7f\u7528\uff1aSELECT \u5217\u540d1\uff0c\u5217\u540d2\u3002\u3002\u3002\uff0cSUM(\u5217\u540d3)\u3002\u3002\u3002 FROM \u8868\u540d WHERE \u6761\u4ef6 group by \u5206\u7ec4\uff08\u5217\u540d1\uff0c\u5217\u540d2\u3002\u3002\u3002\uff09 order by \u6392\u5e8f<br \/>\neg\uff1aSELECT sfbaent,sfbasite,sfbadocno,sfbaseq,sfbaseq1,sfba006,sfba010,sfba011,sfba013,sfba014,sfba016,<br \/>\nsfba019,sfba020,sfba021,sfba024,sfba029,sfba030,sum(sfeb009) sfeb009,sfeb003,sfeb004,sfeb005<br \/>\nFROM sfeb_t,sfba_t,sfea_t<br \/>\nWHERE sfebent = sfbaent AND sfebent=sfeaent<br \/>\nand sfebdocno=sfeadocno<br \/>\nAND sfeb001 = sfbadocno<br \/>\nand sfebent = g_enterprise<br \/>\nAND sfba009 = &#8216;Y&#8217;<br \/>\nAND sfba013 &gt;= 0<br \/>\nand sfea005 is null<br \/>\nAND sfbadocno in (select sfeb001 from sfeb_t where sfebdocno=p_key1)<br \/>\ngroup by sfbaent,sfbasite,sfbadocno,sfbaseq,sfbaseq1,sfba006,sfba010,sfba011,sfba013,sfba014,sfba016,sfba019,sfba020,sfba021,sfba024,sfba029,sfba030,sfeb003,sfeb004,sfeb005<br \/>\norder by sfbaseq,sfbaseq1<br \/>\nSELECT \u5217\u540d1\uff0c\u5217\u540d2\u3002\u3002\u3002,SUN\uff08\u5217\u540d1\uff09\u3002\u3002\u3002 FROM \u8868\u540d WHERE \u6761\u4ef6 group by \u5217\u540d having \u8fc7\u6ee4\u6761\u4ef6<br \/>\neg\uff1aSELECT sfba006,SUM(sfba016),SUM(sfba025),SUM(sfba017),SUM(sfba016+sfba025-(((sfaa050+sfaa051)\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 *sfba010)\/sfba011)-sfba017) AS sfbaud012<br \/>\ninto sr.sfba006 ,sr.l_sfba016,sr.l_sfba025,sr.l_sfba017,sr.l_sfbaud012<br \/>\nFROM sfaa_t<br \/>\nINNER JOIN sfba_t ON sfaaent=sfbaent AND sfaadocno=sfbadocno<br \/>\nWHERE sfaastus = &#8216;F&#8217; AND sfaaent=g_enterprise AND sfaasite=g_site<br \/>\nAND sfba011&gt;0<br \/>\nand sfba006 = sr.sfba006<br \/>\ngroup by sfba006<br \/>\nhaving SUM(sfba016 + sfba025 &#8211; (((sfaa050 + sfaa051) * sfba010) \/ sfba011) &#8211; sfba017) &lt;&gt; 0<\/p>\n<p>37.10.10.50.121\u00a0 \u7528\u6237\u540d\u53ca\u5bc6\u7801\uff1aadministrator\/abc123+<br \/>\n10.10.50.120\u00a0 \u7528\u6237\u540d\u53ca\u5bc6\u7801\uff1aroot\/since1982@tiptop<\/p>\n<p>38.\u8d26\u53f7\u548c\u5bc6\u7801\u5b58\u5728\u4e8e\u8868 &#8216;gzxd_t&#8217;\u4e2d<br \/>\n\u5bc6\u7801\u662f\u52a0\u5bc6\u7684\uff0c\u52a0\u5bc6\u51fd\u6570\u4e3a\uff1alet lc_gzxd002 = cl_hashkey_user_encode(l_master.gzxa001)<br \/>\n#wNUT2AZ59<br \/>\n\u5bc6\u7801\u662f\u53ef\u4ee5\u89e3\u5bc6\u7684\uff0c\u89e3\u5bc6\u51fd\u6570\u4e3a\uff1alet lc_gzxd002 = cl_hashkey_user_encode(&#8220;wNUT2AZ59&#8221;)<br \/>\n39.CR\u62a5\u8868\u5927\u5c0f\u5199\u8f6c\u6362<br \/>\nFUNCTION 018__CR \u62a5 \u8868 \u4e2d \u6570 \u5b57 \u5c0f \u5199 \u8f6c \u6210 \u5927 \u5199()&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8211;<br \/>\nStringVar x;<br \/>\nStringVar xx := &#8220;&#8221;;<br \/>\nNumberVar z;<br \/>\nStringVar x;<br \/>\nStringVar xx:=&#8221;&#8221;;<br \/>\nNumberVar z;<br \/>\nNumberVar i;<br \/>\nx := ToText(Sum ({axmr558.ofb14t}));<br \/>\nx := Replace(x,&#8221;,&#8221;,&#8221;&#8221;);<br \/>\nx := Replace(x,&#8221;.&#8221;,&#8221;&#8221;);<br \/>\nz := length(x);<br \/>\nFOR i := z TO 1 step -1 do<br \/>\n(<br \/>\nStringVar temp:=Mid(x,z-i+1,1);<br \/>\nselect i<br \/>\ncase 12: xx := temp +&#8221;\u5341&#8221;<br \/>\ncase 11 : xx := xx + temp +&#8221;\u4ebf&#8221;<br \/>\ncase 10 : xx := xx + temp +&#8221;\u4edf&#8221;<br \/>\ncase 9 : xx := xx + temp +&#8221;\u4f70&#8221;<br \/>\ncase 8 : xx := xx + temp +&#8221;\u62fe&#8221;<br \/>\ncase 7 : xx := xx + temp +&#8221;\u4e07&#8221;<br \/>\ncase 6 : xx := xx + temp +&#8221;\u4edf&#8221;<br \/>\ncase 5 : xx := xx + temp +&#8221;\u4f70&#8221;<br \/>\ncase 4 : xx := xx + temp +&#8221;\u62fe&#8221;<br \/>\ncase 3 : xx := xx + temp +&#8221;\u5143&#8221;<br \/>\ncase 2 : xx := xx + temp +&#8221;\u89d2&#8221;<br \/>\ncase 1 : xx := xx + temp +&#8221;\u5206&#8221;<br \/>\n);<br \/>\nstringvar test=&#8221;&#8221;;<br \/>\nz := length(xx);<br \/>\ni:=1;<br \/>\nwhile i&lt;z do<br \/>\n(<br \/>\nStringVar temp:=Mid(xx,i,1);<br \/>\nif temp=&#8221;0&#8243; then<br \/>\n(<br \/>\nif mid(xx,i-2,1)&lt;&gt;&#8221;0&#8243; and (Mid(xx,i+1,1)=&#8221;\u4ebf&#8221; or Mid(xx,i+1,1)=&#8221;\u4e07&#8221; or Mid(xx,i+1,1)=&#8221;\u5143&#8221;) then<br \/>\n(<br \/>\nxx :=Left (xx,i-1 )+Replace(xx,Mid(xx,i,1) ,&#8221;&#8221; ,i , 1);<br \/>\n)<br \/>\nelse if mid(xx,i-2,1)&lt;&gt;&#8221;0&#8243; and i+2&lt;length(xx) and mid(xx,i+2,1)&lt;&gt;&#8221;0&#8243; then<br \/>\n(<br \/>\nxx :=Left (xx,i )+Replace(xx,Mid(xx,i+1,1) ,&#8221;&#8221; ,i+1 , 1);<br \/>\n)<br \/>\nelse if Mid(xx,i+1,1)=&#8221;\u89d2&#8221; and Mid(xx,i+2,1)&lt;&gt;&#8221;0&#8243; then<br \/>\n(<br \/>\nxx :=Left (xx,i )+Replace(xx,Mid(xx,i+1,1) ,&#8221;&#8221; ,i+1 , 1);<br \/>\n)<br \/>\nelse<br \/>\n(<br \/>\ni := i-1;<br \/>\nxx :=Left (xx,i )+Replace(xx,Mid(xx,i+1,2) ,&#8221;&#8221; ,i+1 , 1);<br \/>\n)<br \/>\n);<br \/>\ni:=i+1;<br \/>\nz:=length(xx);<br \/>\n);<br \/>\nxx := Replace(xx,&#8221;0&#8243;,&#8221;\u96f6&#8221;);<br \/>\nxx := Replace(xx,&#8221;1&#8243;,&#8221;\u58f9&#8221;);<br \/>\nxx := Replace(xx,&#8221;2&#8243;,&#8221;\u8d30&#8221;);<br \/>\nxx := Replace(xx,&#8221;3&#8243;,&#8221;\u53c1&#8221;);<br \/>\nxx := Replace(xx,&#8221;4&#8243;,&#8221;\u8086&#8221;);<br \/>\nxx := Replace(xx,&#8221;5&#8243;,&#8221;\u4f0d&#8221;);<br \/>\nxx := Replace(xx,&#8221;6&#8243;,&#8221;\u9646&#8221;);<br \/>\nxx := Replace(xx,&#8221;7&#8243;,&#8221;\u67d2&#8221;);<br \/>\nxx := Replace(xx,&#8221;8&#8243;,&#8221;\u634c&#8221;);<br \/>\nxx := Replace(xx,&#8221;9&#8243;,&#8221;\u7396&#8221;);<br \/>\nxx := xx +&#8221;\u6574&#8221;+test;<br \/>\nEND FUNCTION<br \/>\nCreek.L 2017\/9\/29 \u661f\u671f\u4e94 15:14:33<br \/>\nFUNCTION 020__\u6570 \u5b57 \u91d1 \u989d \u8f6c \u6362 \u6210 \u5927 \u5199(p_number)&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;<br \/>\nDEFINE p_number\u00a0\u00a0\u00a0\u00a0 LIKE type_file.num15_3<br \/>\nDEFINE l_i\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 LIKE type_file.num5<br \/>\nDEFINE li_bit\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 LIKE type_file.num5<br \/>\nDEFINE li_length\u00a0\u00a0\u00a0 LIKE type_file.num5<br \/>\nDEFINE li_len\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 LIKE type_file.num5<br \/>\nDEFINE ls_money\u00a0\u00a0\u00a0\u00a0 LIKE type_file.chr20<br \/>\nDEFINE ls_result\u00a0\u00a0\u00a0 LIKE type_file.chr100<br \/>\nDEFINE ls_arr_num\u00a0\u00a0 ARRAY[10] OF CHAR(4)<br \/>\nDEFINE ls_arr_unit\u00a0 ARRAY[14] OF CHAR(4)<br \/>\nDEFINE ls_arr_unit0 ARRAY[14] OF CHAR(4)<br \/>\nLET\u00a0 ls_arr_num[1]=&#8217;\u58f9&#8217;<br \/>\nLET\u00a0 ls_arr_num[2]=&#8217;\u8d30&#8217;<br \/>\nLET\u00a0 ls_arr_num[3]=&#8217;\u53c1&#8217;<br \/>\nLET\u00a0 ls_arr_num[4]=&#8217;\u8086&#8217;<br \/>\nLET\u00a0 ls_arr_num[5]=&#8217;\u4f0d&#8217;<br \/>\nLET\u00a0 ls_arr_num[6]=&#8217;\u9646&#8217;<br \/>\nLET\u00a0 ls_arr_num[7]=&#8217;\u67d2&#8217;<br \/>\nLET\u00a0 ls_arr_num[8]=&#8217;\u634c&#8217;<br \/>\nLET\u00a0 ls_arr_num[9]=&#8217;\u7396&#8217;<br \/>\nLET\u00a0 ls_arr_num[10]=&#8217;\u96f6&#8217;<br \/>\nLET\u00a0 ls_arr_unit[1]=&#8217;\u5206&#8217;<br \/>\nLET\u00a0 ls_arr_unit[2]=&#8217;\u89d2&#8217;<br \/>\nLET\u00a0 ls_arr_unit[3]=&#8217;\u5143&#8217;<br \/>\nLET\u00a0 ls_arr_unit[4]=&#8217;\u62fe&#8217;<br \/>\nLET\u00a0 ls_arr_unit[5]=&#8217;\u4f70&#8217;<br \/>\nLET\u00a0 ls_arr_unit[6]=&#8217;\u4edf&#8217;<br \/>\nLET\u00a0 ls_arr_unit[7]=&#8217;\u4e07&#8217;<br \/>\nLET\u00a0 ls_arr_unit[8]=&#8217;\u62fe&#8217;<br \/>\nLET\u00a0 ls_arr_unit[9]=&#8217;\u4f70&#8217;<br \/>\nLET\u00a0 ls_arr_unit[10]=&#8217;\u4edf&#8217;<br \/>\nLET\u00a0 ls_arr_unit[11]=&#8217;\u4ebf&#8217;<br \/>\nLET\u00a0 ls_arr_unit[12]=&#8217;\u62fe&#8217;<br \/>\nLET\u00a0 ls_arr_unit[13]=&#8217;\u4f70&#8217;<br \/>\nLET\u00a0 ls_arr_unit[14]=&#8217;\u4edf&#8217;<br \/>\nLET\u00a0 ls_arr_unit0[1]=&#8217;\u6574&#8217;<br \/>\nLET\u00a0 ls_arr_unit0[2]=&#8217;\u96f6&#8217;<br \/>\nLET\u00a0 ls_arr_unit0[3]=&#8217;\u5143&#8217;<br \/>\nLET\u00a0 ls_arr_unit0[4]=&#8217;\u96f6&#8217;<br \/>\nLET\u00a0 ls_arr_unit0[5]=&#8217;\u96f6&#8217;<br \/>\nLET\u00a0 ls_arr_unit0[6]=&#8217;\u96f6&#8217;<br \/>\nLET\u00a0 ls_arr_unit0[7]=&#8217;\u4e07&#8217;<br \/>\nLET\u00a0 ls_arr_unit0[8]=&#8217;\u96f6&#8217;<br \/>\nLET\u00a0 ls_arr_unit0[9]=&#8217;\u96f6&#8217;<br \/>\nLET\u00a0 ls_arr_unit0[10]=&#8217;\u96f6&#8217;<br \/>\nLET\u00a0 ls_arr_unit0[11]=&#8217;\u4ebf&#8217;<br \/>\nLET\u00a0 ls_arr_unit0[12]=&#8217;\u96f6&#8217;<br \/>\nLET\u00a0 ls_arr_unit0[13]=&#8217;\u96f6&#8217;<br \/>\nLET\u00a0 ls_arr_unit0[14]=&#8217;\u96f6&#8217;<\/p>\n<p>#\u5982\u679c\u53c2\u6570\u4e3a0<br \/>\nIF p_number=0 THEN RETURN &#8216;\u96f6\u5143\u6574&#8217; END IF<\/p>\n<p>#\u53c2\u6570\u5c0f\u4e8e\u96f6\uff0c\u5219\u4e3a\u8d1f\u503c<br \/>\nIF p_number&lt;0 THEN<br \/>\nLET\u00a0 p_number=0-p_number<br \/>\nLET\u00a0 ls_result=&#8217;\u8d1f&#8217;<br \/>\nELSE<br \/>\nLET\u00a0 ls_result=&#8221;<br \/>\nEND IF<\/p>\n<p>##\u5224\u65ad\u662f\u5426\u8d85\u51fa\u8303\u56f4<br \/>\nIF p_number&gt;999999999999.99 THEN<br \/>\nRETURN ls_result=&#8217;\u6570\u503c\u8d85\u51fa\u8303\u56f4&#8217;<br \/>\nEND IF<br \/>\n#\u5faa\u73af\u6bcf\u4e00\u4e2a\u6570\u5b57<br \/>\nLET ls_money=p_number*100 USING&#8221;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&#8221;<br \/>\nLET li_length=length(ls_money CLIPPED)<br \/>\nFOR l_i=1 to li_length<br \/>\nLET li_bit=ls_money[l_i]<br \/>\nIF\u00a0 li_bit=0 then<br \/>\nLET li_len=length(ls_result\u00a0 CLIPPED)<br \/>\nIF ls_result[li_len-1,li_len]&lt;&gt;&#8217;\u96f6&#8217;THEN<br \/>\nLET ls_result=ls_result\u00a0 CLIPPED,ls_arr_unit0[li_length-l_i+1] CLIPPED<br \/>\nELSE<br \/>\nLET ls_result=ls_result[1,li_len-2] CLIPPED,ls_arr_unit0[li_length-l_i+1] CLIPPED<br \/>\nEND IF<br \/>\nELSE<br \/>\nLET ls_result=ls_result CLIPPED,ls_arr_num[li_bit] CLIPPED,ls_arr_unit[li_length-l_i+1] CLIPPED<br \/>\nEND IF<br \/>\nEND\u00a0 FOR<br \/>\nRETURN ls_result CLIPPED\u00a0\u00a0\u00a0 #\u8fd4\u56de\u5927\u5199<br \/>\nEND FUNCTION<\/p>\n<p>\u5171\u7528\u53c2\u6570\u6863\u7ef4\u62a4\uff1aazzi908\uff0c\u67e5\u770b\u5171\u7528\u53c2\u6570<\/p>\n<p>\u6807\u51c6\u8d44\u6599\u5e93:ds<br \/>\n\u6682\u5b58\u8d44\u6599\u5e93:dstmp<br \/>\n\u5148\u8fdb\u6392\u7a0b:dsaps<br \/>\n\u62a5\u8868\u6682\u5b58:dsrept<br \/>\n\u6b63\u5f0f\u8d44\u6599:dsdemo\/dsdata\/\u6216\u5176\u4ed6\u81ea\u8ba2<br \/>\n3.T100\u76ee\u5f55<br \/>\ntopprd:\u6b63\u5f0f\u533a<br \/>\ntoptst:\u6d4b\u8bd5\u533a<br \/>\ntopstd:\u6807\u51c6\u533a<br \/>\ntoppth:\u9a8c\u8bc1\u533a<\/p>\n<p>$TOP \u6839\u76ee\u5f55<br \/>\ncom\u00a0\u00a0 \u516c\u7528\u5143\u4ef6\u76ee\u5f55(\u8bbe\u5b9a\u76ee\u5f55)<br \/>\ncom\/lib\u00a0\u00a0 \u6807\u51c6\u516c\u7528\u51fd\u5f0f\uff08cl_xxx\uff09\u76ee\u5f55<br \/>\ncom\/sub\u00a0\u00a0 \u6807\u51c6\u516c\u7528\u5b50\u51fd\u5f0f\uff08s_xxx\uff09\u76ee\u5f55<br \/>\ncom\/qry\u00a0\u00a0 \u6807\u51c6\u67e5\u8be2\u51fd\u5f0f\uff08q_xxx\uff09\u76ee\u5f55<br \/>\ncom\/lng\u00a0\u00a0 \u591a\u8bed\u8a00\u76ee\u5f55,\u7528\u4e8e\u5f00\u7a97<br \/>\ncom\/wss\u00a0\u00a0 Web Service \u76ee\u5f55<br \/>\ncom\/mta\u00a0\u00a0 T100\u8bbe\u8ba1\u5668\u8fdb\u9636\u529f\u80fd\u8d44\u6599\u6765\u6e90<br \/>\ncom\/inc\u00a0\u00a0 \u5b58\u653e\u7a0b\u5e8f\u5185\u524d\u7aef\u5904\u7406\u533a\u5757\u5185\u6240\u8fde\u7ed3\u7684\u7a0b\u5e8f\u4ee3\u7801(\u7c7b\u4f3c\u4e8e\u5b50\u7a0b\u5e8f,\u7f16\u8bd1\u65f6\u81ea\u52a8\u4ea7\u751f\u523042r\u4e2d)<br \/>\ncom\/cfg\u00a0\u00a0 \u7f6e\u653e\u7cfb\u7edf\u7a0b\u5e8f\u6267\u884c\u65f6\u6240\u9700\u7684\u5168\u5c40\u53d8\u91cf<br \/>\nerp\u00a0\u00a0 \u6807\u51c6\u6a21\u5757\u76ee\u5f55<br \/>\nerp\/aim\u00a0\u00a0 ERP\u5404\u6a21\u5757\u76ee\u5f55<br \/>\naim\/dzx\u00a0\u00a0 \u5404\u7a0b\u5e8f\u7684\u8bbe\u8ba1\u5668\u5f00\u53d1\u8d44\u6599<br \/>\nerp\/mdl\u00a0\u00a0 \u7248\u578b\u6837\u5f0f\u8d44\u6599&#8211;&gt;r.a\u4ea7\u751f\u753b\u9762\u548c\u4ee3\u7801\u65f6,\u4ece\u8fd9\u91cc\u53d6\u5f97\u7248\u578b\u8d44\u6599<br \/>\nrep\/cfg\u00a0\u00a0 \u7f6e\u653e\u6807\u51c6\u6a21\u5757\u7a0b\u5e8f\u6267\u884c\u65f6\u6240\u9700\u7684\u5168\u5c40\u53d8\u91cf<br \/>\napse\u00a0\u00a0 \u6392\u7a0b\u5f15\u64ce<br \/>\nres\u00a0\u00a0 \u5b58\u653e\u56fe\u7247<br \/>\nutl\/bin\u00a0\u00a0\u00a0\u00a0 T100\u540e\u53f0\u64cd\u4f5c\u6307\u4ee4\u7684shell(r.a r.c r.l\u7b49)<br \/>\nutl\/fbin\u00a0\u00a0 T100\u8bbe\u8ba1\u5668\u4e0a\u4f20\u68c0\u6838\u65f6\u7684\u6d41\u7a0b\u53ca\u63d0\u793a\u8baf\u606f<\/p>\n<p>4.\u5e38\u7528SHELL<br \/>\nr.c\u00a0\u00a0\u00a0\u00a0\u00a0 \u7f16\u8bd1\u7a0b\u5e8f,\u9700\u57284gl\u8def\u5f84\u4e4b\u4e0b\u6267\u884c,\u4ea7\u751f\u768442m\u4f1a\u81ea\u52a8\u642c\u81f3\u8be5\u76ee\u5f55\u4e0b<br \/>\nr.cs\u00a0\u00a0\u00a0\u00a0 r.cs \u4e3a\u5c0f\u7a0b\u5e8f\u6d4b\u8bd5\u7528\uff0c\u4ea7\u751f\u768442m\u4ecd\u57284gl\u76ee\u5f55\u4e0b<br \/>\nr.l\u00a0\u00a0\u00a0\u00a0\u00a0 \u6253\u5305\u53ef\u6267\u884c\u6863\u6216\u5171\u4eab\u7a0b\u5e8f\u6863(42r\u300142x)<br \/>\nr.l xxx ALL \u4fee\u6539\u5b50\u7a0b\u5e8f\/\u5143\u4ef6\uff0c\u6216\u8c03\u6574r.q\u8bbe\u5b9a\u540e\uff0c<br \/>\n\u5efa\u8bae\u624b\u52a8\u6267\u884c\u6b64\u6307\u4ee4\uff0c\u5c06\u76f8\u5173\u547c\u53eb\u7684\u4e3b\u7a0b\u5e8f\u4e00\u5e76\u626b\u51fa\u5e76\u91cd\u65b0Link<br \/>\n\u8303\u4f8b\uff1ar.l s_desc ALL<br \/>\nr.f\u00a0\u00a0\u00a0\u00a0 \u7f16\u8bd1\u7a0b\u5e8f\u753b\u9762<br \/>\nr.p\u00a0\u00a0\u00a0\u00a0 \u9884\u89c8\u7a0b\u5e8f\u753b\u9762<br \/>\nr.r\u00a0\u00a0\u00a0\u00a0 \u8fd0\u884c\u4f5c\u4e1a(\u53ef\u4ee5\u8fdb\u884c\u6a21\u7cca\u67e5\u8be2:1.\u6839\u636e\u7a0b\u5e8f\u7f16\u53f7\u8fdb\u884c\u6a21\u7cca\u67e5\u8be2(\u5982:r.r axrp);2.\u6839\u636e\u7a0b\u5e8f\u4e2d\u6587\u8bf4\u660e\u8fdb\u884c\u6a21\u7cca\u67e5\u8be2(\u5982:r.r \u91cd\u8bc4\u4ef7))<br \/>\nr.rd\u00a0\u00a0 \u6267\u884c\u4f5c\u4e1a\u540e\uff0c\u82e5SQL\u9519\u8bef\u5219\u4f1a\u7559\u4e0b log\u6863<br \/>\nr.d\u00a0\u00a0\u00a0 Debug\u5de5\u5177<br \/>\nr.dg\u00a0\u00a0 Debug\u5de5\u5177 \u539f\u5382DEBUG\u529f\u80fd(r.d\u51fa\u9519\u65f6\u4f7f\u7528;\u6d4b\u8bd5\u4f20\u53c2\u65f6\u4f7f\u7528)<br \/>\nr.s\u00a0\u00a0\u00a0\u00a0 \u4ea7\u751f\u6863\u6848 SCHEMA \u7684\u5de5\u5177<br \/>\nrebuild\u00a0\u00a0 \u7cfb\u7edf\u91cd\u5efa\u7f16\u8bd1<br \/>\n5.\u4e00\u822c\u7a0b\u5e8f\u5f00\u53d1\u6d41\u7a0b<br \/>\n\u6216\u5f97\u9700\u6c42\u5355(adzi800)&#8211;&gt;\u65b0\u589e\u7a0b\u5e8f\u57fa\u672c\u8d44\u6599(azzi900)<br \/>\n&#8211;&gt;\u65b0\u589e\u4f5c\u4e1a\u57fa\u672c\u8d44\u6599(azzi910)&#8211;&gt;\u65b0\u5efa\u8868\u683c(adzi140\/r.t)<br \/>\n&#8211;&gt;\u4fee\u6539\u8868\u683c\u8bbe\u8ba1\u8d44\u6599(adzi150)&#8211;&gt;\u8fc1\u51fa\u8bbe\u8ba1\u8d44\u6599<br \/>\n&#8211;&gt;\u753b\u9762\u4ea7\u751f\u5668\u4ea7\u751f\u7248\u578b(adzi168\/r.a)&#8211;&gt;\u4fee\u6539\u753b\u9762\u8d44\u6599<br \/>\n&#8211;&gt;\u4e0a\u4f20\u753b\u9762\u8d44\u6599&#8211;&gt;\u4fee\u6539\u4ee3\u7801\u8d44\u6599<br \/>\n&#8211;&gt;\u4e0a\u4f20\u4ee3\u7801\u8d44\u6599&#8211;&gt;\u66f4\u65b0\u9700\u6c42\u5355\u72b6\u6001<\/p>\n<p>Xshell\u4e0eT100Designer\u542f\u52a8\u7f13\u6162<br \/>\n\u89e3\u51b3\u529e\u6cd5\uff1a<br \/>\n\u5c06GDC\u9009\u9879\u7684\u5b89\u5168\u6027\u8bbe\u7f6e\u4e3a\u6700\u4f4e<\/p>\n<p>cl_set_combo_scc(\u680f\u4f4d\u540d\u79f0,\u7cfb\u7edf\u5206\u7c7b\u7801) \u4e0b\u62c9\u6846\u9009\u9879\uff0c\u5728azzi600\u91cc\u9762\u8fdb\u884c\u8bbe\u7f6e<br \/>\ncl_set_combo_scc_part(\u680f\u4f4d\u540d\u79f0,\u7cfb\u7edf\u5206\u7c7b\u7801,\u7cfb\u7edf\u5206\u7c7b\u7801\u503c)\u00a0 azzi600\u91cc\u9762\u7684\u5355\u8eab<br \/>\ncl_set_comp_visible(\u680f\u4f4d\u540d\u79f0,TRUE\/FALSE) \u5224\u65ad\u680f\u4f4d\u662f\u5426\u663e\u793a<br \/>\ncl_set_toolbaritem_visible(&#8220;open_apmt500_01&#8221;,TRUE) \u662f\u5426\u6253\u5f00\u5b50\u7a0b\u5e8f<br \/>\ncl_get_para(g_enterprise,g_site,\u53c2\u6570\u7f16\u53f7) \u5224\u65ad\u636e\u70b9\u53c2\u6570 \u201c\u53c2\u6570\u7f16\u53f7\u201d\u5728azzi993\u91cc\u9762\u8bbe\u7f6e<br \/>\ncl_set_comp_att_text(&#8216;pmdldocno&#8217;,\u9519\u8bef\u4fe1\u606f) \u9519\u8bef\u4fe1\u606f<br \/>\ncl_set_act_visible(&#8220;accept,cancel&#8221;, FALSE) \u529f\u80fd\u9690\u85cf<br \/>\n4FD \u5229\u7528color condition\u5c5e\u6027\u8bbe\u7f6e\u989c\u8272 \uff1aCOLOR = RED REVERSE WHERE $NAME NOT LIKE &#8220;1.%&#8221;<\/p>\n<p>echo $FGLSERVER \u67e5\u770bxshell\u7684IP<\/p>\n<p>rz -y \u4e0a\u4f20\u7a0b\u5e8f<br \/>\nrz \u7a0b\u5e8f\u540d\u79f0\u00a0 \u4e0b\u8f7d\u7a0b\u5e8f<\/p>\n<p>\u5efa\u6807\u51c6\u7a0b\u5e8f\u65f6\u53ef\u7528debug\u65b9\u6cd5\uff0c\u8df3\u8fc7\u62a5\u9519\u7684\u5730\u65b9\u65f6\u53ef\u4ee5\u6309ctrl+d\uff0c\u7136\u540e\u8fdb\u884c\u8bbe\u7f6e\u4e4b\u540e\u70b9\u51fbOK\uff0c\u518d\u5173\u6389\u5c31\u53ef\u4ee5\u4e86<br \/>\neg:set variable li_chk= TRUE<\/p>\n<p>grep &#8216;INSERT INTO \u8868\u540d&#8217; *\/*\/4gl\/*.4gl \u67e5\u8be2\u6240\u6709\u7528\u5230\u00a0 INSERT INTO \u8868\u540d\u00a0 \u8fd9\u4e2a\u5b57\u6bb5\u76844gl\u4ee3\u7801<br \/>\nupdate \u8868\u540d set \u5b57\u6bb5\u540d=to_date(&#8216;2017-10-24&#8242;,&#8217;yyyy-mm-dd&#8217;)\u00a0 where \u5b57\u6bb5\u540d= \u503c<br \/>\n&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;<br \/>\n\u7248\u6743\u58f0\u660e\uff1a\u672c\u6587\u4e3aCSDN\u535a\u4e3b\u300c\u738b\u4fa0930426\u300d\u7684\u539f\u521b\u6587\u7ae0\uff0c\u9075\u5faaCC 4.0 by-sa\u7248\u6743\u534f\u8bae\uff0c\u8f6c\u8f7d\u8bf7\u9644\u4e0a\u539f\u6587\u51fa\u5904\u94fe\u63a5\u53ca\u672c\u58f0\u660e\u3002<br \/>\n\u539f\u6587\u94fe\u63a5\uff1ahttps:\/\/blog.csdn.net\/yqgd20170216\/article\/details\/79239074<\/p>\n<p>\u8f6c\u8f7d\u8bf7\u6ce8\u660e\uff1a<a href=\"https:\/\/www.hefeiyu.com\">\u8d6b\u975e\u57df<\/a> &raquo; <a href=\"https:\/\/www.hefeiyu.com\/?p=5107\">\u9f0e\u6377T100\u5f00\u53d1\u6240\u9047\u5230\u7684\u95ee\u9898<\/a><\/p>","protected":false},"excerpt":{"rendered":"<p>1\u3001Program stopped at &#8216;cin_aint340.4gl&#8217;, line number 1121. FORMS statement error number -1338. The function &#038;#8216 [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[490],"tags":[701,700,699],"class_list":["post-5107","post","type-post","status-publish","format-standard","hentry","category-490","tag-flm","tag-number","tag-program"],"_links":{"self":[{"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts\/5107","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=5107"}],"version-history":[{"count":1,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts\/5107\/revisions"}],"predecessor-version":[{"id":5108,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts\/5107\/revisions\/5108"}],"wp:attachment":[{"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=5107"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=5107"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=5107"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}