Page History
...
DOUNTIL . . . ENDUNTILを実行して"n"個のレコードをファイルに入力するDOUNTIL . . . ENDUNTILを実行して"n"個のレコードをファイルに入力する
DOUNTILのパラメータでDEF_CONDの値を使用して、わかりやすく保守しやすいコードにする
DOUNTIL . . . ENDUNTILとIF . . . GOTO . . . ENDIFの使用例を比較する
...
以下の例では、10名の従業員の詳細がファイルに挿入されます。
GROUP_BY NAME(#EMPDET) FIELDS(#EMPNO #SURNAME #SALARY)
DEFINE FIELD(#COUNT) REFFLD(#STD_NUM)
DEF_LIST NAME(#WORKER) FIELDS(#EMPNO #SURNAME #SALARY)
CHANGE FIELD(#COUNT) TO(1)
DOUNTIL COND('#COUNT > 10')
DISPLAY FIELDS(#COUNT)
proREQUEST FIELDS(#EMPNO #SURNAME #SALARY)
ADD_ENTRY TO_LIST(#WORKER)
CHANGE FIELD(#COUNT) TO('#COUNT + 1')
ENDUNTIL
DISPLAY BROWSELIST(#WORKER)
...