Download to Flat file

Hi Experts,
when ever any customer master record is created. One flat should be generated automatically.How it can be possible...
Is it possible through BDC or any other way to get flat file.....
Please send any sample programs or steps to continue..
Thanks in advance..
Radhika

HI,
As Sravan suggested I am moving to see exit in the transaction. I am able to get it also...
Thanks Sravan...
I have some doubts in that scenario....
1) How will be the performance if more transactions occur?
Ex : If we create 2000 pruchase order in one hour...
2) Do the GUI_UPLOAD wiil happen in background..
Thanks,
Radhika

Similar Messages

Urgent!!!Need code to fetch all sales order data and download to flat file

urgent!!!Need code to fetch all sales order data and download to flat file

 D A T A B A S E T A B L E S *
TABLES: vbak, "Sales Document: Header Data
 VBAP, "Sales Document: Item Data
 MARA,VAPMA,VBPA,VBLB,VBEP,
 VBKD. "Murali Poli .
 I N T E R N A L T A B L E S *
Internal table to hold the Delphi material numbers file
DATA: BEGIN OF tbl_matnr OCCURS 0,
 matnr LIKE mara-matnr, "Material number
 END OF tbl_matnr.
Internal table to hold customer cross ref data
DATA: BEGIN OF TBL_CUST_SA OCCURS 0,
 OLD_KUNNR LIKE KNA1-KUNNR, "Old Customer
 OLD_VKORG LIKE A004-VKORG, "Old Sales organisation
 OLD_VTWEG LIKE A004-VTWEG, "Old Distribution channel
 NEW_KUNNR LIKE KNA1-KUNNR, "New Customer
 NEW_VKORG LIKE A004-VKORG, "New Sales organisation
 NEW_VTWEG LIKE A004-VTWEG, "New Distribution channel
 PARVW LIKE VBPA-PARVW , "Partner function
END OF TBL_CUST_SA.
Internal table to check the material numbers of the input file
DATA: tbl_mara LIKE tbl_matnr OCCURS 0 WITH HEADER LINE.
Work area to hold the header record
DATA: BEGIN OF w_sa_header,
 recordtype(1), "Record type
 schedulingagreement(4), "SA Type
 contractreference(10), "Contract Reference
 salesorg(4), "Sales Organization
 distrchannel(2), "Distribution channel
 division(2), "Sales division
 PONUMBER(35), "Purchase order number"gsbhondave
 soldtoparty(12), "Sold-to party
 shiptoparty(12), "Ship-to party
 collectivenumber(10), "Collective number
 description(40), "Description
 roundqty(13), "Rounding Qty
 pdsi(4), "PDI
 correctiondeliverydate(8), "Correction Delivery Dt
 correctionqty(13), "Correction Qty
 cumulativereceivedqty(13), "Cumulative Received Qty
 forecastdeliveryschedule(17), "Forecast Delivery Schedule
 forecastdelscheddate(8), "Forecast Delivery Schedule Dt
 jitdeliveryschedule(17), "JIT Delivery Schedule
 jitdeliveryscheduledate(8), "JIT Delivery Schedule Dt
 materialnumber(18), "Material number
 plant(4), "Plant
 item_category(4), "Item Category
 suppliercode(15), "Supplier code
 scac(4), "SCAC
 deloc(12), "DELOC
 pkg_id(12), "Packaging ID
 catno(30), "Ultimate Cust Part
 lgort(4), "Storage Location
 vstel(4), "Shipping point
Adding fields by Murali Poli
 VSBED(2), "Shipping conditions
 INCO1(3), "Incoterms (part 1)
 INCO2(28), "Incoterms (part 2)
 ZECN(1), "Engineering Change Letter
End of Adding fields by Murali Poli
 END OF w_sa_header.
Work area to hold the forecast record
DATA: BEGIN OF w_sa_forecast,
 recordtype(1), "Record Type
 dateformat(1), "Date format
 forecastdate(8), "Forecast date
 forecastorderqty(13), "Order Qty
 END OF w_sa_forecast.
Work area to hold the jit record
DATA: BEGIN OF w_sa_jit,
 recordtype(1), "Record Type
 dateformat(1), "Date format
 jitdate(8), "JIT date
 jittime(6), "JIT Time
 jitorderqty(13), "Order Qty
 END OF w_sa_jit.
Internal table to hold the Extracted data
DATA: BEGIN OF tbl_record OCCURS 0,
 record_type,
 DATA(400), " changed from 325 to 400
 END OF tbl_record.
Internal table to capture the errors
DATA: BEGIN OF tbl_error OCCURS 0,
 error_text(135),
 END OF tbl_error.
Internal table to hold the records of VBAP_VAPMA
DATA: BEGIN OF tbl_vbap_vapma OCCURS 0,
VBELN LIKE VAPMA-VBELN, "Sales and distribution document number
POSNR LIKE VAPMA-POSNR, "Item number
AUART LIKE VAPMA-AUART, "SA Type
VKORG LIKE VAPMA-VKORG, "Sales Organization
VTWEG LIKE VAPMA-VTWEG, "Distribution channel
SPART LIKE VAPMA-SPART, "Division
KUNNR LIKE VAPMA-KUNNR, "Sold-to
 plavo like vbap-plavo, "PDI
MATNR LIKE VAPMA-MATNR, "Material number
WERKS LIKE VAPMA-WERKS, "Plant
TRVOG LIKE VAPMA-TRVOG, "Transaction group
VBTYP LIKE VBAK-VBTYP, "SD document category "Murali Poli
VSBED LIKE VBAK-VSBED, "Shipping conditions "Murali Poli
BSTNK LIKE VBAK-BSTNK, " Purchase order number " gsbhondave
KTEXT LIKE VBAK-KTEXT,
VGBEL LIKE VBAP-VGBEL, "Reference document no
ABLFZ LIKE VBAP-ABLFZ, "Rounding qty
PSTYV LIKE VBAP-PSTYV, "Item category
LGORT LIKE VBAP-LGORT, "Storage location
VSTEL LIKE VBAP-VSTEL, "Shipping point
END OF TBL_VBAP_VAPMA.
DATA: BEGIN OF TBL_VBAP OCCURS 0,
VBELN LIKE VAPMA-VBELN,
POSNR LIKE VAPMA-POSNR,
VGBEL LIKE VBAP-VGBEL,
ABLFZ LIKE VBAP-ABLFZ,
PSTYV LIKE VBAP-PSTYV,
LGORT LIKE VBAP-LGORT,
VSTEL LIKE VBAP-VSTEL,
END OF TBL_VBAP.
Adding by Murali Poli
DATA:BEGIN OF TBL_VBKD OCCURS 0,
 VBELN LIKE VBKD-VBELN,
 POSNR LIKE VBKD-POSNR,
 INCO1 LIKE VBKD-INCO1,
 INCO2 LIKE VBKD-INCO2,
 END OF TBL_VBKD.
