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