REPORT  ZU                .

DATA: BEGIN OF ZAP OCCURS 0,
            I TYPE I,
            D TYPE D,
      END OF ZAP,
      BEGIN OF ZAPNAM OCCURS 0,
          N(20),
      END OF ZAPNAM,
      Y TYPE I.

Y = 1.

ZAPNAM-N = 'NOMER'. APPEND ZAPNAM.
ZAPNAM-N = 'DEN'. APPEND ZAPNAM.

WHILE Y <= 10.
  ZAP-I = Y.
  ZAP-D = SY-DATUM - Y.
  APPEND ZAP.
  ADD 1 TO Y.
ENDWHILE.

CALL FUNCTION 'GUI_DOWNLOAD'
   EXPORTING
      FILENAME = 'C:\TEST.DBF'
      FILETYPE = 'DBF'
      CODEPAGE = '1503'
      REPLACEMENT = '#'
   TABLES
      DATA_TAB = ZAP[]
      FIELDNAMES = ZAPNAM[]
   EXCEPTIONS
      OTHERS = 99.

REPORT  ZU                .

DATA: BEGIN OF ZAP OCCURS 0,
            I TYPE I,
            D TYPE D,
      END OF ZAP,
      BEGIN OF ZAPNAM OCCURS 0,
          N(20),
      END OF ZAPNAM,
      Y TYPE I.
Y = 1.

ZAPNAM-N = 'NOMER'. APPEND ZAPNAM.
ZAPNAM-N = 'DEN'. APPEND ZAPNAM.

WHILE Y <= 10.
  ZAP-I = Y.
  ZAP-D = SY-DATUM - Y.
  if y = 5.
    clear zap-d.
  endif.
  APPEND ZAP.
  ADD 1 TO Y.
ENDWHILE.

LOOP AT ZAP.
  IF ZAP-D IS INITIAL.
     ZAP-D = SPACE.
  ENDIF.
  MODIFY ZAP.
ENDLOOP.


CALL FUNCTION 'GUI_DOWNLOAD'
   EXPORTING
      FILENAME = 'C:\TEST.DBF'
      FILETYPE = 'DBF'
      CODEPAGE = '1503'
      DAT_MODE = 'X'
      REPLACEMENT = '#'
   TABLES
      DATA_TAB = ZAP[]
      FIELDNAMES = ZAPNAM[]
   EXCEPTIONS
      OTHERS = 99.