End by Murali Poli
Internal table to hold temporarily the records of VBAP_VAPMA
DATA: tbl_vbap_vapma_temp LIKE tbl_vbap_vapma OCCURS 0 WITH HEADER LINE.
Internal table to hold the records of VBPA
DATA: BEGIN OF tbl_vbpa OCCURS 0,
 vbeln LIKE vbpa-vbeln, "Sales and distribution
 "document number
 posnr LIKE vbpa-posnr, "Item number
 parvw LIKE vbpa-parvw, "SP Partner type
 kunnr LIKE vbpa-kunnr, "Customer number
 lifnr LIKE vbpa-lifnr, "SCAC code "DN3K923909
 END OF tbl_vbpa.
Internal table to hold the records of VBLB (Forecast)
DATA: BEGIN OF tbl_vblb_forecast OCCURS 0,
 vbeln LIKE vblb-vbeln,
 posnr LIKE vblb-posnr,
 abart LIKE vblb-abart, "Release type
 abefz LIKE vblb-abefz, "Cumulative Quantity
 "Received by Customer
 labnk LIKE vblb-labnk, "Delivery schedule
 abrdt LIKE vblb-abrdt, "Deivery date
 gjkun LIKE vblb-gjkun, "Current fiscal year
 vjkun LIKE vblb-vjkun, "Previous fiscal year
 END OF tbl_vblb_forecast.
Internal table to hold the records of VBLB (JIT)
DATA: BEGIN OF tbl_vblb_jit OCCURS 0,
 vbeln LIKE vblb-vbeln,
 posnr LIKE vblb-posnr,
 abart LIKE vblb-abart, "Release type
 abefz LIKE vblb-abefz, "Cumulative Quantity
 "Received by Customer
 labnk LIKE vblb-labnk, "Delivery schedule
 abrdt LIKE vblb-abrdt, "Deivery date
 gjkun LIKE vblb-gjkun, "Current fiscal year
 vjkun LIKE vblb-vjkun, "Previous fiscal year
 END OF tbl_vblb_jit.
Internal table to hold the Forecast Schedule lines
DATA: BEGIN OF tbl_vbep_forecast OCCURS 0,
 vbeln LIKE vbep-vbeln, "Sales document
 posnr LIKE vbep-posnr, "Item number
 etenr LIKE vbep-etenr, "Schedule line
 edatu LIKE vbep-edatu, "Schedule line date
 ezeit LIKE vbep-ezeit, "Arrival time "DN3K923909
 wmeng LIKE vbep-wmeng, "Order quantity in sales units
 prgrs LIKE vbep-prgrs, "Date type (day, week, month, interval)
 abart LIKE vbep-abart, "Release type "DN3K923909
 END OF tbl_vbep_forecast.
Internal table to hold the JIT Schedule lines
DATA: BEGIN OF tbl_vbep_jit OCCURS 0,
 vbeln LIKE vbep-vbeln, "Sales document
 posnr LIKE vbep-posnr, "Item number
 etenr LIKE vbep-etenr, "Schedule line
 edatu LIKE vbep-edatu, "Schedule line date
 ezeit LIKE vbep-ezeit, "Arrival time
 wmeng LIKE vbep-wmeng, "Order quantity in sales units
 prgrs LIKE vbep-prgrs, "Date type (day, week, month, interval)
 abart LIKE vbep-abart, "Release type "DN3K923909
 END OF tbl_vbep_jit.
Internal table for Long texts
DATA: tbl_tline LIKE tline OCCURS 0 WITH HEADER LINE.
 V A R I A B L E S *
DATA: v_count TYPE i,
 V_REPID LIKE SY-REPID,
 w_eins LIKE vbap-umvkz VALUE 1,
 v_cumulative_deli_qty LIKE vblb-abefz,
 v_text_name LIKE thead-tdname,
 v_week LIKE scal-week,
 v_count_h TYPE i, "Count of header records
 v_count_f TYPE i, "Count of Forecast records
 v_count_j TYPE i, "Count of JIT records
 v_count_t TYPE i. "Count of Shipping instructions
TYPES: unixfile LIKE rlgrap-filename,
 unixdir LIKE rlgrap-filename.
DATA: v_file1 TYPE unixfile,
 v_file2 TYPE unixfile.
DATA: tbl_dynpfields LIKE dynpread OCCURS 0 WITH HEADER LINE.
*data tbl_cust_sa.
 S E L E C T - O P T I O N S / P A R A M E T E R S *
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
 Valid-to date
PARAMETER:
 p_gueen like vbak-gueen obligatory,
 Correction Delivery date
 P_DELDT LIKE VBAK-GUEEN OBLIGATORY.
Begin of Changes - TIR-40266
 Plant
SELECT-OPTIONS: s_werks FOR vbap-werks.
*SD document category
SELECT-OPTIONS: S_VBTYP FOR VBAK-VBTYP OBLIGATORY." Murali Poli
 Sales organization
SELECT-OPTIONS: S_VKORG FOR VBAK-VKORG OBLIGATORY.
End of Changes - TIR-40266
SELECTION-SCREEN SKIP 1.
PARAMETER: r1 RADIOBUTTON GROUP rg1.
 Material numbers file
PARAMETER: P_FILE1 LIKE RLGRAP-FILENAME.
PARAMETER: P_FILE6 LIKE RLGRAP-FILENAME.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(32) text-003.
SELECTION-SCREEN POSITION 33.
 SD SA Extract file
PARAMETER: P_FILE2 LIKE RLGRAP-FILENAME
DEFAULT 'C:\sd_sa_extract.txt'.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN SKIP 2.
PARAMETER: r2 RADIOBUTTON GROUP rg1.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(32) text-004.
SELECTION-SCREEN POSITION 33.
PARAMETER: p_path1 TYPE unixdir OBLIGATORY DEFAULT '/tmp/'.
SELECTION-SCREEN END OF LINE.
 Material numbers file
PARAMETER: PU_FILE1 LIKE RLGRAP-FILENAME.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(32) text-003.
SELECTION-SCREEN POSITION 33.
 SD SA Extract file
PARAMETER: PU_FILE2 LIKE RLGRAP-FILENAME.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(64) text-005.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b1.
 A T S E L E C T I O N S C R E E N E V E N T S *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file1.
v_repid = syst-repid.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
 EXPORTING
 program_name = v_repid
 CHANGING
 file_name = p_file1
 EXCEPTIONS
 mask_too_long = 1
 OTHERS = 2.
IF sy-subrc <> 0.
 MESSAGE e009.
