Making SOAP calls to a 3rd party Web service with PeopleCode

Question

Hi everyone :) I'm new to PS and have two questions (the first is most important):
1. Are there any good resources for using PeopleCode to make SOAP (or even GET/POST) requests to Web services hosted outside a PS environment? I found [this page|http://www.zutshigroup.com/site/tech/peoplesoft_soap_example], but it doesn't appear to connect to a remote WSDL.
2. How does development work, exactly? I'm used to the standard web languages where you launch a local dev server like IIS, launch an IDE, build code, and view the output in a browser. Does the PS model work like this?
I am a developer for a company who offers Web services and am soon going to be remotely connecting to another company's PS dev environment to develop some sample code for them that integrates our services with their PS. I have no experience with the platform and due to the complexity of the PS installation won't be able to try it out before I begin developing. I would like to get as good a feel for this platform as I can before the meeting.
I appreciate any information you can give me on sample code resources, workflow concepts, etc, but my question is primarily about SOAP requests. I can research the rest.
Thank you!
Edited by: user10655996 on Nov 26, 2008 3:09 PM

Answer 1

Hi,
Not sure if that App Package is available in versions below 9. But, I think it should be available since PS internally does use the same App Class for integrating with Tax softwares like Vertex and Taxware. Also that example is used when one does not want to make use of any IB Objects...
You can definitely go ahead and make use of Standard IB Objects to Consume and Provide a Web Service in PS...
Would like to know, if PS is the Consumer or the Provider?
If PS is the Consumer then you can have a look at the code below ...
import PT_IB_UDDI:UDDIException;
class XMETHODS
method XMETHODS();
method AssignConnInfo();
method IBInfoMethods();
method IBInfoIBConnectorMethods();
method WriteRequest(&ReqXML As XmlDoc);
method WriteResponse(&ResXML As XmlDoc);
     * Helper function to throw appropriate exeception whenever ConnectorRequest returns null response.
method HandleNullSoapResponse(&soapMs As XmlDoc, &ul As string);
method HandleSoapFault(&soapReq As XmlDoc, &soapFaultNode As XmlNode);
method CreateSOAPDocument();
property Message req;
property Message res;
property boolean b;
property string url;
property string UserName;
property string Str_Process;
property string Str_TransID;
property string Str_SourceNode;
property string Str_ReqNodeName;
property string Str_ReqNodeDescr;
property string Str_ConnectorClass;
property string Str_ConnectorName;
property string Str_PathInfo;
private
rem Constant &NULL_SOAP_RESPONSE = 15301;
Constant &NULL_SOAP_RESPONSE = 16022;
Constant &BAD_RESPONSE_STATUS = 15303;
Constant &NON_XML_RESPONSE = 15304;
end-class;
/* Constructor */
method XMETHODS
%This.CreateSOAPDocument();
end-method;
method IBInfoMethods
&UserName = &req.IBInfo.OrigUser;
&Str_Process = &req.IBInfo.OrigProcess;
&Str_TransID = &req.IBInfo.TransactionID;
&Str_SourceNode = &req.IBInfo.SourceNode;
&Str_ReqNodeName = &req.IBInfo.RequestingNodeName;
rem &Str_ReqNodeDescr = &req.IBInfo.RequestingNodeDescription;
end-method;
method IBInfoIBConnectorMethods
&Str_ConnectorClass = &req.IBInfo.IBConnectorInfo.ConnectorClassName;
&Str_ConnectorName = &req.IBInfo.IBConnectorInfo.ConnectorName;
&Str_PathInfo = &req.IBInfo.IBConnectorInfo.PathInfo;
end-method;
method WriteRequest
/+ &ReqXML as XmlDoc +/
Local File &ppfile1 = GetFile("C:\temp\XMETHODS_SOAP_" | %Datetime | ".out", "W", %FilePath_Absolute);
&ppfile1.WriteString(&ReqXML.GenFormattedXmlString());
&ppfile1.Close();
end-method;
method WriteResponse
/+ &ResXML as XmlDoc +/
Local File &ppfile = GetFile("C:\temp\XMETHODS_MESSAGE_" | %Datetime | ".out", "W", %FilePath_Absolute);
&ppfile.WriteString(&xml.GenFormattedXmlString());
&ppfile.Close();
end-method;
method HandleNullSoapResponse
/+ &soapMs as XmlDoc, +/
/+ &ul as String +/
Local PT_IB_UDDI:UDDIException &ex = create PT_IB_UDDI:UDDIException(&NULL_SOAP_RESPONSE);
&ex.DefaultText = "There is no reply from the Web server hosting the Web Service at '%1'.";
&ex.SetSubstitution(1, &ul);
&ex.SoapRequest = &soapMs.GenFormattedXmlString();
throw &ex;
end-method;
method HandleSoapFault
/+ &soapReq as XmlDoc, +/
/+ &soapFaultNode as XmlNode +/
Local PT_IB_UDDI:UDDIException &ex = create PT_IB_UDDI:UDDIException(0);
&ex.SoapRequest = &soapReq.GenFormattedXmlString();
&ex.InitFromSoapFault(&soapFaultNode);
throw &ex;
end-method;
method AssignConnInfo
&req.IBInfo.IBConnectorInfo.ConnectorClassName = "HttpTargetConnector";
/* Specifies OutBound Request */
&b = &req.IBInfo.IBConnectorInfo.AddConnectorProperties("Method", "POST", %HttpProperty);
&b = &req.IBInfo.IBConnectorInfo.AddConnectorProperties("Content-Type", "text/xml", %Header);
&b = &req.IBInfo.IBConnectorInfo.AddConnectorProperties("SOAPUpContent", "Y", %HttpProperty);
&b = &req.IBInfo.IBConnectorInfo.AddConnectorProperties("Authorization", "Basic cHJhc2hhbnQ6cHJha2FzaA==", %Header);
/* End Point */
&url = "http://webservices.daelab.net/datesservice/datesservice.wso";
rem &url = GetURL(URL.XMETHODS_MONTH);
&b = &req.IBInfo.IBConnectorInfo.AddConnectorProperties("URL", &url, %HttpProperty);
end-method;
method CreateSOAPDocument
REMARK ENDPOINT = "http://webservices.daelab.net/datesservice/datesservice.wso";
rem Local Message &req, &res;
Local SOAPDoc &soap;
Local XmlDoc &xml;
rem Local boolean &b;
Local integer &i;
Local XmlNode &node;
Local number #
rem Local string &UserName;
rem Local string &Str_Process, &Str_SourceNode, &Str_ReqNodeName;
rem Local string &Str_ConnectorClass, &Str_ConnectorName;
rem Local string &Str_PathInfo;
Local array of XmlNode &nodes;
&req = CreateMessage(Operation.XMETHODS, %IntBroker_Request);
&soap = CreateSOAPDoc();
/* set the Month Number */
&num = Z_EXAMPLE_WRK.ACCESS_ID.Value;
If &num <= 0 Or
None(&num) Or
&num >= 13 Then
&num = 1;
End-If;
Local string &soapstr = GetHTMLText(HTML.XMETHODS, &num); /* SOAP 1.1 */
rem Local string &soapstr = GetHTMLText(HTML.XMETHODS_12, &num); /* SOAP 1.2 */
Local boolean &bool = &soap.ParseXmlString(&soapstr);
&xml = &soap.XmlDoc;
* Test Whether we can send a PSNONXML format for SOAP Requests - AND YES WE CAN SEND THAT
Local string &encoded = Substitute(&xml.GenXmlString(), "<?xml version=""1.0""?>", "<?xml version=""1.0"" encoding=""UTF-8""?>");
/* Encode the XML as a PSNONXML String and create the XML again */
Local string &nonXmlData = "<?xml version=""1.0""?><data psnonxml=""yes""><![CDATA[" | &encoded | "]]></data>";
rem %This.WriteRequest(&xml);
/* Assign the Request to a Page Field */
Z_EXAMPLE_WRK.XML_TESTI.Value = &xml.GenFormattedXmlString();
/* Assign Connector and relevant Properties */
%This.AssignConnInfo();
/* Assign the XML Object to a Message Object */
&xml = CreateXmlDoc(&nonXmlData);
rem Z_EXAMPLE_WRK.XML_TESTI.Value = &xml.GenFormattedXmlString();
rem %This.WriteRequest(&xml);
&req.SetXmlDoc(&xml);
/*IBInfo Methods */
%This.IBInfoMethods();
/* IBConnectorInfo Methods */
%This.IBInfoIBConnectorMethods();
rem &res = CreateMessage(Operation.XMETHODS_RESP, %IntBroker_Response);
&res = %IntBroker.ConnectorRequest(&req);
/* Additional Error Handling */
If &res = Null Then /* Throw exception */
%This.HandleNullSoapResponse(&xml, &url);
End-If;
/* Check for soap faults */
&xml = &res.GetXmlDoc();
<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
     <soap:Body>
          <soap:Fault>
If &xml <> Null Then
Local array of XmlNode &faultNodes = &xml.DocumentElement.GetElementsByTagNameNS("http://schemas.xmlsoap.org/soap/envelope/", "Fault");
If &faultNodes <> Null And
&faultNodes.Len > 0 Then
%This.HandleSoapFault(&xml, &faultNodes [1]);
End-If;
End-If;
/* Check response Status */
If &res.ResponseStatus <> 0 Then
Local PT_IB_UDDI:UDDIException &ex1 = create PT_IB_UDDI:UDDIException(&BAD_RESPONSE_STATUS);
&ex1.SetSubstitution(1, NumberToString("", &res.ResponseStatus));
&ex1.SoapRequest = &xml.GenFormattedXmlString();
throw &ex1;
End-If;
If &xml = Null Then
/* Some error in returned object. Does not look like valid Xml */
Local PT_IB_UDDI:UDDIException &ex2 = create PT_IB_UDDI:UDDIException(&NON_XML_RESPONSE);
&ex2.SoapRequest = &xml.GenFormattedXmlString();
throw &ex2;
End-If;
/* retrieve the response */
&xml = &res.GetXmlDoc();
Z_EXAMPLE_WRK.XMLLINKDTD.Value = &xml.GenFormattedXmlString();
%This.WriteResponse(&xml);
end-method;
Thanks
Prashant