EVALUATE ステートメント

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---'