条件分岐 

条件分岐を行うと、1 つ以上の論理式の結果をもとに、処理ブロックが実行されるかどうかが決定されます。ABAP は、条件分岐の制御構造を 2 つ備えています。

IF 制御構造

この制御構造は IF 命令で導入されます。IF 命令により、条件に応じてプログラムフローを特定の命令ブロックに派生させることができます。命令ブロックは、ENDIF 、ELSEIF 、または ELSE で閉じられます。

IF < 条件₁>.
  < 命令ブロック>
ELSEIF < 条件₂>
  < 命令ブロック>.
ELSEIF < 条件₃>.
  < 命令ブロック>
.....
ELSE.
  < 命令ブロック>
ENDIF.

IF または ELSEIF 命令で条件式を作る場合は、すべての論理式を使うこともできます。

1 つ目の条件が真の場合は、最初の命令ブロックの最後までの命令がすべて実行されます。その後 ENDIF 命令の後の処理が続行されます。1 つ目の条件が真でない場合、次の ELSEIF 命令までジャンプして、IF 命令と同じように ELSEIF 命令を実行します。ELSE は、IF と ELSEIF のどちらも真でなかった場合に実行される命令ブロックの最初に記述します。最後の命令ブロックは、必ず ENDIF で閉じてください。

また、IF 制御構造はネストすることができます。ただし、命令ブロックは現在の処理ブロック内ですべて終了させなければなりません。したがって、たとえば、IF から ENDIF のブロックにイベントキーワードを記述してはなりません。

 

DATA: TEXT1(30) VALUE 'This is the first text',
      TEXT2(30) VALUE 'This is the second text',
      TEXT3(30) VALUE 'This is the third text',
      STRING(5) VALUE 'eco'.

IF TEXT1 CS STRING.
  WRITE / 'Condition 1 is fulfilled'.
ELSEIF TEXT2 CS STRING.
  WRITE / 'Condition 2 is fulfilled'.
ELSEIF TEXT3 CS STRING.
  WRITE / 'Condition 3 is fulfilled'.
ELSE.
  WRITE / 'No condition is fulfilled'.
ENDIF.

出力は次のようになります。

Condition 2 is fulfilled.

文字列 "eco" が TEXT2 にあるので、2 つ目の論理式 TEXT2 CS STRING は真です。

CASE 制御構造

この制御構造は CASE 命令で導入されます。CASE 制御構造を使うと、データオブジェクトの内容をもとに処理される命令ブロックを制御することができます。

CASE <f>.
  WHEN <f₁₁> [OR <f₁₂> OR ...].
       < 命令ブロック>
  WHEN <f₂₁>.[OR <f₂₂> OR ...]
       < 命令ブロック>
  WHEN <f₃₁> [OR <f₃₂> OR ...].
       < 命令ブロック>
   WHEN ...
  ......
  WHEN OTHERS.
       < 命令ブロック>
ENDCASE.

WHEN 命令の後の命令ブロックは、<f> の内容が項目 <f_ij> のいずれかと等しい場合に実行されます。その後、プログラムは ENDCASE 命令の後の処理を続行します。オプションの WHEN OTHERS 命令の後の命令ブロックは、<f> の内容が項目 <f _ij> のいずれとも等しくない場合に実行されます。最後の命令ブロックは、ENDCASE で閉じてください。

CASE 制御構造は、次の IF 構造の短縮フォームです。

IF <f> = <f₁₁> OR <f> = <f₁₂> OR <f> = ...
  < 命令ブロック>
ELSEIF <f> = <f₂₁> OR <f> = <f₂₂> OR <f> =...
  < 命令ブロック>
ELSEIF <f> = <f₂₁> OR <f> = <f₂₂> OR <f> =...
  < 命令ブロック>
ELSEIF <f> = ...
  ...
ELSE.
  < 命令ブロック>
ENDIF.

CASE 制御構造をネストして、IF 構造に組み込むことも可能です。ただし、その処理ブロック内で ENDCASE 命令を使って必ず終了させてください。

 

DATA: TEXT1   VALUE 'X',
      TEXT2   VALUE 'Y',
      TEXT3   VALUE 'Z',
      STRING  VALUE 'A'.

CASE STRING.
  WHEN TEXT1 OR TEXT2.
    WRITE: / 'String is', TEXT1, 'OR', TEXT2.
  WHEN TEXT3.
    WRITE: / 'String is', TEXT3.
  WHEN OTHERS.
    WRITE: / 'String is not', TEXT1, TEXT2, TEXT3.
ENDCASE.

出力は次のようになります。

String is not X Y Z

STRING の中の 'A' は ‘X’ 、‘Y’ 、‘Z’ と等しくないので、WHEN OTHERS の後の最後の命令ブロックが処理されます。