Genero Web Services (GWS) tests INT_FLAG to check if an application has been interrupted.
If INT_FLAG is set to TRUE, the DVM interrupts the GWS function processing and an exception is raised with error code -15553.
TRY
   LET INT_FLAG=FALSE
   ...
   CALL req.sendXMLRequest(doc)
   ...
CATCH
   CASE STATUS
      WHEN -15553 -- TCP socket error
        IF INT_FLAG THEN
           MESSAGE "An interruption occured."
        ELSE
           ERROR "TCP socket error: ", SQLCA.SQLERRM
        END IF
      ...
   END CASE
END TRY