{"id":5323,"date":"2019-09-04T08:39:28","date_gmt":"2019-09-04T00:39:28","guid":{"rendered":"http:\/\/www.hefeiyu.com\/?p=5323"},"modified":"2019-09-04T08:39:38","modified_gmt":"2019-09-04T00:39:38","slug":"t100-awsp900_01%e6%8e%a5%e5%8f%a3%e7%9b%b8%e5%85%b3%e7%9a%84xml%e5%a4%84%e7%90%86%e5%9b%9e%e5%86%99","status":"publish","type":"post","link":"https:\/\/www.hefeiyu.com\/?p=5323","title":{"rendered":"T100\u2014\u2014awsp900_01\u63a5\u53e3\u76f8\u5173\u7684XML\u5904\u7406\/\u56de\u5199"},"content":{"rendered":"

T100\u2014\u2014awsp900_01\u63a5\u53e3\u76f8\u5173\u7684XML\u5904\u7406\/\u56de\u5199<\/h1>\n
<\/div>\n
\n
\n

{<section id=”awsp900_01.description” >}
\n#\u61c9\u7528 a00 \u6a23\u677f\u81ea\u52d5\u7522\u751f(Version:2)
\n#+ Version..: T100-ERP-1.01.00(SD\u7248\u6b21:9,PR\u7248\u6b21:9) Build-000208
\n#+
\n#+ Filename…: awsp900_01
\n#+ Description: awsp900_01
\n#+ Creator….: 00544(2014-01-16 17:51:43)
\n#+ Modifier…: 00509(2014-05-23 10:32:59) -SD\/PR-<\/p>\n

{<\/section>}<\/p>\n

{<section id=”awsp900_01.global” >}
\n#\u61c9\u7528 p00 \u6a23\u677f\u81ea\u52d5\u7522\u751f(Version:3)
\n#add-point:\u8a3b\u89e3\u7de8\u5beb\u9805\u76ee<\/p>\n

#end add-point<\/p>\n

IMPORT\u00a0os
\n#add-point:\u589e\u52a0\u532f\u5165\u9805\u76ee
\nIMPORT\u00a0xml
\nIMPORT\u00a0com
\nIMPORT\u00a0util
\n#end add-point<\/p>\n

SCHEMA\u00a0ds<\/p>\n

GLOBALS\u00a0“..\/..\/cfg\/top_global.inc”
\n#add-point:\u589e\u52a0\u532f\u5165\u8b8a\u6578\u6a94
\nGLOBALS\u00a0“..\/..\/cfg\/top_ws.inc”\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#TIPTOP Service Gateway \u4f7f\u7528\u7684\u5168\u57df\u8b8a\u6578\u6a94
\nTYPE\u00a0type_g_attribute\u00a0DYNAMIC\u00a0ARRAY\u00a0OF\u00a0RECORD
\nname\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING,\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#\u5c6c\u6027\u540d\u7a31
\nvalue\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#\u5c6c\u6027\u503c
\nEND\u00a0RECORD
\nDEFINE\u00a0g_serial\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0gx_reqdoc\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomDocument
\nDEFINE\u00a0gx_payload_request\u00a0\u00a0xml.DomDocument
\nDEFINE\u00a0g_resdoc\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomDocument\u00a0\u00a0\u00a0#Response XML Dom Document, #FUN-910058
\nDEFINE\u00a0g_dnode\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#<Document> \u7bc0\u9ede
\nDEFINE\u00a0g_snode\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#<Status> \u7bc0\u9ede
\nDEFINE\u00a0g_pnode\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#<Parameter> \u7bc0\u9ede
\nDEFINE\u00a0g_count\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0INTEGER\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#\u8003\u616e\u591a\u7b46\u8cc7\u6599\u6642\u7684 id \u5e8f\u865f\u8a08\u6578
\nDEFINE\u00a0g_jason_type\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0g_master_record\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode<\/p>\n

DEFINE\u00a0g_jason_request\u00a0\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0g_jason_param\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0DYNAMIC\u00a0ARRAY\u00a0OF\u00a0RECORD
\ndatakey\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING,
\njsontext\u00a0\u00a0\u00a0\u00a0\u00a0STRING
\nEND\u00a0RECORD<\/p>\n

#end add-point<\/p>\n

{<\/section>}<\/p>\n

{<section id=”awsp900_01.free_style_variable” >}
\n#add-point:free_style\u6a21\u7d44\u8b8a\u6578(Module Variable)<\/p>\n

#end add-point<\/p>\n

{<\/section>}<\/p>\n

{<section id=”awsp900_01.global_variable” >}
\n#add-point:\u81ea\u5b9a\u7fa9\u6a21\u7d44\u8b8a\u6578(Module Variable)<\/p>\n

#end add-point<\/p>\n

{<\/section>}<\/p>\n

{<section id=”awsp900_01.other_dialog” >}<\/p>\n

{<\/section>}<\/p>\n

{<section id=”awsp900_01.other_function” readonly=”Y” >}<\/p>\n

################################################################################
\n# Descriptions…: \u63cf\u8ff0\u8bf4\u660e
\n# Memo………..:
\n# Usage……….: CALL awsp900_01_init ()
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RETURNING \u56de\u4f20\u53c2\u6570
\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u4f20\u5165\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Return code….: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u56de\u4f20\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Date & Author..: \u65e5\u671f By \u4f5c\u8005
\n# Modify………:
\n################################################################################
\nPUBLIC\u00a0FUNCTION\u00a0awsp900_01_init()
\nINITIALIZE\u00a0g_request\u00a0TO\u00a0NULL
\nINITIALIZE\u00a0g_response\u00a0TO\u00a0NULL
\nINITIALIZE\u00a0gx_reqdoc\u00a0TO\u00a0NULL
\nINITIALIZE\u00a0gx_payload_request\u00a0TO\u00a0NULL
\nINITIALIZE\u00a0gi_err_code\u00a0TO\u00a0NULL<\/p>\n

#————————————————————————–#
\n# \u521d\u59cb g_status \u8b8a\u6578\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#
\n#————————————————————————–#
\nLET\u00a0g_status.code\u00a0=\u00a0“0”
\nLET\u00a0g_status.sqlcode\u00a0=\u00a0“0”
\nLET\u00a0g_status.description\u00a0=\u00a0“”<\/p>\n

LET\u00a0g_success\u00a0=\u00a0‘Y’
\nLET\u00a0g_bgjob\u00a0=\u00a0“Y”
\nLET\u00a0g_srvcode\u00a0=\u00a0“000”\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#\u9810\u8a2d\u670d\u52d9\u6309\u7167\u6b63\u5e38\u6d41\u7a0b
\nLET\u00a0g_gui_type\u00a0=\u00a0“0”
\nLET\u00a0g_user\u00a0=\u00a0“tiptop”\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#\u5f53\u524d\u8fd0\u884c\u7684\u7528\u6237
\nLET\u00a0g_lang\u00a0=\u00a0“zh_TW”\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#\u9ed8\u8ba4\u8bed\u8a00\u522b\uff08”zh_TW” – \u7e41\u4f53)
\nLET\u00a0g_today\u00a0=\u00a0TODAY\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#\u9ed8\u8ba4\u7684\u5f53\u524d\u65e5\u671f
\nLET\u00a0g_time\u00a0=\u00a0TIME\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#\u9ed8\u8ba4\u7cfb\u7edf\u5f53\u524d\u65f6\u95f4<\/p>\n

DISPLAY\u00a0“time_zone:”\u00a0,\u00a0cl_time_trans_by_tz(“system_time”)\u00a0#\u8a2d\u5b9a\u6642\u5340<\/p>\n

CALL\u00a0FGL_SETENV(“TPGateWay”,”1″)
\nCALL\u00a0FGL_SETENV(“TPGateWayErr”,”1″)
\nCALL\u00a0FGL_SETENV(“WSBGJOB”,”1″)
\nCALL\u00a0FGL_SETENV(“FGLGUI”,0)<\/p>\n

END\u00a0FUNCTION<\/p>\n

################################################################################
\n# Descriptions…: \u63cf\u8ff0\u8bf4\u660e
\n# Memo………..:
\n# Usage……….: CALL awsp900_01_read_file(p_file_path)
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RETURNING \u56de\u4f20\u53c2\u6570
\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u4f20\u5165\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Return code….: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u56de\u4f20\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Date & Author..: \u65e5\u671f By \u4f5c\u8005
\n# Modify………:
\n################################################################################
\nPUBLIC\u00a0FUNCTION\u00a0awsp900_01_read_file(p_file_path)
\nDEFINE\u00a0p_file_path\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_return_str\u00a0STRING
\nDEFINE\u00a0l_object\u00a0TEXT<\/p>\n

display\u00a0“file:”,\u00a0p_file_path<\/p>\n

IF\u00a0os.Path.size(p_file_path.trim())\u00a0>\u00a00\u00a0THEN<\/p>\n

LOCATE\u00a0l_object\u00a0IN\u00a0FILE<\/p>\n

CALL\u00a0l_object.readFile(p_file_path)
\nLET\u00a0l_return_str\u00a0=\u00a0l_object<\/p>\n

FREE\u00a0l_object
\nEND\u00a0IF
\nRETURN\u00a0l_return_str
\nEND\u00a0FUNCTION<\/p>\n

################################################################################
\n# Descriptions…: \u63cf\u8ff0\u8bf4\u660e
\n# Memo………..:
\n# Usage……….: CALL awsp900_01_writeRequestLog()
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RETURNING \u56de\u4f20\u53c2\u6570
\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u4f20\u5165\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Return code….: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u56de\u4f20\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Date & Author..: \u65e5\u671f By \u4f5c\u8005
\n# Modify………:
\n################################################################################
\nPUBLIC\u00a0FUNCTION\u00a0awsp900_01_writeRequestLog()
\nDEFINE\u00a0l_ch\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0base.Channel,
\nl_logFile\u00a0\u00a0\u00a0STRING,
\nl_str\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING,
\nl_curr\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_sb\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0base.StringBuffer
\nDEFINE\u00a0l_request_doc\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomDocument<\/p>\n

WHENEVER\u00a0ERROR\u00a0CONTINUE<\/p>\n

#————————————————————————–#
\n# \u8a18\u9304\u6a94\u70ba $TEMPDIR\/aws-yyymmdd.log\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#
\n#————————————————————————–#
\nLET\u00a0l_curr\u00a0=\u00a0cl_get_current()
\nLET\u00a0l_logFile\u00a0=\u00a0fgl_getenv(“TEMPDIR”),\u00a0“\/”,\u00a0“aws-“,\u00a0TODAY\u00a0USING\u00a0‘YYYYMMDD’,\u00a0“.log”
\nLET\u00a0l_ch\u00a0=\u00a0base.Channel.create()
\nCALL\u00a0l_ch.setDelimiter(NULL)
\nCALL\u00a0l_ch.openFile(l_logFile,\u00a0“a”)
\nIF\u00a0STATUS\u00a0=\u00a00\u00a0THEN
\nLET\u00a0g_serial\u00a0=\u00a0CURRENT\u00a0HOUR\u00a0TO\u00a0FRACTION(3)
\nLET\u00a0l_sb\u00a0=\u00a0base.StringBuffer.create()
\nCALL\u00a0l_sb.append(g_serial)
\nCALL\u00a0l_sb.replace(“:”,\u00a0“”,\u00a00)
\nCALL\u00a0l_sb.replace(“.”,\u00a0“”,\u00a00)
\nLET\u00a0g_serial\u00a0=\u00a0l_sb.toString()<\/p>\n

LET\u00a0l_request_doc\u00a0=\u00a0xml.DomDocument.create()
\nCALL\u00a0l_request_doc.loadFromString(g_request.request)
\n#CALL l_request_doc.setFeature(“format-pretty-print”, true)<\/p>\n

LET\u00a0l_str\u00a0=\u00a0“#————————— (“,\u00a0l_curr\u00a0,\u00a0“) —————————-#”,
\n“\\n[Request Service #”,\u00a0g_serial,\u00a0“]”,
\n“\\n\u00a0\u00a0\u00a0\u00a0‘”,\u00a0g_service,\u00a0“‘ begin at “,\u00a0cl_get_time(),\u00a0“\\n”,
\n“\\n[Request Message #”,\u00a0g_serial,\u00a0“]”,
\n“\\n”,\u00a0l_request_doc.saveToString(),\u00a0“\\n”<\/p>\n

CALL\u00a0l_ch.write(l_str)
\nEND\u00a0IF
\nCALL\u00a0l_ch.close()<\/p>\n

IF\u00a0os.Path.chrwx(l_logFile\u00a0CLIPPED,438)\u00a0THEN\u00a0END\u00a0IF
\nEND\u00a0FUNCTION<\/p>\n

################################################################################
\n# Descriptions…: \u63cf\u8ff0\u8bf4\u660e
\n# Memo………..:
\n# Usage……….: CALL awsp900_01_create_response(p_response_str)
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RETURNING \u56de\u4f20\u53c2\u6570
\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u4f20\u5165\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Return code….: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u56de\u4f20\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Date & Author..: \u65e5\u671f By \u4f5c\u8005
\n# Modify………:
\n################################################################################
\nPUBLIC\u00a0FUNCTION\u00a0awsp900_01_create_response(p_response_str)
\nDEFINE\u00a0p_srvcode\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0p_response_str\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_resdoc\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomDocument
\nDEFINE\u00a0l_node_list\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNodeList
\nDEFINE\u00a0l_res_root\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_tnode\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_pnode\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_payload_node\u00a0\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_tp_version\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_bpm_xml\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_dom_doc\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0om.DomDocument
\nDEFINE\u00a0l_dom_node\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0om.DomNode
\nDEFINE\u00a0l_ch\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0base.Channel
\nDEFINE\u00a0l_i\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0INTEGER<\/p>\n

LET\u00a0l_tp_version\u00a0=\u00a0“1.0”<\/p>\n

#\u7522\u751f response xml.DomDocument
\nLET\u00a0l_resdoc\u00a0=\u00a0xml.DomDocument.CreateDocument(“response”)
\nCALL\u00a0l_resdoc.setFeature(“format-pretty-print”,\u00a0true)<\/p>\n

LET\u00a0l_res_root\u00a0=\u00a0l_resdoc.getDocumentElement()<\/p>\n

LET\u00a0l_pnode\u00a0=\u00a0l_resdoc.createElement(“srvver”)\u00a0\u00a0\u00a0\u00a0#\u5efa\u7acb <srvver>
\nCALL\u00a0l_res_root.appendChild(l_pnode)
\nLET\u00a0l_tnode\u00a0=\u00a0l_resdoc.createTextNode(l_tp_version)
\nCALL\u00a0l_pnode.appendChild(l_tnode)<\/p>\n

LET\u00a0l_pnode\u00a0=\u00a0l_resdoc.createElement(“srvcode”)\u00a0\u00a0\u00a0\u00a0#\u5efa\u7acb <srvcode>
\nCALL\u00a0l_res_root.appendChild(l_pnode)
\nLET\u00a0l_tnode\u00a0=\u00a0l_resdoc.createTextNode(g_srvcode)
\nCALL\u00a0l_pnode.appendChild(l_tnode)<\/p>\n

LET\u00a0l_payload_node\u00a0=\u00a0l_resdoc.createElement(“payload”)\u00a0\u00a0\u00a0\u00a0#\u5efa\u7acb <payload>
\nCALL\u00a0l_res_root.appendChild(l_payload_node)<\/p>\n

IF\u00a0g_jason_param.getLength()\u00a0>\u00a00\u00a0THEN
\nFOR\u00a0l_i\u00a0=\u00a01\u00a0TO\u00a0g_jason_param.getLength()
\nLET\u00a0l_tnode\u00a0=\u00a0l_resdoc.createElement(“param”)\u00a0\u00a0\u00a0\u00a0#\u5efa\u7acb <param>
\nCALL\u00a0l_payload_node.appendChild(l_tnode)<\/p>\n

CALL\u00a0l_tnode.setAttribute(“key”,\u00a0g_jason_param[l_i].datakey)
\nCALL\u00a0l_tnode.setAttribute(“type”,\u00a0“XML”)<\/p>\n

IF\u00a0NOT\u00a0cl_null(g_jason_param[l_i].jsontext)\u00a0THEN
\nLET\u00a0l_pnode\u00a0=\u00a0l_resdoc.createCDATASection(g_jason_param[l_i].jsontext)
\nCALL\u00a0l_tnode.appendChild(l_pnode)
\nEND\u00a0IF
\nEND\u00a0FOR
\nELSE
\nLET\u00a0l_tnode\u00a0=\u00a0l_resdoc.createElement(“param”)\u00a0\u00a0\u00a0\u00a0#\u5efa\u7acb <param>
\nCALL\u00a0l_payload_node.appendChild(l_tnode)
\nCALL\u00a0l_tnode.setAttribute(“key”,\u00a0“data”)
\nIF\u00a0g_jason_type\u00a0=\u00a0“Y”\u00a0THEN
\nCALL\u00a0l_tnode.setAttribute(“type”,\u00a0“JSON”)
\nLET\u00a0l_pnode\u00a0=\u00a0l_resdoc.createTextNode(g_response.response)
\nELSE
\nCALL\u00a0l_tnode.setAttribute(“type”,\u00a0“XML”)
\nLET\u00a0l_pnode\u00a0=\u00a0l_resdoc.createCDATASection(p_response_str)
\nEND\u00a0IF
\nCALL\u00a0l_tnode.appendChild(l_pnode)
\nEND\u00a0IF<\/p>\n

#\u5c07 Response xml \u5beb\u5165\u56de\u50b3\u7684\u6a94\u6848
\n#\u76ee\u524d xml dom \u4e0d\u6703\u81ea\u52d5\u8df3\u884c, \u6240\u4ee5\u6539\u7528 dom node \u5132\u5b58\u8207\u50b3\u905e
\n#LET l_dom_doc = om.DomDocument.createFromString(l_resdoc.saveToString())
\n#LET l_dom_node = l_dom_doc.getDocumentElement()
\n#CALL l_dom_node.writeXml(“bpm_test.txt”)
\n#LET g_response.response = awsp900_01_read_file(“bpm_test.txt”)<\/p>\n

#CALL l_resdoc.save(g_response_file_path)
\nLET\u00a0g_response.response\u00a0=\u00a0l_resdoc.saveToString()
\nLET\u00a0g_response.response\u00a0=\u00a0cl_str_replace(\u00a0g_response.response\u00a0,”<?xml version=\\”1.0\\” encoding=\\”UTF-8\\” standalone=\\”no\\”?>”,””)
\ndisplay\u00a0“response xml:”\u00a0,g_response.response<\/p>\n

LET\u00a0l_ch\u00a0=\u00a0base.Channel.create()
\nCALL\u00a0l_ch.openFile(g_response_file_path,\u00a0“w”)
\nCALL\u00a0l_ch.setDelimiter(“”)
\nCALL\u00a0l_ch.write(g_response.response)
\nCALL\u00a0l_ch.close()
\nEND\u00a0FUNCTION<\/p>\n

################################################################################
\n# Descriptions…: \u63cf\u8ff0\u8bf4\u660e
\n# Memo………..:
\n# Usage……….: CALL awsp900_01_preprocess()
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RETURNING \u56de\u4f20\u53c2\u6570
\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u4f20\u5165\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Return code….: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u56de\u4f20\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Date & Author..: \u65e5\u671f By \u4f5c\u8005
\n# Modify………:
\n################################################################################
\nPUBLIC\u00a0FUNCTION\u00a0awsp900_01_preprocess()
\nDEFINE\u00a0l_status\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_pnode\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_request_cdata\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_xmltype\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING<\/p>\n

#\u7a0b\u5f0f\u8b8a\u6578\u521d\u59cb\u5316
\nCALL\u00a0awsp900_01_init()<\/p>\n

#\u8f38\u5165\u6a94\u6848\u8def\u5f91
\nLET\u00a0g_request_file_path\u00a0=\u00a0g_argv[1]
\nDISPLAY\u00a0“request_file_path = “,g_request_file_path<\/p>\n

#\u8f38\u51fa\u6a94\u6848\u8def\u5f91
\nLET\u00a0g_response_file_path\u00a0=\u00a0g_argv[2]
\nDISPLAY\u00a0“response_file_path = “,g_response_file_path<\/p>\n

LET\u00a0g_count\u00a0=\u00a00
\nCALL\u00a0awsp900_01_createPayloadResponse()<\/p>\n

#\u5c07 XML \u6a94\u6848\u8f49\u70ba XML DomNode
\nCALL\u00a0awsp900_01_filetoxml(g_request_file_path)
\nRETURNING\u00a0l_status,gx_reqdoc,g_response.response<\/p>\n

IF\u00a0l_status\u00a0=\u00a0FALSE\u00a0THEN
\nRETURN
\nEND\u00a0IF<\/p>\n

LET\u00a0g_datakey.EntId\u00a0=\u00a0awsp900_01_getNodeValue(gx_reqdoc,”key”,”EntId”)
\nLET\u00a0g_enterprise\u00a0=\u00a0g_datakey.EntId<\/p>\n

IF\u00a0cl_null(g_enterprise)\u00a0AND\u00a0(cl_null(g_non_entId)\u00a0OR\u00a0g_non_entId\u00a0<>\u00a0“Y”)\u00a0THEN
\nLET\u00a0g_enterprise\u00a0=\u00a0FGL_GETENV(“TOPENT”)
\nEND\u00a0IF<\/p>\n

LET\u00a0g_datakey.CompanyId\u00a0=\u00a0awsp900_01_getNodeValue(gx_reqdoc,”key”,”CompanyId”)
\nLET\u00a0g_site\u00a0=\u00a0g_datakey.CompanyId<\/p>\n

IF\u00a0cl_null(g_site)\u00a0AND\u00a0g_non_entId\u00a0<>\u00a0“Y”\u00a0THEN
\nSELECT\u00a0gzxa007\u00a0INTO\u00a0g_site\u00a0FROM\u00a0gzxa_t
\nWHERE\u00a0gzxa001\u00a0=\u00a0g_account\u00a0AND\u00a0gzxaent\u00a0=\u00a0g_enterprise
\nIF\u00a0(SQLCA.SQLCODE)\u00a0THEN
\nLET\u00a0g_status.code\u00a0=\u00a0“100”
\nLET\u00a0g_status.description\u00a0=\u00a0“Site not found”
\nRETURN
\nEND\u00a0IF
\nEND\u00a0IF<\/p>\n

LET\u00a0g_lang\u00a0=\u00a0cl_bpm_get_node_attribute(gx_reqdoc,”host”,”lang”)
\n#\u6307\u5b9a\u8cc7\u6599\u7684\u8a9e\u8a00\u5225
\nLET\u00a0g_dlang\u00a0=\u00a0g_lang
\nLET\u00a0g_account\u00a0=\u00a0cl_bpm_get_node_attribute(gx_reqdoc,”host”,”acct”)<\/p>\n

IF\u00a0NOT\u00a0cl_null(g_account)\u00a0\u00a0THEN
\nLET\u00a0g_user\u00a0=\u00a0“”
\nSELECT\u00a0gzxa003\u00a0INTO\u00a0g_user\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#\u54e1\u5de5\u7de8\u865f
\nFROM\u00a0gzxa_t
\nWHERE\u00a0gzxa001\u00a0=\u00a0g_account\u00a0AND\u00a0gzxaent\u00a0=\u00a0g_enterprise<\/p>\n

IF\u00a0cl_null(g_user)\u00a0AND\u00a0g_non_entId\u00a0<>\u00a0“Y”\u00a0THEN
\nLET\u00a0g_status.code\u00a0=\u00a0“aws-00022”
\nRETURN
\nEND\u00a0IF
\nELSE
\nLET\u00a0g_status.code\u00a0=\u00a0“aws-00022”\u00a0#User account not found
\nRETURN
\nEND\u00a0IF
\n#\u6e05\u7a7a g_non_entId
\nLET\u00a0g_non_entId\u00a0=\u00a0“”<\/p>\n

LET\u00a0g_timestamp\u00a0=\u00a0cl_bpm_get_node_attribute(gx_reqdoc,”host”,”timestamp”)
\nLET\u00a0g_prod_name\u00a0=\u00a0cl_bpm_get_node_attribute(gx_reqdoc,”host”,”prod”)
\nLET\u00a0g_prod_ip\u00a0=\u00a0cl_bpm_get_node_attribute(gx_reqdoc,”host”,”ip”)
\nLET\u00a0g_pord_mach\u00a0=\u00a0cl_bpm_get_node_attribute(gx_reqdoc,”host”,”mach”)
\nLET\u00a0g_prod_shop\u00a0=\u00a0cl_bpm_get_node_attribute(gx_reqdoc,”host”,”shop”)<\/p>\n

LET\u00a0g_datakey.DocProp\u00a0\u00a0\u00a0=\u00a0awsp900_01_getNodeValue(gx_reqdoc,”key”,”DocProp”)
\nLET\u00a0g_datakey.Prog\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0=\u00a0awsp900_01_getNodeValue(gx_reqdoc,”key”,”Prog”)
\nLET\u00a0g_datakey.FormId\u00a0\u00a0\u00a0\u00a0=\u00a0awsp900_01_getNodeValue(gx_reqdoc,”key”,”FormId”)
\nLET\u00a0g_datakey.SheetNo\u00a0\u00a0\u00a0=\u00a0awsp900_01_getNodeValue(gx_reqdoc,”key”,”SheetNo”)
\nLET\u00a0g_datakey.PK3\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0=\u00a0awsp900_01_getNodeValue(gx_reqdoc,”key”,”PK3″)
\nLET\u00a0g_datakey.DocKey\u00a0\u00a0\u00a0\u00a0=\u00a0awsp900_01_getNodeValue(gx_reqdoc,”key”,”DocKey”)
\nLET\u00a0g_datakey.RefId\u00a0\u00a0\u00a0\u00a0\u00a0=\u00a0awsp900_01_getNodeValue(gx_reqdoc,”key”,”RefId”)
\nLET\u00a0g_messge.msgBatchNum\u00a0=\u00a0awsp900_01_getNodeValue(gx_reqdoc,”key”,”msgBatchNum”)<\/p>\n

LET\u00a0g_payload_request\u00a0=\u00a0“”
\nLET\u00a0g_payload_request\u00a0=\u00a0awsp900_01_getNodeValue(gx_reqdoc,\u00a0“param”,””)<\/p>\n

IF\u00a0NOT\u00a0cl_null(g_messge.msgBatchNum)\u00a0THEN
\nCALL\u00a0awsp900_01_getParamValue(gx_reqdoc)
\nEND\u00a0IF
\n#\u6c7a\u5b9a\u5167\u5bb9\u70ba XML or JSON
\nLET\u00a0l_xmltype\u00a0=\u00a0cl_bpm_get_node_attribute(gx_reqdoc,\u00a0“param”,”type”)
\nIF\u00a0l_xmltype\u00a0=\u00a0“JSON”\u00a0THEN
\nLET\u00a0g_jason_type\u00a0=\u00a0“Y”<\/p>\n

CALL\u00a0g_jason_param.clear()
\nLET\u00a0g_messge.msgBatchNum\u00a0=\u00a0awsp900_01_getNodeValue(gx_reqdoc,”key”,”msgBatchNum”)
\nCALL\u00a0awsp900_01_getParamValue(gx_reqdoc)
\nELSE
\nLET\u00a0g_jason_type\u00a0=\u00a0“N”
\nEND\u00a0IF<\/p>\n

DISPLAY\u00a0“payload request:”,\u00a0g_payload_request\u00a0,\u00a0“;”<\/p>\n

#IF NOT cl_null(g_datakey.EntId) THEN
\n#\u00a0\u00a0\u00a0LET g_enterprise = g_datakey.EntId
\n#END IF<\/p>\n

#IF NOT cl_null(g_site) THEN
\n#\u00a0\u00a0\u00a0LET g_site = g_datakey.CompanyId
\n#END IF<\/p>\n

#\u5efa\u7acb Request XML Document
\nIF\u00a0l_xmltype\u00a0=\u00a0“JSON”\u00a0THEN
\nLET\u00a0g_jason_request\u00a0=\u00a0g_payload_request.trim()
\nELSE
\nLET\u00a0gx_payload_request\u00a0=\u00a0xml.DomDocument.create()
\nCALL\u00a0gx_payload_request.loadFromString(g_payload_request.trim())
\nEND\u00a0IF<\/p>\n

#\u670d\u52d9\u555f\u59cb\u8a18\u9304
\nLET\u00a0g_service\u00a0=\u00a0cl_bpm_get_node_attribute(gx_reqdoc,”service”,”name”)
\nCALL\u00a0cl_log_service_start(“S”,\u00a0g_service)<\/p>\n

END\u00a0FUNCTION<\/p>\n

################################################################################
\n# Descriptions…: \u63cf\u8ff0\u8bf4\u660e
\n# Memo………..:
\n# Usage……….: CALL awsp900_01_postprocess()
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RETURNING \u56de\u4f20\u53c2\u6570
\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u4f20\u5165\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Return code….: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u56de\u4f20\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Date & Author..: \u65e5\u671f By \u4f5c\u8005
\n# Modify………:
\n################################################################################
\nPUBLIC\u00a0FUNCTION\u00a0awsp900_01_postprocess()
\nDEFINE\u00a0l_status\u00a0RECORD
\ncode\u00a0\u00a0\u00a0\u00a0STRING,
\nsqlcode\u00a0STRING,
\ndescription\u00a0\u00a0STRING
\nEND\u00a0RECORD<\/p>\n

CALL\u00a0awsp900_01_setStatus()<\/p>\n

IF\u00a0g_jason_type\u00a0=\u00a0“Y”\u00a0THEN
\nLET\u00a0l_status.code\u00a0=\u00a0g_status.code
\nLET\u00a0l_status.sqlcode\u00a0=\u00a0g_status.sqlcode
\nLET\u00a0l_status.description\u00a0=\u00a0g_status.description
\nIF\u00a0cl_null(g_messge_out.paramKey)\u00a0THEN
\nLET\u00a0g_response.response\u00a0=\u00a0util.JSON.stringify(l_status)
\nELSE
\nLET\u00a0g_response.response\u00a0=\u00a0g_messge_out.msgText
\nEND\u00a0IF
\nELSE
\nLET\u00a0g_response.response\u00a0=\u00a0g_resdoc.saveToString()
\nEND\u00a0IF
\n#\u7522\u751f response \u8cc7\u6599
\nCALL\u00a0awsp900_01_create_response(g_response.response)<\/p>\n

#\u670d\u52d9\u7d50\u675f\u8a18\u9304
\nCALL\u00a0cl_log_service_exit(“S”,\u00a0g_service)<\/p>\n

END\u00a0FUNCTION<\/p>\n

################################################################################
\n# Descriptions…: \u63cf\u8ff0\u8bf4\u660e
\n# Memo………..:
\n# Usage……….: CALL awsp900_01_createPayloadResponse ()
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RETURNING \u56de\u4f20\u53c2\u6570
\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u4f20\u5165\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Return code….: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u56de\u4f20\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Date & Author..: \u65e5\u671f By \u4f5c\u8005
\n# Modify………:
\n################################################################################
\nPUBLIC\u00a0FUNCTION\u00a0awsp900_01_createPayloadResponse()
\nDEFINE\u00a0l_node\u00a0\u00a0\u00a0xml.DomNode<\/p>\n

LET\u00a0g_resdoc\u00a0=\u00a0xml.DomDocument.createDocument(“Response”)
\nCALL\u00a0g_resdoc.setFeature(“format-pretty-print”,\u00a0true)<\/p>\n

LET\u00a0g_response_root\u00a0=\u00a0g_resdoc.getDocumentElement()<\/p>\n

LET\u00a0l_node\u00a0=\u00a0g_resdoc.createElement(“Execution”)\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#\u5efa\u7acb <Execution>
\nCALL\u00a0g_response_root.appendChild(l_node)
\nLET\u00a0g_snode\u00a0=\u00a0g_resdoc.createElement(“Status”)\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#\u65bc <Execution> \u4e0b\u5efa\u7acb <Status>
\nCALL\u00a0l_node.appendChild(g_snode)<\/p>\n

LET\u00a0l_node\u00a0=\u00a0g_resdoc.createElement(“ResponseContent”)\u00a0\u00a0\u00a0#\u5efa\u7acb <ResponseContent>
\nCALL\u00a0g_response_root.appendChild(l_node)
\nLET\u00a0g_pnode\u00a0=\u00a0g_resdoc.createElement(“Parameter”)\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#\u65bc <ResponseContent> \u4e0b\u5efa\u7acb <Parameter>
\nCALL\u00a0l_node.appendChild(g_pnode)
\nLET\u00a0g_dnode\u00a0=\u00a0g_resdoc.createElement(“Document”)\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#\u65bc <ResponseContent> \u4e0b\u5efa\u7acb <Document>
\nCALL\u00a0l_node.appendChild(g_dnode)
\nEND\u00a0FUNCTION<\/p>\n

################################################################################
\n# Descriptions…: \u63cf\u8ff0\u8bf4\u660e
\n# Memo………..:
\n# Usage……….: CALL awsp900_01_setStatus()
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RETURNING \u56de\u4f20\u53c2\u6570
\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u4f20\u5165\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Return code….: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u56de\u4f20\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Date & Author..: \u65e5\u671f By \u4f5c\u8005
\n# Modify………:
\n################################################################################
\nPUBLIC\u00a0FUNCTION\u00a0awsp900_01_setStatus()
\nIF\u00a0NOT\u00a0cl_null(gi_err_code)\u00a0AND\u00a0(cl_null(g_status.code)\u00a0OR\u00a0g_status.code=”0″)\u00a0THEN
\nLET\u00a0g_status.code=gi_err_code
\nEND\u00a0IF
\nIF\u00a0g_status.code\u00a0!=\u00a0“0”\u00a0AND\u00a0cl_null(g_status.description)\u00a0THEN
\nLET\u00a0g_status.description\u00a0=\u00a0cl_getmsg(g_status.code,\u00a0g_lang)\u00a0\u00a0\u00a0#\u53d6\u5f97 error code \u8aaa\u660e
\nEND\u00a0IF<\/p>\n

CALL\u00a0g_snode.setAttribute(“code”,\u00a0g_status.code)
\nCALL\u00a0g_snode.setAttribute(“sqlcode”,\u00a0g_status.sqlcode)
\nCALL\u00a0g_snode.setAttribute(“description”,\u00a0g_status.description)<\/p>\n

END\u00a0FUNCTION<\/p>\n

################################################################################
\n# Descriptions…: \u63cf\u8ff0\u8bf4\u660e
\n# Memo………..:
\n# Usage……….: CALL awsp900_01_filetoxml(p_file)
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RETURNING \u56de\u4f20\u53c2\u6570
\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u4f20\u5165\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Return code….: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u56de\u4f20\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Date & Author..: \u65e5\u671f By \u4f5c\u8005
\n# Modify………:
\n################################################################################
\nPUBLIC\u00a0FUNCTION\u00a0awsp900_01_filetoxml(p_file)
\nDEFINE\u00a0p_file\u00a0STRING
\nDEFINE\u00a0l_str\u00a0\u00a0STRING
\nDEFINE\u00a0l_xmldoc\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomDocument
\nDEFINE\u00a0l_i\u00a0\u00a0\u00a0\u00a0INTEGER<\/p>\n

IF\u00a0cl_null(p_file)\u00a0THEN
\nLET\u00a0l_str\u00a0=\u00a0“XML document is NULL. ”
\nLET\u00a0g_status.code\u00a0=\u00a0“-1”
\nLET\u00a0g_status.description\u00a0=\u00a0l_str
\ndisplay\u00a0l_str
\nRETURN\u00a0FALSE,l_xmldoc,l_str
\nEND\u00a0IF<\/p>\n

LET\u00a0l_xmldoc\u00a0=\u00a0xml.DomDocument.Create()
\nCALL\u00a0l_xmldoc.load(p_file)
\nIF\u00a0l_xmldoc.getErrorsCount()\u00a0>\u00a00\u00a0THEN
\nLET\u00a0l_str\u00a0=\u00a0“It isn’t valid XML document. ”
\nFOR\u00a0l_i\u00a0=\u00a01\u00a0TO\u00a0l_xmldoc.getErrorsCount()
\nLET\u00a0l_str\u00a0=\u00a0l_str,\u00a0l_xmldoc.getErrorDescription(l_i)
\nEND\u00a0FOR
\nLET\u00a0g_status.code\u00a0=\u00a0“-1″
\nLET\u00a0g_status.description\u00a0=\u00a0l_str
\nRETURN\u00a0FALSE,l_xmldoc,l_str
\nEND\u00a0IF<\/p>\n

RETURN\u00a0TRUE,l_xmldoc,””<\/p>\n

END\u00a0FUNCTION<\/p>\n

################################################################################
\n# Descriptions…: \u63cf\u8ff0\u8bf4\u660e
\n# Memo………..:
\n# Usage……….: CALL awsp900_01_getTag(p_xmldoc,p_name)
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RETURNING \u56de\u4f20\u53c2\u6570
\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u4f20\u5165\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Return code….: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u56de\u4f20\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Date & Author..: \u65e5\u671f By \u4f5c\u8005
\n# Modify………:
\n################################################################################
\nPUBLIC\u00a0FUNCTION\u00a0awsp900_01_getTag(p_xmldoc,p_name)
\nDEFINE\u00a0p_xmldoc\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomDocument
\nDEFINE\u00a0p_name\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0p_att\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_value\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_node_list\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNodeList
\nDEFINE\u00a0l_tnode\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_pnode\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode<\/p>\n

LET\u00a0l_node_list\u00a0=\u00a0p_xmldoc.getElementsByTagName(p_name)
\nIF\u00a0l_node_list.getCount()\u00a0>\u00a00\u00a0THEN
\nLET\u00a0l_pnode\u00a0=\u00a0l_node_list.getitem(1)
\nEND\u00a0IF<\/p>\n

RETURN\u00a0l_pnode
\nEND\u00a0FUNCTION<\/p>\n

################################################################################
\n# Descriptions…: \u63cf\u8ff0\u8bf4\u660e
\n# Memo………..:
\n# Usage……….: CALL awsp900_01_getParameter(p_name)
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RETURNING \u56de\u4f20\u53c2\u6570
\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u4f20\u5165\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Return code….: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u56de\u4f20\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Date & Author..: \u65e5\u671f By \u4f5c\u8005
\n# Modify………:
\n################################################################################
\nPUBLIC\u00a0FUNCTION\u00a0awsp900_01_getParameter(p_name)
\nDEFINE\u00a0p_name\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_value\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_node_list\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNodeList
\nDEFINE\u00a0l_pnode\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode<\/p>\n

INITIALIZE\u00a0l_value\u00a0TO\u00a0NULL<\/p>\n

IF\u00a0cl_null(p_name)\u00a0THEN
\nRETURN\u00a0NULL
\nEND\u00a0IF<\/p>\n

#————————————————————————–#
\n# \u641c\u5c0b <Parameter> \u662f\u5426\u6709\u6307\u5b9a\u540d\u7a31\u7684\u6b04\u4f4d\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#
\n#————————————————————————–#
\nLET\u00a0l_node_list\u00a0=\u00a0gx_payload_request.selectByXPath(“\/\/Parameter\/Record\/Field[@name=\\””\u00a0||\u00a0p_name\u00a0CLIPPED\u00a0||\u00a0“\\”]”,””)
\nIF\u00a0l_node_list.getCount()\u00a0>\u00a00\u00a0THEN
\nLET\u00a0l_pnode\u00a0=\u00a0l_node_list.getitem(1)
\nLET\u00a0l_value\u00a0=\u00a0l_pnode.getAttribute(“value”)
\nEND\u00a0IF<\/p>\n

RETURN\u00a0l_value<\/p>\n

END\u00a0FUNCTION<\/p>\n

################################################################################
\n# Descriptions…: \u63cf\u8ff0\u8bf4\u660e
\n# Memo………..:
\n# Usage……….: CALL awsp900_01_getNodeValue(p_xmldoc,p_tagname,p_attname)
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RETURNING \u56de\u4f20\u53c2\u6570
\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u4f20\u5165\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Return code….: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u56de\u4f20\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Date & Author..: \u65e5\u671f By \u4f5c\u8005
\n# Modify………:
\n################################################################################
\nPUBLIC\u00a0FUNCTION\u00a0awsp900_01_getNodeValue(p_xmldoc,p_tagname,p_attname)
\nDEFINE\u00a0p_xmldoc\u00a0\u00a0xml.DomDocument
\nDEFINE\u00a0p_tagname\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0p_attname\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_value\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_node_list\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNodeList
\nDEFINE\u00a0l_pnode\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_tnode\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_str\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING<\/p>\n

INITIALIZE\u00a0l_value\u00a0TO\u00a0NULL<\/p>\n

IF\u00a0NOT\u00a0cl_null(p_attname)\u00a0THEN
\nLET\u00a0l_node_list\u00a0=\u00a0p_xmldoc.selectByXPath(“\/\/”\u00a0||\u00a0p_tagname.trim()\u00a0||\u00a0“[@name=\\””\u00a0||\u00a0p_attname\u00a0CLIPPED\u00a0||\u00a0“\\”]”,””)
\nELSE
\nLET\u00a0l_node_list\u00a0=\u00a0p_xmldoc.getElementsByTagName(p_tagname)
\nEND\u00a0IF
\nIF\u00a0l_node_list.getCount()\u00a0>\u00a00\u00a0THEN
\nLET\u00a0l_pnode\u00a0=\u00a0l_node_list.getitem(1)
\nLET\u00a0l_tnode\u00a0=\u00a0l_pnode.getFirstChild()
\n#CDATA\u7684\u683c\u5f0f,\u4e00\u5b9a\u8981\u53d6\u5f97\u7b2c\u4e8c\u500b\u5b50\u7bc0\u9ede\u624d\u53ef\u53d6\u5f97\u5230CDATA\u7684\u8cc7\u6599.
\nWHILE\u00a0(\u00a0l_tnode\u00a0IS\u00a0NOT\u00a0NULL\u00a0)
\nLET\u00a0l_value\u00a0=\u00a0l_value\u00a0,\u00a0l_tnode.getNodeValue()
\nLET\u00a0l_value\u00a0=\u00a0l_value.trim()
\nLET\u00a0l_tnode\u00a0=\u00a0l_tnode.getNextSibling()
\nEND\u00a0WHILE
\nEND\u00a0IF<\/p>\n

RETURN\u00a0l_value
\nEND\u00a0FUNCTION<\/p>\n

################################################################################
\n# Descriptions…: \u63cf\u8ff0\u8bf4\u660e
\n# Memo………..:
\n# Usage……….: CALL awsp900_01_wc_key(p_dockey)
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RETURNING \u56de\u4f20\u53c2\u6570
\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u4f20\u5165\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Return code….: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u56de\u4f20\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Date & Author..: \u65e5\u671f By \u4f5c\u8005
\n# Modify………:
\n################################################################################
\nPUBLIC\u00a0FUNCTION\u00a0awsp900_01_wc_key(p_dockey)
\nDEFINE\u00a0p_dockey\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_tok\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0base.StringTokenizer
\nDEFINE\u00a0l_tok_key\u00a0\u00a0\u00a0base.StringTokenizer
\nDEFINE\u00a0l_wc\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_str\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_str2\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_i\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LIKE\u00a0type_t.num10
\nDEFINE\u00a0l_cnt\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LIKE\u00a0type_t.num10
\nDEFINE\u00a0l_cnt2\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LIKE\u00a0type_t.num10
\nDEFINE\u00a0l_key_str\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0buf\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0base.StringBuffer<\/p>\n

LET\u00a0l_wc\u00a0=\u00a0“”
\nLET\u00a0l_str\u00a0=\u00a0“”<\/p>\n

LET\u00a0buf\u00a0=\u00a0base.StringBuffer.create()
\nCALL\u00a0buf.append(p_dockey)
\nCALL\u00a0buf.replace(\u00a0“{+}”,”|”,\u00a00)
\nLET\u00a0p_dockey\u00a0=\u00a0buf.toString()<\/p>\n

LET\u00a0l_tok\u00a0=\u00a0base.StringTokenizer.createExt(p_dockey\u00a0CLIPPED,”|”,””,TRUE)<\/p>\n

WHILE\u00a0l_tok.hasMoreTokens()
\nLET\u00a0l_str\u00a0=\u00a0l_tok.nextToken()
\nLET\u00a0l_tok_key\u00a0=\u00a0base.StringTokenizer.createExt(l_str\u00a0CLIPPED,”=”,””,TRUE)
\nLET\u00a0l_key_str\u00a0=\u00a0“”
\nWHILE\u00a0l_tok_key.hasMoreTokens()
\nLET\u00a0l_str2\u00a0=\u00a0l_tok_key.nextToken()
\nIF\u00a0cl_null(l_key_str)\u00a0THEN
\nLET\u00a0l_key_str\u00a0=\u00a0l_str2
\nELSE
\nLET\u00a0l_key_str\u00a0=\u00a0l_key_str\u00a0,”='”,l_str2,”‘”
\nEND\u00a0IF
\nEND\u00a0WHILE
\nIF\u00a0cl_null(l_wc)\u00a0THEN
\nLET\u00a0l_wc\u00a0=\u00a0l_key_str
\nELSE
\nLET\u00a0l_wc\u00a0=\u00a0l_wc\u00a0,” AND “,l_key_str
\nEND\u00a0IF
\nEND\u00a0WHILE<\/p>\n

RETURN\u00a0l_wc
\nEND\u00a0FUNCTION<\/p>\n

################################################################################
\n# Descriptions…: \u63cf\u8ff0\u8bf4\u660e
\n# Memo………..:
\n# Usage……….: CALL awsp900_01_splite(p_dockey)
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RETURNING \u56de\u4f20\u53c2\u6570
\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u4f20\u5165\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Return code….: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u56de\u4f20\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Date & Author..: \u65e5\u671f By \u4f5c\u8005
\n# Modify………:
\n################################################################################
\nPUBLIC\u00a0FUNCTION\u00a0awsp900_01_splite(p_dockey)
\nDEFINE\u00a0p_dockey\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_tok\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0base.StringTokenizer
\nDEFINE\u00a0l_tok_key\u00a0\u00a0\u00a0base.StringTokenizer
\nDEFINE\u00a0l_wc\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_str\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_str2\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_cnt\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LIKE\u00a0type_t.num10
\nDEFINE\u00a0l_cnt2\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LIKE\u00a0type_t.num10
\nDEFINE\u00a0l_key_str\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0buf\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0base.StringBuffer<\/p>\n

LET\u00a0l_wc\u00a0=\u00a0“”
\nLET\u00a0l_str\u00a0=\u00a0“”<\/p>\n

LET\u00a0l_tok\u00a0=\u00a0base.StringTokenizer.createExt(p_dockey\u00a0CLIPPED,”|”,””,TRUE)
\nWHILE\u00a0l_tok.hasMoreTokens()
\nLET\u00a0l_str\u00a0=\u00a0l_tok.nextToken()
\nIF\u00a0cl_null(l_wc)\u00a0THEN
\nLET\u00a0l_wc\u00a0=\u00a0“‘”,\u00a0l_str\u00a0,”‘”
\nELSE
\nLET\u00a0l_wc\u00a0=\u00a0l_wc\u00a0,”,”,\u00a0“‘”,\u00a0l_str\u00a0,”‘”
\nEND\u00a0IF
\nEND\u00a0WHILE<\/p>\n

RETURN\u00a0l_wc
\nEND\u00a0FUNCTION<\/p>\n

################################################################################
\n# Descriptions…: \u63cf\u8ff0\u8bf4\u660e
\n# Memo………..:
\n# Usage……….: CALL awsp900_01_addMasterRecord(p_record, p_name)
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RETURNING \u56de\u4f20\u53c2\u6570
\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u4f20\u5165\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Return code….: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u56de\u4f20\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Date & Author..: \u65e5\u671f By \u4f5c\u8005
\n# Modify………:
\n################################################################################
\nPUBLIC\u00a0FUNCTION\u00a0awsp900_01_addMasterRecord(p_record,p_name)
\nDEFINE\u00a0p_record\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0util.JSONObject,
\np_name\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_node\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_tnode\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_master_record\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_list\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNodeList<\/p>\n

WHENEVER\u00a0ERROR\u00a0CONTINUE<\/p>\n

#IF p_record IS NULL THEN
\n#\u00a0\u00a0\u00a0RETURN NULL
\n#END IF<\/p>\n

LET\u00a0l_node\u00a0=\u00a0g_resdoc.createElement(“RecordSet”)\u00a0\u00a0\u00a0#\u65bc <Document> \u4e0b\u5efa\u7acb <RecordSet> \u7bc0\u9ede
\nCALL\u00a0g_dnode.appendChild(l_node)<\/p>\n

LET\u00a0g_count\u00a0=\u00a0g_count\u00a0+\u00a01
\nCALL\u00a0l_node.setAttribute(“id”,\u00a0g_count)<\/p>\n

LET\u00a0l_tnode\u00a0=\u00a0g_resdoc.createElement(“Master”)\u00a0\u00a0\u00a0#\u65bc <RecordSet> \u4e0b\u5efa\u7acb <Master> \u7bc0\u9ede
\nCALL\u00a0l_node.appendChild(l_tnode)
\nIF\u00a0NOT\u00a0cl_null(p_name)\u00a0THEN
\nCALL\u00a0l_tnode.setAttribute(“name”,\u00a0p_name)
\nCALL\u00a0l_tnode.setAttribute(“node_id”,\u00a0g_count)
\nEND\u00a0IF<\/p>\n

IF\u00a0p_record\u00a0IS\u00a0NULL\u00a0THEN
\nLET\u00a0l_master_record\u00a0=\u00a0g_resdoc.createElement(“Record”)
\nLET\u00a0g_master_record\u00a0=\u00a0l_master_record
\nCALL\u00a0l_tnode.appendChild(l_master_record)
\nRETURN\u00a0l_node
\nEND\u00a0IF<\/p>\n

CALL\u00a0awsp900_01_buildRecord(l_tnode,\u00a0p_record)\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#\u4f9d\u7167\u50b3\u5165\u7684\u8cc7\u6599\u65b0\u589e\u4e00\u7b46\u55ae\u982d\u8cc7\u6599<\/p>\n

LET\u00a0l_list\u00a0=\u00a0l_node.getElementsByTagName(“Record”)
\nIF\u00a0l_list.getCount()\u00a0>0\u00a0THEN
\nLET\u00a0g_master_record\u00a0=\u00a0l_list.getitem(1)
\nEND\u00a0IF<\/p>\n

RETURN\u00a0l_node\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#\u56de\u50b3\u6b64\u7b46\u55ae\u982d\u8cc7\u6599\u7bc0\u9ede
\nEND\u00a0FUNCTION<\/p>\n

################################################################################
\n# Descriptions…: \u63cf\u8ff0\u8bf4\u660e
\n# Memo………..:
\n# Usage……….: CALL awsp900_01_addMasterRecordField(p_json_record, p_name)
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RETURNING \u56de\u4f20\u53c2\u6570
\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u4f20\u5165\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Return code….: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u56de\u4f20\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Date & Author..: \u65e5\u671f By \u4f5c\u8005
\n# Modify………:
\n################################################################################
\nPUBLIC\u00a0FUNCTION\u00a0awsp900_01_addMasterRecordField(p_name,p_json_record)
\nDEFINE\u00a0p_json_record\u00a0\u00a0\u00a0\u00a0\u00a0util.JSONObject,
\np_name\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING,
\np_detail\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_node\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode,
\nl_master_record\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_node_list\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNodeList
\nDEFINE\u00a0l_list1\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNodeList
\nDEFINE\u00a0l_res_root\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_tnode\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_pnode\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_i\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0INTEGER<\/p>\n

WHENEVER\u00a0ERROR\u00a0CONTINUE<\/p>\n

IF\u00a0p_json_record.getLength()\u00a0=\u00a00\u00a0THEN
\ndisplay\u00a0“json length: 0”
\nRETURN\u00a0NULL
\nEND\u00a0IF<\/p>\n

LET\u00a0l_node_list\u00a0=\u00a0g_dnode.selectByXPath(“\/\/Master[@name=\\””\u00a0||\u00a0p_name\u00a0CLIPPED\u00a0||\u00a0“\\”]”,””)
\nIF\u00a0l_node_list.getCount()\u00a0=\u00a00\u00a0THEN<\/p>\n

LET\u00a0l_node\u00a0=\u00a0g_resdoc.createElement(“RecordSet”)\u00a0\u00a0\u00a0#\u65bc <Document> \u4e0b\u5efa\u7acb <RecordSet> \u7bc0\u9ede
\nCALL\u00a0g_dnode.appendChild(l_node)<\/p>\n

LET\u00a0g_count\u00a0=\u00a0g_count\u00a0+\u00a01
\nCALL\u00a0l_node.setAttribute(“id”,\u00a0g_count)<\/p>\n

LET\u00a0l_tnode\u00a0=\u00a0g_resdoc.createElement(“Master”)\u00a0\u00a0\u00a0#\u65bc <RecordSet> \u4e0b\u5efa\u7acb <Master> \u7bc0\u9ede
\nCALL\u00a0l_node.appendChild(l_tnode)
\nIF\u00a0NOT\u00a0cl_null(p_name)\u00a0THEN
\nCALL\u00a0l_tnode.setAttribute(“name”,\u00a0p_name)
\nCALL\u00a0l_tnode.setAttribute(“node_id”,\u00a0g_count)
\nEND\u00a0IF<\/p>\n

LET\u00a0l_master_record\u00a0=\u00a0g_resdoc.createElement(“Record”)\u00a0\u00a0#\u65bc <Master>>\u4e0b\u5efa\u7acb <Record> \u7bc0\u9ede
\nLET\u00a0g_master_record\u00a0=\u00a0l_master_record<\/p>\n

CALL\u00a0l_tnode.appendChild(l_master_record)
\nELSE
\nLET\u00a0l_pnode\u00a0=\u00a0l_node_list.getitem(1)
\nLET\u00a0l_list1\u00a0=\u00a0l_pnode.getElementsByTagName(“Record”)
\nFOR\u00a0l_i\u00a0=\u00a01\u00a0TO\u00a0l_list1.getCount()
\nLET\u00a0l_master_record\u00a0=\u00a0l_list1.getItem(l_i)
\nEND\u00a0FOR
\nEND\u00a0IF<\/p>\n

CALL\u00a0awsp900_01_buildMasterField(l_master_record,\u00a0p_json_record)\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#\u4f9d\u7167\u50b3\u5165\u7684\u8cc7\u6599\u65b0\u589e\u4e00\u7b46\u55ae\u982d\u8cc7\u6599<\/p>\n

RETURN\u00a0l_node\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#\u56de\u50b3\u6b64\u7b46\u55ae\u982d\u8cc7\u6599\u7bc0\u9ede
\nEND\u00a0FUNCTION<\/p>\n

################################################################################
\n# Descriptions…: \u63cf\u8ff0\u8bf4\u660e
\n# Memo………..:
\n# Usage……….: CALL awsp900_01_addDetailRecordField(p_name)
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RETURNING \u56de\u4f20\u53c2\u6570
\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u4f20\u5165\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Return code….: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u56de\u4f20\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Date & Author..: \u65e5\u671f By \u4f5c\u8005
\n# Modify………:
\n################################################################################
\nPUBLIC\u00a0FUNCTION\u00a0awsp900_01_addDetailRecordField(p_name)
\nDEFINE\u00a0p_json_record\u00a0\u00a0\u00a0\u00a0util.JSONObject,
\np_name\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_node\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode,
\nl_master_record\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_node_list\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNodeList
\nDEFINE\u00a0l_list1\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNodeList
\nDEFINE\u00a0l_res_root\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_tnode\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_dnode\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_pnode\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_i\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0INTEGER
\nDEFINE\u00a0p_level\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING<\/p>\n

WHENEVER\u00a0ERROR\u00a0CONTINUE<\/p>\n

LET\u00a0l_node_list\u00a0=\u00a0g_dnode.selectByXPath(“\/\/Master[@name=\\””\u00a0||\u00a0p_name\u00a0CLIPPED\u00a0||\u00a0“\\”]”,””)
\nIF\u00a0l_node_list.getCount()\u00a0=\u00a00\u00a0THEN<\/p>\n

LET\u00a0l_node\u00a0=\u00a0g_resdoc.createElement(“RecordSet”)\u00a0\u00a0\u00a0#\u65bc <Document> \u4e0b\u5efa\u7acb <RecordSet> \u7bc0\u9ede
\nCALL\u00a0g_dnode.appendChild(l_node)<\/p>\n

LET\u00a0g_count\u00a0=\u00a0g_count\u00a0+\u00a01
\nCALL\u00a0l_node.setAttribute(“id”,\u00a0g_count)<\/p>\n

LET\u00a0l_tnode\u00a0=\u00a0g_resdoc.createElement(“Master”)\u00a0\u00a0\u00a0#\u65bc <RecordSet> \u4e0b\u5efa\u7acb <Master> \u7bc0\u9ede
\nCALL\u00a0l_node.appendChild(l_tnode)
\nIF\u00a0NOT\u00a0cl_null(p_name)\u00a0THEN
\nCALL\u00a0l_tnode.setAttribute(“name”,\u00a0p_name)
\nCALL\u00a0l_tnode.setAttribute(“node_id”,\u00a0g_count)
\nEND\u00a0IF<\/p>\n

LET\u00a0l_master_record\u00a0=\u00a0g_resdoc.createElement(“Record”)\u00a0\u00a0#\u65bc <Master>\u4e0b\u5efa\u7acb <Record> \u7bc0\u9ede
\nLET\u00a0l_dnode\u00a0=\u00a0g_resdoc.createElement(“Detail”)<\/p>\n

IF\u00a0cl_null(g_detail_name)\u00a0THEN
\nCALL\u00a0l_dnode.setAttribute(“name”,\u00a0“d1_1”)
\nELSE
\nCALL\u00a0l_dnode.setAttribute(“name”,\u00a0g_detail_name)
\nEND\u00a0IF<\/p>\n

CALL\u00a0l_dnode.setAttribute(“node_id”,\u00a0“1_1”)
\nCALL\u00a0l_master_record.appendChild(l_dnode)\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0# \u7522\u751f <Detail>
\nCALL\u00a0l_tnode.appendChild(l_master_record)
\nELSE
\nLET\u00a0l_pnode\u00a0=\u00a0l_node_list.getitem(1)
\nLET\u00a0l_list1\u00a0=\u00a0l_pnode.getElementsByTagName(“Record”)
\nFOR\u00a0l_i\u00a0=\u00a01\u00a0TO\u00a0l_list1.getCount()
\nLET\u00a0l_master_record\u00a0=\u00a0l_list1.getItem(l_i)
\nEND\u00a0FOR
\nEND\u00a0IF<\/p>\n

RETURN\u00a0l_dnode\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#\u56de\u50b3\u6b64\u7b46Detail\u8cc7\u6599\u7bc0\u9ede
\nEND\u00a0FUNCTION<\/p>\n

################################################################################
\n# Descriptions…: \u63cf\u8ff0\u8bf4\u660e
\n# Memo………..:
\n# Usage……….: CALL awsp900_01_makeDetail(p_name,p_id)
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RETURNING \u56de\u4f20\u53c2\u6570
\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u4f20\u5165\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Return code….: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u56de\u4f20\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Date & Author..: \u65e5\u671f By \u4f5c\u8005
\n# Modify………:
\n################################################################################
\nPUBLIC\u00a0FUNCTION\u00a0awsp900_01_makeDetail(p_name,p_detail,p_id,p_node,p_json_record)
\nDEFINE\u00a0p_name\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0p_detail\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0p_id\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0p_json_record\u00a0\u00a0util.JSONObject
\nDEFINE\u00a0p_node\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_dnode\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode<\/p>\n

DEFINE\u00a0l_node_list\u00a0\u00a0\u00a0\u00a0xml.DomNodeList
\nDEFINE\u00a0l_list1\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNodeList
\nDEFINE\u00a0l_node\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_i\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LIKE\u00a0type_t.num5<\/p>\n

LET\u00a0l_node_list\u00a0=\u00a0g_dnode.selectByXPath(“\/\/Master\/Record\/Page[@name=\\””\u00a0||\u00a0p_name\u00a0CLIPPED\u00a0||\u00a0“\\”]\/Detail\/Record”\u00a0,””)
\nIF\u00a0l_node_list.getCount()\u00a0=\u00a00\u00a0THEN<\/p>\n

LET\u00a0l_dnode\u00a0=\u00a0g_resdoc.createElement(“Detail”)
\nCALL\u00a0l_dnode.setAttribute(“name”,\u00a0p_detail)
\nCALL\u00a0l_dnode.setAttribute(“node_id”,\u00a0“1_”\u00a0||\u00a0p_id\u00a0)<\/p>\n

LET\u00a0l_node\u00a0=\u00a0g_resdoc.createElement(“Record”)
\nCALL\u00a0l_dnode.appendChild(l_node)
\nCALL\u00a0p_node.appendChild(l_dnode)
\nELSE
\nLET\u00a0l_dnode\u00a0=\u00a0l_node_list.getitem(1)
\nLET\u00a0l_list1\u00a0=\u00a0l_dnode.getElementsByTagName(“Record”)
\nFOR\u00a0l_i\u00a0=\u00a01\u00a0TO\u00a0l_list1.getCount()
\nLET\u00a0l_node\u00a0=\u00a0l_list1.getItem(l_i)
\nEND\u00a0FOR
\nEND\u00a0IF<\/p>\n

CALL\u00a0awsp900_01_buildRecordField(l_node,\u00a0p_json_record)<\/p>\n

END\u00a0FUNCTION<\/p>\n

################################################################################
\n# Descriptions…: \u63cf\u8ff0\u8bf4\u660e
\n# Memo………..:
\n# Usage……….: CALL awsp900_01_buildDetailRecord(p_node, p_json_record)
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RETURNING \u56de\u4f20\u53c2\u6570
\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u4f20\u5165\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Return code….: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u56de\u4f20\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Date & Author..: \u65e5\u671f By \u4f5c\u8005
\n# Modify………:
\n################################################################################
\nPUBLIC\u00a0FUNCTION\u00a0awsp900_01_buildDetailRecord(p_node,p_json_record)
\nDEFINE\u00a0p_node\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0p_json_record\u00a0\u00a0util.JSONObject
\nDEFINE\u00a0l_list1\u00a0\u00a0\u00a0\u00a0xml.DomNodeList,
\nl_list2\u00a0\u00a0\u00a0\u00a0xml.DomNodeList
\nDEFINE\u00a0l_node\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode,
\nl_child\u00a0\u00a0\u00a0\u00a0xml.DomNode,
\nl_record\u00a0\u00a0\u00a0xml.DomNode,
\nl_field\u00a0\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_i\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0INTEGER,
\nl_j\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0INTEGER
\nDEFINE\u00a0l_name\u00a0\u00a0\u00a0\u00a0\u00a0STRING,
\nl_value\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_k\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0INTEGER\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#FUN-D80090<\/p>\n

LET\u00a0l_node\u00a0=\u00a0g_resdoc.createElement(“Record”)\u00a0\u00a0#\u65bc <Master> \/ <Detail> \/ <Parameter>\u4e0b\u5efa\u7acb <Record> \u7bc0\u9ede
\nCALL\u00a0p_node.appendChild(l_node)<\/p>\n

FOR\u00a0l_i\u00a0=\u00a01\u00a0TO\u00a0p_json_record.getLength()<\/p>\n

INITIALIZE\u00a0l_name\u00a0TO\u00a0NULL
\nINITIALIZE\u00a0l_value\u00a0TO\u00a0NULL<\/p>\n

#\u53d6\u5f97\u6b04\u4f4d\u540d\u7a31\u548c\u6b04\u4f4d\u503c
\nLET\u00a0l_name\u00a0=\u00a0p_json_record.name(l_i)
\nLET\u00a0l_value\u00a0=\u00a0p_json_record.get(p_json_record.name(l_i))<\/p>\n

LET\u00a0l_child\u00a0=\u00a0g_resdoc.createElement(“Field”)\u00a0#\u65bc <Record> \u4e0b\u5efa\u7acb <Field> \u7bc0\u9ede
\nCALL\u00a0l_node.appendChild(l_child)
\nCALL\u00a0l_child.setAttribute(“name”,\u00a0l_name)
\nCALL\u00a0l_child.setAttribute(“value”,\u00a0l_value)
\nEND\u00a0FOR
\nEND\u00a0FUNCTION<\/p>\n

################################################################################
\n# Descriptions…: \u63cf\u8ff0\u8bf4\u660e
\n# Memo………..:
\n# Usage……….: CALL awsp900_01_buildRecord(p_node, p_json_record)
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RETURNING \u56de\u4f20\u53c2\u6570
\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u4f20\u5165\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Return code….: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u56de\u4f20\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Date & Author..: \u65e5\u671f By \u4f5c\u8005
\n# Modify………:
\n################################################################################
\nPUBLIC\u00a0FUNCTION\u00a0awsp900_01_buildRecord(p_node,p_json_record)
\nDEFINE\u00a0p_node\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0p_json_record\u00a0\u00a0util.JSONObject
\n#DEFINE l_list1\u00a0\u00a0\u00a0\u00a0xml.DomNodeList,
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0l_list2\u00a0\u00a0\u00a0\u00a0xml.DomNodeList
\nDEFINE\u00a0l_node\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode,
\nl_child\u00a0\u00a0\u00a0\u00a0xml.DomNode,
\nl_record\u00a0\u00a0\u00a0xml.DomNode,
\nl_field\u00a0\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_i\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0INTEGER,
\nl_j\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0INTEGER
\nDEFINE\u00a0l_name\u00a0\u00a0\u00a0\u00a0\u00a0STRING,
\nl_value\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_k\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0INTEGER\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#FUN-D80090<\/p>\n

LET\u00a0l_node\u00a0=\u00a0g_resdoc.createElement(“Record”)\u00a0\u00a0#\u65bc <Master> \/ <Detail> \/ <Parameter>\u4e0b\u5efa\u7acb <Record> \u7bc0\u9ede
\nCALL\u00a0p_node.appendChild(l_node)<\/p>\n

FOR\u00a0l_i\u00a0=\u00a01\u00a0TO\u00a0p_json_record.getLength()<\/p>\n

INITIALIZE\u00a0l_name\u00a0TO\u00a0NULL
\nINITIALIZE\u00a0l_value\u00a0TO\u00a0NULL<\/p>\n

#\u53d6\u5f97\u6b04\u4f4d\u540d\u7a31\u548c\u6b04\u4f4d\u503c
\nLET\u00a0l_name\u00a0=\u00a0p_json_record.name(l_i)
\nLET\u00a0l_value\u00a0=\u00a0p_json_record.get(p_json_record.name(l_i))<\/p>\n

LET\u00a0l_child\u00a0=\u00a0g_resdoc.createElement(“Field”)\u00a0#\u65bc <Record> \u4e0b\u5efa\u7acb <Field> \u7bc0\u9ede
\nCALL\u00a0l_node.appendChild(l_child)
\nCALL\u00a0l_child.setAttribute(“name”,\u00a0l_name)
\nCALL\u00a0l_child.setAttribute(“value”,\u00a0l_value)
\nEND\u00a0FOR
\nEND\u00a0FUNCTION<\/p>\n

################################################################################
\n# Descriptions…: \u63cf\u8ff0\u8bf4\u660e
\n# Memo………..:
\n# Usage……….: CALL awsp900_01_buildRecordField(p_node, p_json_record)
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RETURNING \u56de\u4f20\u53c2\u6570
\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u4f20\u5165\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Return code….: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u56de\u4f20\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Date & Author..: \u65e5\u671f By \u4f5c\u8005
\n# Modify………:
\n################################################################################
\nPUBLIC\u00a0FUNCTION\u00a0awsp900_01_buildRecordField(p_node,p_json_record)
\nDEFINE\u00a0p_json_record\u00a0\u00a0\u00a0\u00a0\u00a0util.JSONObject
\nDEFINE\u00a0p_node\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_list1\u00a0\u00a0\u00a0\u00a0xml.DomNodeList,
\nl_list2\u00a0\u00a0\u00a0\u00a0xml.DomNodeList
\nDEFINE\u00a0l_node\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode,
\nl_child\u00a0\u00a0\u00a0\u00a0xml.DomNode,
\nl_record\u00a0\u00a0\u00a0xml.DomNode,
\nl_field\u00a0\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_i\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0INTEGER,
\nl_j\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0INTEGER
\nDEFINE\u00a0l_name\u00a0\u00a0\u00a0\u00a0\u00a0STRING,
\nl_value\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_k\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0INTEGER\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#FUN-D80090<\/p>\n

LET\u00a0l_child\u00a0=\u00a0g_resdoc.createElement(“Field”)\u00a0#\u65bc <Record> \u4e0b\u5efa\u7acb <Field> \u7bc0\u9ede
\nCALL\u00a0p_node.appendChild(l_child)<\/p>\n

FOR\u00a0l_i\u00a0=\u00a01\u00a0TO\u00a0p_json_record.getLength()<\/p>\n

INITIALIZE\u00a0l_name\u00a0TO\u00a0NULL
\nINITIALIZE\u00a0l_value\u00a0TO\u00a0NULL<\/p>\n

#\u53d6\u5f97\u6b04\u4f4d\u540d\u7a31\u548c\u6b04\u4f4d\u503c
\nLET\u00a0l_name\u00a0=\u00a0p_json_record.name(l_i)
\nLET\u00a0l_value\u00a0=\u00a0p_json_record.get(p_json_record.name(l_i))<\/p>\n

#<Field name=”imbadocno” datatype=”0″ type=”Edit” label=”bpm_imbadocno” ref=””>
\nCALL\u00a0l_child.setAttribute(l_name\u00a0CLIPPED,\u00a0l_value\u00a0CLIPPED)<\/p>\n

END\u00a0FOR
\nEND\u00a0FUNCTION<\/p>\n

################################################################################
\n# Descriptions…: \u63cf\u8ff0\u8bf4\u660e
\n# Memo………..:
\n# Usage……….: CALL awsp900_01_addFieldLang(p_type,p_tagname, p_fieldname,p_json_array)
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RETURNING \u56de\u4f20\u53c2\u6570
\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u4f20\u5165\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Return code….: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u56de\u4f20\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Date & Author..: \u65e5\u671f By \u4f5c\u8005
\n# Modify………:
\n################################################################################
\nPUBLIC\u00a0FUNCTION\u00a0awsp900_01_addFieldLang(p_type,p_tagname,p_fieldname,p_json_array)
\nDEFINE\u00a0p_type\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0p_tagname\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0p_fieldname\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0p_json_array\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0util.JSONArray
\nDEFINE\u00a0l_json_record\u00a0\u00a0\u00a0\u00a0\u00a0util.JSONObject
\nDEFINE\u00a0l_node_list\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNodeList
\nDEFINE\u00a0l_pnode\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_child\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_i\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LIKE\u00a0type_t.num5
\nDEFINE\u00a0l_j\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LIKE\u00a0type_t.num5
\nDEFINE\u00a0l_name\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_value\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING<\/p>\n

IF\u00a0p_json_array.getLength()\u00a0=\u00a00\u00a0THEN
\ndisplay\u00a0“json length: 0”
\nRETURN
\nEND\u00a0IF<\/p>\n

CASE\u00a0p_tagname
\nWHEN\u00a0“Parameter”
\nLET\u00a0l_node_list\u00a0=\u00a0g_resdoc.selectByXPath(“\/\/”\u00a0||\u00a0p_tagname\u00a0||\u00a0“\/Record\/Field[@name=\\””\u00a0||\u00a0p_fieldname\u00a0CLIPPED\u00a0||\u00a0“\\”]”,””)
\nWHEN\u00a0“Detail”
\nLET\u00a0l_node_list\u00a0=\u00a0g_resdoc.selectByXPath(“\/\/”\u00a0||\u00a0p_tagname\u00a0||\u00a0“\/Record\/Field[@name=\\””\u00a0||\u00a0p_fieldname\u00a0CLIPPED\u00a0||\u00a0“\\”]”,””)
\nWHEN\u00a0“Page”
\nLET\u00a0l_node_list\u00a0=\u00a0g_resdoc.selectByXPath(“\/\/Page[@name=\\””\u00a0||\u00a0p_fieldname\u00a0CLIPPED||\u00a0“\\”]”,””)
\nOTHERWISE
\nLET\u00a0l_node_list\u00a0=\u00a0g_resdoc.selectByXPath(“\/\/”\u00a0||\u00a0p_tagname\u00a0||\u00a0“\/Record\/Page\/Field[@name=\\””\u00a0||\u00a0p_fieldname\u00a0CLIPPED\u00a0||\u00a0“\\”]”,””)
\nEND\u00a0CASE<\/p>\n

IF\u00a0l_node_list.getCount()\u00a0>\u00a00\u00a0THEN<\/p>\n

LET\u00a0l_pnode\u00a0=\u00a0l_node_list.getitem(1)<\/p>\n

FOR\u00a0l_i\u00a0=\u00a01\u00a0TO\u00a0p_json_array.getLength()<\/p>\n

INITIALIZE\u00a0l_json_record\u00a0TO\u00a0NULL
\nLET\u00a0l_json_record\u00a0=\u00a0p_json_array.get(l_i)
\n#\u65bc <Record> \u4e0b\u5efa\u7acb <Field> \u7bc0\u9ede
\nLET\u00a0l_child\u00a0=\u00a0g_resdoc.createElement(p_type)
\nFOR\u00a0l_j\u00a0=\u00a01\u00a0TO\u00a0l_json_record.getLength()<\/p>\n

INITIALIZE\u00a0l_name\u00a0TO\u00a0NULL
\nINITIALIZE\u00a0l_value\u00a0TO\u00a0NULL<\/p>\n

#\u53d6\u5f97\u6b04\u4f4d\u540d\u7a31\u548c\u6b04\u4f4d\u503c
\nLET\u00a0l_name\u00a0=\u00a0l_json_record.name(l_j)
\nLET\u00a0l_value\u00a0=\u00a0l_json_record.get(l_json_record.name(l_j))<\/p>\n

CALL\u00a0l_pnode.appendChild(l_child)
\nCALL\u00a0l_child.setAttribute(l_name,l_value)
\nEND\u00a0FOR
\nEND\u00a0FOR
\nEND\u00a0IF
\nEND\u00a0FUNCTION<\/p>\n

################################################################################
\n# Descriptions…: \u63cf\u8ff0\u8bf4\u660e
\n# Memo………..:
\n# Usage……….: CALL awsp900_01_addParameterRecord(p_json_record)
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RETURNING \u56de\u4f20\u53c2\u6570
\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u4f20\u5165\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Return code….: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u56de\u4f20\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Date & Author..: \u65e5\u671f By \u4f5c\u8005
\n# Modify………:
\n################################################################################
\nPUBLIC\u00a0FUNCTION\u00a0awsp900_01_addParameterRecord(p_json_record)
\nDEFINE\u00a0p_json_record\u00a0\u00a0\u00a0\u00a0\u00a0util.JSONObject<\/p>\n

WHENEVER\u00a0ERROR\u00a0CONTINUE<\/p>\n

IF\u00a0p_json_record.getLength()\u00a0=\u00a00\u00a0THEN
\ndisplay\u00a0“json length: 0”
\nRETURN\u00a0NULL
\nEND\u00a0IF<\/p>\n

CALL\u00a0awsp900_01_buildRecord(g_pnode,\u00a0p_json_record)\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#\u4f9d\u7167\u50b3\u5165\u7684\u8cc7\u6599\u65b0\u589e\u56de\u50b3\u53c3\u6578\u8cc7\u6599
\nEND\u00a0FUNCTION<\/p>\n

################################################################################
\n# Descriptions…: \u63cf\u8ff0\u8bf4\u660e
\n# Memo………..:
\n# Usage……….: CALL awsp900_01_createJasonResponse(p_str)
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RETURNING \u56de\u4f20\u53c2\u6570
\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u4f20\u5165\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Return code….: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u56de\u4f20\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Date & Author..: \u65e5\u671f By \u4f5c\u8005
\n# Modify………:
\n################################################################################
\nPUBLIC\u00a0FUNCTION\u00a0awsp900_01_createJasonResponse(p_str)
\nDEFINE\u00a0p_str\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING<\/p>\n

LET\u00a0g_jason_type\u00a0=\u00a0“Y”
\nLET\u00a0g_response.response\u00a0=\u00a0p_str
\nEND\u00a0FUNCTION<\/p>\n

################################################################################
\n# Descriptions…: \u63cf\u8ff0\u8bf4\u660e
\n# Memo………..:
\n# Usage……….: CALL awsp900_01_writeResponseLog()
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RETURNING \u56de\u4f20\u53c2\u6570
\n# Input parameter:
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0:
\n# Return code….:
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0:
\n# Date & Author..: \u65e5\u671f By \u4f5c\u8005
\n# Modify………:
\n################################################################################
\nPUBLIC\u00a0FUNCTION\u00a0awsp900_01_writeResponseLog()
\nDEFINE\u00a0l_ch\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0base.Channel,
\nl_logFile\u00a0\u00a0\u00a0STRING,
\nl_str\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING<\/p>\n

# \u8a18\u9304\u6a94\u70ba $TEMPDIR\/aws-yyymmdd.log\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#
\n#————————————————————————–#
\nLET\u00a0l_logFile\u00a0=\u00a0fgl_getenv(“TEMPDIR”),\u00a0“\/”,\u00a0“aws-“,\u00a0TODAY\u00a0USING\u00a0‘YYYYMMDD’,\u00a0“.log”
\nLET\u00a0l_ch\u00a0=\u00a0base.Channel.create()
\nCALL\u00a0l_ch.setDelimiter(NULL)
\nCALL\u00a0l_ch.openFile(l_logFile,\u00a0“a”)
\nIF\u00a0STATUS\u00a0=\u00a00\u00a0THEN
\nLET\u00a0l_str\u00a0=\u00a0“[Response Service #”,\u00a0g_serial,\u00a0“]”,
\n“\\n\u00a0\u00a0\u00a0\u00a0‘”,\u00a0g_service,\u00a0“‘ end at “,\u00a0cl_get_time()\u00a0,\u00a0“\\n”,
\n“\\n[Response Message #”,\u00a0g_serial,\u00a0“]”,
\n“\\n”,\u00a0g_response.response,\u00a0“\\n”,
\n“#——————————————————————————#\\n\\n”
\nCALL\u00a0l_ch.write(l_str)
\nEND\u00a0IF
\nCALL\u00a0l_ch.close()<\/p>\n

IF\u00a0os.Path.chrwx(l_logFile\u00a0CLIPPED,438)\u00a0THEN\u00a0END\u00a0IF
\nEND\u00a0FUNCTION<\/p>\n

################################################################################
\n# Descriptions…: \u63cf\u8ff0\u8bf4\u660e
\n# Memo………..:
\n# Usage……….: CALL awsp900_01_addPageField(p_json_record,p_name,p_master_name)
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RETURNING \u56de\u4f20\u53c2\u6570
\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u4f20\u5165\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Return code….: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u56de\u4f20\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Date & Author..: \u65e5\u671f By \u4f5c\u8005
\n# Modify………:
\n################################################################################
\nPUBLIC\u00a0FUNCTION\u00a0awsp900_01_addPageField(p_json_record,p_prog,p_name,p_type,p_master_name,p_detail_name)
\nDEFINE\u00a0p_json_record\u00a0\u00a0\u00a0\u00a0\u00a0util.JSONObject
\nDEFINE\u00a0p_prog\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0p_name\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0p_type\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0p_master_name\u00a0\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0p_detail_name\u00a0\u00a0\u00a0\u00a0\u00a0STRING<\/p>\n

DEFINE\u00a0l_node_list\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNodeList
\nDEFINE\u00a0l_node\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode,
\nl_master_record\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_list1\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNodeList
\nDEFINE\u00a0l_tnode\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_pnode\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_page_node\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode<\/p>\n

DEFINE\u00a0l_i\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LIKE\u00a0type_t.num5
\nDEFINE\u00a0l_j\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LIKE\u00a0type_t.num5
\nDEFINE\u00a0l_name\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_value\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING<\/p>\n

WHENEVER\u00a0ERROR\u00a0CONTINUE<\/p>\n

IF\u00a0p_json_record.getLength()\u00a0=\u00a00\u00a0THEN
\ndisplay\u00a0“json length: 0”
\nRETURN\u00a0NULL
\nEND\u00a0IF<\/p>\n

LET\u00a0l_node_list\u00a0=\u00a0g_dnode.selectByXPath(“\/\/Master\/Record\/Page[@name=\\””\u00a0||\u00a0p_name\u00a0CLIPPED\u00a0||\u00a0“\\”]”\u00a0,””)<\/p>\n

IF\u00a0l_node_list.getCount()\u00a0=\u00a00\u00a0THEN<\/p>\n

LET\u00a0g_count\u00a0=\u00a0g_count\u00a0+\u00a01
\nIF\u00a0g_count\u00a0=\u00a01\u00a0THEN
\nLET\u00a0l_node\u00a0=\u00a0g_resdoc.createElement(“RecordSet”)\u00a0\u00a0\u00a0#\u65bc <Document> \u4e0b\u5efa\u7acb <RecordSet> \u7bc0\u9ede
\nCALL\u00a0g_dnode.appendChild(l_node)
\nCALL\u00a0l_node.setAttribute(“id”,\u00a0g_count)<\/p>\n

LET\u00a0l_tnode\u00a0=\u00a0g_resdoc.createElement(“Master”)\u00a0\u00a0\u00a0#\u65bc <RecordSet> \u4e0b\u5efa\u7acb <Master> \u7bc0\u9ede
\nCALL\u00a0l_node.appendChild(l_tnode)
\nIF\u00a0NOT\u00a0cl_null(p_master_name)\u00a0THEN
\nCALL\u00a0l_tnode.setAttribute(“name”,\u00a0p_master_name)
\nCALL\u00a0l_tnode.setAttribute(“node_id”,\u00a0g_count)
\nEND\u00a0IF<\/p>\n

LET\u00a0g_master_record\u00a0=\u00a0g_resdoc.createElement(“Record”)\u00a0\u00a0#\u65bc <Master>\u4e0b\u5efa\u7acb <Record> \u7bc0\u9ede
\nCALL\u00a0l_tnode.appendChild(g_master_record)
\nEND\u00a0IF<\/p>\n

LET\u00a0l_page_node\u00a0=\u00a0g_resdoc.createElement(“Page”)
\nCALL\u00a0l_page_node.setAttribute(“name”,\u00a0p_name)
\nCALL\u00a0l_page_node.setAttribute(“type”,\u00a0p_type)<\/p>\n

CALL\u00a0g_master_record.appendChild(l_page_node)<\/p>\n

#\u5efa\u7acbpage \u591a\u8a9e\u8a00
\nIF\u00a0p_type\u00a0=\u00a0“page”\u00a0THEN
\nCALL\u00a0awsp900_01_add_page_info(p_prog,p_name)
\nEND\u00a0IF
\nELSE
\nLET\u00a0l_pnode\u00a0=\u00a0l_node_list.getitem(1)
\nLET\u00a0l_list1\u00a0=\u00a0l_pnode.getElementsByTagName(“Page”)
\nFOR\u00a0l_i\u00a0=\u00a01\u00a0TO\u00a0l_list1.getCount()
\nLET\u00a0l_page_node\u00a0=\u00a0l_list1.getItem(l_i)
\nEND\u00a0FOR
\nEND\u00a0IF<\/p>\n

#\u4f9d\u7167\u50b3\u5165\u7684\u8cc7\u6599\u65b0\u589e\u4e00\u7b46Page\u8cc7\u6599
\nIF\u00a0p_master_name\u00a0=\u00a0“D1”\u00a0THEN
\nCALL\u00a0awsp900_01_makeDetail(p_name,p_detail_name,1,l_page_node,p_json_record)
\nELSE
\nCALL\u00a0awsp900_01_buildRecordField(l_page_node,\u00a0p_json_record)
\nEND\u00a0IF
\nRETURN\u00a0l_node\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#\u56de\u50b3\u6b64\u7b46\u55ae\u982d\u8cc7\u6599\u7bc0\u9ede
\nEND\u00a0FUNCTION<\/p>\n

################################################################################
\n# Descriptions…: \u63cf\u8ff0\u8bf4\u660e
\n# Memo………..:
\n# Usage……….: CALL s_aooi150_ins (\u4f20\u5165\u53c2\u6570)
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RETURNING \u56de\u4f20\u53c2\u6570
\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u4f20\u5165\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Return code….: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u56de\u4f20\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Date & Author..: \u65e5\u671f By \u4f5c\u8005
\n# Modify………:
\n################################################################################
\nPUBLIC\u00a0FUNCTION\u00a0awsp900_01_add_page_info(p_prog,p_dzfb008)
\nDEFINE\u00a0l_i\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LIKE\u00a0type_t.num5
\nDEFINE\u00a0p_prog\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING<\/p>\n

DEFINE\u00a0p_dzfb008\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LIKE\u00a0dzfb_t.dzfb008
\nDEFINE\u00a0l_lang\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0DYNAMIC\u00a0ARRAY\u00a0OF\u00a0RECORD
\nname\u00a0\u00a0\u00a0\u00a0LIKE\u00a0gzcbl_t.gzcbl003,
\nvalue\u00a0\u00a0\u00a0LIKE\u00a0gzcbl_t.gzcbl004
\nEND\u00a0RECORD
\nDEFINE\u00a0l_lang_t\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING<\/p>\n

LET\u00a0l_i\u00a0=\u00a01
\nLET\u00a0l_lang_t\u00a0=\u00a0g_lang
\nDECLARE\u00a0gzzy_curs\u00a0CURSOR\u00a0FROM\u00a0“SELECT gzzy001,” FROM gzzy_t”
\nFOREACH\u00a0gzzy_curs\u00a0INTO\u00a0l_lang[l_i].*
\nLET\u00a0g_lang\u00a0=\u00a0l_lang[l_i].name
\nLET\u00a0l_lang[l_i].value\u00a0=\u00a0awsp900_01_get_description(p_prog\u00a0,p_dzfb008)
\nLET\u00a0l_i\u00a0=\u00a0l_i\u00a0+\u00a01
\nEND\u00a0FOREACH
\nCALL\u00a0l_lang.deleteElement(l_i)
\nCALL\u00a0awsp900_01_addFieldLang(“Lang”,”Page”,\u00a0p_dzfb008,\u00a0util.JSONArray.fromFGL(l_lang))
\nLET\u00a0g_lang\u00a0=\u00a0l_lang_t\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#\u9084\u539f g_lang
\nEND\u00a0FUNCTION<\/p>\n

################################################################################
\n# Descriptions…: \u63cf\u8ff0\u8bf4\u660e
\n# Memo………..:
\n# Usage……….: CALL s_aooi150_ins (\u4f20\u5165\u53c2\u6570)
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RETURNING \u56de\u4f20\u53c2\u6570
\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u4f20\u5165\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Return code….: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u56de\u4f20\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Date & Author..: \u65e5\u671f By \u4f5c\u8005
\n# Modify………:
\n################################################################################
\nPUBLIC\u00a0FUNCTION\u00a0awsp900_01_get_description(p_gzzz002,p_name)
\nDEFINE\u00a0p_name\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LIKE\u00a0gzzd_t.gzzd003
\nDEFINE\u00a0p_gzzz002\u00a0\u00a0\u00a0\u00a0\u00a0LIKE\u00a0gzzz_t.gzzz002
\nDEFINE\u00a0p_text\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#\u9810\u8a2d\u986f\u793a\u6587\u5b57
\nDEFINE\u00a0l_str\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#\u73fe\u884cg_lang\u6a19\u7c64\u8aaa\u660e\u6587\u5b57(exp:\u6599\u4ef6\u7de8\u865f)
\nDEFINE\u00a0l_comment\u00a0\u00a0\u00a0\u00a0\u00a0STRING<\/p>\n

IF\u00a0NOT\u00a0cl_null(p_name)\u00a0THEN
\nCALL\u00a0s_azzi902_get_gzzd(p_gzzz002,\u00a0p_name)
\nRETURNING\u00a0l_str,\u00a0l_comment
\nEND\u00a0IF<\/p>\n

RETURN\u00a0l_str
\nEND\u00a0FUNCTION<\/p>\n

################################################################################
\n# Descriptions…: \u53d6\u5f97 Request XML <Document> \u7bc0\u9ede\u4e2d\u7684\u55ae\u6a94\u7b46\u6578\u500b\u6578
\n# Memo………..:
\n# Usage……….: CALL awsp900_01_getMasterRecordLength(p_name)
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RETURNING \u56de\u4f20\u53c2\u6570
\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u4f20\u5165\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Return code….: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u56de\u4f20\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Date & Author..: \u65e5\u671f By \u4f5c\u8005
\n# Modify………:
\n################################################################################
\nPUBLIC\u00a0FUNCTION\u00a0awsp900_01_getMasterRecordLength(p_name)
\nDEFINE\u00a0p_name\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_list\u00a0\u00a0\u00a0xml.DomNodeList
\nDEFINE\u00a0l_cnt\u00a0\u00a0\u00a0\u00a0INTEGER<\/p>\n

#————————————————————————–#
\n# \u641c\u5c0b <Document> \u6709\u591a\u5c11\u7b46\u5c0d\u61c9\u7684 <Master> \u7bc0\u9ede\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#
\n#————————————————————————–#
\nIF\u00a0cl_null(p_name)\u00a0THEN
\nLET\u00a0l_list\u00a0=\u00a0gx_payload_request.selectByXPath(“\/\/Document\/RecordSet\/Master”)
\nELSE
\nLET\u00a0l_list\u00a0=\u00a0gx_payload_request.selectByXPath(“\/\/Document\/RecordSet\/Master[@name=\\””\u00a0||\u00a0p_name\u00a0||\u00a0“\\”]”,””)
\nEND\u00a0IF<\/p>\n

LET\u00a0l_cnt\u00a0=\u00a0l_list.getCount()
\nRETURN\u00a0l_cnt
\nEND\u00a0FUNCTION<\/p>\n

################################################################################
\n# Descriptions…: \u53d6\u5f97 Request XML \u4e2d\u6307\u5b9a\u7684\u55ae\u6a94\u7bc0\u9ede Dom Node
\n# Memo………..:
\n# Usage……….: CALL awsp900_01_getMasterRecord(p_i,p_name)
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RETURNING \u56de\u4f20\u53c2\u6570
\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u4f20\u5165\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Return code….: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u56de\u4f20\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Date & Author..: \u65e5\u671f By \u4f5c\u8005
\n# Modify………:
\n################################################################################
\nPUBLIC\u00a0FUNCTION\u00a0awsp900_01_getMasterRecord(p_i,p_name)
\nDEFINE\u00a0p_i\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0INTEGER,
\np_name\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_list\u00a0\u00a0\u00a0xml.DomNodeList
\nDEFINE\u00a0l_i\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0INTEGER
\nDEFINE\u00a0l_node\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_list2\u00a0\u00a0xml.DomNodeList<\/p>\n

IF\u00a0cl_null(p_i)\u00a0OR\u00a0p_i\u00a0=\u00a00\u00a0THEN
\nRETURN\u00a0NULL
\nEND\u00a0IF<\/p>\n

IF\u00a0cl_null(p_name)\u00a0THEN
\nLET\u00a0l_list\u00a0=\u00a0gx_payload_request.selectByXPath(“\/\/Document\/RecordSet\/Master”)
\nELSE
\nLET\u00a0l_list\u00a0=\u00a0gx_payload_request.selectByXPath(“\/\/Document\/RecordSet\/Master[@name=\\””\u00a0||\u00a0p_name\u00a0||\u00a0“\\”]”,\u00a0“”)
\nEND\u00a0IF<\/p>\n

FOR\u00a0l_i\u00a0=\u00a01\u00a0TO\u00a0l_list.getCount()
\nLET\u00a0l_node\u00a0=\u00a0l_list.getitem(l_i)
\nIF\u00a0l_i\u00a0=\u00a0p_i\u00a0THEN
\n#\u5f80\u4e0b\u53d6\u5f97 <Record> \u7bc0\u9ede\u56de\u50b3
\nLET\u00a0l_list2\u00a0=\u00a0l_node.getElementsByTagName(“Record”)
\nLET\u00a0l_node\u00a0=\u00a0l_list2.getitem(1)
\nEXIT\u00a0FOR
\nEND\u00a0IF
\nEND\u00a0FOR<\/p>\n

RETURN\u00a0l_node
\nEND\u00a0FUNCTION<\/p>\n

################################################################################
\n# Descriptions…: \u53d6\u5f97 Request XML <Document> \u7bc0\u9ede\u4e2d\u7684\u55ae\u8eab\u7b46\u6578\u500b\u6578
\n# Memo………..:
\n# Usage……….: CALL awsp900_01_getDetailRecordLength(p_node,p_name)
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RETURNING \u56de\u4f20\u53c2\u6570
\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u4f20\u5165\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Return code….: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u56de\u4f20\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Date & Author..: \u65e5\u671f By \u4f5c\u8005
\n# Modify………:
\n################################################################################
\nPUBLIC\u00a0FUNCTION\u00a0awsp900_01_getDetailRecordLength(p_node,p_name)
\nDEFINE\u00a0p_node\u00a0\u00a0\u00a0\u00a0xml.DomNode,
\np_name\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_list\u00a0\u00a0\u00a0\u00a0xml.DomNodeList
\nDEFINE\u00a0l_list2\u00a0\u00a0\u00a0xml.DomNodeList
\nDEFINE\u00a0l_node\u00a0\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_detail\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_i\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0INTEGER
\nDEFINE\u00a0l_cnt\u00a0\u00a0\u00a0\u00a0\u00a0INTEGER<\/p>\n

IF\u00a0p_node\u00a0IS\u00a0NULL\u00a0THEN
\nRETURN\u00a00
\nEND\u00a0IF<\/p>\n

LET\u00a0l_node\u00a0=\u00a0p_node.getParentNode()\u00a0\u00a0\u00a0#\u5f9e <Record> \u53d6 <Master> \u7236\u7bc0\u9ede
\nLET\u00a0l_node\u00a0=\u00a0l_node.getParentNode()\u00a0\u00a0\u00a0#\u518d\u5f9e <Master> \u53d6 <RecordSet> \u7236\u7bc0\u9ede<\/p>\n

#————————————————————————–#
\n# \u641c\u5c0b <RecordSet> \u6709\u5c0d\u61c9\u7684 <Detail> \u7bc0\u9ede\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#
\n#————————————————————————–#
\nIF\u00a0cl_null(p_name)\u00a0THEN
\nLET\u00a0l_list\u00a0=\u00a0l_node.selectByXPath(“\/\/Detail\/Record”)
\nRETURN\u00a0l_list.getCount()
\nELSE
\n#LET l_list = l_node.selectByXPath(“\/\/Detail[@name=\\”” || p_name || “\\”]\/Record” , “”)
\nLET\u00a0l_list\u00a0=\u00a0l_node.getElementsByTagName(“Detail”)
\nEND\u00a0IF<\/p>\n

FOR\u00a0l_i\u00a0=\u00a01\u00a0TO\u00a0l_list.getCount()
\nLET\u00a0l_detail\u00a0=\u00a0l_list.getitem(l_i)
\nIF\u00a0l_detail.getAttribute(“name”)\u00a0=\u00a0p_name\u00a0THEN
\nLET\u00a0l_list2\u00a0=\u00a0l_detail.getElementsByTagName(“Record”)
\nRETURN\u00a0l_list2.getCount()
\nEND\u00a0IF
\nEND\u00a0FOR
\nLET\u00a0l_cnt\u00a0=\u00a00\u00a0\u00a0\u00a0#\u627e\u4e0d\u5230
\nRETURN\u00a0l_cnt
\nEND\u00a0FUNCTION<\/p>\n

################################################################################
\n# Descriptions…: \u53d6\u5f97 Request XML \u4e2d\u6307\u5b9a\u7684\u55ae\u6a94\u7bc0\u9ede Dom Node
\n# Memo………..:
\n# Usage……….: CALL awsp900_01_getDetailRecord(p_node,p_i,p_name)
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RETURNING \u56de\u4f20\u53c2\u6570
\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u4f20\u5165\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Return code….: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u56de\u4f20\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Date & Author..: \u65e5\u671f By \u4f5c\u8005
\n# Modify………:
\n################################################################################
\nPUBLIC\u00a0FUNCTION\u00a0awsp900_01_getDetailRecord(p_node,p_i,p_name)
\nDEFINE\u00a0p_node\u00a0\u00a0\u00a0\u00a0xml.DomNode,
\np_i\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0INTEGER,
\np_name\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_list\u00a0\u00a0\u00a0\u00a0xml.DomNodeList
\nDEFINE\u00a0l_list2\u00a0\u00a0\u00a0xml.DomNodeList
\nDEFINE\u00a0l_node\u00a0\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_node2\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_detail\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_i\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0INTEGER<\/p>\n

IF\u00a0p_node\u00a0IS\u00a0NULL\u00a0THEN
\nRETURN\u00a00
\nEND\u00a0IF<\/p>\n

LET\u00a0l_node\u00a0=\u00a0p_node.getParentNode()\u00a0\u00a0\u00a0#\u5f9e <Record> \u53d6 <Master> \u7236\u7bc0\u9ede
\nLET\u00a0l_node\u00a0=\u00a0l_node.getParentNode()\u00a0\u00a0\u00a0#\u518d\u5f9e <Master> \u53d6 <RecordSet> \u7236\u7bc0\u9ede<\/p>\n

#————————————————————————–#
\n# \u641c\u5c0b <RecordSet> \u6709\u5c0d\u61c9\u7684 <Detail> \u7bc0\u9ede\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#
\n#————————————————————————–#
\nIF\u00a0cl_null(p_name)\u00a0THEN
\nLET\u00a0l_list\u00a0=\u00a0l_node.selectByXPath(“\/\/Detail\/Record”)
\nELSE
\n#LET l_list = l_node.selectByXPath(“\/\/Detail[@name=\\”” || p_name || “\\”]\/Record” , “”)
\nLET\u00a0l_list\u00a0=\u00a0l_node.getElementsByTagName(“Detail”)
\nEND\u00a0IF<\/p>\n

FOR\u00a0l_i\u00a0=\u00a01\u00a0TO\u00a0l_list.getCount()
\nLET\u00a0l_detail\u00a0=\u00a0l_list.getitem(l_i)
\nIF\u00a0l_detail.getAttribute(“name”)\u00a0=\u00a0p_name\u00a0THEN
\nLET\u00a0l_list2\u00a0=\u00a0l_detail.getElementsByTagName(“Record”)
\nLET\u00a0l_node2\u00a0=\u00a0l_list2.getitem(p_i)\u00a0\u00a0#\u53d6\u51fa\u6307\u5b9a\u7684Record
\nEXIT\u00a0FOR
\nEND\u00a0IF
\n#LET l_node2 = l_list.getitem(l_i)<\/p>\n

#———————————————————————-#
\n# \u82e5\u641c\u5c0b\u7684\u55ae\u8eab <Record> \u7bc0\u9ede\u9806\u5e8f\u8207\u547c\u53eb\u6642\u50b3\u5165\u7684\u503c\u76f8\u540c\u6642\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#
\n#———————————————————————-#
\n#IF l_i = p_i THEN
\n#\u00a0\u00a0\u00a0EXIT FOR
\n#END IF
\nEND\u00a0FOR<\/p>\n

RETURN\u00a0l_node2
\nEND\u00a0FUNCTION<\/p>\n

################################################################################
\n# Descriptions…: \u53d6\u5f97\u6307\u5b9a\u7684 \u55ae\u982d \/ \u55ae\u8eab \u7bc0\u9ede\u4e2d\u7684\u6b04\u4f4d\u503c
\n# Memo………..:
\n# Usage……….: CALL awsp900_01_getRecordField(p_node,p_name)
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RETURNING \u56de\u4f20\u53c2\u6570
\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u4f20\u5165\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Return code….: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u56de\u4f20\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Date & Author..: \u65e5\u671f By \u4f5c\u8005
\n# Modify………:
\n################################################################################
\nPUBLIC\u00a0FUNCTION\u00a0awsp900_01_getRecordField(p_node,p_name)
\nDEFINE\u00a0p_node\u00a0\u00a0\u00a0\u00a0xml.DomNode,
\np_name\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_value\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_list\u00a0\u00a0\u00a0\u00a0xml.DomNodeList
\nDEFINE\u00a0l_node\u00a0\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_i\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LIKE\u00a0type_t.num10
\nDEFINE\u00a0l_name\u00a0\u00a0\u00a0\u00a0STRING<\/p>\n

IF\u00a0p_node\u00a0IS\u00a0NULL\u00a0OR\u00a0cl_null(p_name)\u00a0THEN
\nRETURN\u00a0NULL
\nEND\u00a0IF<\/p>\n

#————————————————————————–#
\n# \u63a5\u8457\u5c0b\u627e\u662f\u5426\u70ba\u5c0d\u61c9\u540d\u7a31\u7684 <Field> \u6b04\u4f4d\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#
\n#————————————————————————–#
\n#LET l_list = p_node.selectByXPath(“\/\/Field[@name=\\”” || p_name || “\\”]” ,””)
\n#IF l_list.getCount() != 0 THEN\u00a0\u00a0\u00a0#\u627e\u7684\u5230\u7bc0\u9ede\u624d\u53d6\u503c
\n#\u00a0\u00a0\u00a0LET l_node = l_list.getitem(1)
\n#\u00a0\u00a0\u00a0LET l_value = l_node.getAttribute(“value”)
\n#END IF<\/p>\n

LET\u00a0l_list\u00a0=\u00a0p_node.getElementsByTagName(“Field”)
\nIF\u00a0l_list.getCount()\u00a0>\u00a00\u00a0THEN\u00a0\u00a0\u00a0#\u627e\u7684\u5230\u7bc0\u9ede\u624d\u53d6\u503c
\nFOR\u00a0l_i\u00a0=\u00a01\u00a0TO\u00a0l_list.getCount()
\nLET\u00a0l_node\u00a0=\u00a0l_list.getitem(l_i)
\nLET\u00a0l_name\u00a0=\u00a0l_node.getAttribute(“name”)
\nIF\u00a0l_name\u00a0=\u00a0p_name\u00a0THEN
\nLET\u00a0l_value\u00a0=\u00a0l_node.getAttribute(“value”)
\nEXIT\u00a0FOR
\nEND\u00a0IF
\nEND\u00a0FOR
\nEND\u00a0IF<\/p>\n

RETURN\u00a0l_value
\nEND\u00a0FUNCTION<\/p>\n

################################################################################
\n# Descriptions…: \u63cf\u8ff0\u8bf4\u660e
\n# Memo………..:
\n# Usage……….: CALL s_aooi150_ins (\u4f20\u5165\u53c2\u6570)
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RETURNING \u56de\u4f20\u53c2\u6570
\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u4f20\u5165\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Return code….: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u56de\u4f20\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Date & Author..: \u65e5\u671f By \u4f5c\u8005
\n# Modify………:
\n################################################################################
\nPUBLIC\u00a0FUNCTION\u00a0awsp900_01_getParamValue(p_xmldoc)
\nDEFINE\u00a0p_xmldoc\u00a0\u00a0xml.DomDocument
\nDEFINE\u00a0p_tagname\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0p_attname\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_value\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_node_list\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNodeList
\nDEFINE\u00a0l_pnode\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_tnode\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_str\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_i\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0INTEGER<\/p>\n

INITIALIZE\u00a0l_value\u00a0TO\u00a0NULL<\/p>\n

LET\u00a0l_node_list\u00a0=\u00a0p_xmldoc.getElementsByTagName(“param”)<\/p>\n

IF\u00a0l_node_list.getCount()\u00a0>\u00a00\u00a0THEN
\nFOR\u00a0l_i\u00a0=\u00a01\u00a0\u00a0TO\u00a0l_node_list.getCount()
\nLET\u00a0l_pnode\u00a0=\u00a0l_node_list.getitem(l_i)
\nLET\u00a0g_messge.param[l_i].key\u00a0=\u00a0l_pnode.getAttribute(“key”)
\nLET\u00a0l_tnode\u00a0=\u00a0l_pnode.getFirstChild()
\n#CDATA\u7684\u683c\u5f0f,\u4e00\u5b9a\u8981\u53d6\u5f97\u7b2c\u4e8c\u500b\u5b50\u7bc0\u9ede\u624d\u53ef\u53d6\u5f97\u5230CDATA\u7684\u8cc7\u6599.
\nLET\u00a0l_value\u00a0=\u00a0“”
\nWHILE\u00a0(\u00a0l_tnode\u00a0IS\u00a0NOT\u00a0NULL\u00a0)
\nLET\u00a0l_value\u00a0=\u00a0l_value\u00a0,\u00a0l_tnode.getNodeValue()
\nLET\u00a0g_messge.param[l_i].Value\u00a0=\u00a0l_value.trim()
\nLET\u00a0l_tnode\u00a0=\u00a0l_tnode.getNextSibling()
\nEND\u00a0WHILE
\nEND\u00a0FOR
\nEND\u00a0IF
\nEND\u00a0FUNCTION<\/p>\n

################################################################################
\n# Descriptions…: \u63cf\u8ff0\u8bf4\u660e
\n# Memo………..:
\n# Usage……….: CALL s_aooi150_ins (\u4f20\u5165\u53c2\u6570)
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RETURNING \u56de\u4f20\u53c2\u6570
\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u4f20\u5165\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Return code….: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u56de\u4f20\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Date & Author..: \u65e5\u671f By \u4f5c\u8005
\n# Modify………:
\n################################################################################
\nPUBLIC\u00a0FUNCTION\u00a0awsp900_01_getDataKey(p_attname)
\nDEFINE\u00a0p_tagname\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0p_attname\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_value\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_node_list\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNodeList
\nDEFINE\u00a0l_pnode\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_tnode\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_str\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING<\/p>\n

INITIALIZE\u00a0l_value\u00a0TO\u00a0NULL<\/p>\n

LET\u00a0p_tagname\u00a0=\u00a0“key”<\/p>\n

IF\u00a0NOT\u00a0cl_null(p_attname)\u00a0THEN
\nLET\u00a0l_node_list\u00a0=\u00a0gx_reqdoc.selectByXPath(“\/\/”\u00a0||\u00a0p_tagname.trim()\u00a0||\u00a0“[@name=\\””\u00a0||\u00a0p_attname\u00a0CLIPPED\u00a0||\u00a0“\\”]”,””)
\nELSE
\nLET\u00a0l_node_list\u00a0=\u00a0gx_reqdoc.getElementsByTagName(p_tagname)
\nEND\u00a0IF
\nIF\u00a0l_node_list.getCount()\u00a0>\u00a00\u00a0THEN
\nLET\u00a0l_pnode\u00a0=\u00a0l_node_list.getitem(1)
\nLET\u00a0l_tnode\u00a0=\u00a0l_pnode.getFirstChild()
\n#CDATA\u7684\u683c\u5f0f,\u4e00\u5b9a\u8981\u53d6\u5f97\u7b2c\u4e8c\u500b\u5b50\u7bc0\u9ede\u624d\u53ef\u53d6\u5f97\u5230CDATA\u7684\u8cc7\u6599.
\nWHILE\u00a0(\u00a0l_tnode\u00a0IS\u00a0NOT\u00a0NULL\u00a0)
\nLET\u00a0l_value\u00a0=\u00a0l_value\u00a0,\u00a0l_tnode.getNodeValue()
\nLET\u00a0l_value\u00a0=\u00a0l_value.trim()
\nLET\u00a0l_tnode\u00a0=\u00a0l_tnode.getNextSibling()
\nEND\u00a0WHILE
\nEND\u00a0IF<\/p>\n

RETURN\u00a0l_value
\nEND\u00a0FUNCTION<\/p>\n

################################################################################
\n# Descriptions…: \u63cf\u8ff0\u8bf4\u660e
\n# Memo………..:
\n# Usage……….: CALL s_aooi150_ins (\u4f20\u5165\u53c2\u6570)
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RETURNING \u56de\u4f20\u53c2\u6570
\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u4f20\u5165\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Return code….: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u56de\u4f20\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Date & Author..: \u65e5\u671f By \u4f5c\u8005
\n# Modify………:
\n################################################################################
\nPUBLIC\u00a0FUNCTION\u00a0awsp900_01_build_JsonParam(p_key,p_json_rec)
\nDEFINE\u00a0p_key\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0p_json_rec\u00a0\u00a0\u00a0util.JSONObject
\nDEFINE\u00a0l_i\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0INTEGER<\/p>\n

LET\u00a0l_i\u00a0=\u00a0g_jason_param.getLength()\u00a0+\u00a01
\nLET\u00a0g_jason_param[l_i].datakey\u00a0=\u00a0p_key
\nLET\u00a0g_jason_param[l_i].jsontext\u00a0=\u00a0p_json_rec.toString()<\/p>\n

END\u00a0FUNCTION<\/p>\n

################################################################################
\n# Descriptions…: \u63cf\u8ff0\u8bf4\u660e
\n# Memo………..:
\n# Usage……….: CALL s_aooi150_ins (\u4f20\u5165\u53c2\u6570)
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RETURNING \u56de\u4f20\u53c2\u6570
\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u4f20\u5165\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Return code….: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u56de\u4f20\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Date & Author..: \u65e5\u671f By \u4f5c\u8005
\n# Modify………:
\n################################################################################
\nPUBLIC\u00a0FUNCTION\u00a0awsp900_01_make_JsonParam(p_key,p_value)
\nDEFINE\u00a0p_key\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0p_value\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_i\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0INTEGER
\nDEFINE\u00a0l_list\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNodeList
\nDEFINE\u00a0l_node\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_child\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode<\/p>\n

#LET g_jason_type = “Y”
\nLET\u00a0l_i\u00a0=\u00a0g_jason_param.getLength()\u00a0+\u00a01
\nLET\u00a0g_jason_param[l_i].datakey\u00a0=\u00a0p_key
\nLET\u00a0g_jason_param[l_i].jsontext\u00a0=\u00a0p_value<\/p>\n

#LET l_list = g_pnode.getElementsByTagName(“Record”)<\/p>\n

#IF l_list.getCount() > 0 THEN
\n#\u00a0\u00a0\u00a0LET l_node = l_list.getitem(1)
\n#END IF<\/p>\n

#\u65bc <Record> \u4e0b\u5efa\u7acb <Field> \u7bc0\u9ede
\n#LET l_child = g_resdoc.createElement(“Json”)
\n#CALL l_node.appendChild(l_child)
\n#CALL l_child.setAttribute(“name”, p_key)
\n#CALL l_child.setAttribute(“value”, p_value)<\/p>\n

END\u00a0FUNCTION<\/p>\n

################################################################################
\n# Descriptions…: \u63cf\u8ff0\u8bf4\u660e
\n# Memo………..:
\n# Usage……….: CALL awsp900_01_addDetail()
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RETURNING \u56de\u4f20\u53c2\u6570
\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u4f20\u5165\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Return code….: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u56de\u4f20\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Date & Author..: \u65e5\u671f By \u4f5c\u8005
\n# Modify………:
\n################################################################################
\nPUBLIC\u00a0FUNCTION\u00a0awsp900_01_addDetail(p_name)
\nDEFINE\u00a0p_name\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_dnode\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode<\/p>\n

LET\u00a0l_dnode\u00a0=\u00a0g_resdoc.createElement(“Detail”)<\/p>\n

IF\u00a0cl_null(p_name)\u00a0THEN
\nCALL\u00a0l_dnode.setAttribute(“name”,\u00a0“d1_1”)
\nELSE
\nCALL\u00a0l_dnode.setAttribute(“name”,\u00a0p_name)
\nEND\u00a0IF<\/p>\n

CALL\u00a0l_dnode.setAttribute(“node_id”,\u00a0“1_1”)
\nCALL\u00a0g_master_record.appendChild(l_dnode)\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#\u7522\u751f <Detail><\/p>\n

RETURN\u00a0l_dnode
\nEND\u00a0FUNCTION<\/p>\n

################################################################################
\n# Descriptions…: \u63cf\u8ff0\u8bf4\u660e
\n# Memo………..:
\n# Usage……….: CALL s_aooi150_ins (\u4f20\u5165\u53c2\u6570)
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RETURNING \u56de\u4f20\u53c2\u6570
\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u4f20\u5165\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Return code….: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u56de\u4f20\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Date & Author..: \u65e5\u671f By \u4f5c\u8005
\n# Modify………:
\n################################################################################
\nPRIVATE\u00a0FUNCTION\u00a0awsp900_01_buildMasterField(p_node,p_json_record)
\nDEFINE\u00a0p_node\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0p_json_record\u00a0\u00a0\u00a0\u00a0\u00a0util.JSONObject<\/p>\n

DEFINE\u00a0l_list1\u00a0\u00a0\u00a0\u00a0xml.DomNodeList,
\nl_list2\u00a0\u00a0\u00a0\u00a0xml.DomNodeList
\nDEFINE\u00a0l_node\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomNode,
\nl_child\u00a0\u00a0\u00a0\u00a0xml.DomNode,
\nl_record\u00a0\u00a0\u00a0xml.DomNode,
\nl_field\u00a0\u00a0\u00a0\u00a0xml.DomNode
\nDEFINE\u00a0l_i\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0INTEGER,
\nl_j\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0INTEGER
\nDEFINE\u00a0l_name\u00a0\u00a0\u00a0\u00a0\u00a0STRING,
\nl_value\u00a0\u00a0\u00a0\u00a0STRING
\nDEFINE\u00a0l_k\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0INTEGER\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0#FUN-D80090<\/p>\n

FOR\u00a0l_i\u00a0=\u00a01\u00a0TO\u00a0p_json_record.getLength()<\/p>\n

INITIALIZE\u00a0l_name\u00a0TO\u00a0NULL
\nINITIALIZE\u00a0l_value\u00a0TO\u00a0NULL<\/p>\n

#\u53d6\u5f97\u6b04\u4f4d\u540d\u7a31\u548c\u6b04\u4f4d\u503c
\nLET\u00a0l_name\u00a0=\u00a0p_json_record.name(l_i)
\nLET\u00a0l_value\u00a0=\u00a0p_json_record.get(p_json_record.name(l_i))<\/p>\n

#\u65bc <Record> \u4e0b\u5efa\u7acb <Field> \u7bc0\u9ede
\nLET\u00a0l_child\u00a0=\u00a0g_resdoc.createElement(“Field”)
\nCALL\u00a0p_node.appendChild(l_child)
\nCALL\u00a0l_child.setAttribute(“name”,\u00a0l_name)
\nCALL\u00a0l_child.setAttribute(“value”,\u00a0l_value)<\/p>\n

END\u00a0FOR
\nEND\u00a0FUNCTION<\/p>\n

################################################################################
\n# Descriptions…: \u63d0\u4f9b\u7a0b\u5f0fload xml
\n# Memo………..:
\n# Usage……….: CALL awsp900_01_get_filetoxml(p_file)
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RETURNING \u56de\u4f20\u53c2\u6570
\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u4f20\u5165\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Return code….: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1
\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0: \u56de\u4f20\u53c2\u6570\u53d8\u91cf2\u00a0\u00a0\u00a0\u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2
\n# Date & Author..: \u65e5\u671f By \u4f5c\u8005
\n# Modify………:
\n################################################################################
\nPUBLIC\u00a0FUNCTION\u00a0awsp900_01_get_filetoxml(p_file)
\nDEFINE\u00a0p_file\u00a0STRING
\nDEFINE\u00a0l_reqdoc\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0xml.DomDocument
\nDEFINE\u00a0l_status\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0STRING<\/p>\n

CALL\u00a0awsp900_01_filetoxml(p_file)
\nRETURNING\u00a0l_status,gx_reqdoc,g_response.response<\/p>\n

IF\u00a0l_status\u00a0=\u00a0FALSE\u00a0THEN
\nRETURN\u00a0l_status
\nEND\u00a0IF<\/p>\n

LET\u00a0g_payload_request\u00a0=\u00a0“”
\nLET\u00a0g_payload_request\u00a0=\u00a0awsp900_01_getNodeValue(gx_reqdoc,\u00a0“param”,””)<\/p>\n

LET\u00a0gx_payload_request\u00a0=\u00a0xml.DomDocument.create()
\nCALL\u00a0gx_payload_request.loadFromString(g_payload_request.trim())<\/p>\n

RETURN\u00a0TRUE
\nEND\u00a0FUNCTION<\/p>\n

{<\/section>}<\/p>\n<\/div>\n<\/div>\n

\u8f6c\u8f7d\u8bf7\u6ce8\u660e\uff1a\u8d6b\u975e\u57df<\/a> » T100\u2014\u2014awsp900_01\u63a5\u53e3\u76f8\u5173\u7684XML\u5904\u7406\/\u56de\u5199<\/a><\/p>","protected":false},"excerpt":{"rendered":"

T100\u2014\u2014awsp900_01\u63a5\u53e3\u76f8\u5173\u7684XML\u5904\u7406\/\u56de\u5199 {<section id=”awsp900_01.description” >} #\u61c9\u7528 a00 \u6a23\u677f\u81ea\u52d5\u7522\u751f(Version:2) #+ Version […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[490],"tags":[822],"class_list":["post-5323","post","type-post","status-publish","format-standard","hentry","category-490","tag-awsp"],"_links":{"self":[{"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts\/5323","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=5323"}],"version-history":[{"count":2,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts\/5323\/revisions"}],"predecessor-version":[{"id":5325,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts\/5323\/revisions\/5325"}],"wp:attachment":[{"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=5323"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=5323"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=5323"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}