条件繰返し実行の構造を定義します。
| WHILE [ <論理式> ] DO | |
| <ブロック> | |
| ENDWHILE |
| 構造 | コマンド | パラメータ |
|---|---|---|
| 代入 | $CNT := 0 | |
| 代入 | $TOTAL := 0 | |
| カーソル移動 | @ZAIKO, レコード数=0, 開始位置=先頭 | |
| WHILE $TOTAL<1000 DO | 代入 | $TOTAL := $TOTAL + @ZAIKO.[数量] |
| 代入 | $CNT := $CNT + 1 | |
| カーソル移動 | @ZAIKO, レコード数=1, 開始位置=現在位置 | |
| ENDWHILE |
| WHILE <論理式> DO |
| <ブロック> |
| ENDWHILE |
| LABEL_NEXT_LOOP: |
| IF <論理式> THEN |
| <ブロック> |
| GOTO LABEL_NEXT_LOOP |
| ENDIF |
| LABEL_EXIT_LOOP: |