进展OpenEdge - TempTable文件 - 一个简单的方法？

Question

我想要一个真正简单的方法来查看正在进行的任何可修改内容的内容吗？

Answer 1

我刚刚发现了一个简单的方法来将临时表转储为使用Json（从10.2B开始）的文件。 WRITE-JSON是绝招！

DEFINE TEMP-TABLE ttTmp            
    FIELD FieldA   AS CHAR           
    FIELD FieldB   AS CHAR.           

CREATE ttTmp.               
ASSIGN ttTmp.FieldA = "A"            
     ttTmp.FieldB = "B".            

DEFINE VARIABLE tthTmp AS HANDLE NO-UNDO. /* Handle to temptable */  
DEFINE VARIABLE lReturnValue AS LOGICAL NO-UNDO.       
tthTmp = TEMP-TABLE ttTmp:HANDLE.          


lReturnValue = tthTmp:WRITE-JSON("FILE", "c:\temp\tthTmp.txt", TRUE, ?). 

/* Output File tthTmp.txt            
{"ttTmp": [                
    {                  
    "FieldA": "A",              
    "FieldB": "B"              
    }                  
]}                  
Output File tthTmp.txt */            

Answer 2

您还比如生成XML

tthTmp:WRITE-XML("FILE","c:\temp\tt.xml", TRUE). 

或分号分隔的文件

OUTPUT TO c:\temp\file.txt. 
FOR EACH ttTmp: 
    EXPORT DELIMITER ";" ttTmp. 
END. 
OUTPUT CLOSE.