Versions Compared

Old Version 3

changes.mady.by.user Rieko Saitoh

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.

...

   DEF_ARRAY NAME(#MTH) TYPE(*CHAR) TOT_ENTRY(12) ENTRY_LEN(2) INDEXES(#II) OVERLAYING(#SALDATA 1)
   OVERRIDE  FIELD(#MTH#II) COLHDG('Month')
   DEF_ARRAY NAME(#EXP) TYPE(*DEC) TOT_ENTRY(12) ENTRY_LEN(7) ENTRY_DEC(2) INDEXES(#II) OVERLAYING(#SALDATA 25)
   OVERRIDE  FIELD(#EXP#II) COLHDG('Expected' 'Sales') EDIT_CODE(3)
   DEF_ARRAY NAME(#ACT) TYPE(*DEC) TOT_ENTRY(12) ENTRY_LEN(7) ENTRY_DEC(2) INDEXES(#II) OVERLAYING(#SALDATA 73)
   OVERRIDE  FIELD(#ACT#II) COLHDG('Actual' 'Sales') EDIT_CODE(3)
   DEF_LINE  NAME(#SALES) FIELDS(#MTH#II #EXP#II #ACT#II)
   DEFINE    FIELD(#EXP_TOT) REFFLD(#EXP#II) LABEL('Total Expected')
   DEFINE    FIELD(#ACT_TOT) REFFLD(#ACT#II) LABEL('Total Actual')
   DEF_BREAK NAME(#TOTAL) FIELDS(#EXP_TOT #ACT_TOT)
   SELECT  FIELDS(#SALDATA) FROM_FILE(SALES)
       BEGIN_LOOP FROM(1) TO(12) USING(#II)
       KEEP_TOTAL OF_FIELD(#EXP#II) IN_FIELD(#EXP_TOT)
       KEEP_TOTAL OF_FIELD(#ACT#II) IN_FIELD(#ACT_TOT)
       PRINT LINE(#SALES)
       END_LOOP
   ENDSELECT
   ENDPRINT 
   * 自動的に総計行を印刷