Uniface User Forum

Hello,

We need to implement a REST API that will call a REST WebService of our ERP (JD Edwards).
Can anyone share a simple REST API Call created with Uniface, so I don't need to perform too many tries and errors before I get it working correctly.

Thanks,

Stephane

I managed to create this example:

variables
  handle vUhttp                  ; Handle for UHTTP instance
  struct vMainStruct, vNestedStruct ; Structures for JSON data
  string vProfileName
  string vJsonPayload             ; JSON formatted data
  string vJsonPayload2            ; JSON formatted data
  string vUrl, vMethod            ; REST API URL and method
  string vResponseStatus          ; Status from the HTTP request
  string vHeaders, vContents, vMoreContent      ; Request headers and contents
  string vSendStatus              ; Send status for error checking
endvariables

; REST API Test 
; ********** Step 1: Create UHTTP instance and set profile **********
newinstance "UHTTP", vUhttp  ; Create a new UHTTP instance
vUhttp->SET_FLAGS(15)
 
; ********** Step 2: Define a Nested Structure **********
; Create the main structure with nested elements
vMainStruct = $newstruct
vMainStruct->name = "John Doe"
vMainStruct -> email = "john.doe@example.com"
vMainStruct->Orders = $newstruct
; Add a nested structure representing an array of objects
vNestedStruct = $newstruct
vNestedStruct->id = 1
vNestedStruct->item = "Laptop"
;vMainStruct->Orders->*{-1} = $newstruct
;vMainStruct->Orders->*{-1}->order = vNestedStruct
vMainStruct->Orders->*{-1} = vNestedStruct
vNestedStruct = $newstruct
vNestedStruct->id = 2
vNestedStruct->item = "Mouse"
;vMainStruct->Orders->*{-1} = $newstruct
;vMainStruct->Orders->*{-1}->order = vNestedStruct
vMainStruct->Orders->*{-1} = vNestedStruct

; ********** Step 3: Convert Struct to JSON **********
structToJson vJsonPayload, vMainStruct
; Log the JSON payload to verify the structure
putmess "JSON Payload to send: %%vJsonPayload"
 
; ********** Step 4: Send POST Request to Postman Echo **********
vUrl = "https://postman-echo.com/post"  ; Postman Echo API
vMethod = "POST"
vResponseStatus = ""
; Initialize headers
putitem/id vHeaders, "Content-Type", "application/soap+xml; charset=UTF-8"
putitem/id vheaders, "Accept-Charset", "ISO-8859-1 ; q = 0.4, UTF-16BE; q=0.9"
vContents = "" ; Initialize contents
; Prepare the headers for the POST request
putitem/id/case vHeaders, "Content-Type", "application/json"  ; Specify JSON format
; Send the POST request with the JSON payload
vUhttp->SEND(vUrl, vMethod, "", "", vHeaders, vJsonPayload, vResponseStatus)
; Capture the send status
vSendStatus = $status
; ********** Step 5: Handle and Log Response **********
if (vSendStatus >= 200 && vSendStatus < 300)
    putmess "Request successful! Response status: %%vSendStatus"
    putmess "Response contents: %%vResponseStatus"
else
    putmess "Request failed. Status: %%vSendStatus, Response: %%vContents"
endif

When I run it, I get this in the log:
Request successful! Response status: 200
Response contents: HTTP/1.1 200 OK

I was expecting to get back the JSON as echo.
Does anyone while the response contains only "HTTP/1.1 200 OK" ?

Thanks

Hello,

We need to implement a REST API that will call a REST WebService of our ERP (JD Edwards).
Can anyone share a simple REST API Call created with Uniface, so I don't need to perform too many tries and errors before I get it working correctly.

Thanks,

Stephane

Hello,

We need to implement a REST API that will call a REST WebService of our ERP (JD Edwards).
Can anyone share a simple REST API Call created with Uniface, so I don't need to perform too many tries and errors before I get it working correctly.

Thanks,

Stephane

We get the answer in a changed vContent (json in)

