Project

General

Profile

10290.p

Vladimir Tsichevski, 02/04/2026 03:31 PM

Download (255 Bytes)

 
1 
DEFINE TEMP-TABLE tt NO-UNDO
2 
    FIELD a AS CHARACTER.
3 

    		
  

  

    
      4
    
    
      
CREATE tt.


    		
  

  

    
      5
    
    
      
tt.a = "characters":L30.


    		
  

  

    
      6
    
    
      

    		
  

  

    
      7
    
    
      
DEF VAR res AS LONGCHAR NO-UNDO.


    		
  

  

    
      8
    
    
      
TEMP-TABLE tt:HANDLE:WRITE-JSON(STRING(Progress.Reflect.DataType:LONGCHAR), res, TRUE).


    		
  

  

    
      9
    
    
      
COPY-LOB FROM res TO FILE "output.json".