Versions Compared

Old Version 6

changes.mady.by.user Rieko Saitoh

Saved on

compared with

New Version 7

changes.mady.by.user Rieko Saitoh

Saved on

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

以下の例では、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)  

...