Step 5: Process the HTTP response

At this stage a response to our request from the Web service has been received and is stored in the variable, resp. We defined the variable resp as an object of the com.HttpResponse class earlier, see Step 2: Import extension packages (com, xml, util). Now it is time to process the response.

LET resp = req.getResponse()

Start checking for errors. First get the HTTP status code returned in the response by calling the com.HttpResponse object's getStatusCode function referenced by the resp variable. Assign the status code to the "status" field of the info record ( for details about this record see Step 3: Define the records).

LET info.status = resp.getStatusCode()

The standard HTTP code of 200 indicates a successful operation, so we check for this before looking at the data.

IF info.status = 200 THEN 

If the HTTP response was good, we save the value for Content-type response header to the "resptype" field of the info record. The Content-type header defines the type associated with the message body's byte sequence. REST APIs commonly use "application/json"or "application/xml" to reveal the format of the message body.

LET info.resptype = resp.getHeader("Content-Type")

IF info.resptype.getIndexOf("/xml",1) THEN
    LET doc = resp.getXmlResponse()                  
    LET node = doc.getDocumentElement()
    CALL xml.Serializer.DomToVariable(node, add_out) 
    LET info.response = node.toString()
ELSE # JSON response processing
     [...]
END IF

If the Content-type indicates XML format, we store the HTTP response as data in the xml.DomDocument object referenced by the doc variable using the getXmlResponse function. We then get a reference to the root node of the doc variable object by instantiating the node variable defined as an object of the xml.DomNode class using the getDocumentElement function.

We store the HTTP response as a string in the "response" field of the info record with a reference to the resp variable, object of the com.HttpResponse class, using the getTextResponse function. Then we pass a reference to the info record in a call to the util.JSON.parse() function to convert the HTTP response to JSON format into the add_out record.

IF info.resptype.getIndexOf("/xml",1) THEN
   # XML  response processing
   [...]
ELSE # JSON response processing
     LET info.response = resp.getTextResponse()  
     CALL util.JSON.parse(info.response, add_out)
END IF

Finally, we output the HTTP response to the display depending on the status code.

IF add_out.status.code = 0 THEN
    DISPLAY add_in.a, "+", add_in.b, "=", add_out.r # Display the response, status and result
ELSE
    DISPLAY "[", add_out.status.code, "] ", add_out.r
END IF

If the HTTP request failed, we handle the error by formatting the HTTP response status code and description into the "response" field of the info record. Other program errors are caught in the CATCH block and stored in "result" fields of the info record.

TRY
[...]
    IF info.status = 200 THEN 
        [...]
    ELSE 
        LET info.response = SFMT("[%1] %2",resp.getStatusCode(), resp.getStatusDescription())
    END IF
CATCH
    # Catch other runtime execution errors from the sqlca diagnostic record
     LET info.result.code = status
     LET info.result.desc = sqlca.sqlerrm
 END TRY