Oracle存储过程通过字符串调用WebService示例

PROCEDURE P_UTL_HTTP(AS_STR VARCHAR2) IS
    REQ            UTL_HTTP.REQ;
    RESP           UTL_HTTP.RESP;
    V_VALUE        VARCHAR2(4000);
    BUFFER         VARCHAR2(32767);
    OFFSET         NUMBER := 1;
    AMOUNT         NUMBER := 32767;
    LL_LEN         NUMBER;
    L_SOAP_REQUEST RAW(32767);
    L_STRING1      VARCHAR2(4000);
    L_STRING2      VARCHAR2(4000);
    L_TEMP_STR     VARCHAR2(32000);
  BEGIN
    DBMS_OUTPUT.PUT_LINE(AS_STR);
    L_STRING1  := L_STRING1 ||
                  '<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:prin="http://www.primeton.com/PrintWebserviceService">';
    L_STRING1  := L_STRING1 || '<soapenv:Header/>';
    L_STRING1  := L_STRING1 || '<soapenv:Body>';
    L_STRING1  := L_STRING1 || '<prin:print>';
    L_STRING1  := L_STRING1 || '<prin:dataJson>';
    L_STRING2  := L_STRING2 || '</prin:dataJson>';
    L_STRING2  := L_STRING2 || '</prin:print>';
    L_STRING2  := L_STRING2 || '</soapenv:Body>';
    L_STRING2  := L_STRING2 || '</soapenv:Envelope>';
    L_TEMP_STR := L_STRING1 || AS_STR || L_STRING2;
    LL_LEN     := DBMS_LOB.GETLENGTH(L_TEMP_STR);
    REQ        := UTL_HTTP.BEGIN_REQUEST('http://10.1.5.224:8080/default/PrintWebserviceService?wsdl',
                                         'POST',
                                         'HTTP/1.1');
    UTL_HTTP.SET_HEADER(REQ, 'Content-Length', LL_LEN);