| Using Function Modules F4_FILENAME
by: Kalidas - t_kalidas@yahoo.co.in This is Kalidas, working as a Technical Consultant. Using F4_FILENAME function module we can port data into flatfile. This is material related details. Try the below code. *&---------------------------------------------------------------------* *& Report ZFILENAME_TEST *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT ZFILENAME_TEST. TABLES : MARA. *************************INTERNAL TABLE DECLARATION***************** TYPES : BEGIN OF ITAB, MATNR TYPE MARA-MATNR, MEINS TYPE MARA-MEINS, ERNAM LIKE MARA-ERNAM, AENAM LIKE MARA-AENAM, MTART LIKE MARA-MTART, END OF ITAB. DATA : IG_ITAB type ITAB OCCURS 0. DATA : V_FILE TYPE STRING. DATA : T_FILE TYPE RLGRAP-FILENAME. ***********************RETRIVE DATA FROM DATABASE******************* break sgopal. SELECT MATNR MEINS ERNAM AENAM MTART FROM MARA INTO CORRESPONDING FIELDS OF TABLE IG_ITAB up to 10 rows. *****************CALLING FUNCTION MODULES************************** CALL FUNCTION 'F4_FILENAME' "PASS THE FILE NAME AS U NEED. EXPORTING * PROGRAM_NAME = SYST-CPROG * DYNPRO_NUMBER = SYST-DYNNR FIELD_NAME = 'T_FILE' IMPORTING FILE_NAME = T_FILE. V_FILE = T_FILE. "STRING CONVERSION ***************CALLING GUI DOWNLOAD TO EXTRACT********************* CALL FUNCTION 'GUI_DOWNLOAD' EXPORTING * BIN_FILESIZE = filename = V_FILE FILETYPE = 'ASC' * APPEND = ' ' WRITE_FIELD_SEPARATOR = 'X' * HEADER = '00' * TRUNC_TRAILING_BLANKS = ' ' WRITE_LF = 'X' * COL_SELECT = ' ' * COL_SELECT_MASK = ' ' * DAT_MODE = ' ' * CONFIRM_OVERWRITE = ' ' * NO_AUTH_CHECK = ' ' * CODEPAGE = ' ' * IGNORE_CERR = ABAP_TRUE * REPLACEMENT = '#' * WRITE_BOM = ' ' * TRUNC_TRAILING_BLANKS_EOL = 'X' * WK1_N_FORMAT = ' ' * WK1_N_SIZE = ' ' * WK1_T_FORMAT = ' ' * WK1_T_SIZE = ' ' * IMPORTING * FILELENGTH = tables data_tab = IG_ITAB * FIELDNAMES = EXCEPTIONS FILE_WRITE_ERROR = 1 NO_BATCH = 2 GUI_REFUSE_FILETRANSFER = 3 INVALID_TYPE = 4 NO_AUTHORITY = 5 UNKNOWN_ERROR = 6 HEADER_NOT_ALLOWED = 7 SEPARATOR_NOT_ALLOWED = 8 FILESIZE_NOT_ALLOWED = 9 HEADER_TOO_LONG = 10 DP_ERROR_CREATE = 11 DP_ERROR_SEND = 12 DP_ERROR_WRITE = 13 UNKNOWN_DP_ERROR = 14 ACCESS_DENIED = 15 DP_OUT_OF_MEMORY = 16 DISK_FULL = 17 DP_TIMEOUT = 18 FILE_NOT_FOUND = 19 DATAPROVIDER_EXCEPTION = 20 CONTROL_FLUSH_ERROR = 21 OTHERS = 22 . IF sy-subrc <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. OUT WHICH I GOT : 'FILENAME.XLS'. 24 EE RTAMANAMU FGTR 31 EA AMUKHERJEE MMOHAN FERT 41 EA NMISHRA LCARAG HALB 42 EA NMISHRA HALB 44 KG GKV ROH 61 EA MAHMMED ZFER 62 EA MAHMMED ZFER 63 EA MAHMMED ZFER 71 EA MAHMMED NKUMAR ZFER 93 EA RAMAMOHAN_C RAMAMOHAN_C ROH Get help for your ABAP problems
ABAP Books
More ABAP Tips
SAP Basis, ABAP Programming and Other IMG Stuff http://www.erpgreat.com All the site contents are Copyright © www.erpgreat.com
and the content authors. All rights reserved.
|