REPORT Y96TEST_LIST_TO_EXCEL NO STANDARD PAGE HEADING LINE-SIZE 55.

INCLUDE .
INCLUDE .

DATA: INDEX TYPE I,
      DMBTR LIKE BSEG-DMBTR,
      NUM(5) TYPE N.
DATA: TOTAL_BTR LIKE BSEG-DMBTR.

DO 10 TIMES.
  INDEX = 10000 + SY-INDEX.
  NUM = SY-INDEX.
  DMBTR = INDEX.
  ADD DMBTR TO TOTAL_BTR.
  WRITE: / SY-VLINE, INDEX,
           SY-VLINE, NUM,
           SY-VLINE, DMBTR,
           SY-VLINE, SPACE AS CHECKBOX,
           SY-VLINE.

  CASE SY-INDEX.
  WHEN  1. WRITE: ICON_EXECUTE_OBJECT AS ICON.
  WHEN  2. WRITE: ICON_SELECT_DETAIL AS ICON.
  WHEN  3. WRITE: ICON_PRINT AS ICON.
  WHEN  4. WRITE: ICON_COPY_OBJECT AS ICON.
  WHEN  5. WRITE: ICON_SORT_DOWN AS ICON.
  WHEN  6. WRITE: ICON_SORT_UP AS ICON.
  WHEN  7. WRITE: ICON_SEARCH AS ICON.
  WHEN  8. WRITE: ICON_INSERT_ROW AS ICON.
  WHEN  9. WRITE: ICON_DELETE_ROW AS ICON.
  WHEN 10. WRITE: ICON_CHANGE_TEXT AS ICON.
  ENDCASE.
  WRITE SY-VLINE.

  CASE SY-INDEX.
  WHEN  1. WRITE: SYM_PLUS_BOX AS SYMBOL.
  WHEN  2. WRITE: SYM_MINUS_BOX AS SYMBOL.
  WHEN  3. WRITE: SYM_PLUS_CIRCLE AS SYMBOL.
  WHEN  4. WRITE: SYM_MINUS_CIRCLE AS SYMBOL.
  WHEN  5. WRITE: SYM_FILLED_SQUARE AS SYMBOL.
  WHEN  6. WRITE: SYM_HALF_FILLED_SQUARE AS SYMBOL.
  WHEN  7. WRITE: SYM_SQUARE AS SYMBOL.
  WHEN  8. WRITE: SYM_FILLED_CIRCLE AS SYMBOL.
  WHEN  9. WRITE: SYM_HALF_FILLED_CIRCLE AS SYMBOL.
  WHEN 10. WRITE: SYM_CIRCLE AS SYMBOL.
  ENDCASE.
  WRITE SY-VLINE.
ENDDO.

FORMAT COLOR COL_TOTAL.
ULINE.
  WRITE: / SY-VLINE, (11) 'Итого',
           SY-VLINE,  (5) '',
           SY-VLINE, (16) TOTAL_BTR,
           SY-VLINE,  (1) SPACE,
           SY-VLINE,  (2) SPACE,
           SY-VLINE,  (1) SPACE,
           SY-VLINE.
ULINE.
FORMAT COLOR OFF.

TOP-OF-PAGE.
WRITE: / 'Дата:', SY-DATUM.
FORMAT COLOR COL_HEADING.
ULINE.
  WRITE: / SY-VLINE, (51) 'Заголовок' CENTERED, SY-VLINE.
ULINE.
  WRITE: / SY-VLINE, (38) 'Числа в разных форматах' CENTERED,
           SY-VLINE, (10) 'Объекты' CENTERED,
           SY-VLINE.
ULINE.
  WRITE: / SY-VLINE, (11) 'Число',
           SY-VLINE,  (5) 'Число',
           SY-VLINE, (16) 'Сумма',
           SY-VLINE,  (1) 'X',
           SY-VLINE NO-GAP, (4) 'Icon' NO-GAP,
           SY-VLINE NO-GAP, (3) 'Sym' NO-GAP,
           SY-VLINE.
FORMAT COLOR OFF.
ULINE.