Versions Compared

Old Version 1

changes.mady.by.user user-eb51a

Saved on

compared with

New Version Current

changes.mady.by.user Rieko Saitoh

Saved on

Key

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

...

   DEFINE     FIELD(#VAL1) REFFLD(#STD_NUM)
   DEFINE     FIELD(#VAL2) REFFLD(#STD_NUM)
   DEFINE     FIELD(#VAL3) REFFLD(#STD_NUM)
   DEFINE     FIELD(#I1) REFFLD(#STD_NUM)
   DEFINE     FIELD(#TOTAL) TYPE(*DEC) LENGTH(6) DECIMALS(2) LABEL(TOTAL) EDIT_CODE(3)
   DEF_ARRAY  NAME(#ARR) INDEXES(#I1) OF_FIELDS(#VAL1 #VAL2 #VAL3)
   CHANGE     FIELD(#TOTAL) TO(1)
   CHANGE     FIELD(#I1) TO(1)
   REQUEST    FIELDS(#VAL1 #VAL2 #VAL3)
   DOUNTIL    COND('#I1 > 3')
   CHANGE     FIELD(#ARR#I1) TO('#ARR#I1 * 1.1')
   CHANGE     FIELD(#TOTAL) TO('#TOTAL + #ARR#I1')
   CHANGE     FIELD(#I1) TO('#I1 + 1')
   ENDUNTIL  
   DISPLAY FIELDS(#TOTAL)

配列索引の詳細については、7.39 DOUNTIL コマンドのセクションを参照してください。