
5.8 Failure Handler Example
(FAILURE-HANDLER
(NAME SystemStepBodyFailureFH )
(TYPE System)
(USED-BY-TYPE Step)
(BODY
(TABLE
(DEPENDING-ON MESSAGE)
(MATCH
(IF ( "Programming problem" )
THEN (FAIL) )
(IF ( "Pre-decision constraint failure" )
THEN (USE-FH SystemPreDecisionConstraintFH
WITH CONTRIBUTING-MSG) )
(IF ( "Failure while getting known values" )
THEN (USE-FH SystemGettingKnownsFH
WITH CONTRIBUTING-MSG) )
(IF ( "Decision failure" )
THEN (USE-FH SystemDecisionFH
WITH CONTRIBUTING-MSG) )
)
(OTHERWISE
(DO (COMPLAIN "Message not recognized" )
(FAIL)
))
) ))
Figure 26: Failure Handler "SystemStepBodyFailureFH"
A Failure Handler (FH) can be o ...