operation GETBYSOSSECNO	params		string  P_URI       : IN		string  P_SIGNUM    : IN		string  P_MUNICIPALITY : IN		string  P_TOKEN        : IN		struct  P_STRUCTASW : OUT		numeric P_HTTPSTAT  : OUT	endparams	variables		string  vJson		string  vContent, vHeaders, vResponse		string  strStatBeg		string  vUri		handle  vUHTTP		struct  vStruct	endvariables			call MakeJsonSignum(P_SIGNUM, P_MUNICIPALITY, vJson)    ;Define nested struct and convert to Json	newinstance "UHTTP", vUHTTP	vUHTTP->SET_FLAGS(10)   	vURI = P_URI	;Create list of headers 	putitem/id vHeaders, "Content-Type", "application/json"	putitem/id vHeaders, "Authorization", "Bearer %%P_TOKEN%%%" 		vContent=vJson	; Call the UHTTP.SEND operation	P_HTTPSTAT = 0	P_HTTPSTAT = vUHTTP->SEND(vURI, "POST", "", "", vHeaders, vContent, vResponse)	if(P_HTTPSTAT<0)		exit(P_HTTPSTAT)	else		strStatBeg = "%%P_HTTPSTAT%%%"		strStatBeg = strStatBeg[1,1]		if(P_HTTPSTAT == 404 | P_HTTPSTAT == 200)			jsonToStruct vStruct, vContent			P_STRUCTASW = vStruct->result			deleteinstance vUHTTP		elseif(strStatBeg="1" | strStatBeg="3" | strStatBeg="4" | strStatBeg="5") ;Tex 503 "HTTP/1.1 503 Service Unavailable"			exit(P_HTTPSTAT)		else			jsonToStruct vStruct, vContent			P_STRUCTASW = vStruct->result			deleteinstance vUHTTP					endif	endifend; operation GETBYSOSSECNO

Hello,

We need to implement a REST API that will call a REST WebService of our ERP (JD Edwards).
Can anyone share a simple REST API Call created with Uniface, so I don't need to perform too many tries and errors before I get it working correctly.

Thanks,

Stephane

We get the answer in a changed vContent (json in)

operation GETBYSOSSECNO	params		string  P_URI       : IN		string  P_SIGNUM    : IN		string  P_MUNICIPALITY : IN		string  P_TOKEN        : IN		struct  P_STRUCTASW : OUT		numeric P_HTTPSTAT  : OUT	endparams	variables		string  vJson		string  vContent, vHeaders, vResponse		string  strStatBeg		string  vUri		handle  vUHTTP		struct  vStruct	endvariables			call MakeJsonSignum(P_SIGNUM, P_MUNICIPALITY, vJson)    ;Define nested struct and convert to Json	newinstance "UHTTP", vUHTTP	vUHTTP->SET_FLAGS(10)   	vURI = P_URI	;Create list of headers 	putitem/id vHeaders, "Content-Type", "application/json"	putitem/id vHeaders, "Authorization", "Bearer %%P_TOKEN%%%" 		vContent=vJson	; Call the UHTTP.SEND operation	P_HTTPSTAT = 0	P_HTTPSTAT = vUHTTP->SEND(vURI, "POST", "", "", vHeaders, vContent, vResponse)	if(P_HTTPSTAT<0)		exit(P_HTTPSTAT)	else		strStatBeg = "%%P_HTTPSTAT%%%"		strStatBeg = strStatBeg[1,1]		if(P_HTTPSTAT == 404 | P_HTTPSTAT == 200)			jsonToStruct vStruct, vContent			P_STRUCTASW = vStruct->result			deleteinstance vUHTTP		elseif(strStatBeg="1" | strStatBeg="3" | strStatBeg="4" | strStatBeg="5") ;Tex 503 "HTTP/1.1 503 Service Unavailable"			exit(P_HTTPSTAT)		else			jsonToStruct vStruct, vContent			P_STRUCTASW = vStruct->result			deleteinstance vUHTTP					endif	endifend; operation GETBYSOSSECNO

Hello,

We need to implement a REST API that will call a REST WebService of our ERP (JD Edwards).
Can anyone share a simple REST API Call created with Uniface, so I don't need to perform too many tries and errors before I get it working correctly.

Thanks,

Stephane

Hi Roger
I just saw that you used "EXIT" in an operation. that's not a good idea

if(P_HTTPSTAT<0)		exit(P_HTTPSTAT)

This exit kills your instance of the component, all further calls will fail.
Use RETURN(P_HTTPSTAT) instead :-)
Ingo

We get the answer in a changed vContent (json in)

operation GETBYSOSSECNO	params		string  P_URI       : IN		string  P_SIGNUM    : IN		string  P_MUNICIPALITY : IN		string  P_TOKEN        : IN		struct  P_STRUCTASW : OUT		numeric P_HTTPSTAT  : OUT	endparams	variables		string  vJson		string  vContent, vHeaders, vResponse		string  strStatBeg		string  vUri		handle  vUHTTP		struct  vStruct	endvariables			call MakeJsonSignum(P_SIGNUM, P_MUNICIPALITY, vJson)    ;Define nested struct and convert to Json	newinstance "UHTTP", vUHTTP	vUHTTP->SET_FLAGS(10)   	vURI = P_URI	;Create list of headers 	putitem/id vHeaders, "Content-Type", "application/json"	putitem/id vHeaders, "Authorization", "Bearer %%P_TOKEN%%%" 		vContent=vJson	; Call the UHTTP.SEND operation	P_HTTPSTAT = 0	P_HTTPSTAT = vUHTTP->SEND(vURI, "POST", "", "", vHeaders, vContent, vResponse)	if(P_HTTPSTAT<0)		exit(P_HTTPSTAT)	else		strStatBeg = "%%P_HTTPSTAT%%%"		strStatBeg = strStatBeg[1,1]		if(P_HTTPSTAT == 404 | P_HTTPSTAT == 200)			jsonToStruct vStruct, vContent			P_STRUCTASW = vStruct->result			deleteinstance vUHTTP		elseif(strStatBeg="1" | strStatBeg="3" | strStatBeg="4" | strStatBeg="5") ;Tex 503 "HTTP/1.1 503 Service Unavailable"			exit(P_HTTPSTAT)		else			jsonToStruct vStruct, vContent			P_STRUCTASW = vStruct->result			deleteinstance vUHTTP					endif	endifend; operation GETBYSOSSECNO

