{"id":1092,"date":"2019-06-10T08:26:48","date_gmt":"2019-06-10T00:26:48","guid":{"rendered":"http:\/\/www.hefeiyu.com\/?p=1092"},"modified":"2019-06-10T08:28:45","modified_gmt":"2019-06-10T00:28:45","slug":"tiptop-4gl%e7%94%bb%e5%9b%be%e5%ba%94%e7%94%a8-%e5%9b%be%e5%bd%a2%e7%9b%91%e6%8e%a7%e6%95%b0%e6%8d%ae%e5%ba%93%e8%a1%a8%e7%a9%ba%e9%97%b4%e4%bd%bf%e7%94%a8%e6%83%85%e5%86%b5","status":"publish","type":"post","link":"https:\/\/www.hefeiyu.com\/?p=1092","title":{"rendered":"TIPTOP 4GL\u753b\u56fe\u5e94\u7528-\u56fe\u5f62\u76d1\u63a7\u6570\u636e\u5e93\u8868\u7a7a\u95f4\u4f7f\u7528\u60c5\u51b5"},"content":{"rendered":"<p><strong>\u4e00\u30014GL\u753b\u56fe\u539f\u7406<\/strong><\/p>\n<p><img loading=\"lazy\" decoding=\"async\" width=\"471\" height=\"310\" class=\"wp-image-1093\" src=\"http:\/\/www.hefeiyu.com\/wp-content\/uploads\/2019\/06\/img_256-4.jpeg\" alt=\"IMG_256\" \/><\/p>\n<p><strong>4gl\u7f16\u7a0b\u7684\u4e00\u4e9b\u6982\u5ff5<\/strong><\/p>\n<p>\u2460Window\u4e5f\u662f\u4e00\u7c7b\u6570\u636e\u7c7b\u578bui.Window<\/p>\n<p>\u2461Window\u7684\u5143\u7d20\u90fd\u5e94\u8be5\u7528\u7c7b\u4f3cGrid\u7684\u63a7\u4ef6\u5305\u88f9<\/p>\n<p>\u2462\u6240\u6709\u5728Window\u4e0a\u9762\u7684\u5143\u7d20\u90fd\u53ef\u4ee5\u770b\u7740\u4e00\u4e2aom.domnode\uff08\u5305\u62ecCanvas\u753b\u5e03 <img loading=\"lazy\" decoding=\"async\" width=\"21\" height=\"21\" class=\"wp-image-1094\" src=\"http:\/\/www.hefeiyu.com\/wp-content\/uploads\/2019\/06\/img_257-3.jpeg\" alt=\"IMG_257\" \/> \uff09<\/p>\n<p><strong>Canvas\u753b\u56fe\u6b65\u9aa4<\/strong><\/p>\n<pre class=\"pure-highlightjs\"><code class=\"null\">#\u9996\u5148\u753b4fd\uff0c\u57284fd\u4e0a\u9762\u653e\u7f6e\u4e00\u4e2aCanvas\u753b\u5e03\uff08ex:\u753b\u5e03\u7684\u540d\u79f0\u4e3amycarvas\uff09\r\n#\u2460\u5b9a\u4e49\u8282\u70b9\r\nDEFINE\u00a0\u00a0\u00a0w_CurrentWindow\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0ui.Window\r\nDEFINE\u00a0\u00a0\u00a0w_Canvas\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0om.DomNode\r\nDEFINE\u00a0\u00a0\u00a0canvas_Rectangle\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0om.DomNode\r\n#\u2461\u627e\u5230\u753b\u5e03\u8282\u70b9\u3001\u753b\u5e03\u4e0a\u7ed8\u5236\u56fe\u884c\r\nLET\u00a0w_CurrentWindow\u00a0=\u00a0ui.Window.getCurrent()\u00a0\u00a0\u00a0\u00a0#\u627e\u5230\u5f53\u524d\u7684\u9875\u9762Window\r\nLET\u00a0w_Canvas\u00a0=\u00a0w_CurrentWindow\u00a0.findNode(\"Canvas\",\"mycarvas\")\u00a0\u00a0\u00a0#\u627e\u5230\u9875\u9762\u4e0a\u7684Canvas\u753b\u5e03\uff08\u8fd9\u91ccmycarvas\u8868\u793a4fd\u6863\u4e0a\u9762\u753b\u5e03\u53d6\u7684\u540d\u5b57\uff09\r\nLET\u00a0canvas_Rectangle\u00a0=\u00a0w_Canvas.createChild(\"CanvasRectangle\")\u00a0\u00a0#\u5728\u753b\u5e03\u4e0a\u9762\u7ed8\u5236\u56fe\u5f62\uff08\u8fd9\u91cc\u7ed8\u5236\u77e9\u5f62\r\n#\u2462\u8bbe\u7f6e\u56fe\u5f62\u5c5e\u6027\uff0cex\uff1a\u4e0a\u4e0b\u5de6\u53f3\u5750\u6807\u3001\u524d\u666f\u8272.....\r\nCALL\u00a0canvas_Rectangle.setAttribute(\"fillColor\",\u00a0\"black\")\u00a0\u00a0\u00a0\u00a0#\u8bbe\u7f6e\u524d\u666f\u8272\r\nCALL\u00a0canvas_Rectangle.setAttribute(\"startX\",621)\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#\u8bbe\u7f6e\u8d77\u70b9x\u5750\u6807\r\nCALL\u00a0canvas_Rectangle.setAttribute(\"startY\",100)\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#\u8bbe\u7f6e\u8d77\u70b9y\u5750\u6807\r\nCALL\u00a0canvas_Rectangle.setAttribute(\"endX\",661)\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#\u8bbe\u7f6e\u7ec8\u70b9x\u5750\u6807\r\nCALL\u00a0canvas_Rectangle.setAttribute(\"endY\",(100+900*(l_q5\/100))\u00a0USING\u00a0\"####\")\u00a0#\u8bbe\u7f6e\u7ec8\u70b9y\u5750\u6807(\u8bf4\u660e\uff1a\u8fd9\u91cc\u7528\u7684\u662f\u4e00\u4e2a\u53d8\u91cfl_q5\u7684\u503c\u5728\u753b\u5e031000*1000\u4e0a\u9762\u5360\u7684\u6bd4\u4f8b)<\/code><\/pre>\n<p>\u5176\u4ed6\u66f4\u591a\u7ec6\u8282\u53c2\u8003Genero Studio\u7684\u624b\u518c\u6587\u6863<\/p>\n<p>&nbsp;<\/p>\n<p><strong>\u4e8c\u3001\u5e94\u7528\uff1a4GL\u56fe\u5f62\u7a0b\u5e8f\u76d1\u63a7\u6570\u636e\u5e93\u8868\u7a7a\u95f4\u4f7f\u7528\u60c5\u51b5(TIPTOP ERP 5.10 p_dbspace)<\/strong><\/p>\n<p>\u968f\u7740ERP\u7684\u957f\u5e74\u7d2f\u6708\u6570\u636e\u8d44\u6599\u7684\u589e\u52a0\uff0c\u6570\u636e\u5e93\u8868\u7a7a\u95f4\u80af\u5b9a\u4f1a\u8d8a\u6765\u8d8a\u5403\u7d27<\/p>\n<p>\u8fd9\u91cc\u63d0\u4f9b4GL\u7a0b\u5e8f\u5f62\u8c61\u76d1\u63a7\u6570\u636e\u5e93\u8868\u7a7a\u95f4\u7684\u4f7f\u7528\u60c5\u51b5,\u4ee5\u5907\u6570\u636e\u5e93\u7a7a\u95f4\u4e0d\u591f\u7528\u65f6MIS\u4eba\u5458\u901f\u5ea6\u54cd\u5e94\u5904\u7406<\/p>\n<p><strong>\u2460.p_dbspace per\u6863<\/strong><\/p>\n<pre class=\"pure-highlightjs\"><code class=\"null\">----------------------------------------------------------------------------------\r\n--\u00a0$Id:\u00a0\u00a0p_dbspace.per\u00a0created\u00a0Thu\u00a0May\u00a017\u00a011:14:22\u00a02012\r\n--\u00a0File\u00a0created\u00a0from\u00a0p_dbspace.4fd\u00a0by\u00a0Genero\u00a0Studio\u00a011401\r\n--\u00a0Copyright\u00a0(c)\u00a02002-2007\u00a0\u00a0Four\u00a0J's\u00a0Development\u00a0Tools.\u00a0\u00a0All\u00a0rights\u00a0reserved.\r\n----------------------------------------------------------------------------------\r\n--\u00a0WARNING!\u00a0All\u00a0changes\u00a0made\u00a0in\u00a0this\u00a0file\u00a0will\u00a0be\u00a0lost!\r\n----------------------------------------------------------------------------------\r\nSCHEMA\u00a0ds\r\nLAYOUT(\u00a0TEXT=\"p_dbspace\")\r\n\u00a0\u00a0GRID\u00a0gr4\r\n\u00a0\u00a0{\r\n\u00a0\u00a0\u00a0&lt;G\u00a0gb2\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\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&gt;\r\n\u00a0\u00a0\u00a0[aa0\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\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]\r\n\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\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\u00a0\u00a0\u00a0\u00a0\u00a0]\r\n\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\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\u00a0\u00a0\u00a0\u00a0\u00a0]\r\n\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\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\u00a0\u00a0\u00a0\u00a0\u00a0]\r\n\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\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\u00a0\u00a0\u00a0\u00a0\u00a0]\r\n\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\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\u00a0\u00a0\u00a0\u00a0\u00a0]\r\n\u00a0\u00a0\u00a0&lt;\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\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\u00a0\u00a0\u00a0&gt;\r\n\u00a0\u00a0\u00a0&lt;G\u00a0gb4\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\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&gt;\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0[aa1\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0][aa2\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0][aa3\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0][aa4\u00a0\u00a0\u00a0\u00a0\u00a0]\r\n\u00a0\u00a0\u00a0[aa5\u00a0\u00a0\u00a0]\u00a0\u00a0[aa6\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0][aa7\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0][aa8\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0][aa9\u00a0\u00a0\u00a0\u00a0\u00a0]\r\n\u00a0\u00a0\u00a0[ab0\u00a0\u00a0\u00a0\u00a0\u00a0][ab1\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0][ab2\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0][ab3\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0][ab4\u00a0\u00a0\u00a0\u00a0\u00a0]\r\n\u00a0\u00a0\u00a0[ab5\u00a0\u00a0\u00a0\u00a0\u00a0][ab6\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0][ab7\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0][ab8\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0][ab9\u00a0\u00a0\u00a0\u00a0\u00a0]\r\n\u00a0\u00a0\u00a0[ac0\u00a0\u00a0\u00a0\u00a0\u00a0][ac1\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0][ac2\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0][ac3\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0][ac4\u00a0\u00a0\u00a0\u00a0\u00a0]\r\n\u00a0\u00a0\u00a0[ac5\u00a0\u00a0\u00a0\u00a0\u00a0][ac6\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0][ac7\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0][ac8\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0][ac9\u00a0\u00a0\u00a0\u00a0\u00a0]\r\n\u00a0\u00a0\u00a0[ad0\u00a0\u00a0\u00a0\u00a0\u00a0][ad1\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0][ad2\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0][ad3\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0][ad4\u00a0\u00a0\u00a0\u00a0\u00a0]\r\n\u00a0\u00a0\u00a0[ad5\u00a0\u00a0\u00a0\u00a0\u00a0][ad6\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0][ad7\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0][ad8\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0][ad9\u00a0\u00a0\u00a0\u00a0\u00a0]\r\n\u00a0\u00a0\u00a0\u00a0You\u00a0Should\u00a0Redesign\u00a0This\u00a0Program\u00a0After\u00a0Rebuild\u00a0The\u00a0Database!\r\n\u00a0\u00a0\u00a0[ae0\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\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0[ae1\u00a0\u00a0\u00a0\u00a0\u00a0][ae2\u00a0\u00a0\u00a0\u00a0\u00a0]\r\n\u00a0\u00a0\u00a0&lt;\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\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\u00a0\u00a0\u00a0&gt;\r\n\u00a0\u00a0}\r\n\u00a0\u00a0END\u00a0--\u00a0GRID\r\nEND\r\nATTRIBUTES\r\n\u00a0\u00a0GROUP\u00a0gb2\u00a0:\u00a0gb2,\u00a0TEXT=\"Tiptop\u00a0GP\u00a0TableSpace\u00a0Graphics\u00a0Detail\";\r\n\u00a0\u00a0CANVAS\u00a0aa0\u00a0:\u00a0ocarvas;\r\n\u00a0\u00a0GROUP\u00a0gb4\u00a0:\u00a0gb4,\u00a0TEXT=\"Tiptop\u00a0GP\u00a0TableSpace\u00a0Data\u00a0Detail\";\r\n\u00a0\u00a0LABEL\u00a0aa1:lb8,\u00a0TEXT=\"TotalTableSpace\";\r\n\u00a0\u00a0LABEL\u00a0aa2:lb9,\u00a0TEXT=\"FreeTableSpace\";\r\n\u00a0\u00a0LABEL\u00a0aa3:lb10,\u00a0TEXT=\"Total-Free\u00a0Space\";\r\n\u00a0\u00a0LABEL\u00a0aa4:lb11,\u00a0TEXT=\"UsedQuto%\";\r\n\u00a0\u00a0LABEL\u00a0aa5:lb1,\u00a0TEXT=\"SYSTEM\";\r\n\u00a0\u00a0EDIT\u00a0aa6=FORMONLY.systemt\u00a0TYPE\u00a0DECIMAL,\u00a0TABINDEX=1;\r\n\u00a0\u00a0EDIT\u00a0aa7=FORMONLY.systemf\u00a0TYPE\u00a0DECIMAL,\u00a0TABINDEX=2;\r\n\u00a0\u00a0EDIT\u00a0aa8=FORMONLY.systemtf\u00a0TYPE\u00a0DECIMAL,\u00a0TABINDEX=3;\r\n\u00a0\u00a0EDIT\u00a0aa9=FORMONLY.systemq\u00a0TYPE\u00a0DECIMAL,\u00a0TABINDEX=4;\r\n\u00a0\u00a0LABEL\u00a0ab0:lb2,\u00a0TEXT=\"SYSAUX\";\r\n\u00a0\u00a0EDIT\u00a0ab1=FORMONLY.sysauxt\u00a0TYPE\u00a0DECIMAL,\u00a0TABINDEX=5;\r\n\u00a0\u00a0EDIT\u00a0ab2=FORMONLY.sysauxf\u00a0TYPE\u00a0DECIMAL,\u00a0TABINDEX=11;\r\n\u00a0\u00a0EDIT\u00a0ab3=FORMONLY.sysauxtf\u00a0TYPE\u00a0DECIMAL,\u00a0TABINDEX=17;\r\n\u00a0\u00a0EDIT\u00a0ab4=FORMONLY.sysauxq\u00a0TYPE\u00a0DECIMAL,\u00a0TABINDEX=23;\r\n\u00a0\u00a0LABEL\u00a0ab5:lb3,\u00a0TEXT=\"DBS1\";\r\n\u00a0\u00a0EDIT\u00a0ab6=FORMONLY.dbs1t\u00a0TYPE\u00a0DECIMAL,\u00a0TABINDEX=6;\r\n\u00a0\u00a0EDIT\u00a0ab7=FORMONLY.dbs1f\u00a0TYPE\u00a0DECIMAL,\u00a0TABINDEX=12;\r\n\u00a0\u00a0EDIT\u00a0ab8=FORMONLY.dbs1tf\u00a0TYPE\u00a0DECIMAL,\u00a0TABINDEX=18;\r\n\u00a0\u00a0EDIT\u00a0ab9=FORMONLY.dbs1q\u00a0TYPE\u00a0DECIMAL,\u00a0TABINDEX=24;\r\n\u00a0\u00a0LABEL\u00a0ac0:lb4,\u00a0TEXT=\"UNDOTBS1\";\r\n\u00a0\u00a0EDIT\u00a0ac1=FORMONLY.undotbs1t\u00a0TYPE\u00a0DECIMAL,\u00a0TABINDEX=7;\r\n\u00a0\u00a0EDIT\u00a0ac2=FORMONLY.undotbs1f\u00a0TYPE\u00a0DECIMAL,\u00a0TABINDEX=13;\r\n\u00a0\u00a0EDIT\u00a0ac3=FORMONLY.undotbs1tf\u00a0TYPE\u00a0DECIMAL,\u00a0TABINDEX=19;\r\n\u00a0\u00a0EDIT\u00a0ac4=FORMONLY.undotbs1q\u00a0TYPE\u00a0DECIMAL,\u00a0TABINDEX=25;\r\n\u00a0\u00a0LABEL\u00a0ac5:lb5,\u00a0TEXT=\"USERS\";\r\n\u00a0\u00a0EDIT\u00a0ac6=FORMONLY.userst\u00a0TYPE\u00a0DECIMAL,\u00a0TABINDEX=8;\r\n\u00a0\u00a0EDIT\u00a0ac7=FORMONLY.usersf\u00a0TYPE\u00a0DECIMAL,\u00a0TABINDEX=14;\r\n\u00a0\u00a0EDIT\u00a0ac8=FORMONLY.userstf\u00a0TYPE\u00a0DECIMAL,\u00a0TABINDEX=20;\r\n\u00a0\u00a0EDIT\u00a0ac9=FORMONLY.usersq\u00a0TYPE\u00a0DECIMAL,\u00a0TABINDEX=26;\r\n\u00a0\u00a0LABEL\u00a0ad0:lb6,\u00a0TEXT=\"TEMPTABS\";\r\n\u00a0\u00a0EDIT\u00a0ad1=FORMONLY.temptabst\u00a0TYPE\u00a0DECIMAL,\u00a0TABINDEX=9;\r\n\u00a0\u00a0EDIT\u00a0ad2=FORMONLY.temptabsf\u00a0TYPE\u00a0DECIMAL,\u00a0TABINDEX=15;\r\n\u00a0\u00a0EDIT\u00a0ad3=FORMONLY.temptabstf\u00a0TYPE\u00a0DECIMAL,\u00a0TABINDEX=21;\r\n\u00a0\u00a0EDIT\u00a0ad4=FORMONLY.temptabsq\u00a0TYPE\u00a0DECIMAL,\u00a0TABINDEX=27;\r\n\u00a0\u00a0LABEL\u00a0ad5:lb7,\u00a0TEXT=\"RPTDBS1\";\r\n\u00a0\u00a0EDIT\u00a0ad6=FORMONLY.rptdbs1t\u00a0TYPE\u00a0DECIMAL,\u00a0TABINDEX=10;\r\n\u00a0\u00a0EDIT\u00a0ad7=FORMONLY.rptdbs1f\u00a0TYPE\u00a0DECIMAL,\u00a0TABINDEX=16;\r\n\u00a0\u00a0EDIT\u00a0ad8=FORMONLY.rptdbs1tf\u00a0TYPE\u00a0DECIMAL,\u00a0TABINDEX=22;\r\n\u00a0\u00a0EDIT\u00a0ad9=FORMONLY.rptdbs1q\u00a0TYPE\u00a0DECIMAL,\u00a0TABINDEX=28;\r\n\u00a0\u00a0BUTTON\u00a0ae0\u00a0:\u00a0clearrpt,\u00a0TEXT=\"Clear\",\u00a0IMAGE=\"export\";\r\n\u00a0\u00a0BUTTON\u00a0ae1\u00a0:\u00a0refresh,\u00a0TEXT=\"Refresh\",\u00a0IMAGE=\"refresh\";\r\n\u00a0\u00a0BUTTON\u00a0ae2\u00a0:\u00a0exit,\u00a0TEXT=\"Exit\",\u00a0IMAGE=\"cancel\";\r\nEND<\/code><\/pre>\n<p>&nbsp;<\/p>\n<p><strong>\u9644\uff1a\u5982\u4f55\u5c06per\u6863\u8f6c\u6362\u4e3a4GL\u8bed\u8a00\u4e2d\u76844fd\u6863<\/strong><\/p>\n<p>\u6253\u5f00Genero Studio &#8211;&gt;\u00a0\u00a0\u83dc\u5355\u680fTools &#8211;&gt;\u00a0\u00a0File Browser\u00a0&#8211;&gt; \u627e\u5230p_locked.per\u6863(\u53f3\u952e\u5982\u4e0b\u56fe\u6240\u793a)<\/p>\n<p><img loading=\"lazy\" decoding=\"async\" width=\"264\" height=\"72\" class=\"wp-image-1095\" src=\"http:\/\/www.hefeiyu.com\/wp-content\/uploads\/2019\/06\/img_258-3.jpeg\" alt=\"IMG_258\" \/><\/p>\n<p><strong>\u2461.p_dbspace 4gl\u6863<\/strong><\/p>\n<pre class=\"pure-highlightjs\"><code class=\"null\">#\u00a0Prog.\u00a0Version..:\u00a0'5.10.16-10.10.14(00009)'\u00a0\u00a0\u00a0\u00a0\u00a0#\r\n#\r\n#\u00a0Program\u00a0name...:\u00a0p_dbspace.4gl\r\n#\u00a0Descriptions...:\u00a0Tiptop\u00a0GP\u00a05.x\u00a0Oracle\u00a0TableSpace\u00a0Information\r\n#\u00a0Date\u00a0&amp;\u00a0Author..:\u00a012\/05\/16\u00a0by\u00a0\u674e\u827a\u8f89\r\nDATABASE\u00a0ds\r\nGLOBALS\u00a0\"..\/..\/config\/top.global\"\r\nDEFINE\u00a0\u00a0\u00a0g_sql_t\u00a0\u00a0STRING\r\nDEFINE\u00a0\u00a0\u00a0g_sql_f\u00a0\u00a0STRING\r\nDEFINE\u00a0\u00a0\u00a0g_tablespace\u00a0ARRAY[7]\u00a0OF\u00a0LIKE\u00a0type_file.chr10\r\nMAIN\r\n\u00a0\u00a0\u00a0DEFER\u00a0INTERRUPT\r\n\u00a0\u00a0\u00a0OPTIONS\u00a0ON\u00a0CLOSE\u00a0APPLICATION\u00a0STOP\r\n\u00a0\u00a0\u00a0IF\u00a0(NOT\u00a0cl_user())\u00a0THEN\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0EXIT\u00a0PROGRAM\r\n\u00a0\u00a0\u00a0END\u00a0IF\r\n\u00a0\u00a0\u00a0WHENEVER\u00a0ERROR\u00a0CALL\u00a0cl_err_msg_log\r\n\u00a0\u00a0\u00a0IF\u00a0(NOT\u00a0cl_setup(\"CZZ\"))\u00a0THEN\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0EXIT\u00a0PROGRAM\r\n\u00a0\u00a0\u00a0END\u00a0IF\r\n\u00a0\u00a0\u00a0CALL\u00a0cl_used(g_prog,g_time,1)\u00a0RETURNING\u00a0g_time\r\n\u00a0\u00a0\u00a0OPEN\u00a0WINDOW\u00a0w_dbspace\u00a0WITH\u00a0FORM\u00a0\"czz\/42f\/p_dbspace\"\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0ATTRIBUTE(STYLE=\"err01\")\r\n\u00a0\u00a0\u00a0CALL\u00a0cl_ui_init()\r\n\u00a0\u00a0\u00a0LET\u00a0g_tablespace[1]='SYSTEM'\r\n\u00a0\u00a0\u00a0LET\u00a0g_tablespace[2]='SYSAUX'\r\n\u00a0\u00a0\u00a0LET\u00a0g_tablespace[3]='DBS1'\r\n\u00a0\u00a0\u00a0LET\u00a0g_tablespace[4]='UNDOTBS1'\r\n\u00a0\u00a0\u00a0LET\u00a0g_tablespace[5]='USERS'\r\n\u00a0\u00a0\u00a0LET\u00a0g_tablespace[6]='TEMPTABS'\r\n\u00a0\u00a0\u00a0LET\u00a0g_tablespace[7]='RPTDBS1'\r\n\u00a0\u00a0\u00a0CALL\u00a0p_dbspace_load()\r\n\u00a0\u00a0\u00a0CALL\u00a0p_dbmenu()\r\n\u00a0\u00a0\u00a0CLOSE\u00a0WINDOW\u00a0w_dbspace\r\n\u00a0\u00a0\u00a0CALL\u00a0cl_used(g_prog,g_time,2)\u00a0RETURNING\u00a0g_time\r\nEND\u00a0MAIN\r\nFUNCTION\u00a0p_dbmenu()\r\n\u00a0\u00a0\u00a0MENU\u00a0\"\"\r\n\u00a0\u00a0\u00a0\u00a0\u00a0BEFORE\u00a0MENU\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#CALL\u00a0cl_navigator_setting(g_curs_index,\u00a0g_row_count)\r\n\u00a0\u00a0\u00a0\u00a0\u00a0ON\u00a0ACTION\u00a0refresh\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0CALL\u00a0p_dbspace_load()\r\n\u00a0\u00a0\u00a0\u00a0\u00a0ON\u00a0ACTION\u00a0clearrpt\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0CALL\u00a0p_dbspace_clearrpt()\r\n\u00a0\u00a0\u00a0\u00a0\u00a0ON\u00a0ACTION\u00a0exit\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0EXIT\u00a0MENU\r\n\u00a0\u00a0\u00a0\u00a0\u00a0COMMAND\u00a0KEY(INTERRUPT)\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LET\u00a0INT_FLAG=FALSE\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0EXIT\u00a0MENU\r\n\u00a0\u00a0\u00a0\u00a0END\u00a0MENU\r\nEND\u00a0FUNCTION\r\nFUNCTION\u00a0p_dbspace_load()\r\n\u00a0\u00a0\u00a0DEFINE\u00a0\u00a0\u00a0l_index\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LIKE\u00a0type_file.num5\r\n\u00a0\u00a0\u00a0DEFINE\u00a0\u00a0\u00a0l_totalspace\u00a0\u00a0\u00a0\u00a0LIKE\u00a0type_file.num20\r\n\u00a0\u00a0\u00a0DEFINE\u00a0\u00a0\u00a0l_freespace\u00a0\u00a0\u00a0\u00a0\u00a0LIKE\u00a0type_file.num20\r\n\u00a0\u00a0\u00a0DEFINE\u00a0\u00a0\u00a0l_total_free\u00a0\u00a0\u00a0\u00a0LIKE\u00a0type_file.num20\r\n\u00a0\u00a0\u00a0DEFINE\u00a0\u00a0\u00a0l_quto\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LIKE\u00a0type_file.num20_6\r\n\u00a0\u00a0\u00a0DEFINE\u00a0\u00a0\u00a0ls_pic_url\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING\r\n\u00a0\u00a0\u00a0DEFINE\u00a0\u00a0\u00a0w_oracle\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0ui.Window\r\n\u00a0\u00a0\u00a0DEFINE\u00a0\u00a0\u00a0canvas_temp\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0om.domnode\r\n\u00a0\u00a0\u00a0DEFINE\u00a0\u00a0\u00a0canvas_oracle\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0om.DomNode\r\n\u00a0\u00a0\u00a0DEFINE\u00a0\u00a0\u00a0canvas_SYSTEM\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0om.DomNode\r\n\u00a0\u00a0\u00a0DEFINE\u00a0\u00a0\u00a0canvas_SYSAUX\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0om.DomNode\r\n\u00a0\u00a0\u00a0DEFINE\u00a0\u00a0\u00a0canvas_DBS1\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0om.DomNode\r\n\u00a0\u00a0\u00a0DEFINE\u00a0\u00a0\u00a0canvas_UNDOTBS1\u00a0\u00a0\u00a0\u00a0\u00a0om.DomNode\r\n\u00a0\u00a0\u00a0DEFINE\u00a0\u00a0\u00a0canvas_USERS\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0om.DomNode\r\n\u00a0\u00a0\u00a0DEFINE\u00a0\u00a0\u00a0canvas_TEMPTABS\u00a0\u00a0\u00a0\u00a0\u00a0om.DomNode\r\n\u00a0\u00a0\u00a0DEFINE\u00a0\u00a0\u00a0canvas_RPTDBS1\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0om.DomNode\r\n\u00a0\u00a0\u00a0DEFINE\u00a0\u00a0\u00a0canvas_text1\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0om.DomNode\r\n\u00a0\u00a0\u00a0DEFINE\u00a0\u00a0\u00a0canvas_text2\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0om.DomNode\r\n\u00a0\u00a0\u00a0DEFINE\u00a0\u00a0\u00a0canvas_text3\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0om.DomNode\r\n\u00a0\u00a0\u00a0DEFINE\u00a0\u00a0\u00a0canvas_text4\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0om.DomNode\r\n\u00a0\u00a0\u00a0DEFINE\u00a0\u00a0\u00a0canvas_text5\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0om.DomNode\r\n\u00a0\u00a0\u00a0DEFINE\u00a0\u00a0\u00a0canvas_text6\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0om.DomNode\r\n\u00a0\u00a0\u00a0DEFINE\u00a0\u00a0\u00a0canvas_text7\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0om.DomNode\r\n\u00a0\u00a0\u00a0DEFINE\u00a0\u00a0\u00a0canvas_text1q\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0om.DomNode\r\n\u00a0\u00a0\u00a0DEFINE\u00a0\u00a0\u00a0canvas_text2q\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0om.DomNode\r\n\u00a0\u00a0\u00a0DEFINE\u00a0\u00a0\u00a0canvas_text3q\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0om.DomNode\r\n\u00a0\u00a0\u00a0DEFINE\u00a0\u00a0\u00a0canvas_text4q\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0om.DomNode\r\n\u00a0\u00a0\u00a0DEFINE\u00a0\u00a0\u00a0canvas_text5q\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0om.DomNode\r\n\u00a0\u00a0\u00a0DEFINE\u00a0\u00a0\u00a0canvas_text6q\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0om.DomNode\r\n\u00a0\u00a0\u00a0DEFINE\u00a0\u00a0\u00a0canvas_text7q\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0om.DomNode\r\n\u00a0\u00a0\u00a0DEFINE\u00a0\u00a0\u00a0l_q1,l_q2,l_q3\u00a0LIKE\u00a0type_file.num5\r\n\u00a0\u00a0\u00a0DEFINE\u00a0\u00a0\u00a0l_q4,l_q5,l_q6\u00a0LIKE\u00a0type_file.num5\r\n\u00a0\u00a0\u00a0DEFINE\u00a0\u00a0\u00a0l_q7,l_x\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LIKE\u00a0type_file.num5\r\n\u00a0\u00a0\u00a0CLOSE\u00a0DATABASE\r\n\u00a0\u00a0\u00a0DATABASE\u00a0ds\u00a0\u00a0\u00a0#\u8fd9\u91cc\u9700\u6ce8\u610f,\u9700\u8fde\u63a5\u5230\u6709\u6743\u9650\u67e5\u8be2dbs_data_files\u8868\u7684\u7528\u6237\u4e2d\r\n\u00a0\u00a0\u00a0LET\u00a0g_sql_t\u00a0=\u00a0\"SELECT\u00a0SUM(bytes)\u00a0FROM\u00a0dba_data_files\u00a0WHERE\u00a0tablespace_name\u00a0=\u00a0?\"\r\n\u00a0\u00a0\u00a0DECLARE\u00a0total_cur\u00a0CURSOR\u00a0FROM\u00a0g_sql_t\r\n\u00a0\u00a0\u00a0LET\u00a0g_sql_f\u00a0=\u00a0\"SELECT\u00a0SUM(bytes)\u00a0FROM\u00a0dba_free_space\u00a0WHERE\u00a0tablespace_name\u00a0=\u00a0?\"\r\n\u00a0\u00a0\u00a0DECLARE\u00a0free_cur\u00a0CURSOR\u00a0FROM\u00a0g_sql_f\r\n\u00a0\u00a0\u00a0LET\u00a0w_oracle\u00a0=\u00a0ui.Window.getCurrent()\r\n\u00a0\u00a0\u00a0LET\u00a0canvas_oracle\u00a0=\u00a0w_oracle.findNode(\"Canvas\",\"ocarvas\")\r\n\u00a0\u00a0\u00a0#Clear\u00a0Child\u00a0Nod\r\n\u00a0\u00a0\u00a0LET\u00a0canvas_temp\u00a0=\u00a0canvas_oracle.getFirstChild()\r\n\u00a0\u00a0\u00a0WHILE\u00a0canvas_temp\u00a0IS\u00a0NOT\u00a0NULL\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0CALL\u00a0canvas_oracle.removeChild(canvas_temp)\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LET\u00a0canvas_temp\u00a0=\u00a0canvas_oracle.getFirstChild()\r\n\u00a0\u00a0\u00a0END\u00a0WHILE\r\n\u00a0\u00a0\u00a0LET\u00a0canvas_text1\u00a0=\u00a0canvas_oracle.createChild(\"CanvasText\")\r\n\u00a0\u00a0\u00a0LET\u00a0canvas_text2\u00a0=\u00a0canvas_oracle.createChild(\"CanvasText\")\r\n\u00a0\u00a0\u00a0LET\u00a0canvas_text3\u00a0=\u00a0canvas_oracle.createChild(\"CanvasText\")\r\n\u00a0\u00a0\u00a0LET\u00a0canvas_text4\u00a0=\u00a0canvas_oracle.createChild(\"CanvasText\")\r\n\u00a0\u00a0\u00a0LET\u00a0canvas_text5\u00a0=\u00a0canvas_oracle.createChild(\"CanvasText\")\r\n\u00a0\u00a0\u00a0LET\u00a0canvas_text6\u00a0=\u00a0canvas_oracle.createChild(\"CanvasText\")\r\n\u00a0\u00a0\u00a0LET\u00a0canvas_text7\u00a0=\u00a0canvas_oracle.createChild(\"CanvasText\")\r\n\u00a0\u00a0\u00a0LET\u00a0canvas_text1q\u00a0=\u00a0canvas_oracle.createChild(\"CanvasText\")\r\n\u00a0\u00a0\u00a0LET\u00a0canvas_text2q\u00a0=\u00a0canvas_oracle.createChild(\"CanvasText\")\r\n\u00a0\u00a0\u00a0LET\u00a0canvas_text3q\u00a0=\u00a0canvas_oracle.createChild(\"CanvasText\")\r\n\u00a0\u00a0\u00a0LET\u00a0canvas_text4q\u00a0=\u00a0canvas_oracle.createChild(\"CanvasText\")\r\n\u00a0\u00a0\u00a0LET\u00a0canvas_text5q\u00a0=\u00a0canvas_oracle.createChild(\"CanvasText\")\r\n\u00a0\u00a0\u00a0LET\u00a0canvas_text6q\u00a0=\u00a0canvas_oracle.createChild(\"CanvasText\")\r\n\u00a0\u00a0\u00a0LET\u00a0canvas_text7q\u00a0=\u00a0canvas_oracle.createChild(\"CanvasText\")\r\n\u00a0\u00a0\u00a0LET\u00a0canvas_SYSTEM\u00a0=\u00a0canvas_oracle.createChild(\"CanvasRectangle\")\r\n\u00a0\u00a0\u00a0LET\u00a0canvas_SYSAUX\u00a0=\u00a0canvas_oracle.createChild(\"CanvasRectangle\")\r\n\u00a0\u00a0\u00a0LET\u00a0canvas_DBS1\u00a0=\u00a0canvas_oracle.createChild(\"CanvasRectangle\")\r\n\u00a0\u00a0\u00a0LET\u00a0canvas_UNDOTBS1\u00a0=\u00a0canvas_oracle.createChild(\"CanvasRectangle\")\r\n\u00a0\u00a0\u00a0LET\u00a0canvas_USERS\u00a0=\u00a0canvas_oracle.createChild(\"CanvasRectangle\")\r\n\u00a0\u00a0\u00a0LET\u00a0canvas_TEMPTABS\u00a0=\u00a0canvas_oracle.createChild(\"CanvasRectangle\")\r\n\u00a0\u00a0\u00a0LET\u00a0canvas_RPTDBS1\u00a0=\u00a0canvas_oracle.createChild(\"CanvasRectangle\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text1.setAttribute(\"fillColor\",\u00a0\"blue\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text1.setAttribute(\"startX\",22)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text1.setAttribute(\"startY\",0)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text1.setAttribute(\"text\",\"SYSTEM\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text2.setAttribute(\"fillColor\",\u00a0\"white\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text2.setAttribute(\"startX\",165)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text2.setAttribute(\"startY\",0)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text2.setAttribute(\"text\",\"SYSAUX\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text3.setAttribute(\"fillColor\",\u00a0\"green\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text3.setAttribute(\"startX\",323)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text3.setAttribute(\"startY\",0)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text3.setAttribute(\"text\",\"DBS1\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text4.setAttribute(\"fillColor\",\u00a0\"yellow\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text4.setAttribute(\"startX\",435)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text4.setAttribute(\"startY\",0)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text4.setAttribute(\"text\",\"UNDOTBS1\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text5.setAttribute(\"fillColor\",\u00a0\"black\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text5.setAttribute(\"startX\",600)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text5.setAttribute(\"startY\",0)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text5.setAttribute(\"text\",\"USERS\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text6.setAttribute(\"fillColor\",\u00a0\"purple\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text6.setAttribute(\"startX\",710)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text6.setAttribute(\"startY\",0)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text6.setAttribute(\"text\",\"TEMPTABS\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text7.setAttribute(\"fillColor\",\u00a0\"red\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text7.setAttribute(\"startX\",876)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text7.setAttribute(\"startY\",0)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text7.setAttribute(\"text\",\"RPTDBS1\")\r\n\u00a0\u00a0\u00a0INITIALIZE\u00a0l_q1,l_q2,l_q3,l_q4,l_q5,l_q6,l_q7\u00a0TO\u00a0NULL\r\n\u00a0\u00a0\u00a0FOR\u00a0l_index=1\u00a0TO\u00a0g_tablespace.getLength()\u00a0STEP\u00a0+\u00a01\r\n\u00a0\u00a0\u00a0\u00a0\u00a0INITIALIZE\u00a0l_totalspace,l_freespace,l_total_free,l_quto\u00a0TO\u00a0NULL\r\n\u00a0\u00a0\u00a0\u00a0\u00a0OPEN\u00a0total_cur\u00a0USING\u00a0g_tablespace[l_index]\r\n\u00a0\u00a0\u00a0\u00a0\u00a0FETCH\u00a0total_cur\u00a0INTO\u00a0l_totalspace\r\n\u00a0\u00a0\u00a0\u00a0\u00a0OPEN\u00a0free_cur\u00a0USING\u00a0g_tablespace[l_index]\r\n\u00a0\u00a0\u00a0\u00a0\u00a0FETCH\u00a0free_cur\u00a0INTO\u00a0l_freespace\r\n\u00a0\u00a0\u00a0\u00a0\u00a0IF\u00a0NOT\u00a0cl_null(l_totalspace)\u00a0THEN\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0IF\u00a0cl_null(l_freespace)\u00a0THEN\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LET\u00a0l_freespace\u00a0=\u00a00\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0END\u00a0IF\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LET\u00a0l_total_free\u00a0=\u00a0l_totalspace\u00a0-\u00a0l_freespace\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LET\u00a0l_quto\u00a0=\u00a0l_total_free\/l_totalspace*100\r\n\u00a0\u00a0\u00a0\u00a0\u00a0END\u00a0IF\r\n\u00a0\u00a0\u00a0\u00a0\u00a0CASE\u00a0g_tablespace[l_index]\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0WHEN\u00a0'SYSTEM'\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0DISPLAY\u00a0l_totalspace\u00a0\u00a0\u00a0\u00a0TO\u00a0FORMONLY.systemt\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0DISPLAY\u00a0l_freespace\u00a0\u00a0\u00a0\u00a0\u00a0TO\u00a0FORMONLY.systemf\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0DISPLAY\u00a0l_total_free\u00a0\u00a0\u00a0\u00a0TO\u00a0FORMONLY.systemtf\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0DISPLAY\u00a0l_quto\u00a0USING\u00a0\"###.&amp;&amp;\"\u00a0TO\u00a0FORMONLY.systemq\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LET\u00a0l_q1\u00a0=\u00a0l_quto\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0WHEN\u00a0'SYSAUX'\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0DISPLAY\u00a0l_totalspace\u00a0\u00a0\u00a0\u00a0TO\u00a0FORMONLY.sysauxt\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0DISPLAY\u00a0l_freespace\u00a0\u00a0\u00a0\u00a0\u00a0TO\u00a0FORMONLY.sysauxf\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0DISPLAY\u00a0l_total_free\u00a0\u00a0\u00a0\u00a0TO\u00a0FORMONLY.sysauxtf\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0DISPLAY\u00a0l_quto\u00a0USING\u00a0\"###.&amp;&amp;\"\u00a0TO\u00a0FORMONLY.sysauxq\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LET\u00a0l_q2\u00a0=\u00a0l_quto\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0WHEN\u00a0'DBS1'\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0DISPLAY\u00a0l_totalspace\u00a0\u00a0\u00a0\u00a0TO\u00a0FORMONLY.dbs1t\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0DISPLAY\u00a0l_freespace\u00a0\u00a0\u00a0\u00a0\u00a0TO\u00a0FORMONLY.dbs1f\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0DISPLAY\u00a0l_total_free\u00a0\u00a0\u00a0\u00a0TO\u00a0FORMONLY.dbs1tf\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0DISPLAY\u00a0l_quto\u00a0USING\u00a0\"###.&amp;&amp;\"\u00a0TO\u00a0FORMONLY.dbs1q\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LET\u00a0l_q3\u00a0=\u00a0l_quto\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0WHEN\u00a0'UNDOTBS1'\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0DISPLAY\u00a0l_totalspace\u00a0\u00a0\u00a0\u00a0TO\u00a0FORMONLY.undotbs1t\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0DISPLAY\u00a0l_freespace\u00a0\u00a0\u00a0\u00a0\u00a0TO\u00a0FORMONLY.undotbs1f\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0DISPLAY\u00a0l_total_free\u00a0\u00a0\u00a0\u00a0TO\u00a0FORMONLY.undotbs1tf\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0DISPLAY\u00a0l_quto\u00a0USING\u00a0\"###.&amp;&amp;\"\u00a0TO\u00a0FORMONLY.undotbs1q\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LET\u00a0l_q4\u00a0=\u00a0l_quto\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0WHEN\u00a0'USERS'\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0DISPLAY\u00a0l_totalspace\u00a0\u00a0\u00a0\u00a0TO\u00a0FORMONLY.userst\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0DISPLAY\u00a0l_freespace\u00a0\u00a0\u00a0\u00a0\u00a0TO\u00a0FORMONLY.usersf\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0DISPLAY\u00a0l_total_free\u00a0\u00a0\u00a0\u00a0TO\u00a0FORMONLY.userstf\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0DISPLAY\u00a0l_quto\u00a0USING\u00a0\"###.&amp;&amp;\"\u00a0TO\u00a0FORMONLY.usersq\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LET\u00a0l_q5\u00a0=\u00a0l_quto\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0WHEN\u00a0'TEMPTABS'\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0DISPLAY\u00a0l_totalspace\u00a0\u00a0\u00a0\u00a0TO\u00a0FORMONLY.temptabst\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0DISPLAY\u00a0l_freespace\u00a0\u00a0\u00a0\u00a0\u00a0TO\u00a0FORMONLY.temptabsf\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0DISPLAY\u00a0l_total_free\u00a0\u00a0\u00a0\u00a0TO\u00a0FORMONLY.temptabstf\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0DISPLAY\u00a0l_quto\u00a0USING\u00a0\"###.&amp;&amp;\"\u00a0TO\u00a0FORMONLY.temptabsq\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LET\u00a0l_q6\u00a0=\u00a0l_quto\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0WHEN\u00a0'RPTDBS1'\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0DISPLAY\u00a0l_totalspace\u00a0\u00a0\u00a0\u00a0TO\u00a0FORMONLY.rptdbs1t\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0DISPLAY\u00a0l_freespace\u00a0\u00a0\u00a0\u00a0\u00a0TO\u00a0FORMONLY.rptdbs1f\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0DISPLAY\u00a0l_total_free\u00a0\u00a0\u00a0\u00a0TO\u00a0FORMONLY.rptdbs1tf\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0DISPLAY\u00a0l_quto\u00a0USING\u00a0\"###.&amp;&amp;\"\u00a0TO\u00a0FORMONLY.rptdbs1q\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LET\u00a0l_q7\u00a0=\u00a0l_quto\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0OTHERWISE\u00a0EXIT\u00a0CASE\r\n\u00a0\u00a0\u00a0\u00a0\u00a0END\u00a0CASE\r\n\u00a0\u00a0\u00a0END\u00a0FOR\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_SYSTEM.setAttribute(\"fillColor\",\u00a0\"blue\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_SYSTEM.setAttribute(\"startX\",52)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_SYSTEM.setAttribute(\"startY\",100)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_SYSTEM.setAttribute(\"endX\",92)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_SYSTEM.setAttribute(\"endY\",(100+900*(l_q1\/100))\u00a0USING\u00a0\"####\")\r\n\u00a0\u00a0\u00a0INITIALIZE\u00a0l_x\u00a0TO\u00a0NULL\r\n\u00a0\u00a0\u00a0IF\u00a0l_q1&gt;90\u00a0THEN\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LET\u00a0l_x\u00a0=\u00a090\r\n\u00a0\u00a0\u00a0ELSE\r\n\u00a0\u00a0\u00a0\u00a0\u00a0LET\u00a0l_x\u00a0=\u00a0l_q1\r\n\u00a0\u00a0\u00a0END\u00a0IF\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text1q.setAttribute(\"fillColor\",\u00a0\"blue\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text1q.setAttribute(\"startX\",95)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text1q.setAttribute(\"startY\",(100+900*(l_x\/100))\u00a0USING\u00a0\"####\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text1q.setAttribute(\"text\",l_q1||\"%\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_SYSAUX.setAttribute(\"fillColor\",\u00a0\"white\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_SYSAUX.setAttribute(\"startX\",195)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_SYSAUX.setAttribute(\"startY\",100)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_SYSAUX.setAttribute(\"endX\",235)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_SYSAUX.setAttribute(\"endY\",(100+900*(l_q2\/100))\u00a0USING\u00a0\"####\")\r\n\u00a0\u00a0\u00a0INITIALIZE\u00a0l_x\u00a0TO\u00a0NULL\r\n\u00a0\u00a0\u00a0IF\u00a0l_q2&gt;90\u00a0THEN\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LET\u00a0l_x\u00a0=\u00a090\r\n\u00a0\u00a0\u00a0ELSE\r\n\u00a0\u00a0\u00a0\u00a0\u00a0LET\u00a0l_x\u00a0=\u00a0l_q2\r\n\u00a0\u00a0\u00a0END\u00a0IF\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text2q.setAttribute(\"fillColor\",\u00a0\"white\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text2q.setAttribute(\"startX\",238)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text2q.setAttribute(\"startY\",(100+900*(l_x\/100))\u00a0USING\u00a0\"####\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text2q.setAttribute(\"text\",l_q2||\"%\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_DBS1.setAttribute(\"fillColor\",\u00a0\"green\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_DBS1.setAttribute(\"startX\",337)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_DBS1.setAttribute(\"startY\",100)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_DBS1.setAttribute(\"endX\",377)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_DBS1.setAttribute(\"endY\",(100+900*(l_q3\/100))\u00a0USING\u00a0\"####\")\r\n\u00a0\u00a0\u00a0INITIALIZE\u00a0l_x\u00a0TO\u00a0NULL\r\n\u00a0\u00a0\u00a0IF\u00a0l_q3&gt;90\u00a0THEN\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LET\u00a0l_x\u00a0=\u00a090\r\n\u00a0\u00a0\u00a0ELSE\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LET\u00a0l_x\u00a0=\u00a0l_q3\r\n\u00a0\u00a0\u00a0END\u00a0IF\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text3q.setAttribute(\"fillColor\",\u00a0\"green\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text3q.setAttribute(\"startX\",380)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text3q.setAttribute(\"startY\",(100+900*(l_x\/100))\u00a0USING\u00a0\"####\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text3q.setAttribute(\"text\",l_q3||\"%\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_UNDOTBS1.setAttribute(\"fillColor\",\u00a0\"yellow\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_UNDOTBS1.setAttribute(\"startX\",479)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_UNDOTBS1.setAttribute(\"startY\",100)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_UNDOTBS1.setAttribute(\"endX\",519)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_UNDOTBS1.setAttribute(\"endY\",(100+900*(l_q4\/100))\u00a0USING\u00a0\"####\")\r\n\u00a0\u00a0\u00a0INITIALIZE\u00a0l_x\u00a0TO\u00a0NULL\r\n\u00a0\u00a0\u00a0IF\u00a0l_q4&gt;90\u00a0THEN\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LET\u00a0l_x\u00a0=\u00a090\r\n\u00a0\u00a0\u00a0ELSE\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LET\u00a0l_x\u00a0=\u00a0l_q4\r\n\u00a0\u00a0\u00a0END\u00a0IF\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text4q.setAttribute(\"fillColor\",\u00a0\"yellow\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text4q.setAttribute(\"startX\",522)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text4q.setAttribute(\"startY\",(100+900*(l_x\/100))\u00a0USING\u00a0\"####\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text4q.setAttribute(\"text\",l_q4||\"%\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_USERS.setAttribute(\"fillColor\",\u00a0\"black\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_USERS.setAttribute(\"startX\",621)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_USERS.setAttribute(\"startY\",100)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_USERS.setAttribute(\"endX\",661)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_USERS.setAttribute(\"endY\",(100+900*(l_q5\/100))\u00a0USING\u00a0\"####\")\r\n\u00a0\u00a0\u00a0INITIALIZE\u00a0l_x\u00a0TO\u00a0NULL\r\n\u00a0\u00a0\u00a0IF\u00a0l_q5&gt;90\u00a0THEN\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LET\u00a0l_x\u00a0=\u00a090\r\n\u00a0\u00a0\u00a0ELSE\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LET\u00a0l_x\u00a0=\u00a0l_q5\r\n\u00a0\u00a0\u00a0END\u00a0IF\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text5q.setAttribute(\"fillColor\",\u00a0\"black\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text5q.setAttribute(\"startX\",664)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text5q.setAttribute(\"startY\",(100+900*(l_x\/100))\u00a0USING\u00a0\"####\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text5q.setAttribute(\"text\",l_q5||\"%\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_TEMPTABS.setAttribute(\"fillColor\",\u00a0\"purple\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_TEMPTABS.setAttribute(\"startX\",763)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_TEMPTABS.setAttribute(\"startY\",100)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_TEMPTABS.setAttribute(\"endX\",803)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_TEMPTABS.setAttribute(\"endY\",(100+900*(l_q6\/100))\u00a0USING\u00a0\"####\")\r\n\u00a0\u00a0\u00a0INITIALIZE\u00a0l_x\u00a0TO\u00a0NULL\r\n\u00a0\u00a0\u00a0IF\u00a0l_q6&gt;90\u00a0THEN\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LET\u00a0l_x\u00a0=\u00a090\r\n\u00a0\u00a0\u00a0ELSE\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LET\u00a0l_x\u00a0=\u00a0l_q6\r\n\u00a0\u00a0\u00a0END\u00a0IF\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text6q.setAttribute(\"fillColor\",\u00a0\"purple\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text6q.setAttribute(\"startX\",807)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text6q.setAttribute(\"startY\",(100+900*(l_x\/100))\u00a0USING\u00a0\"####\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text6q.setAttribute(\"text\",l_q6||\"%\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_RPTDBS1.setAttribute(\"fillColor\",\u00a0\"red\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_RPTDBS1.setAttribute(\"startX\",906)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_RPTDBS1.setAttribute(\"startY\",100)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_RPTDBS1.setAttribute(\"endX\",946)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_RPTDBS1.setAttribute(\"endY\",(100+900*(l_q7\/100))\u00a0USING\u00a0\"####\")\r\n\u00a0\u00a0\u00a0INITIALIZE\u00a0l_x\u00a0TO\u00a0NULL\r\n\u00a0\u00a0\u00a0IF\u00a0l_q7&gt;90\u00a0THEN\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LET\u00a0l_x\u00a0=\u00a090\r\n\u00a0\u00a0\u00a0ELSE\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LET\u00a0l_x\u00a0=\u00a0l_q7\r\n\u00a0\u00a0\u00a0END\u00a0IF\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text7q.setAttribute(\"fillColor\",\u00a0\"red\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text7q.setAttribute(\"startX\",938)\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text7q.setAttribute(\"startY\",(100+900*(l_x\/100))\u00a0USING\u00a0\"####\")\r\n\u00a0\u00a0\u00a0CALL\u00a0canvas_text7q.setAttribute(\"text\",l_q7||\"%\")\r\n\u00a0\u00a0\u00a0CALL\u00a0ui.Interface.refresh()\r\nEND\u00a0FUNCTION\r\nFUNCTION\u00a0p_dbspace_clearrpt()\r\n\u00a0\u00a0\u00a0DEFINE\u00a0\u00a0\u00a0l_dropsql\u00a0\u00a0\u00a0STRING\r\n\u00a0\u00a0\u00a0#DEFINE\u00a0\u00a0\u00a0l_table\u00a0\u00a0\u00a0\u00a0LIKE\u00a0type_file.chr30\r\n\u00a0\u00a0\u00a0DEFINE\u00a0\u00a0\u00a0l_table\u00a0\u00a0\u00a0\u00a0\u00a0DYNAMIC\u00a0ARRAY\u00a0OF\u00a0LIKE\u00a0type_file.chr30\r\n\u00a0\u00a0\u00a0DEFINE\u00a0\u00a0\u00a0l_i\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LIKE\u00a0type_file.num5\r\n\u00a0\u00a0\u00a0IF(NOT\u00a0cl_confirm(\"Drop\u00a0RPTDBS1\u00a0ds_report.csfr102a_xxxx_xxxx\u00a0Data?\"))THEN\r\n\u00a0\u00a0\u00a0\u00a0\u00a0RETURN\r\n\u00a0\u00a0\u00a0ELSE\r\n\u00a0\u00a0\u00a0\u00a0\u00a0#If\u00a0Oracle\u00a0Version\u00a0is\u00a0above\u00a010g\u00a0You\u00a0should\u00a0set\u00a0RecycleBin=OFF\u00a0before\u00a0execute\u00a0DROP\u00a0table\r\n\u00a0\u00a0\u00a0\u00a0\u00a0#SpaceShutt\u00a0Tiptop\u00a0GP\u00a0Oracle\u00a0DataBase\u00a0is\u00a0version\u00a011g\r\n\u00a0\u00a0\u00a0\u00a0\u00a0EXECUTE\u00a0IMMEDIATE\u00a0\"PURGE\u00a0USER_RECYCLEBIN\"\r\n\u00a0\u00a0\u00a0\u00a0\u00a0EXECUTE\u00a0IMMEDIATE\u00a0\"ALTER\u00a0SESSION\u00a0SET\u00a0RECYCLEBIN=OFF\"\r\n\u00a0\u00a0\u00a0\u00a0\u00a0LET\u00a0l_i\u00a0=\u00a01\r\n\u00a0\u00a0\u00a0\u00a0\u00a0DECLARE\u00a0csfr102_cur\u00a0CURSOR\u00a0FOR\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0SELECT\u00a0table_name\u00a0FROM\u00a0dba_tables\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0WHERE\u00a0tablespace_name\u00a0=\u00a0'RPTDBS1'\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0AND\u00a0\u00a0table_name\u00a0LIKE\u00a0'CSFR102A%'\r\n\u00a0\u00a0\u00a0\u00a0\u00a0FOREACH\u00a0csfr102_cur\u00a0INTO\u00a0l_table[l_i]\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0IF\u00a0SQLCA.SQLCODE\u00a0THEN\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0EXIT\u00a0FOREACH\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0END\u00a0IF\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LET\u00a0l_i\u00a0=\u00a0l_i\u00a0+\u00a01\r\n\u00a0\u00a0\u00a0\u00a0\u00a0END\u00a0FOREACH\r\n\u00a0\u00a0\u00a0\u00a0\u00a0IF\u00a0l_table[1_i]\u00a0IS\u00a0NULL\u00a0THEN\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0MESSAGE\u00a0\"Not\u00a0Exist\u00a0CSFR102A\u00a0TABLE!\"\r\n\u00a0\u00a0\u00a0\u00a0\u00a0ELSE\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0CLOSE\u00a0DATABASE\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0DATABASE\u00a0ds_report\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0FOR\u00a0l_i=1\u00a0TO\u00a0l_table.getLength()-1\u00a0STEP\u00a0+\u00a01\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LET\u00a0l_dropsql\u00a0=\u00a0\"DROP\u00a0TABLE\u00a0\",l_table[l_i]\u00a0CLIPPED\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0EXECUTE\u00a0IMMEDIATE\u00a0l_dropsql\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0IF\u00a0SQLCA.SQLCODE\u00a0THEN\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0ERROR\u00a0l_dropsql,\"\u00a0ERROE:\u00a0\",SQLCA.SQLCODE\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0ELSE\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0MESSAGE\u00a0l_dropsql,\"\u00a0OK.\"\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0END\u00a0IF\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0END\u00a0FOR\r\n\u00a0\u00a0\u00a0\u00a0\u00a0END\u00a0IF\r\n\u00a0\u00a0\u00a0END\u00a0IF\r\nEND\u00a0FUNCTION<\/code><\/pre>\n<p>&nbsp;<\/p>\n<p><strong>\u2462.p_dbspace \u6548\u679c\u56fe<\/strong><\/p>\n<p><img loading=\"lazy\" decoding=\"async\" width=\"597\" height=\"480\" class=\"wp-image-1096\" src=\"http:\/\/www.hefeiyu.com\/wp-content\/uploads\/2019\/06\/img_259-2.jpeg\" alt=\"IMG_259\" \/><\/p>\n<p>&nbsp;<\/p>\n<p><strong>\u4e09\u3001TIPTOP GP ERP \uff08V5.25\uff09\u6709\u54ea\u4e9b\u56fe\u5f62\u5e94\u7528<\/strong><\/p>\n<p>\u2460.\u5de5\u5355\u6392\u7a0b\u67e5\u8be2<strong>asfq700<\/strong> &#8212; \u751f\u6210\u8fdb\u5ea6\u7518\u7279\u56fe<\/p>\n<p>\u2461.\u6599\u4ef6\u8d28\u91cf\u72b6\u6001\u6c47\u603b\u67e5\u8be2<strong>aqcq312<\/strong> &#8212; \u68c0\u9a8c\u5408\u683c\u6bd4\u7387<\/p>\n<p>\u2462.\u751f\u4ea7\u8ba1\u5212\u7ef4\u62a4\u4f5c\u4e1a<strong>asri120<\/strong> &#8212; \u751f\u4ea7\u8ba1\u5212\u7edf\u8ba1\u56fe<\/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=1092\">TIPTOP 4GL\u753b\u56fe\u5e94\u7528-\u56fe\u5f62\u76d1\u63a7\u6570\u636e\u5e93\u8868\u7a7a\u95f4\u4f7f\u7528\u60c5\u51b5<\/a><\/p>","protected":false},"excerpt":{"rendered":"<p>\u4e00\u30014GL\u753b\u56fe\u539f\u7406 4gl\u7f16\u7a0b\u7684\u4e00\u4e9b\u6982\u5ff5 \u2460Window\u4e5f\u662f\u4e00\u7c7b\u6570\u636e\u7c7b\u578bui.Window \u2461Window\u7684\u5143\u7d20\u90fd\u5e94\u8be5\u7528\u7c7b\u4f3cGrid\u7684\u63a7\u4ef6\u5305\u88f9 \u2462\u6240\u6709\u5728Window\u4e0a\u9762\u7684\u5143\u7d20\u90fd\u53ef\u4ee5\u770b\u7740\u4e00\u4e2aom.domnode\uff08\u5305\u62ecCanvas\u753b\u5e03 \uff09 Canvas\u753b [&hellip;]<\/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":[339,49,338],"class_list":["post-1092","post","type-post","status-publish","format-standard","hentry","category-4gl","tag-canvas","tag-gl","tag-window"],"_links":{"self":[{"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts\/1092","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=1092"}],"version-history":[{"count":2,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts\/1092\/revisions"}],"predecessor-version":[{"id":1098,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts\/1092\/revisions\/1098"}],"wp:attachment":[{"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1092"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1092"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1092"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}