EVALUATE ステートメントは、ネストされた一連の IF ステートメントに対する省略表現を提供します。 これは、複数の条件を評価できます。 すなわち、IF ステートメントでは複合条件での構成になります。 オブジェクト・プログラムのその後の処置は、これらの評価の結果によって決まります。
EVALUATE ステートメント - 形式 >>-EVALUATE--+-ID-1---+--+----------------------+---------------> +-リテラル-1-+ | .------------------. | +-式-1----+ | V | | +-TRUE---+ '---ALSO--+-ID-2---+-+-' '-FALSE--' +-リテラル-2-+ +-式-2----+ +-TRUE---+ '-FALSE--' .-------------------------------------------------. | .--------------------------------. | V V | | >------| WHEN 句 |--+----------------+-+--命令ステートメント-1-+----------> | .------------. | | V | | '---| ALSO 句 |-+-' >--+-------------------------+--+--------------+--------------->< '-WHEN OTHER--命令ステートメント-2-' '-END-EVALUATE-' WHEN 句 |--WHEN--+-ANY----------------------------------------------+---| +-条件-1---------------------------------------------+ +-TRUE---------------------------------------------+ +-FALSE--------------------------------------------+ '-+-----+--+-ID-3---+--+-------------------------+-' '-NOT-' +-リテラル-3-+ '-+-THROUGH-+--+-ID-4---+-' '-算術式-1--' '-THRU----' +-リテラル-4-+ '-算術式-2--' ALSO 句 |--ALSO--+-ANY----------------------------------------------+---| +-条件-2---------------------------------------------+ +-TRUE---------------------------------------------+ +-FALSE--------------------------------------------+ '-+-----+--+-ID-5---+--+-------------------------+-' '-NOT-' +-リテラル-5-+ '-+-THROUGH-+--+-ID-6---+-' '-算術式-3--' '-THRU----' +-リテラル-6-+ '-算術式-4--'