T100 - Conversión entre FGL y JSON

FGL ========== >>>>>> JSON =========== >>> Cadena:

IMPORTACIÓN util 
PRINCIPAL 
    DEFINIR cust_rec RECORD 
               cust_num INTEGER, 
               cust_name VARCHAR ( 30 ), 
               order_ids DINÁMICO ARRAY DE INTEGER 
           END RECORD 
    DEFINE obj util.JSONObject 
    LET cust_rec.cust_num = 345 
    cust_rec.cust_name LET = " McMaclum " 
    LET cust_rec.order_ids [ 1 ] = 4732 
    cust_rec.order_ids LET [ 2 ] = 9834 
    cust_rec.order_ids LET [ 3 ] = 2,194 
    LET obj =util.JSONObject.fromFGL (cust_rec) 
    DISPLAY obj.toString () 
FIN PRINCIPAL

 

 

Cadena ========== ========== JSON >>>>>> >>>>>> FGL:

IMPORTACIÓN util 
PRINCIPAL 
    DEFINIR cust_rec RECORD 
               cust_num INTEGER, 
               cust_name VARCHAR ( 30 ), 
               order_ids DINÁMICO ARRAY DE INTEGER 
           END RECORD 
    DEFINE STRING js 
    DEFINIR obj util.JSONObject 
    LET js = ' { "cust_num": 2735, "cust_name": "McCarlson", 
              " order_ids " : [ 234 , 3456 , 24656 , 34561 ]} '
     LET obj = util.JSONObject.parse (JS) 
    LLAMADA obj.toFGL (cust_rec) 
    DISPLAY cust_rec.cust_name
    Cust_rec.order_ids mostrar [ 4 ] 
FIN PRINCIPAL

 

====== ====== valor JSON travesía

            Para i = 1 A l_json.getLength () 
                    DISPLAY l_json.name (i), " : " , l_json. obtener (l_json.name (i)) 
            FIN DE        

 

====== modificar, borrar el valor JSON ======

IMPORTACIÓN util 
PRINCIPAL 
    DEFINIR obj util.JSONObject 
    DEFINIR rec RECORD 
               INTEGER ID, 
               nombre de cadena 
           END RECORD 
    DEFINIR arr matriz dinámica de INTEGER 
    LET obj = util.JSONObject.create () 
    LLAMADA obj.put ( " simples " , 234 ) 
    LET rec.id = 234 
    LET rec.name = " Barton " 
    obj.put CALL ( " registro " , rec) 
    LET arr [ 1 ] = 234 
    LET arr [ 2] = 2,837 
    LLAMADA obj.put ( " array " , arr) 
    DISPLAY obj.toString () 
FIN PRINCIPAL

 

 

IMPORTACIÓN util 
PRINCIPAL 
    DEFINIR obj util.JSONObject 
    LET obj = util.JSONObject.create () 
    obj.put CALL ( " dirección " , " 5 Brando Calle " ) 
    obj.remove CALL ( " dirección " ) 
    de visualización obj. obtener ( " dirección " ) 
FIN PRINCIPAL

 

 

Genero Studio Ayuda de documentación de ayuda anteriormente.