tiptop调用java解析json案例

tiptop的4gl环境默认不支持解析jaon数据，通过导入java包，可以实现解析，以下是实际案例

一：环境

1：GP环境：TOPGP 5.2及以上

2：jar包：fastjson.jar <此包是阿里开源的jar包。以名字百度一下就有>

二：导入方式

1：将fastjson.jar包下载下来，导入/u1/topprod/tiptop/ds4gl2/bin目录

2：打开/u1/topprod/tiptop/ds4gl2/bin/tiptop_env文件，在CLASSPATH上添加$TOP/ds4gl2/bin/fastjson.jar这一段（没有CLASSPATH可以直接在末尾加），如下：添加完毕后保存

CLASSPATH=$TOP/ds4gl2/bin/fastjson.jar:$TOP/ds4gl2/bin/javaad/jar/code.jar:$TOP/ds4gl2/bin/javaad/jar/core.jar;export CLASSPATH

3：保存后刷新下环境变量 source tiptop_env，重新登录后，就可以去尝试使用java包解析json了，实际案例如下：

# Prog. Version..: '5.25.03-11.07.14(00006)'     #
#
# Pattern name...: cws_json.4gl
# Descriptions...: 
# Date & Author..: 2019/04/17 By caozq
# Usage..........: 4GL解析json范例
IMPORT util
IMPORT JAVA com.alibaba.fastjson.JSON
IMPORT JAVA com.alibaba.fastjson.JSONArray
IMPORT JAVA com.alibaba.fastjson.JSONObject

DATABASE ds
 
GLOBALS "../../config/top.global"    #FUN-7C0053

FUNCTION cws_json()
DEFINE json_str RECORD 
	cust_num   INTEGER,
	cust_name  VARCHAR(30),
	order_ids  JSONArray,
	arr_list   JSONArray
	END RECORD
DEFINE json_obj    JSONObject
DEFINE js STRING
DEFINE aa   STRING
DEFINE bb   STRING
DEFINE l_cnt,i   INTEGER
DEFINE obj    JSONObject

LET js = '{"cust_num":123,"cust_name":"caozq","order_ids":[234,567,789],"arr_list":[{"aa":"aa","bb":"cc"},{"aa":"aa1","bb":"bb1"}]}'

LET json_obj = com.alibaba.fastjson.JSON.parseObject(js)
LET json_str.cust_num = json_obj.getIntValue("cust_num")
LET json_str.cust_name = json_obj.getString("cust_name")
LET json_str.order_ids = json_obj.getJSONArray("order_ids")
LET json_str.arr_list = json_obj.getJSONArray("arr_list")

FOR i=0 TO json_str.order_ids.size()-1
  LET l_cnt = json_str.order_ids.getIntValue(i)
END FOR

FOR i=0 TO json_str.arr_list.size()-1
  LET obj = json_str.arr_list.getJSONObject(i)
  LET aa = obj.getString("aa")
  LET bb = obj.getString("bb")
END FOR

END FUNCTION 

转载请注明：赫非域 » tiptop调用java解析json案例