Message shown as 'Error while getting the file name'
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE6.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
 EXPORTING
 program_name = v_repid
 CHANGING
 FILE_NAME = P_FILE6
 EXCEPTIONS
 mask_too_long = 1
 OTHERS = 2.
IF sy-subrc <> 0.
 MESSAGE e009.
Message shown as 'Error while getting the file name'
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file2.
v_repid = syst-repid.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
 EXPORTING
 program_name = v_repid
 CHANGING
 file_name = p_file2
 EXCEPTIONS
 mask_too_long = 1
 OTHERS = 2.
IF sy-subrc <> 0.
 MESSAGE e009.
Message shown as 'Error while getting the file name'
ENDIF.
AT SELECTION-SCREEN ON RADIOBUTTON GROUP rg1.
IF r1 = 'X'.
 IF p_file1 = '' OR p_file2 = ''.
 MESSAGE w000 WITH 'Please select a PC file'.
 ENDIF.
 LOOP AT SCREEN.
 IF screen-name = 'P_FILE1' OR
 screen-name = 'P_FILE2'.
 screen-input = '1'.
 MODIFY SCREEN.
 ENDIF.
 ENDLOOP.
ELSEIF r2 = 'X'.
 PERFORM get_value USING 'P_PATH1' CHANGING p_path1.
 PERFORM get_value USING 'PU_FILE1' CHANGING pu_file1.
 PERFORM get_value USING 'P_PATH1' CHANGING p_path1.
 PERFORM get_value USING 'PU_FILE2' CHANGING pu_file2.
 IF pu_file1 = '' OR pu_file2 = ''.
 MESSAGE w000 WITH 'Please select a UNIX file'.
 LOOP AT SCREEN.
 IF screen-name = 'PU_FILE1' OR
 screen-name = 'PU_FILE2'.
 screen-input = '1'.
 MODIFY SCREEN.
 ENDIF.
 ENDLOOP.
 ENDIF.
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR pu_file1.
PERFORM get_value USING 'P_PATH1' CHANGING p_path1.
PERFORM get_value USING 'PU_FILE1' CHANGING pu_file1.
PERFORM popup_unix_filename CHANGING p_path1 pu_file1.
PERFORM set_value USING 'P_PATH1' p_path1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR pu_file2.
PERFORM get_value USING 'P_PATH1' CHANGING p_path1.
PERFORM get_value USING 'PU_FILE2' CHANGING pu_file2.
PERFORM popup_unix_filename CHANGING p_path1 pu_file2.
PERFORM set_value USING 'P_PATH1' p_path1.
 T O P - O F - P A G E *
TOP-OF-PAGE.
PERFORM delphi_header(z_delphi_header_footer)
 USING
 'E & S SD SCHEDULING AGREEMENTS EXTRACT DATA'(016)
 space
 sy-linsz.
 S T A R T - O F - S E L E C T I O N *
START-OF-SELECTION.
IF r1 = 'X'.
 PERFORM upload_data_from_pc_files.
ELSEIF r2 = 'X'.
 PERFORM upload_data_from_unix_files.
ENDIF.
PERFORM check_input_data.
PERFORM get_sd_sa_data.
 E N D - O F - S E L E C T I O N *
END-OF-SELECTION.
PERFORM process_data.
 S U B - R O U T I N E S *
*& Form get_value
FORM get_value USING value(p_fieldname)
 CHANGING value(p_fieldvalue).
IF v_repid IS INITIAL.
 v_repid = syst-repid.
ENDIF.
REFRESH: tbl_dynpfields.
CLEAR: tbl_dynpfields.
tbl_dynpfields-fieldname = p_fieldname.
APPEND tbl_dynpfields.
CALL FUNCTION 'DYNP_VALUES_READ'
 EXPORTING
 dyname = v_repid
 dynumb = '1000'
 TABLES
 dynpfields = tbl_dynpfields
 EXCEPTIONS
 invalid_abapworkarea = 1
 invalid_dynprofield = 2
 invalid_dynproname = 3
 invalid_dynpronummer = 4
 invalid_request = 5
 no_fielddescription = 6
 invalid_parameter = 7
 undefind_error = 8
 double_conversion = 9
 stepl_not_found = 10
 OTHERS = 11.
IF syst-subrc = 0.
 READ TABLE tbl_dynpfields INDEX 1.
 p_fieldvalue = tbl_dynpfields-fieldvalue.
ENDIF.
REFRESH: tbl_dynpfields.
ENDFORM. " get_value
 FORM POPUP_UNIX_FILENAME *
Pops up dialog box to explore the unix filesystem and select a file *
--> VALUE(P_PATH) Path where to start exploring from *
--> VALUE(P_FILENAME) Default filename in the dialog box *
FORM popup_unix_filename CHANGING value(p_path) TYPE unixdir
 value(p_filename) TYPE unixfile.
DATA: v_length TYPE i,
 v_filename TYPE unixfile,
 v_directory LIKE draw-filep,
 v_file LIKE draw-filep.
IF p_filename(1) = '/' OR
 p_path IS INITIAL.
 v_filename = p_filename.
ELSE.
 v_length = strlen( p_path ) - 1.
 IF p_path+v_length(1) <> '/'.
 CONCATENATE p_path '/' INTO p_path.
 ENDIF.
 CONCATENATE p_path p_filename INTO v_filename.
ENDIF.
CALL FUNCTION 'Z_UNIX_FILENAME_GET'
 EXPORTING
 def_filename = v_filename
 mask = ',*.'
 mode = 'G'
 title = 'Get UNIX file...'
 IMPORTING
 filename = v_filename
 EXCEPTIONS
 inv_winsys = 1
 no_batch = 2
 selection_cancel = 3
 selection_error = 4
 OTHERS = 5.
CHECK syst-subrc = 0.
CALL FUNCTION 'CV120_SPLIT_PATH'
 EXPORTING
 pf_path = v_filename
 IMPORTING
 pfx_path = v_directory
 pfx_file = v_file
 EXCEPTIONS
 OTHERS = 1.
CHECK syst-subrc = 0.
IF v_directory = p_path.
 p_filename = v_file.
ELSE.
 p_filename = v_filename.
ENDIF.
ENDFORM.
 FORM SET_VALUE *
Sets the value of a field on the selection screen. *
--> VALUE(P_FIELDNAME) Name of the field on the selection screen*
--> VALUE(P_FIELDVALUE) Value of the field *
FORM set_value USING value(p_fieldname)
 value(p_fieldvalue).
IF v_repid IS INITIAL.
 v_repid = syst-repid.
