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!
Ideas and thoughts about Microsoft Identity, C# development, cabbages and kings and random flotsam on the incoming tide
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
INTEGER FILECOUNT, SCRIPT
INTEGER TIMEVAL
CHARACTER*10 C_FC
CHARACTER*10 C_TIMEVAL
...
ACQUIRE TEST-WIDE MUTEX "FC"
SET FILECOUNT = FILECOUNT + 1
CONVERT FILECOUNT TO C_FC
RELEASE TEST-WIDE MUTEX "FC"
ACQUIRE TEST-WIDE MUTEX "DocID"
LOAD TIME into TIMEVAL
!Ensure that the time provides 7 digits
SET TIMEVAL = TIMEVAL + 1000000
CONVERT TIMEVAL TO C_TIMEVAL
RELEASE TEST-WIDE MUTEX "DocID"