openSTA : Logging SOAP faults

The audit log contains the items you log. To log the fact that your web service returned a SOAP fault use something like:

CHARACTER*65535 BODY_RESPONSE
INTEGER FNIDOFFSET

...

LOAD RESPONSE_INFO BODY ON 1 INTO BODY_RESPONSE

SET FNIDOFFSET = ~LOCATE('SOAP:Fault', BODY_RESPONSE), CASE_BLIND
IF (FNIDOFFSET >= 0) THEN
LOG "SOAP:Fault error detected"
ENDIF

Enjoy!