S
Sivarami Reddy Marella
Guest
We have another program same like this it is running, now I have added some libraries and I have changed the building response part to below with USING componenets. IF (ipc_Action = "Create") THEN DO: http_Request = RequestBuilder
OST( gc_URL, obj_Json ) :ContentType('application/json') :AcceptJson() :Request NO-ERROR. END. IF (ipc_Action = "Update") THEN DO: http_Request = RequestBuilderUT( gc_URL, obj_Json ) :ContentType('application/json') :AcceptJson() :Request NO-ERROR. END. ASSIGN http_Lib = ClientLibraryBuilder:Build():sslVerifyHost(NO):library http_Client = ClientBuilder:Build():UsingLibrary(http_Lib):Client http_Response = ResponseBuilder:Build():Response . http_Client:Execute(http_Request, http_Response) /* NO-ERROR */. Earlier Code IF create-update = "Create" THEN oRequest = RequestBuilderOST("http://" + vcHost + ":" + vcPort + "/crmcreatecontact", oJson) :ContentType('application/json') :AcceptJson() :Request NO-ERROR. ELSE oRequest = RequestBuilderUT("http://" + vcHost + ":" + vcPort + "/crmupdatecontact/" + STRING(tdid), oJson) :ContentType('application/json') :AddHeader("Accept","application/json;odata=verbose") :AcceptJson() :Request NO-ERROR. oResponse = ClientBuilder:Build():Client:Execute(oRequest) NO-ERROR. Thanks, Sivarami Reddy M
Continue reading...
OST( gc_URL, obj_Json ) :ContentType('application/json') :AcceptJson() :Request NO-ERROR. END. IF (ipc_Action = "Update") THEN DO: http_Request = RequestBuilderUT( gc_URL, obj_Json ) :ContentType('application/json') :AcceptJson() :Request NO-ERROR. END. ASSIGN http_Lib = ClientLibraryBuilder:Build():sslVerifyHost(NO):library http_Client = ClientBuilder:Build():UsingLibrary(http_Lib):Client http_Response = ResponseBuilder:Build():Response . http_Client:Execute(http_Request, http_Response) /* NO-ERROR */. Earlier Code IF create-update = "Create" THEN oRequest = RequestBuilderOST("http://" + vcHost + ":" + vcPort + "/crmcreatecontact", oJson) :ContentType('application/json') :AcceptJson() :Request NO-ERROR. ELSE oRequest = RequestBuilderUT("http://" + vcHost + ":" + vcPort + "/crmupdatecontact/" + STRING(tdid), oJson) :ContentType('application/json') :AddHeader("Accept","application/json;odata=verbose") :AcceptJson() :Request NO-ERROR. oResponse = ClientBuilder:Build():Client:Execute(oRequest) NO-ERROR. Thanks, Sivarami Reddy MContinue reading...