IMPORT xml IMPORT com DATABASE ds GLOBALS"../../config/top.global"GLOBALS DEFINE g_curs_index LIKE type_file.num10, g_row_count LIKE type_file.num10, request com.HTTPRequest, response com.HTTPResponse, reader xml.DomDocument, requestData xml.DomDocument, wsstatus INTEGER, url STRING END GLOBALS MAIN DEFINE p_row,p_col LIKE type_file.num5 LET p_row=ARG_VAL(1)LET p_col=ARG_VAL(2)OPTIONS FORM LINE FIRST +2, MESSAGE LINE LAST, PROMPT LINE LAST, INPUT NO WRAP DEFER INTERRUPT IF(NOT cl_user())THEN EXIT PROGRAM END IF WHENEVER ERROR CALL cl_err_msg_log IF(NOT cl_setup("CZZ"))THEN EXIT PROGRAM END IF CALL cl_used(g_prog,g_time,1)RETURNING g_time -- 計算使用時間(進入時間)# 打開窗口LET p_row=5LET p_col=10-- 給變量賦值 OPEN WINDOW test_w AT p_row,p_col WITH FORM"czz/42f/p_test"ATTRIBUTE(STYLE=g_win_style CLIPPED)CALL cl_ui_init()-- 初始化程序設定 CALL test_menu()-- 調用test_menu函數 CLOSE WINDOW test_w CALL cl_used(g_prog,g_time,2)RETURNING g_time -- 計算使用時間(退出時間)END MAIN# Pattern name...: test_menu()# Descriptions...:画面的ToolBar的设置函数FUNCTION test_menu()# ToolBar的設置MENU""BEFORE MENU CALL cl_navigator_setting(g_curs_index, g_row_count)-- 重新設定TOOLBAR上的『上筆、跳筆、下筆』等五個按鍵是否可用 / 不可用。 ON ACTION query -- 查询按钮 CALL sendXMLHTTPRequest()ON IDLE g_idle_seconds CALL cl_on_idle()CONTINUE MENU ON ACTION locale --语言按钮 CALL cl_dynamic_locale()#切换CALL cl_show_fld_cont()#显示ON ACTION qbe_select --条件查询 CALL cl_qbe_select()ON ACTIONhelp--帮助/说明按钮 CALL cl_show_help()ON ACTION about --程式咨询按钮 CALL cl_about()ON ACTION controlg --程式切换 CALL cl_cmdask()ON ACTIONexit-- 離開按鈕 LET INT_FLAG=FALSE EXIT MENU ON ACTION close -- 窗口右上角x按钮 LETINT_FLAG=FALSE EXIT MENU END MENU END FUNCTION# @mathodName:sendXMLHTTPRequest# @author:李德凯 2665252078@qq.com# @date:Created in 2026-02-02# @description: 发送XML请求FUNCTION sendXMLHTTPRequest()LETurl="http://10.3.11.155:8080/axis2/services/SOAPServer?wsdl"TRY LET request=com.HTTPRequest.Create(url)CALL request.setMethod("POST")CALL request.setHeader("Content-Type","text/xml;charset=UTF-8")CALL dataXML()RETURNING requestData CALL request.doXmlRequest(requestData)CATCH LET wsstatus=STATUS CALL WSHelper_FillSOAP11WSError("Client","Cannot create HTTPRequest")RETURN wsstatus END TRY CALL getXMLHTTPResponse()END FUNCTION# @mathodName:dataXML# @author:李德凯 2665252078@qq.com# @date:Created in 2026-02-02# @description: 发送XML的内容FUNCTION dataXML()DEFINE doc xml.DomDocument, inputXML STRING LETinputXML="<soapenv:Envelope xmlns:soapenv=\"http://schemas.xmlsoap.org/soap/envelope/\"xmlns:ser=\"http://service.web.com\">"," <soapenv:Header/>"," <soapenv:Body>"," <ser:sayHi>"," <ser:user>1111111111</ser:user>"," </ser:sayHi>"," </soapenv:Body>","</soapenv:Envelope>"LETdoc=XML.DomDocument.create()CALL doc.loadFromString(inputXML)CALL doc.save("/u1/out/r1.xml")RETURN doc END FUNCTION# @mathodName:getXMLHTTPResponse# @author:李德凯 2665252078@qq.com# @date:Created in 2026-02-02# @description: 接收XML请求FUNCTION getXMLHTTPResponse()TRY LET response=request.getResponse()DISPLAYresponse.getStatusCode()TO FORMONLY.cn LET reader=response.getXmlResponse()CALL reader.save("/u1/out/r2.xml")CATCH LET wsstatus=status CALL WSHelper_FillSOAP11WSError("Server",SQLCA.SQLERRM)RETURN wsstatus END TRY END FUNCTION
