upload package

TABLES : TADIR.

TYPES: ABAPLINE(255).

DATA: I_REPSRC TYPE STANDARD TABLE OF ABAPLINE WITH HEADER LINE.

DATA: BEGIN OF ITAB OCCURS 0,

   PGMID TYPE TADIR-PGMID,

   OBJECT TYPE TADIR-OBJECT,

   OBJ_NAME TYPE TADIR-OBJ_NAME,

   DEVCLASS TYPE TADIR-DEVCLASS,

END OF ITAB.

DATA: PROG(60) , MC_FILENAME LIKE RLGRAP-FILENAME, FILENAME TYPE STRING.

PARAMETERS: PATH TYPE TADIR-DEVCLASS.

*SELECT STATEMENT.

SELECT PGMID OBJECT OBJ_NAME DEVCLASS FROM TADIR INTO TABLE ITAB WHERE PGMID = 'R3TR' AND OBJECT = 'PROG' AND DEVCLASS = PATH.

LOOP AT ITAB.

PROG = ITAB-OBJ_NAME.

READ REPORT PROG INTO I_REPSRC.

CONCATENATE 'E:\PROGRAM\' PROG '.TXT' INTO MC_FILENAME.

FILENAME = MC_FILENAME.

*FUNCTION MODULE FOR DOWNLOAD FILES INTO LOCAL SYSTEM

CALL FUNCTION 'GUI_DOWNLOAD'

EXPORTING

FILENAME = FILENAME

TABLES

DATA_TAB = I_REPSRC.

CLEAR PROG.

CLEAR I_REPSRC.

ENDLOOP.

MESSAGE 'CHECK YOUR FOLDER FOR THE PROGRAMS DOWNLOADED' TYPE 'S'.

how to upload the downloaded set of flat file help me...

Thanks & regards,

Raja