ENDIF.
CLEAR: tbl_dynpfields.
tbl_dynpfields-fieldname = p_fieldname.
tbl_dynpfields-fieldvalue = p_fieldvalue.
APPEND tbl_dynpfields.
CALL FUNCTION 'DYNP_VALUES_UPDATE'
 EXPORTING
 dyname = v_repid
 dynumb = '1000'
 TABLES
 dynpfields = tbl_dynpfields
 EXCEPTIONS
 invalid_abapworkarea = 1
 invalid_dynprofield = 2
 invalid_dynproname = 3
 invalid_dynpronummer = 4
 invalid_request = 5
 no_fielddescription = 6
 undefind_error = 7
 OTHERS = 8.
ENDFORM.
*& Form upload_data_from_pc_files
This subroutine is used to upload the data from input files
FORM upload_data_from_pc_files.
REFRESH: tbl_matnr.
CLEAR: tbl_matnr.
Upload the data from Delphi Materials file
CALL FUNCTION 'WS_UPLOAD'
 EXPORTING
 filename = p_file1
 filetype = 'DAT'
 TABLES
 data_tab = tbl_matnr
 EXCEPTIONS
 conversion_error = 1
 file_open_error = 2
 file_read_error = 3
 invalid_type = 4
 no_batch = 5
 unknown_error = 6
 invalid_table_width = 7
 gui_refuse_filetransfer = 8
 customer_error = 9
 OTHERS = 10.
IF sy-subrc <> 0.
 MESSAGE e008 WITH 'Materials file'.
Message shown as "Error while reading Materials file"
ENDIF.
IF sy-subrc = 0 AND tbl_matnr[] IS INITIAL.
 MESSAGE e013 WITH 'Materials'.
Message shown as "No records found in Materials file"
ENDIF.
DELETE tbl_matnr WHERE matnr = ''.
CALL FUNCTION 'WS_UPLOAD'
 EXPORTING
 FILENAME = P_FILE6
 filetype = 'DAT'
 TABLES
 DATA_TAB = TBL_CUST_SA
 EXCEPTIONS
 conversion_error = 1
 file_open_error = 2
 file_read_error = 3
 invalid_type = 4
 no_batch = 5
 unknown_error = 6
 invalid_table_width = 7
 gui_refuse_filetransfer = 8
 customer_error = 9
 OTHERS = 10.
IF sy-subrc <> 0.
 MESSAGE E008 WITH 'Customer/Sales Area Cross Reference file'.
Message shown as "Error while reading Materials file"
ENDIF.
ENDFORM. " upload_data_from_pc_files
*& Form upload_data_from_unix_files
This subroutine is used to upload the data from UNIX files
FORM upload_data_from_unix_files.
REFRESH: tbl_matnr.
CLEAR: tbl_matnr.
Get the complete filename for the Materials file
PERFORM get_full_filename USING pu_file1 CHANGING v_file1.
Open the Materials file
PERFORM open_dataset USING v_file1 'I' 'T' 1.
CHECK syst-subrc = 0.
Read the materials file
DO.
 READ DATASET v_file1 INTO tbl_matnr.
 IF syst-subrc <> 0.
 EXIT.
 ENDIF.
Populate the read data into the internal table
 APPEND tbl_matnr.
ENDDO.
PERFORM close_dataset USING v_file1.
ENDFORM. " upload_data_from_unix_files
 FORM GET_FULL_FILENAME *
Uses the logical path if necessary to get the full filename *
If the filename already has a directory specified, that itself will *
be the full filename *
Else the logical path for Conversions will be prefixed to the given *
filename *
FORM get_full_filename USING value(p_file) TYPE unixfile
 CHANGING value(p_fullfile) TYPE unixfile.
DATA: v_length TYPE i.
IF p_file(1) = '/' OR
 p_path1 IS INITIAL.
 p_fullfile = p_file.
ELSE.
 v_length = strlen( p_path1 ) - 1.
 IF p_path1+v_length(1) = '/'.
 CONCATENATE p_path1 p_file INTO p_fullfile.
 ELSE.
 CONCATENATE p_path1 '/' p_file INTO p_fullfile.
 ENDIF.
ENDIF.
ENDFORM.
 FORM OPEN_DATASET *
Opens dataset in the specified mode *
--> VALUE(P_FILE) Name of file to be opened *
--> VALUE(P_IOMODE) 'I' for Input / 'O' for Output *
--> VALUE(P_BTMODE) 'T' for Text / 'B' for Binary *
--> VALUE(P_LEVEL) If set to > 1, will write error message to *
 list Else will supress the error message but *
 will be available in SYST-MSGV1 *
FORM open_dataset USING value(p_file) TYPE unixfile
 value(p_iomode) TYPE c
 value(p_btmode) TYPE c
 value(p_level) TYPE i.
DATA: v_rc LIKE syst-subrc,
 v_msg(100),
 v_listmsg(100).
IF p_iomode = 'O'.
 IF p_btmode = 'B'.
 OPEN DATASET p_file FOR OUTPUT IN BINARY MODE MESSAGE v_msg.
 ELSE.
 OPEN DATASET p_file FOR OUTPUT IN TEXT MODE MESSAGE v_msg.
 ENDIF.
ELSE.
 IF p_btmode = 'B'.
 OPEN DATASET p_file FOR INPUT IN BINARY MODE MESSAGE v_msg.
 ELSE.
 OPEN DATASET p_file FOR INPUT IN TEXT MODE MESSAGE v_msg.
 ENDIF.
ENDIF.
IF syst-subrc <> 0.
 v_rc = syst-subrc.
 syst-msgv1 = v_msg.
 IF p_level > 0.
 CONCATENATE 'Unable to open' p_file
 INTO v_listmsg
 SEPARATED BY space.
 IF p_iomode = 'O'.
 CONCATENATE v_listmsg 'for Output'
 INTO v_listmsg
 SEPARATED BY space.
 ELSE.
 CONCATENATE v_listmsg 'for Input'
 INTO v_listmsg
 SEPARATED BY space.
 ENDIF.
 IF p_iomode = 'B'.
 CONCATENATE v_listmsg 'in Binary mode'
 INTO v_listmsg
 SEPARATED BY space.
 ELSE.
 CONCATENATE v_listmsg 'in Text mode'
 INTO v_listmsg
 SEPARATED BY space.
 ENDIF.
 WRITE: / v_listmsg.
 WRITE: /3 '--', v_msg.
 syst-subrc = v_rc.
 ENDIF.
ENDIF.
ENDFORM.
 FORM CLOSE_DATASET *
Closes dataset *
--> VALUE(P_FILE) Name of the file to be closed *
FORM close_dataset USING value(p_file) TYPE unixfile.
CLOSE DATASET p_file.
ENDFORM.
*& Form check_input_data
This subroutine is used to check the data from X Ref files
FORM check_input_data.
DESCRIBE TABLE tbl_matnr LINES v_count.
Use the material conversion routine to pad the material numbers
with zeroes
LOOP AT tbl_matnr.
 CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
 EXPORTING
 input = tbl_matnr-matnr
 IMPORTING
 output = tbl_matnr-matnr
 EXCEPTIONS
 length_error = 1
 OTHERS = 2.
 TRANSLATE tbl_matnr-matnr TO UPPER CASE.
 MODIFY tbl_matnr.
