IMPORT com
IMPORT util

TYPE t_sync_cmd RECORD
       oper STRING,
       data STRING
     END RECORD


DEFINE envio,ts,krnc STRING

MAIN
LET ts='
{"oper": "productos_display","data": { "usuario": "CRM_user", "clave": "XMarmotech2019", "codigo": "196681781079"}}'
#LET ts=
#'{ "cust_num":2735, "cust_name":"McCarlson",
#              "orderids":[234,3456,24656,34561] }'

CALL enviajson() RETURNING envio
DISPLAY "envio ",envio 
#CALL testjson()
 
END MAIN
FUNCTION enviajson()
  DEFINE prnc  RECORD
    nombre_cliente  STRING,
    direccion       STRING,
    cod_msg         SMALLINT,
    mensaje_out     STRING
  END RECORD,
   selec STRING,
   xrnc STRING

   DEFINE data RECORD
     usuario    VARCHAR(50),
     clave      VARCHAR(50),
     rnc        VARCHAR(11)
   END RECORD
   LET prnc.nombre_cliente='JUAN SOTO'
   LET prnc.direccion='CALLE PRIMERA RESIDENCIAL SOL CRECIENTE'
   LET prnc.mensaje_out = 'busqueda exitosa'
   
   CALL util.JSON.parse(xrnc,data)
   RETURN util.JSON.stringify(prnc) 

END FUNCTION
FUNCTION testjson()
  DEFINE s STRING,
  r_cmd t_sync_cmd
  DEFINE p RECORD
     oper VARCHAR(100),
   data RECORD
      usuario    VARCHAR(50),
      clave      VARCHAR(50),
      codigo    VARCHAR(11)
  END RECORD
  END RECORD,
  ret INTEGER,
  res STRING
  CALL util.JSON.parse(ts,p)
 DISPLAY "ts- ",ts 
 DISPLAY "s-",p.data.*," ",p.oper
 
END FUNCTION