Using the generated functions

You call the Add function in your Client application, defining variables for the parameters and return values. The input variables for our example are simple integers.

FUNCTION myWScall()  
  DEFINE op1 INTEGER
  DEFINE op2 INTEGER
  DEFINE result INTEGER
  DEFINE wsstatus  INTEGER
  ...
  LET op1 = 6 
  LET op2 = 8
  CALL Add(op1, op2) 
    RETURNING wsstatus, result ...
  DISPLAY result

An alternative option is to call the Add_g function instead, using the global records Add and AddResponse directly. If the input variables are complex structures like records or arrays, you are required to use this function.

FUNCTION myWScall()
  DEFINE wsstatus INTEGER
  ...
  LET Add.a = 6
  LET Add.b = 8
  LET wsstatus = Add_g()
  ...
  DISPLAY AddResponse.r

If you don't want your application to be blocked when waiting for the response to a request, it is recommended that you first call AddRequest_g; this will send the request using the global Add record to the server. It returns a status of 0 (zero) if everything goes well, -1 in case of error, or -2 if you tried to resend a new request before the previous response was retrieved.

FUNCTION sendMyWScall()
  DEFINE wsstatus INTEGER
  ...
  LET Add.a = 6
  LET Add.b = 8
  LET wsstatus = AddRequest_g()
  IF wstatus <> 0 THEN
    DISPLAY "ERROR :", wsError.code
  END IF
  ...

You can then call AddResponse_g to retrieve the response in the AddResponse global record of the previous request. If the returned status is 0 (zero), the response was successfully received; -1 means that there was an error, and -2 means that the response was not yet received and that the function needs to be called later.

FUNCTION retrieveMyWScall()
  DEFINE wsstatus INTEGER
  ...
  LET wsstatus = AddResponse_g()  
  CASE wstatus
    WHEN -2
      DISPLAY "No response available, try later"
    WHEN 0
      DISPLAY "Response is :",AddResponse.r  
    OTHERWISE
      DISPLAY "ERROR :", wsError.code
  END CASE
  ...