ENDLOOP.
Get the materials from SAP database using the input materials
IF NOT tbl_matnr[] IS INITIAL.
 SORT tbl_matnr BY matnr.
 SELECT matnr FROM mara
 INTO TABLE tbl_mara
 FOR ALL ENTRIES IN tbl_matnr
 WHERE matnr = tbl_matnr-matnr.
 SORT tbl_mara BY matnr.
ENDIF.
Check the existence of input materials in SAP database
LOOP AT tbl_matnr.
 READ TABLE tbl_mara WITH KEY matnr = tbl_matnr-matnr
 BINARY SEARCH.
 IF sy-subrc <> 0.
 CONCATENATE 'Material' tbl_matnr-matnr 'does not exist'
 INTO tbl_error-error_text
 SEPARATED BY space.
 APPEND tbl_error.
 CLEAR tbl_error.
 DELETE tbl_matnr.
 ENDIF.
ENDLOOP.
ENDFORM. " check_input_data
*& Form get_sd_sa_data
This subroutine is used to get the SD Scheduling data from database
FORM get_sd_sa_data.
*begin of changes - DN3K923909
DATA: tbl_vbep LIKE tbl_vbep_forecast OCCURS 0 WITH HEADER LINE,
 tbl_vblb LIKE tbl_vblb_forecast OCCURS 0 WITH HEADER LINE.
*end of changes - ND3K923909
REFRESH: tbl_vbap_vapma, tbl_vbpa, tbl_vblb_forecast,
 tbl_vblb_jit, tbl_vbep_forecast, tbl_vbep_jit.
CLEAR: tbl_vbap_vapma, tbl_vbpa, tbl_vblb_forecast,
 tbl_vblb_jit, tbl_vbep_forecast, tbl_vbep_jit.
Get the Scheduling Agreements
SELECT avbeln aposnr
 a~vgbel
 AAUART avkorg avtweg aspart a~kunnr
 a~ablfz
 A~MATNR
 a~pstyv
 a~werks
 a~lgort
 a~vstel
 ATRVOG BVBTYP BVSBED BBSTNK B~KTEXT
 FROM VAPMA AS A INNER JOIN VBAK AS B
 ON bvbeln = avbeln
 INTO TABLE tbl_vbap_vapma
 FOR ALL ENTRIES IN tbl_mara
 WHERE a~matnr = tbl_mara-matnr
Begin of Changes - TIR-40266
 AND a~vkorg IN s_vkorg
 AND a~werks IN s_werks
End of Changes - TIR-40266
 AND A~TRVOG = '3'
 AND B~VBTYP IN S_VBTYP. "Murali Poli
 and a~abgru = ''
 and b~gueen >= p_gueen.
SORT tbl_vbap_vapma BY vbeln posnr.
IF NOT tbl_vbap_vapma[] IS INITIAL.
 SELECT VBELN POSNR VGBEL ABLFZ PSTYV LGORT VSTEL FROM VBAP
 INTO TABLE TBL_VBAP FOR ALL ENTRIES IN TBL_VBAP_VAPMA
 WHERE VBELN = TBL_VBAP_VAPMA-VBELN
 AND POSNR = TBL_VBAP_VAPMA-POSNR.
 LOOP AT TBL_VBAP_VAPMA.
 READ TABLE TBL_VBAP WITH KEY VBELN = TBL_VBAP_VAPMA-VBELN
 POSNR = TBL_VBAP_VAPMA-POSNR.
 IF SY-SUBRC = 0 .
 TBL_VBAP_VAPMA-VBELN = TBL_VBAP-VBELN.
 TBL_VBAP_VAPMA-POSNR = TBL_VBAP-POSNR.
 TBL_VBAP_VAPMA-VGBEL = TBL_VBAP-VGBEL.
 TBL_VBAP_VAPMA-ABLFZ = TBL_VBAP-ABLFZ.
 TBL_VBAP_VAPMA-PSTYV = TBL_VBAP-PSTYV.
 TBL_VBAP_VAPMA-LGORT = TBL_VBAP-LGORT.
 TBL_VBAP_VAPMA-VSTEL = TBL_VBAP-VSTEL.
 MODIFY TBL_VBAP_VAPMA .
 ENDIF.
 ENDLOOP.
 tbl_vbap_vapma_temp[] = tbl_vbap_vapma[].
*--Begin of UnCommentDIR-51476-DN3K932648
-------------- Begin of Comment ----------- CCR-50124 DN3K928457
 SORT tbl_vbap_vapma_temp BY vbeln.
 DELETE ADJACENT DUPLICATES FROM tbl_vbap_vapma COMPARING vbeln.
-------------- End of Comment ----------- CCR-50124 DN3K928457
*--End of UnCommentDIR-51476-DN3K932648
*--Begin of CommentDIR-51476-DN3K932648
-------------- Begin of Insert ----------- CCR-50124 DN3K928457
Duplicate Line Items are being deleted.
 SORT tbl_vbap_vapma BY vbeln posnr.
DELETE ADJACENT DUPLICATES FROM tbl_vbap_vapma COMPARING vbeln posnr.
The field for contract in SA is being modified for uniqueness
 loop at tbl_vbap_vapma.
 clear: v_vgbel, v_posnr.
 v_vgbel = tbl_vbap_vapma-vgbel.
 v_posnr = tbl_vbap_vapma-posnr.
 if not v_vgbel is initial .
 shift v_vgbel left deleting leading v_zero.
 shift v_posnr left deleting leading v_zero.
 v_posnr = v_posnr / 10.
 condense: v_vgbel, v_posnr.
 if v_posnr le 9.
 concatenate v_vgbel '0' v_posnr into v_vgbel.
 else.
 concatenate v_vgbel v_posnr into v_vgbel.
 endif.
 endif.
 tbl_vbap_vapma-vgbel = v_vgbel.
 modify tbl_vbap_vapma.
 endloop.
-------------- End of Insert ----------- CCR-50124 DN3K928457
*--End of CommentDIR-51476-DN3K932648
Get the Partner details
 select vbeln posnr parvw kunnr
*Start of Murali Poli
 SELECT VBELN POSNR INCO1 INCO2
 INTO TABLE TBL_VBKD
 FROM VBKD
 FOR ALL ENTRIES IN TBL_VBAP_VAPMA
 WHERE VBELN = TBL_VBAP_VAPMA-VBELN.
 and posnr = tbl_vbap_vapma-posnr.
