Handling Errors in Menu Programs in ABL
Caller.p
DEF INPUT PARAM p-int AS INT NO-UNDO.
CASE p-int:
WHEN 1 THEN DO:
RUN Callee.p NO-ERROR.
END.
WHEN 2 THEN DO:
RUN Callee.p NO-ERROR.
END.
END CASE.
IF ERROR-STATUS:ERROR THEN
RETURN RETURN-VALUE.
Callee.p
RETURN ERROR "An error has occured".
http://communities.progress.com/pcom/docs/DOC-16295
Advertisement
