Skip to Content
0
Former Member
Sep 07, 2007 at 03:04 PM

Execute a periodically export of a table

82 Views

Hello,

I'm using the following program to export the table MARD on the disk.

When I'm executing manually this program the table is exported without errors.

I've created a periodic job (hourly) with SM36 that executes my program, but without any error message, my table is not downloaded on the disk (the job status is Finished).

Is there another way of perioadically export a table on the disk?

Thanks.

Here is the program I use to export MARD on the disk:

REPORT ZMARD.

TABLES: MARD,DD02L.

DATA: ZX030L LIKE X030L.

DATA BEGIN OF ZDFIES OCCURS 0.

INCLUDE STRUCTURE DFIES.

DATA END OF ZDFIES.

DATA: BEGIN OF FLDITAB OCCURS 0,

FLDNAME(11) TYPE C,

END OF FLDITAB.

DATA ITABMARD LIKE MARD OCCURS 0 WITH HEADER LINE.

DATA TNAME LIKE DD02L-TABNAME.

SELECT * FROM MARD INTO TABLE ITABMARD WHERE LABST <> 0.

TNAME = 'MARD'.

PERFORM GETFIELEDS.

PERFORM DWDBFFILE.

********************************************

FORM GETFIELEDS.

CALL FUNCTION 'GET_FIELDTAB'

EXPORTING

LANGU = SY-LANGU

ONLY = SPACE

TABNAME = TNAME

WITHTEXT = 'X'

IMPORTING

HEADER = ZX030L

TABLES

FIELDTAB = ZDFIES

EXCEPTIONS

INTERNAL_ERROR = 01

NO_TEXTS_FOUND = 02

TABLE_HAS_NO_FIELDS = 03

TABLE_NOT_ACTIV = 04.

CASE SY-SUBRC.

WHEN 0.

LOOP AT ZDFIES.

FLDITAB-FLDNAME = ZDFIES-FIELDNAME.

APPEND FLDITAB.

ENDLOOP.

WHEN OTHERS.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

with SY-SUBRC.

ENDCASE.

ENDFORM.

***********************************

FORM DWDBFFILE.

CALL FUNCTION 'WS_DOWNLOAD'

EXPORTING

FILENAME = 'C:\MARD.DBF'

FILETYPE = 'DBF'

TABLES

DATA_TAB = ITABMARD

FIELDNAMES = FLDITAB

EXCEPTIONS

FILE_OPEN_ERROR = 1

FILE_WRITE_ERROR = 2

INVALID_FILESIZE = 3

INVALID_TYPE = 4

NO_BATCH = 5

UNKNOWN_ERROR = 6

INVALID_TABLE_WIDTH = 7

GUI_REFUSE_FILETRANSFER = 8

CUSTOMER_ERROR = 9

OTHERS = 10.

ENDFORM.