*End of Murali Poli
 SELECT vbeln posnr parvw kunnr lifnr "DN3K923909
 INTO TABLE tbl_vbpa
 FROM vbpa
 FOR ALL ENTRIES IN tbl_vbap_vapma_temp
 WHERE vbeln = tbl_vbap_vapma_temp-vbeln
 AND parvw IN ('WE', 'SP').
*begin of changes - DN3K923909
 select vbeln posnr abart abefz labnk abrdt gjkun vjkun
 into table tbl_vblb_forecast
 from vblb
 for all entries in tbl_vbap_vapma
 where vbeln = tbl_vbap_vapma-vbeln
 and posnr = tbl_vbap_vapma-posnr
 and abrli = '0000'
 and abart = '1'.
 SELECT vbeln posnr abart abefz labnk abrdt gjkun vjkun
 INTO TABLE tbl_vblb
 FROM vblb
 FOR ALL ENTRIES IN tbl_vbap_vapma
 WHERE vbeln = tbl_vbap_vapma-vbeln
 AND posnr = tbl_vbap_vapma-posnr
 AND abrli = '0000'
 AND abart IN ('1','2').
 SELECT vbeln posnr etenr edatu ezeit wmeng prgrs abart
 INTO TABLE tbl_vbep
 FROM vbep
 FOR ALL ENTRIES IN tbl_vbap_vapma
 WHERE vbeln = tbl_vbap_vapma-vbeln
 AND posnr = tbl_vbap_vapma-posnr
 AND abart IN ('1','2').
Get the current Forecast delivery schedule
 tbl_vblb_forecast[] = tbl_vblb[].
 DELETE tbl_vblb_forecast WHERE abart = '2'.
Get the current Forecast Schedule lines
 tbl_vbep_forecast[] = tbl_vbep[].
 DELETE tbl_vbep_forecast WHERE abart = '2'.
Get the current JIT delivery Schedule
 select vbeln posnr abart abefz labnk abrdt gjkun vjkun
 into table tbl_vblb_jit
 from vblb
 for all entries in tbl_vbap_vapma
 where vbeln = tbl_vbap_vapma-vbeln
 and posnr = tbl_vbap_vapma-posnr

Date o/p probelm when download into flat file inf110 tcode in fi

hi,
when im create payment transaction in f110 tcode in fi , and selct the record and down load into flat file
in flat file first line it shows run date same as we given in transaction,but in second line it shows same date as before
but it shows different date example : firstline it shows 12 .10.2008 and second line 12.10.2008 is right o/p.
         but it shows as first line 12.10.2008,and seconde line 6.10.2008. why it show like that.

Hi Ganesh,
As per my understanding you have an issue with the date while downloading it into the Flat file.
It is displaying the incorrect date in the second line in Flat file.
Are you downloading the data in Notepad or in the Excel sheet?
Can you please elaborate the issue, if it is in Excel sheet then check if it is displaying multiple records for the same date.
Ex :
                    Date                   Records
             12 .10.2008             ad
                                         fg
                                         as
             6.10.2008               we
                                        af
Check if this is the case...
Regards,
Kittu

Query Output to download in flat file through APD or other means?

Hello Experts,
I am currently on BW3.5 system and have requirement to load query output in flat file in .csv format. I checked the option of APD but looks like we cant directly load the query output in flat file like in APD (BW 3.5 system) .
One way i can think of it...load the query output in transactional ODS and built an infospoke on it to write into flat file.
Please advice if there are any better methods to store the query output in flat files.
Thanks!

Hi,
Use RSCRM_BAPI.
See
Re: RSCRM_Bapi
See the help on RSCRM_BAPI
Re: Running Quaries automatically and saving them in as a Excel file in Server
Re: Data transfer to external systems
Re: Loading from a Custom R/3 Table
Re: How can I schedule my Bex report to execute in background
Re: How can I insert the RSCRM_BAPI into Process chain?
Thanks
Reddy

How can I get data in flat file from Pool table and cluster table ?

Hi,
I am working in one Achiving project. My requirement is to get data into flat file from Cluster table and pool table.
Is there any tool avilable to download data into flat file from pool table and cluster table ?
if table name given in the selection screen then data will be downloaded into flat file.
waiting for quick response.
Best Regards,
Bansidhar

Data cannot be retrived directly form the cluster table
as the Cluster results are stored in Cluster Key say for example PCLkey
and form that Key we need to fetch the data
these clustes are not the part of PNP or PNPCE tables
for ur info kindly check

How to convert flat file type from DAT to ASC

hello all
i am trying to download a flat file and trying to upload it in another program.
for this i am using gui_upload and gui_download function modules.
if i download the file as ASC and upload with ASC there is no problem.
if i download the file as DAT and upload with DAT its giving an exception invalid file type
if i download the file as DAT and upload with ASC its giving an exception bad data format.
but in real senario my customer is sending a flat file with DAT type and i am unable to upload it.
how to solve this problem?

Hi,
when uploading DAT pass file type as 'ASC' and give HAS_FIELD_SEPARATOR = 'X'.
For other types see the code below.
CASE P_RECTYP.
   WHEN 'DAT'.
     MOVE 'X' TO L_FLDSEP.
     MOVE 'ASC' TO L_TYPE.
   WHEN 'ASC'.
      MOVE ' ' TO L_FLDSEP.
      MOVE P_RECTYP TO L_TYPE.
   WHEN 'BIN'.
       CLEAR L_TYPE.
     MOVE P_RECTYP TO L_TYPE.
     MOVE ' ' TO L_FLDSEP.
   WHEN OTHERS.
    MOVE 'X' TO L_FLDSEP.
    MOVE 'ASC' TO L_TYPE.
ENDCASE.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
   FILENAME                      = LV_FILENAME
   FILETYPE                      = l_type
   HAS_FIELD_SEPARATOR           = l_fldsep
Regards,
Vasanth

Flat file in http folder

Hi,
Is there anyway of downloading a flat file into a folder in some http address rather than the application server or local directory.
Regards,
Sukumar.

You can run the VB script on any PC where the SAP Gateway and SDK have been installed.
I am working on a project where we use vbscript and ASP to extract data from SAP and use it on the intranet.
You can use the VB-Script in an excel or word document and also on a webpage. The example below I have used in a excel spreadsheet (use a macro to call the subroutine).
I hope this helps you.
Example below retrieves a list of vendors.
VBScript to list vendors from SAP table LFA1
Sub GetTable()
'Logon
Dim sapConn As Object 'Declare variant
Set sapConn = CreateObject("SAP.Functions") 'Create ActiveX object
If sapConn.Connection.Logon(0, False) <> True Then 'Try Logon
 MsgBox "Cannot Log on to SAP"
