[Progress Communities] [Progress OpenEdge ABL] Forum Post: RE: May OpenEdge classes set the error-status?

Status
Not open for further replies.
C

CMI

Guest
I too, today just got this message. Here is a snipe of the code I'm using to get there above error. /** This conforms the SOAP 1.2 specification **/ ContentTypeHeader = SUBSTITUTE('application/soap+xml; action="&1"; charset=UTF-8':U, SOAPAction). AuthorizationHeader = SUBSTITUTE('&1 &2', Classes.OAuth.OAuthAccessToken:AccessTokenType, Classes.OAuth.OAuthAccessToken:AccessToken). DEFINE VARIABLE oRequestBody AS String no-undo. oRequestBody = NEW STRING(SOAPPayloadXML). oRequest = RequestBuilder:post(SOAPEndPointURL, oRequestBody) :AddHeader('Authorization':U, AuthorizationHeader ) :HttpVersion ("HTTP/1.0") :ContentType(ContentTypeHeader) :Request. oResponse = ClientBuilder:Build():Client:Execute(oRequest). /** 200 OK Successful **/ IF oResponse:StatusCode EQ 200 AND oResponse:ContentType EQ "application/soap+xml":U THEN DO: SOAPResponseXML = oResponse:Entity:ToString(). MESSAGE "SOAPResponseXML" SKIP LENGTH(SOAPResponseXML). ERROR-STATUS:ERROR = FALSE. RETURN. END. ELSE RETURN ERROR SUBSTITUTE("&1 &2", oResponse:StatusCode, oResponse:StatusReason).

Continue reading...
 
Status
Not open for further replies.
Top