*&---------------------------------------------------------------------*

*& Report ZDATATRANSFER *

*& *

*&---------------------------------------------------------------------*

*& Sreeni Meka *

*& Sr. Systems Analyst *

*& 10/08/97 *

*&---------------------------------------------------------------------*

REPORT ZDATATRANSFER .

*& This Program prints the Purchase Info records and the plant delay

*& time on the word.

TABLES: EINE, EINA.

* Since APLFZ is data type DEC, I moved the data into CHAR.

DATA: BEGIN OF ITAB OCCURS 0,

INFNR LIKE EINA-INFNR,

DUMMY(10) TYPE C,

APLFZ LIKE EINE-APLFZ,

END OF ITAB.

SELECT EINA~INFNR EINE~APLFZ INTO (ITAB-INFNR, ITAB-APLFZ) FROM

( EINA INNER JOIN EINE ON EINA~INFNR EQ EINE~INFNR )

ORDER BY EINA~INFNR.

ITAB-DUMMY = ITAB-APLFZ.

APPEND ITAB.

ENDSELECT.

CALL FUNCTION 'WS_DOWNLOAD'

EXPORTING

FILENAME = 'C:\TEMP\TEST.doc'

TABLES

DATA_TAB = ITAB.

CALL FUNCTION 'WS_EXECUTE'

EXPORTING

PROGRAM = 'C:\Program Files\Microsoft Office\Office\WINWORD.EXE'

COMMANDLINE = 'C:\TEMP\TEST.doc'

INFORM = ''

EXCEPTIONS

PROG_NOT_FOUND.

CLEAR ITAB.

REFRESH ITAB.

*& Good Luck; Sreeni=)