End If
'Define function
Dim objRfcFunc As Object
Set objRfcFunc = sapConn.Add("RFC_READ_TABLE")
'Set import parameters
Dim objQueryTab, objRowCount As Object
'Table name
Set objQueryTab = objRfcFunc.Exports("QUERY_TABLE")
objQueryTab.Value = "LFA1"
'Set max nr of rows
Set objRowCount = objRfcFunc.Exports("ROWCOUNT")
objRowCount.Value = "10"
'Set table parameters
Dim objOptTab, objFldTab, objDatTab As Object
Set objOptTab = objRfcFunc.Tables("OPTIONS")
Set objFldTab = objRfcFunc.Tables("FIELDS")
Set objDatTab = objRfcFunc.Tables("DATA")
'First we set the condition
objOptTab.FreeTable 'Refresh table
'Then set values where statement (TEXT field in table parameter OPTIONS)
objOptTab.Rows.Add
objOptTab(objOptTab.RowCount, "TEXT") = "KTOKK = 'HSUB' and "
objOptTab.Rows.Add
objOptTab(objOptTab.RowCount, "TEXT") = "ORT01 = 'London'"
'Next we set fields to obtain (fields we want to retrieve from the table)
objFldTab.FreeTable 'Refresh table
'Then set values (FIELDNAME field in table parameter FIELDS)
objFldTab.Rows.Add
objFldTab(objFldTab.RowCount, "FIELDNAME") = "LIFNR" 'vendor nr
objFldTab.Rows.Add
objFldTab(objFldTab.RowCount, "FIELDNAME") = "NAME1" 'vendor name
objFldTab.Rows.Add
objFldTab(objFldTab.RowCount, "FIELDNAME") = "ORT01" 'city
objFldTab.Rows.Add
objFldTab(objFldTab.RowCount, "FIELDNAME") = "ADRNR" 'address nr
objFldTab.Rows.Add
objFldTab(objFldTab.RowCount, "FIELDNAME") = "ERNAM" 'user who created the vendor
If objRfcFunc.Call = False Then
 MsgBox objRfcFunc.Exception
End If
Dim objDatRec As Object
Dim objFldRec As Object
For Each objDatRec In objDatTab.Rows
 For Each objFldRec In objFldTab.Rows
 Cells(objDatRec.Index, objFldRec.Index) = Mid(objDatRec("WA"), objFldRec("OFFSET") + 1, objFldRec("LENGTH"))
 Next
Next
End Sub

Flat files to XML conversion module?

Hi Experts,
I would like to know from where I can have free download for flat files to XML conversion module which I can test in development server. Your help will be well appreciated.
Thanks and Regards,
Praveen.

u have file adapter with FCC which does the flat file to XML conversion. wat is ur requirement?
refer the help or search on SDN for file content conversion.
http://help.sap.com/saphelp_nw04/helpdata/en/e3/94007075cae04f930cc4c034e411e1/frameset.htm
few examples:-
Introduction to simple(File-XI-File)scenario and complete walk through for starters(Part1)
Key value:
How to send a flat file with various field lengths and variable substructures to XI 3.0
File Receiver with Content Conversion
chirag

Suggesstions on flat file to IDOC

Hi,
   Help me on following topics,
   1) What is the use of port in program RSEINB00. I want this program to read a flat file and convert it into IDOC. How does this program recognize to which IDOC format it has to convert the flat file.
   2) what is the use of file port and ABAP port when to use them. My requirement is to download a flat file or CSV flie into the customer system through FTP.Can I specify the path in the directory itself or do i need to write a seperate program for this.
3) what is the use of function module in file port.Is it used to generate file name alone or file itself.Can we write a own function.
Thanks & Regards,
Kaarthik.k

Karthik,
You know what you could do.. To get the input file format
First download the MATMAS IDOC or any idoc for that matter to a flat file, using the standard transaction BD10.
Then see the format.
As a third step upload the same file as input file with minimal changes to the data keeping the format same.
This way you can figure out how the system is able to fetch all the configuration details.
Hope this helps.
Rgds,
HR

Delete flat file from the local drive after downloading in the program

how to delete flat file from the local drive after downloading in the program
I am using gui_upload to upload flat file data in internal table. and after that i dont want that flat file in the disk. i want to delete it.

Once the file has been uploaded into the internal table call the FILE_DELETE method of the class CL_GUI_FRONTEND_SERVICES.
DATA: v_rc TYPE i.
CALL METHOD cl_gui_frontend_services=>file_delete
EXPORTING
filename = 'C:\TEMP\MATERIAL.TXT'
CHANGING
rc = v_rc
EXCEPTIONS
file_delete_failed = 1
cntl_error = 2
error_no_gui = 3
file_not_found = 4
access_denied = 5
unknown_error = 6
OTHERS = 7.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
Regards
Kathirvel

TCODE TO DOWNLOAD IDOC INTO A FLAT FILE

Hi All,
Please let me know if there is any tcode to download IDOC into a flat file..
Regards,
Kaveri

try with we60 where you should have links to download the idoc type.
Please check this:
1. How to Download a Hierarchy to a Flat File
https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/docs/library/uuid/0403a990-0201-0010-38b3-e1fc442848cb
2. How To Convert an IDoc-XML structure to a flat file and vice versa in XI 3.0 Version 1.10
https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/46759682-0401-0010-1791-bd1972bc0b8a
run the report RSEOUT00 with the idoc number, flat xml file will be generated at the location user/sap/XI/SYS/global/idoc_file
Please rewrds if found help ful

Download report into a flat file format

Hi Friends,
I would like to know your thoughts on what is the best practice most of you using to download a report into a flat file(NOT csv).
In my application business users want a report to be downloaded into their local desktop (just like a .csv) but into a flat file and they have their byte specific format.
My concerns :
1) Is there any straight method to download a report into a flatfile (like it is now for CSV) from Apex 3.1.2 ?
2) If I write my own code using UTL_FILE, can I let the user to save them to their desired directory on their desktop ?
Your thoughts would definitely help me in delivering a right solution to the users in this regard.
Thanks a lot.
Raj.

Raj:
You could create a 'Before Header' page process to create this 'flat file'. The code for the page process will be something similar to declare
v_file_name VARCHAR2 (2000) := 'fixedFieldsFile.txt';
--- Client Record Format
f1 char(20);
f2 char(20);
f3 char(20);
---- End format
begin
OWA_UTIL.mime_header ('application/txt', FALSE);
htp.p('Content-Disposition:attachment;filename="'|| v_file_name|| '"');
OWA_UTIL.http_header_close;
for c1 in (select * from emp) loop ----- The report query
f1:= c1.empno;f2:=c1.ename;f3:=c1.sal;
htp.p(f1||f2||f3);
end loop;
apex_application.g_unrecoverable_error:=true;
exception when others then
null;
end; Varad

