条件繰返し実行の構造を定義します。
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: |