Hello,

We need to implement a REST API that will call a REST WebService of our ERP (JD Edwards).
Can anyone share a simple REST API Call created with Uniface, so I don't need to perform too many tries and errors before I get it working correctly.

Thanks,

Stephane

Hi Ingo,
I suppose that you are right, it would be more efficient  not to "kill" the instance. Actually I was a bit surprised myself as I saw the Exit.
However what about "all further calls will fail", I suppose using "activate" will just start a new instance of the component.
Isn't it just about how you want the handle the instance of the component.

Hi Roger
I just saw that you used "EXIT" in an operation. that's not a good idea

if(P_HTTPSTAT<0)		exit(P_HTTPSTAT)

This exit kills your instance of the component, all further calls will fail.
Use RETURN(P_HTTPSTAT) instead :-)
Ingo

We get the answer in a changed vContent (json in)

operation GETBYSOSSECNO	params		string  P_URI       : IN		string  P_SIGNUM    : IN		string  P_MUNICIPALITY : IN		string  P_TOKEN        : IN		struct  P_STRUCTASW : OUT		numeric P_HTTPSTAT  : OUT	endparams	variables		string  vJson		string  vContent, vHeaders, vResponse		string  strStatBeg		string  vUri		handle  vUHTTP		struct  vStruct	endvariables			call MakeJsonSignum(P_SIGNUM, P_MUNICIPALITY, vJson)    ;Define nested struct and convert to Json	newinstance "UHTTP", vUHTTP	vUHTTP->SET_FLAGS(10)   	vURI = P_URI	;Create list of headers 	putitem/id vHeaders, "Content-Type", "application/json"	putitem/id vHeaders, "Authorization", "Bearer %%P_TOKEN%%%" 		vContent=vJson	; Call the UHTTP.SEND operation	P_HTTPSTAT = 0	P_HTTPSTAT = vUHTTP->SEND(vURI, "POST", "", "", vHeaders, vContent, vResponse)	if(P_HTTPSTAT<0)		exit(P_HTTPSTAT)	else		strStatBeg = "%%P_HTTPSTAT%%%"		strStatBeg = strStatBeg[1,1]		if(P_HTTPSTAT == 404 | P_HTTPSTAT == 200)			jsonToStruct vStruct, vContent			P_STRUCTASW = vStruct->result			deleteinstance vUHTTP		elseif(strStatBeg="1" | strStatBeg="3" | strStatBeg="4" | strStatBeg="5") ;Tex 503 "HTTP/1.1 503 Service Unavailable"			exit(P_HTTPSTAT)		else			jsonToStruct vStruct, vContent			P_STRUCTASW = vStruct->result			deleteinstance vUHTTP					endif	endifend; operation GETBYSOSSECNO

Hello,

We need to implement a REST API that will call a REST WebService of our ERP (JD Edwards).
Can anyone share a simple REST API Call created with Uniface, so I don't need to perform too many tries and errors before I get it working correctly.

Thanks,

Stephane

Hi Ingo,
It seem that it's not possible to edit a posted message anymore (perhaps that's how it should be). I'll just send another one here.

I just started to think about this clever code :-) that I posted.
Isn't it a good solution that as you get a very strange Uniface status  or http status back, that the component is killed and the next call will activate a fresh instance of the component. 

Hi Ingo,
I suppose that you are right, it would be more efficient  not to "kill" the instance. Actually I was a bit surprised myself as I saw the Exit.
However what about "all further calls will fail", I suppose using "activate" will just start a new instance of the component.
Isn't it just about how you want the handle the instance of the component.

Hi Roger
I just saw that you used "EXIT" in an operation. that's not a good idea

if(P_HTTPSTAT<0)		exit(P_HTTPSTAT)

This exit kills your instance of the component, all further calls will fail.
Use RETURN(P_HTTPSTAT) instead :-)
Ingo

We get the answer in a changed vContent (json in)

