文档贡献者
所有文档均来自于网络,所搜集文档几乎涵盖了所有行业,均严格按照道客巴巴->文档分类->所有文档->分类。对每篇文档详细释义做出了合理推敲,并对其精确划分了类别。例:区域经销商合同 ->(标题)->所有文档->(法律文献)->(分类)->合同范本。旨在让大家把搜索到的文档对照标题,参照分类。一看便一目了然成竹在胸,放心下载,安心使用。笔者主要搜集了一些常用文档,如论文,工作总结,合同协议,规章制度,报告,方案,课件,试题,试卷,答案,职业资格考试,策划营销.....等等一些教育学习,办公写作,商业经营,实用性极强的文档,您若觉得对您日常学习,商业经营,社交沟通,办公写作有所帮助的话就关注我吧。
下载此文档
正在努力加载中...
TIPTOP资讯入门教程
文档星级：
内容提示：TIPTOP资讯入门教程
文档格式：DOC|
浏览次数：10|
上传日期： 07:05:55|
下载积分：
该用户还上传了这些文档
官方公共微信
下载文档:TIPTOP资讯入门教程.DOCTIPTOP报表
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
TIPTOP报表
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer-4.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口一个ERP系统随着运转的时间的经年累月，存储数据库的数据表空间肯定会越来越告紧
本文以Tiptop ERP为例 客制p_dbspace程式实时监控数据库表空间的动态，解决此类问题
&[其中动态图片显示很好地给予了监察的视觉感受]
情景：在Tiptop ERP 5.x中由于采用了CR报表列印报表，因此可以列印图片等数据信息
&&&&&&&&&&& 本人所在公司就在列印工单时列印了工单生产成品的料件图片资讯
问题：但是由于图片资讯太大，在系统中的 RPTDBS1 表空间每日都要自动删除临时表
&&&&&&&&&& 有时某半天时间都有可能全部用完 RPTDBS1 的表空间
解决：客制p_dbspace程式实时监控数据库表空间的动态，删除列印工单产生的临时数据表
p_dbspace.per& PER源码档
----------------------------------------------------------------------------------
p_dbspace.per created Thu May 17 11:14:22 2012
-- File created from p_dbspace.4fd by Genero Studio 11401
-- Copyright (c)
Four J's Development Tools.
All rights reserved.
----------------------------------------------------------------------------------
-- WARNING! All changes made in this file will be lost!
----------------------------------------------------------------------------------
LAYOUT( TEXT=&p_dbspace&)
You Should Redesign This Program After Rebuild The Database!
END -- GRID
ATTRIBUTES
GROUP gb2 : gb2, TEXT=&Tiptop GP TableSpace Graphics Detail&;
CANVAS aa0 :
GROUP gb4 : gb4, TEXT=&Tiptop GP TableSpace Data Detail&;
LABEL aa1:lb8, TEXT=&TotalTableSpace&;
LABEL aa2:lb9, TEXT=&FreeTableSpace&;
LABEL aa3:lb10, TEXT=&Total-Free Space&;
LABEL aa4:lb11, TEXT=&UsedQuto%&;
LABEL aa5:lb1, TEXT=&SYSTEM&;
EDIT aa6=FORMONLY.systemt TYPE DECIMAL, TABINDEX=1;
EDIT aa7=FORMONLY.systemf TYPE DECIMAL, TABINDEX=2;
EDIT aa8=FORMONLY.systemtf TYPE DECIMAL, TABINDEX=3;
EDIT aa9=FORMONLY.systemq TYPE DECIMAL, TABINDEX=4;
LABEL ab0:lb2, TEXT=&SYSAUX&;
EDIT ab1=FORMONLY.sysauxt TYPE DECIMAL, TABINDEX=5;
EDIT ab2=FORMONLY.sysauxf TYPE DECIMAL, TABINDEX=11;
EDIT ab3=FORMONLY.sysauxtf TYPE DECIMAL, TABINDEX=17;
EDIT ab4=FORMONLY.sysauxq TYPE DECIMAL, TABINDEX=23;
LABEL ab5:lb3, TEXT=&DBS1&;
EDIT ab6=FORMONLY.dbs1t TYPE DECIMAL, TABINDEX=6;
EDIT ab7=FORMONLY.dbs1f TYPE DECIMAL, TABINDEX=12;
EDIT ab8=FORMONLY.dbs1tf TYPE DECIMAL, TABINDEX=18;
EDIT ab9=FORMONLY.dbs1q TYPE DECIMAL, TABINDEX=24;
LABEL ac0:lb4, TEXT=&UNDOTBS1&;
EDIT ac1=FORMONLY.undotbs1t TYPE DECIMAL, TABINDEX=7;
EDIT ac2=FORMONLY.undotbs1f TYPE DECIMAL, TABINDEX=13;
EDIT ac3=FORMONLY.undotbs1tf TYPE DECIMAL, TABINDEX=19;
EDIT ac4=FORMONLY.undotbs1q TYPE DECIMAL, TABINDEX=25;
LABEL ac5:lb5, TEXT=&USERS&;
EDIT ac6=FORMONLY.userst TYPE DECIMAL, TABINDEX=8;
EDIT ac7=FORMONLY.usersf TYPE DECIMAL, TABINDEX=14;
EDIT ac8=FORMONLY.userstf TYPE DECIMAL, TABINDEX=20;
EDIT ac9=FORMONLY.usersq TYPE DECIMAL, TABINDEX=26;
LABEL ad0:lb6, TEXT=&TEMPTABS&;
EDIT ad1=FORMONLY.temptabst TYPE DECIMAL, TABINDEX=9;
EDIT ad2=FORMONLY.temptabsf TYPE DECIMAL, TABINDEX=15;
EDIT ad3=FORMONLY.temptabstf TYPE DECIMAL, TABINDEX=21;
EDIT ad4=FORMONLY.temptabsq TYPE DECIMAL, TABINDEX=27;
LABEL ad5:lb7, TEXT=&RPTDBS1&;
EDIT ad6=FORMONLY.rptdbs1t TYPE DECIMAL, TABINDEX=10;
EDIT ad7=FORMONLY.rptdbs1f TYPE DECIMAL, TABINDEX=16;
EDIT ad8=FORMONLY.rptdbs1tf TYPE DECIMAL, TABINDEX=22;
EDIT ad9=FORMONLY.rptdbs1q TYPE DECIMAL, TABINDEX=28;
BUTTON ae0 : clearrpt, TEXT=&Clear&, IMAGE=&export&;
BUTTON ae1 : refresh, TEXT=&Refresh&, IMAGE=&refresh&;
BUTTON ae2 : exit, TEXT=&Exit&, IMAGE=&cancel&;
p_dbspace.4gl& 4GL源码档：
# Prog. Version..: '5.10.16-10.10.14(00009)'
# Program name...: p_dbspace.4gl
# Descriptions...: Tiptop GP 5.x Oracle TableSpace Information
# Date & Author..: 12/05/16 by 李艺辉
DATABASE ds
GLOBALS &../../config/top.global&
g_tablespace ARRAY[7] OF LIKE type_file.chr10
DEFER INTERRUPT
OPTIONS ON CLOSE APPLICATION STOP
IF (NOT cl_user()) THEN
EXIT PROGRAM
WHENEVER ERROR CALL cl_err_msg_log
IF (NOT cl_setup(&CZZ&)) THEN
EXIT PROGRAM
CALL cl_used(g_prog,g_time,1) RETURNING g_time
OPEN WINDOW w_dbspace WITH FORM &czz/42f/p_dbspace&
ATTRIBUTE(STYLE=&err01&)
CALL cl_ui_init()
LET g_tablespace[1]='SYSTEM'
LET g_tablespace[2]='SYSAUX'
LET g_tablespace[3]='DBS1'
LET g_tablespace[4]='UNDOTBS1'
LET g_tablespace[5]='USERS'
LET g_tablespace[6]='TEMPTABS'
LET g_tablespace[7]='RPTDBS1'
CALL p_dbspace_load()
CALL p_dbmenu()
CLOSE WINDOW w_dbspace
CALL cl_used(g_prog,g_time,2) RETURNING g_time
FUNCTION p_dbmenu()
BEFORE MENU
#CALL cl_navigator_setting(g_curs_index, g_row_count)
ON ACTION refresh
CALL p_dbspace_load()
ON ACTION clearrpt
CALL p_dbspace_clearrpt()
ON ACTION exit
COMMAND KEY(INTERRUPT)
LET INT_FLAG=FALSE
END FUNCTION
FUNCTION p_dbspace_load()
LIKE type_file.num5
l_totalspace
LIKE type_file.num20
l_freespace
LIKE type_file.num20
l_total_free
LIKE type_file.num20
LIKE type_file.num20_6
ls_pic_url
canvas_temp
om.domnode
canvas_oracle
om.DomNode
canvas_SYSTEM
om.DomNode
canvas_SYSAUX
om.DomNode
canvas_DBS1
om.DomNode
canvas_UNDOTBS1
om.DomNode
canvas_USERS
om.DomNode
canvas_TEMPTABS
om.DomNode
canvas_RPTDBS1
om.DomNode
canvas_text1
om.DomNode
canvas_text2
om.DomNode
canvas_text3
om.DomNode
canvas_text4
om.DomNode
canvas_text5
om.DomNode
canvas_text6
om.DomNode
canvas_text7
om.DomNode
canvas_text1q
om.DomNode
canvas_text2q
om.DomNode
canvas_text3q
om.DomNode
canvas_text4q
om.DomNode
canvas_text5q
om.DomNode
canvas_text6q
om.DomNode
canvas_text7q
om.DomNode
l_q1,l_q2,l_q3 LIKE type_file.num5
l_q4,l_q5,l_q6 LIKE type_file.num5
LIKE type_file.num5
CLOSE DATABASE
DATABASE sstl_dx
LET g_sql_t = &SELECT SUM(bytes) FROM dba_data_files WHERE tablespace_name = ?&
DECLARE total_cur CURSOR FROM g_sql_t
LET g_sql_f = &SELECT SUM(bytes) FROM dba_free_space WHERE tablespace_name = ?&
DECLARE free_cur CURSOR FROM g_sql_f
LET w_oracle = ui.Window.getCurrent()
LET canvas_oracle = w_oracle.findNode(&Canvas&,&ocarvas&)
#Clear Child Nod
LET canvas_temp = canvas_oracle.getFirstChild()
WHILE canvas_temp IS NOT NULL
CALL canvas_oracle.removeChild(canvas_temp)
LET canvas_temp = canvas_oracle.getFirstChild()
LET canvas_text1 = canvas_oracle.createChild(&CanvasText&)
LET canvas_text2 = canvas_oracle.createChild(&CanvasText&)
LET canvas_text3 = canvas_oracle.createChild(&CanvasText&)
LET canvas_text4 = canvas_oracle.createChild(&CanvasText&)
LET canvas_text5 = canvas_oracle.createChild(&CanvasText&)
LET canvas_text6 = canvas_oracle.createChild(&CanvasText&)
LET canvas_text7 = canvas_oracle.createChild(&CanvasText&)
LET canvas_text1q = canvas_oracle.createChild(&CanvasText&)
LET canvas_text2q = canvas_oracle.createChild(&CanvasText&)
LET canvas_text3q = canvas_oracle.createChild(&CanvasText&)
LET canvas_text4q = canvas_oracle.createChild(&CanvasText&)
LET canvas_text5q = canvas_oracle.createChild(&CanvasText&)
LET canvas_text6q = canvas_oracle.createChild(&CanvasText&)
LET canvas_text7q = canvas_oracle.createChild(&CanvasText&)
LET canvas_SYSTEM = canvas_oracle.createChild(&CanvasRectangle&)
LET canvas_SYSAUX = canvas_oracle.createChild(&CanvasRectangle&)
LET canvas_DBS1 = canvas_oracle.createChild(&CanvasRectangle&)
LET canvas_UNDOTBS1 = canvas_oracle.createChild(&CanvasRectangle&)
LET canvas_USERS = canvas_oracle.createChild(&CanvasRectangle&)
LET canvas_TEMPTABS = canvas_oracle.createChild(&CanvasRectangle&)
LET canvas_RPTDBS1 = canvas_oracle.createChild(&CanvasRectangle&)
CALL canvas_text1.setAttribute(&fillColor&, &blue&)
CALL canvas_text1.setAttribute(&startX&,22)
CALL canvas_text1.setAttribute(&startY&,0)
CALL canvas_text1.setAttribute(&text&,&SYSTEM&)
CALL canvas_text2.setAttribute(&fillColor&, &white&)
CALL canvas_text2.setAttribute(&startX&,165)
CALL canvas_text2.setAttribute(&startY&,0)
CALL canvas_text2.setAttribute(&text&,&SYSAUX&)
CALL canvas_text3.setAttribute(&fillColor&, &green&)
CALL canvas_text3.setAttribute(&startX&,323)
CALL canvas_text3.setAttribute(&startY&,0)
CALL canvas_text3.setAttribute(&text&,&DBS1&)
CALL canvas_text4.setAttribute(&fillColor&, &yellow&)
CALL canvas_text4.setAttribute(&startX&,435)
CALL canvas_text4.setAttribute(&startY&,0)
CALL canvas_text4.setAttribute(&text&,&UNDOTBS1&)
CALL canvas_text5.setAttribute(&fillColor&, &black&)
CALL canvas_text5.setAttribute(&startX&,600)
CALL canvas_text5.setAttribute(&startY&,0)
CALL canvas_text5.setAttribute(&text&,&USERS&)
CALL canvas_text6.setAttribute(&fillColor&, &purple&)
CALL canvas_text6.setAttribute(&startX&,710)
CALL canvas_text6.setAttribute(&startY&,0)
CALL canvas_text6.setAttribute(&text&,&TEMPTABS&)
CALL canvas_text7.setAttribute(&fillColor&, &red&)
CALL canvas_text7.setAttribute(&startX&,876)
CALL canvas_text7.setAttribute(&startY&,0)
CALL canvas_text7.setAttribute(&text&,&RPTDBS1&)
INITIALIZE l_q1,l_q2,l_q3,l_q4,l_q5,l_q6,l_q7 TO NULL
FOR l_index=1 TO g_tablespace.getLength() STEP + 1
INITIALIZE l_totalspace,l_freespace,l_total_free,l_quto TO NULL
OPEN total_cur USING g_tablespace[l_index]
FETCH total_cur INTO l_totalspace
OPEN free_cur USING g_tablespace[l_index]
FETCH free_cur INTO l_freespace
IF NOT cl_null(l_totalspace) THEN
IF cl_null(l_freespace) THEN
LET l_freespace = 0
LET l_total_free = l_totalspace - l_freespace
LET l_quto = l_total_free/l_totalspace*100
CASE g_tablespace[l_index]
WHEN 'SYSTEM'
DISPLAY l_totalspace
TO FORMONLY.systemt
DISPLAY l_freespace
TO FORMONLY.systemf
DISPLAY l_total_free
TO FORMONLY.systemtf
DISPLAY l_quto USING &###.&&& TO FORMONLY.systemq
LET l_q1 = l_quto
WHEN 'SYSAUX'
DISPLAY l_totalspace
TO FORMONLY.sysauxt
DISPLAY l_freespace
TO FORMONLY.sysauxf
DISPLAY l_total_free
TO FORMONLY.sysauxtf
DISPLAY l_quto USING &###.&&& TO FORMONLY.sysauxq
LET l_q2 = l_quto
WHEN 'DBS1'
DISPLAY l_totalspace
TO FORMONLY.dbs1t
DISPLAY l_freespace
TO FORMONLY.dbs1f
DISPLAY l_total_free
TO FORMONLY.dbs1tf
DISPLAY l_quto USING &###.&&& TO FORMONLY.dbs1q
LET l_q3 = l_quto
WHEN 'UNDOTBS1'
DISPLAY l_totalspace
TO FORMONLY.undotbs1t
DISPLAY l_freespace
TO FORMONLY.undotbs1f
DISPLAY l_total_free
TO FORMONLY.undotbs1tf
DISPLAY l_quto USING &###.&&& TO FORMONLY.undotbs1q
LET l_q4 = l_quto
WHEN 'USERS'
DISPLAY l_totalspace
TO FORMONLY.userst
DISPLAY l_freespace
TO FORMONLY.usersf
DISPLAY l_total_free
TO FORMONLY.userstf
DISPLAY l_quto USING &###.&&& TO FORMONLY.usersq
LET l_q5 = l_quto
WHEN 'TEMPTABS'
DISPLAY l_totalspace
TO FORMONLY.temptabst
DISPLAY l_freespace
TO FORMONLY.temptabsf
DISPLAY l_total_free
TO FORMONLY.temptabstf
DISPLAY l_quto USING &###.&&& TO FORMONLY.temptabsq
LET l_q6 = l_quto
WHEN 'RPTDBS1'
DISPLAY l_totalspace
TO FORMONLY.rptdbs1t
DISPLAY l_freespace
TO FORMONLY.rptdbs1f
DISPLAY l_total_free
TO FORMONLY.rptdbs1tf
DISPLAY l_quto USING &###.&&& TO FORMONLY.rptdbs1q
LET l_q7 = l_quto
OTHERWISE EXIT CASE
CALL canvas_SYSTEM.setAttribute(&fillColor&, &blue&)
CALL canvas_SYSTEM.setAttribute(&startX&,52)
CALL canvas_SYSTEM.setAttribute(&startY&,100)
CALL canvas_SYSTEM.setAttribute(&endX&,92)
CALL canvas_SYSTEM.setAttribute(&endY&,(100+900*(l_q1/100)) USING &####&)
INITIALIZE l_x TO NULL
IF l_q1&90 THEN
LET l_x = 90
LET l_x = l_q1
CALL canvas_text1q.setAttribute(&fillColor&, &blue&)
CALL canvas_text1q.setAttribute(&startX&,95)
CALL canvas_text1q.setAttribute(&startY&,(100+900*(l_x/100)) USING &####&)
CALL canvas_text1q.setAttribute(&text&,l_q1||&%&)
CALL canvas_SYSAUX.setAttribute(&fillColor&, &white&)
CALL canvas_SYSAUX.setAttribute(&startX&,195)
CALL canvas_SYSAUX.setAttribute(&startY&,100)
CALL canvas_SYSAUX.setAttribute(&endX&,235)
CALL canvas_SYSAUX.setAttribute(&endY&,(100+900*(l_q2/100)) USING &####&)
INITIALIZE l_x TO NULL
IF l_q2&90 THEN
LET l_x = 90
LET l_x = l_q2
CALL canvas_text2q.setAttribute(&fillColor&, &white&)
CALL canvas_text2q.setAttribute(&startX&,238)
CALL canvas_text2q.setAttribute(&startY&,(100+900*(l_x/100)) USING &####&)
CALL canvas_text2q.setAttribute(&text&,l_q2||&%&)
CALL canvas_DBS1.setAttribute(&fillColor&, &green&)
CALL canvas_DBS1.setAttribute(&startX&,337)
CALL canvas_DBS1.setAttribute(&startY&,100)
CALL canvas_DBS1.setAttribute(&endX&,377)
CALL canvas_DBS1.setAttribute(&endY&,(100+900*(l_q3/100)) USING &####&)
INITIALIZE l_x TO NULL
IF l_q3&90 THEN
LET l_x = 90
LET l_x = l_q3
CALL canvas_text3q.setAttribute(&fillColor&, &green&)
CALL canvas_text3q.setAttribute(&startX&,380)
CALL canvas_text3q.setAttribute(&startY&,(100+900*(l_x/100)) USING &####&)
CALL canvas_text3q.setAttribute(&text&,l_q3||&%&)
CALL canvas_UNDOTBS1.setAttribute(&fillColor&, &yellow&)
CALL canvas_UNDOTBS1.setAttribute(&startX&,479)
CALL canvas_UNDOTBS1.setAttribute(&startY&,100)
CALL canvas_UNDOTBS1.setAttribute(&endX&,519)
CALL canvas_UNDOTBS1.setAttribute(&endY&,(100+900*(l_q4/100)) USING &####&)
INITIALIZE l_x TO NULL
IF l_q4&90 THEN
LET l_x = 90
LET l_x = l_q4
CALL canvas_text4q.setAttribute(&fillColor&, &yellow&)
CALL canvas_text4q.setAttribute(&startX&,522)
CALL canvas_text4q.setAttribute(&startY&,(100+900*(l_x/100)) USING &####&)
CALL canvas_text4q.setAttribute(&text&,l_q4||&%&)
CALL canvas_USERS.setAttribute(&fillColor&, &black&)
CALL canvas_USERS.setAttribute(&startX&,621)
CALL canvas_USERS.setAttribute(&startY&,100)
CALL canvas_USERS.setAttribute(&endX&,661)
CALL canvas_USERS.setAttribute(&endY&,(100+900*(l_q5/100)) USING &####&)
INITIALIZE l_x TO NULL
IF l_q5&90 THEN
LET l_x = 90
LET l_x = l_q5
CALL canvas_text5q.setAttribute(&fillColor&, &black&)
CALL canvas_text5q.setAttribute(&startX&,664)
CALL canvas_text5q.setAttribute(&startY&,(100+900*(l_x/100)) USING &####&)
CALL canvas_text5q.setAttribute(&text&,l_q5||&%&)
CALL canvas_TEMPTABS.setAttribute(&fillColor&, &purple&)
CALL canvas_TEMPTABS.setAttribute(&startX&,763)
CALL canvas_TEMPTABS.setAttribute(&startY&,100)
CALL canvas_TEMPTABS.setAttribute(&endX&,803)
CALL canvas_TEMPTABS.setAttribute(&endY&,(100+900*(l_q6/100)) USING &####&)
INITIALIZE l_x TO NULL
IF l_q6&90 THEN
LET l_x = 90
LET l_x = l_q6
CALL canvas_text6q.setAttribute(&fillColor&, &purple&)
CALL canvas_text6q.setAttribute(&startX&,807)
CALL canvas_text6q.setAttribute(&startY&,(100+900*(l_x/100)) USING &####&)
CALL canvas_text6q.setAttribute(&text&,l_q6||&%&)
CALL canvas_RPTDBS1.setAttribute(&fillColor&, &red&)
CALL canvas_RPTDBS1.setAttribute(&startX&,906)
CALL canvas_RPTDBS1.setAttribute(&startY&,100)
CALL canvas_RPTDBS1.setAttribute(&endX&,946)
CALL canvas_RPTDBS1.setAttribute(&endY&,(100+900*(l_q7/100)) USING &####&)
INITIALIZE l_x TO NULL
IF l_q7&90 THEN
LET l_x = 90
LET l_x = l_q7
CALL canvas_text7q.setAttribute(&fillColor&, &red&)
CALL canvas_text7q.setAttribute(&startX&,938)
CALL canvas_text7q.setAttribute(&startY&,(100+900*(l_x/100)) USING &####&)
CALL canvas_text7q.setAttribute(&text&,l_q7||&%&)
CALL ui.Interface.refresh()
END FUNCTION
FUNCTION p_dbspace_clearrpt()
LIKE type_file.chr30
DYNAMIC ARRAY OF LIKE type_file.chr30
LIKE type_file.num5
IF(NOT cl_confirm(&Drop RPTDBS1 ds_report.csfr102a_xxxx_xxxx Data?&))THEN
#If Oracle Version is above 10g You should set RecycleBin=OFF before execute DROP table
#SpaceShutt Tiptop GP Oracle DataBase is version 11g
EXECUTE IMMEDIATE &PURGE USER_RECYCLEBIN&
EXECUTE IMMEDIATE &ALTER SESSION SET RECYCLEBIN=OFF&
LET l_i = 1
DECLARE csfr102_cur CURSOR FOR
SELECT table_name FROM dba_tables
WHERE tablespace_name = 'RPTDBS1'
table_name LIKE 'CSFR102A%'
FOREACH csfr102_cur INTO l_table[l_i]
IF SQLCA.SQLCODE THEN
EXIT FOREACH
LET l_i = l_i + 1
END FOREACH
IF l_table[1_i] IS NULL THEN
MESSAGE &Not Exist CSFR102A TABLE!&
CLOSE DATABASE
DATABASE ds_report
FOR l_i=1 TO l_table.getLength()-1 STEP + 1
LET l_dropsql = &DROP TABLE &,l_table[l_i] CLIPPED
EXECUTE IMMEDIATE l_dropsql
IF SQLCA.SQLCODE THEN
ERROR l_dropsql,& ERROE: &,SQLCA.SQLCODE
MESSAGE l_dropsql,& OK.&
END FUNCTION
如何将per档转换为4fd档，请参阅本blog之前的文章:
运行程式结果：
哦，4GL写出来图像程式也很不错的哟！
&&&&&& 应用或转载请注明出处来源 李艺辉CSDN专栏http://blog.csdn.net/yihuiworld
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：98551次
积分：1486
积分：1486
排名：第10932名
原创：53篇
欢迎参阅转载指正,引用请注明http://blog.csdn.net/yihuiworld
文章：42篇
阅读：14647
(1)(3)(1)(1)(1)(4)(1)(4)(7)(2)(4)(8)(17)