Comment On Add Ability To Return Custom Object Fields In Soap Faults Returned From An...

[Abdul Mukit]

Here's the test web service: USING PROGRESS.Lang.*. DEFINE INPUT PARAMETER RequestData AS CHARACTER NO-UNDO. DEFINE OUTPUT PARAMETER ResponseData AS CHARACTER NO-UNDO INITIAL "". DEFINE VARIABLE gobj_AppError AS CLASS CustomErrors.CustomError NO-UNDO. ASSIGN ResponseData = STRING(NOW). IF RequestData = "ERROR" THEN DO: gobj_AppError = NEW CustomErrors.CustomError(). gobj_AppError:AddMessage("Example Error Message", 1). gobj_AppError:ReturnValue = gobj_AppError:GetMessage(1). gobj_AppError:ErrorCode = "E001". RETURN ERROR gobj_AppError. END. ELSE DO: IF RequestData <> ? THEN ASSIGN ResponseData = ResponseData + " Request data = " + RequestData. END.

Continue reading...