For Each コマンド、Xfor Each コマンド、Do While コマンド、または For To Step コマンドを残します。

構文

Exit

適用範囲

オブジェクト: Procedure、Work Panel、Web Panel、Panel

説明

このコマンドを使用すると、For Each コマンド、Xfor Each コマンド、Do While コマンド、または For To Step コマンドを終了できます。Exit コマンドの次に実行するコマンドは、For Each、Xfor Each、Do While または Exit コマンドを含むグループに対応する EndFor、Xendfor、EndDo、または EndFor などのコマンドです。
注:

• Exit コマンドは For Each Line グループ内では有効ではありません。
• Exit は、Cobol for iSeries コードで生成された場合、Do While 内では動作しません。

例

従業員の情報を処理するシステムにおいて、次の Transaction オブジェクトを考慮します。
Employee
{  
   EmployeeId*
   EmployeeName
   EmployeeDateOfBirth
   EmployeeDateOfAdmission
   EmployeeResignDate
   ....
}
従業員が特定の期間内に退職したかどうかを知る必要があるとします。 
この条件を満たすデータが少なくとも 1 件あることを確認した後、For Each を終了して検索を終えます。
実装方法は次のようになります:

&Found = 0 For each Employee order EmployeeResignDate 
  Where EmployeeResignDate >= &StartDate 
  Where EmployeeResignDate <= &EndDate 
       &Found = 1 
  Exit 
EndFor 
If &Found = 1 
  Msg('条件を満たす従業員が見つかりました'') 
Else 
  Msg('条件を満たす従業員が見つかりませんでした'') 
EndIf

参考情報

For Each コマンド
Xfor Each コマンド
Do While コマンド
For To Step コマンド