Download data from internal table to flat file.

I need to download the data from Internal table to Flat file. can any one suggest how to do it? i suppose WS_Download OR GUI_DOWNLOAD.
but if it is please guide me how to use this.
is thre any other F.M. please provide the information.
Thanks in advance

Hi,
Try this,
* File download, uses older techniques but achieves a perfectly
* acceptable solution which also allows the user to append data to
* an existing file.
PARAMETERS: p_file like rlgrap-filename.
* Internal table to store export data
DATA: begin of it_excelfile occurs 0,
 row(500) type c,
 end of it_excelfile.
DATA: rc TYPE sy-ucomm,
 ld_answer TYPE c.
CALL FUNCTION 'WS_QUERY'
 EXPORTING
 query = 'FE' "File Exist?
 filename = p_file
 IMPORTING
 return = rc.
IF rc NE 0. "If File alread exists
 CALL FUNCTION 'POPUP_TO_CONFIRM'
 EXPORTING
* TITLEBAR = ' '
* DIAGNOSE_OBJECT = ' '
 text_question = 'File Already exists!!'
 text_button_1 = 'Replace'
* ICON_BUTTON_1 = ' '
 text_button_2 = 'New name'
* ICON_BUTTON_2 = ' '
* DEFAULT_BUTTON = '1'
* DISPLAY_CANCEL_BUTTON = 'X'
* USERDEFINED_F1_HELP = ' '
* START_COLUMN = 25
* START_ROW = 6
* POPUP_TYPE =
 IMPORTING
 answer = ld_answer
* TABLES
* PARAMETER =
 EXCEPTIONS
 text_not_found = 1
 OTHERS = 2.
* Option 1: Overwrite
 IF ld_answer EQ '1'.
 CALL FUNCTION 'GUI_DOWNLOAD'
 EXPORTING
* BIN_FILESIZE =
 filename = p_file "File Name
 filetype = 'ASC'
* IMPORTING
* FILELENGTH =
 TABLES
 data_tab = it_excelfile "Data table
 EXCEPTIONS
 file_write_error = 1
 no_batch = 2
 gui_refuse_filetransfer = 3
 invalid_type = 4
 OTHERS = 5.
 IF sy-subrc <> 0.
 MESSAGE i003(zp) WITH
 'There was an error during Excel file creation'(200).
 exit. "Causes short dump if removed and excel document was open
 ENDIF.
* Option 2: New name.
 ELSEIF ld_answer EQ '2'.
 CALL FUNCTION 'DOWNLOAD'
 EXPORTING
 filename = p_file "File name
 filetype = 'ASC' "File type
* col_select = 'X' "COL_SELECT
* col_selectmask = 'XXXXXXXXXXXXXXXXXXXXXXXXXX'
* "COL_SELECTMASK
 filetype_no_show = 'X' "Show file type selection?
* IMPORTING
* act_filename = filename_dat
 TABLES
 data_tab = it_excelfile "Data table
* fieldnames =
 EXCEPTIONS
 file_open_error = 01
 file_write_error = 02
 invalid_filesize = 03
 invalid_table_width = 04
 invalid_type = 05
 no_batch = 06
 unknown_error = 07.
 ENDIF.
ELSE. "File does not alread exist.
 CALL FUNCTION 'GUI_DOWNLOAD'
 EXPORTING
* BIN_FILESIZE =
 filename = p_file "File name
 filetype = 'ASC' "File type
* IMPORTING
* FILELENGTH =
 TABLES
 data_tab = it_excelfile "Data table
 EXCEPTIONS
 file_write_error = 1
 no_batch = 2
 gui_refuse_filetransfer = 3
 invalid_type = 4
 OTHERS = 5.
 IF sy-subrc <> 0.
 MESSAGE i003(zp) WITH
 'There was an error during Excel file creation'(200).
 exit. "Causes short dump if removed and excel document was open
 ENDIF.
ENDIF.
Regards,
Raghav

How to Download a Hierarchie to a Flat File

Hallo Experts,
sorry i just have a second question. We make the solution
"How to Download a Hierarchy to a flat file"
Program works
transport green
Upload ok,
but the Text Node keys are there, but not the text
e.g.
description text note short: 00000000000000000000
description text note long: empty
The rest is alright ????? Has someone a idea?
Thanks
Santra

Hi,
You may be interested in this official SAP How-To-Guide document:
"How to Download a Hierarchy to a Flat File"
https://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/0403a990-0201-0010-38b3-e1fc442848cb

How can I download from R/3 to flat file?

Hi
My requirement is to download Material and Supplier data from R/3 to flat file...
These are the fields I have to bring it from SAP R/3 but I don not want to DOWNLOAD FM. I want to Concatenate from Internal Table and put it on application server.
There are my following fields...
Material and Supplier
   1. Selection criteria
         - Based on plant
         - Hubs and FSL/Hubs
         - Hubs can pull both Repair and NewBuy vendor
         - FSL/Hubs pull only Repair vendor
   2. Material EORD-MATNR
   3. Region Determined by 9* plants
   4. Site
         1. plant-(W) and plant-(C) for FSL/Hubs
         2. plant-(S) for DCs
   5. Supplier
         1. Menlo/Repair for DC
         2. Repair only for hub/fsl
   6. Supplier-type PURCHASE or REPAIR
   7. Leadtime - (The number of days between placing an order and receiving an order)
   8. Order Horizon 2
   9. Minimum OQ 3
10. Order cost 50
11. Supplier part number EORD-MATNR
Waiting for some help and (or) sample code for this...
Thanks in advance.

Here is an example program showing how to write a tab-delimited file to the application server. All you need to do is get all your data into an internal table, then loop at it, concatenate all fields into a string and then transfer that string.
report zrich_0001.
parameters: d1 type localfile default '/usr/sap/TST/SYS/Test.txt'.
data: begin of itab occurs 0,
      field1(20) type c,
      field2(20) type c,
      field3(20) type c,
      end of itab.
data: str type string.
constants: con_tab type x value '09'.
* if you have a newer version, then you can use this instead.
*constants:
*    con_tab type c value cl_abap_char_utilities=>HORIZONTAL_TAB.
start-of-selection.
itab-field1 = 'ABC'.
itab-field2 = 'DEF'.
itab-field3 = 'GHI'.
append itab.
itab-field1 = '123'.
itab-field2 = '456'.
itab-field3 = '789'.
append itab.
open dataset d1 for output in text mode.
loop at itab.
    concatenate itab-field1 itab-field2 itab-field2 into str
                  separated by con_tab.
    transfer str to d1.
endloop.
close dataset d1.
Regards,
Rich Heilman

Download to Flat file

Similar Messages

Maybe you are looking for