operation GETBYSOSSECNO	params		string  P_URI       : IN		string  P_SIGNUM    : IN		string  P_MUNICIPALITY : IN		string  P_TOKEN        : IN		struct  P_STRUCTASW : OUT		numeric P_HTTPSTAT  : OUT	endparams	variables		string  vJson		string  vContent, vHeaders, vResponse		string  strStatBeg		string  vUri		handle  vUHTTP		struct  vStruct	endvariables			call MakeJsonSignum(P_SIGNUM, P_MUNICIPALITY, vJson)    ;Define nested struct and convert to Json	newinstance "UHTTP", vUHTTP	vUHTTP->SET_FLAGS(10)   	vURI = P_URI	;Create list of headers 	putitem/id vHeaders, "Content-Type", "application/json"	putitem/id vHeaders, "Authorization", "Bearer %%P_TOKEN%%%" 		vContent=vJson	; Call the UHTTP.SEND operation	P_HTTPSTAT = 0	P_HTTPSTAT = vUHTTP->SEND(vURI, "POST", "", "", vHeaders, vContent, vResponse)	if(P_HTTPSTAT<0)		exit(P_HTTPSTAT)	else		strStatBeg = "%%P_HTTPSTAT%%%"		strStatBeg = strStatBeg[1,1]		if(P_HTTPSTAT == 404 | P_HTTPSTAT == 200)			jsonToStruct vStruct, vContent			P_STRUCTASW = vStruct->result			deleteinstance vUHTTP		elseif(strStatBeg="1" | strStatBeg="3" | strStatBeg="4" | strStatBeg="5") ;Tex 503 "HTTP/1.1 503 Service Unavailable"			exit(P_HTTPSTAT)		else			jsonToStruct vStruct, vContent			P_STRUCTASW = vStruct->result			deleteinstance vUHTTP					endif	endifend; operation GETBYSOSSECNO

Hello,

We need to implement a REST API that will call a REST WebService of our ERP (JD Edwards).
Can anyone share a simple REST API Call created with Uniface, so I don't need to perform too many tries and errors before I get it working correctly.

Thanks,

Stephane

Hi Ingo,
I suppose that you are right, it would be more efficient  not to "kill" the instance. Actually I was a bit surprised myself as I saw the Exit.
However what about "all further calls will fail", I suppose using "activate" will just start a new instance of the component.
Isn't it just about how you want the handle the instance of the component.

Hi Roger
I just saw that you used "EXIT" in an operation. that's not a good idea

if(P_HTTPSTAT<0)		exit(P_HTTPSTAT)

This exit kills your instance of the component, all further calls will fail.
Use RETURN(P_HTTPSTAT) instead :-)
Ingo

We get the answer in a changed vContent (json in)

operation GETBYSOSSECNO	params		string  P_URI       : IN		string  P_SIGNUM    : IN		string  P_MUNICIPALITY : IN		string  P_TOKEN        : IN		struct  P_STRUCTASW : OUT		numeric P_HTTPSTAT  : OUT	endparams	variables		string  vJson		string  vContent, vHeaders, vResponse		string  strStatBeg		string  vUri		handle  vUHTTP		struct  vStruct	endvariables			call MakeJsonSignum(P_SIGNUM, P_MUNICIPALITY, vJson)    ;Define nested struct and convert to Json	newinstance "UHTTP", vUHTTP	vUHTTP->SET_FLAGS(10)   	vURI = P_URI	;Create list of headers 	putitem/id vHeaders, "Content-Type", "application/json"	putitem/id vHeaders, "Authorization", "Bearer %%P_TOKEN%%%" 		vContent=vJson	; Call the UHTTP.SEND operation	P_HTTPSTAT = 0	P_HTTPSTAT = vUHTTP->SEND(vURI, "POST", "", "", vHeaders, vContent, vResponse)	if(P_HTTPSTAT<0)		exit(P_HTTPSTAT)	else		strStatBeg = "%%P_HTTPSTAT%%%"		strStatBeg = strStatBeg[1,1]		if(P_HTTPSTAT == 404 | P_HTTPSTAT == 200)			jsonToStruct vStruct, vContent			P_STRUCTASW = vStruct->result			deleteinstance vUHTTP		elseif(strStatBeg="1" | strStatBeg="3" | strStatBeg="4" | strStatBeg="5") ;Tex 503 "HTTP/1.1 503 Service Unavailable"			exit(P_HTTPSTAT)		else			jsonToStruct vStruct, vContent			P_STRUCTASW = vStruct->result			deleteinstance vUHTTP					endif	endifend; operation GETBYSOSSECNO

Hello,

We need to implement a REST API that will call a REST WebService of our ERP (JD Edwards).
Can anyone share a simple REST API Call created with Uniface, so I don't need to perform too many tries and errors before I get it working correctly.

Thanks,

Stephane