Download source code to Text file
Hi all,
is there any program which can be used to download the source code of a FUNCTION MODULE.
thanks in Advance
Hi Sai_ram,
You can download the individual includes of Function Module using Menu options:
Utilities -> More Utilities -> Upload/Download -> Download
Use the same procedure to download the screens also. I mean Goto the Screen and follow the above Menu options to download the screen in a local .txt file
Note: In order to upload the screen again, just create a screen with the same screen number and use Menu options:
Utilities -> More Utilities -> Upload/Download -> Upload
This is the way I use to download Report, Module pool program and Function Module.
Hope it helps.
Regards,
Neeraj Gupta
Similar Messages
-
Dumping Global ABAP Objects Source Code to Text File
Hello People, this is my first post and my first time to join the forums.. and also my first time to code in ABAP.
Anyways, I was wondering if there is a way to dump the source code definition of any class/interface made in SE24 (Object Builder) onto a Text File; all the methods, attributes etc... of a class/interface. I've used SEO_METHOD_GET_SOURCE but it doesn't work.
Thanks for the help.Suhas,
I have created some wiki links (may be 3-4 months back) which seems similar to this requirement.
[Extracting Implementation details of global Interface using class - CL_RECA_RS_CLIF |http://wiki.sdn.sap.com/wiki/display/ABAP/ExtractingImplementationdetailsofglobalInterfaceusingclass-+CL_RECA_RS_CLIF]
[Information of Class Objects using CL_OO_CLASS |http://wiki.sdn.sap.com/wiki/display/ABAP/InformationofClassObjectsusing+CL_OO_CLASS]
[Source code Download and Syntax Check using CL_RECA_RS_SERVICES|http://wiki.sdn.sap.com/wiki/display/ABAP/SourcecodeDownloadandSyntaxCheckusing+CL_RECA_RS_SERVICES]
Expecting your comments.
Regards
Vinod Kumar
Edited by: Vinod Kumar on May 5, 2011 11:33 AM -
Download into tab delimited text file
Hi all
I am uploading data from a text file with tab delimited.
For some reason if the record doesnot satisfy the criteria i cannot upload the record .
In the program i am moving those records into another internal table and deleting from the actual that i ausing to update the ztable.
I need to download those fault records into another text file with tab delimited space with the same format so that they can correct those records and upload again.
Thanks
PreetiPreeti,
Look at the code below. It should do everything that U want to do. However it uploads data from excel and downloads data into a text file.
Hope this helps,
Shreekant.
Program Name : ZRSD0177_XREF_EXCEL_UPLOAD *
REPORT zrsd0177_xref_excel_upload NO STANDARD PAGE HEADING .
TABLES : zzsd0010,
knvv.
DATA : g_repid LIKE sy-repid,
$v_start_col TYPE i VALUE '1',
$v_start_row TYPE i VALUE '2',
$v_end_col TYPE i VALUE '256',
$v_end_row TYPE i VALUE '65536',
gd_currentrow TYPE i.
*Data Declaration for the table ZZSD0010
DATA : BEGIN OF it_zzsd0010 OCCURS 0.
INCLUDE STRUCTURE zzsd0010.
DATA : END OF it_zzsd0010.
*DATA : it1_zzsd0010 LIKE it_zzsd0010 OCCURS 0 WITH HEADER
LINE.
*Data Declaration for EXCEL TABLES
DATA :BEGIN OF it_tab_driver OCCURS 0,
mandt LIKE zzsd0010-mandt,
sorg LIKE zzsd0010-vkorg,
sdis LIKE zzsd0010-vtweg,
sdiv LIKE zzsd0010-spart,
gelco_princ_customer LIKE zzsd0010-princ_customer,
sell_div LIKE zzsd0010-kdgrp,
payer LIKE zzsd0010-payer,
qad_cust(10) TYPE c,
name(30) TYPE c,
broker(3) TYPE c,
END OF it_tab_driver.
DATA : it_tab_driver1 LIKE it_tab_driver OCCURS 0 WITH HEADER LINE.
DATA :BEGIN OF it_tab_lookup OCCURS 0,
rpc_ship_to(10) TYPE c,
rpc_sold_to(10) TYPE c,
rpc_bill_to(10) TYPE c,
type(10) TYPE c,
qad_ship_to(10) TYPE c,
qad_sold_to(10) TYPE c,
qad_bill_to(10) TYPE c,
sell_div1 LIKE zzsd0010-kdgrp,
broker(3) TYPE c,
END OF it_tab_lookup.
DATA : BEGIN OF it_knvv OCCURS 0,
kunnr LIKE knvv-kunnr,
vkorg LIKE knvv-vkorg, "V004
vtweg LIKE knvv-vtweg, "V004
spart LIKE knvv-spart, "V004
kdgrp LIKE knvv-kdgrp,
END OF it_knvv.
DATA: it_outfile(200) OCCURS 0 WITH HEADER LINE.
DATA: it_outfile1(200) OCCURS 0 WITH HEADER LINE. "V004
DATA: it_outfile2(200) OCCURS 0 WITH HEADER LINE. "V004
DATA: it_outfile3(200) OCCURS 0 WITH HEADER LINE. "V004
DATA: it_outfile4(200) OCCURS 0 WITH HEADER LINE. "V004
DATA: it_driver LIKE alsmex_tabline OCCURS 0 WITH HEADER LINE.
DATA: it_lookup LIKE alsmex_tabline OCCURS 0 WITH HEADER LINE.
*--- Selection Screen
SELECTION-SCREEN : BEGIN OF BLOCK blk WITH FRAME TITLE text.
PARAMETERS : p_file LIKE rlgrap-filename DEFAULT
'C:\zzsd0010\driver.xls'.
PARAMETERS : p1_file LIKE rlgrap-filename DEFAULT
'C:\zzsd0010\lookup.xls'.
PARAMETERS : p2_file LIKE rlgrap-filename DEFAULT
'C:\zzsd0010\error.txt'.
PARAMETERS : p3_file LIKE rlgrap-filename DEFAULT
'C:\zzsd0010\warning_Sales_Div.txt'.
PARAMETERS : p4_file LIKE rlgrap-filename DEFAULT "V004
'C:\zzsd0010\warning_Sales_Org.txt'. "V004
PARAMETERS : p5_file LIKE rlgrap-filename DEFAULT "V004
'C:\zzsd0010\warning_Dist_channel.txt'. "V004
PARAMETERS : p6_file LIKE rlgrap-filename DEFAULT "V004
'C:\zzsd0010\warning_Division.txt'. "V004
PARAMETERS : p7_file LIKE rlgrap-filename DEFAULT "V004
'C:\zzsd0010\cust_not_found.txt'.
SELECTION-SCREEN : END OF BLOCK blk.
INITIALIZATION.
g_repid = sy-repid.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
program_name = g_repid
IMPORTING
file_name = p_file.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p1_file.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
program_name = g_repid
IMPORTING
file_name = p1_file.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p2_file.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
program_name = g_repid
IMPORTING
file_name = p2_file.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p3_file.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
program_name = g_repid
IMPORTING
file_name = p3_file.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p4_file. "V004
CALL FUNCTION 'F4_FILENAME' "V004
EXPORTING "V004
program_name = g_repid "V004
IMPORTING "V004
file_name = p4_file. "V004
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p5_file. "V004
CALL FUNCTION 'F4_FILENAME' "V004
EXPORTING "V004
program_name = g_repid "V004
IMPORTING "V004
file_name = p5_file. "V004
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p6_file. "V004
CALL FUNCTION 'F4_FILENAME' "V004
EXPORTING "V004
program_name = g_repid "V004
IMPORTING "V004
file_name = p6_file. "V004
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p7_file. "V004
CALL FUNCTION 'F4_FILENAME' "V004
EXPORTING "V004
program_name = g_repid "V004
IMPORTING "V004
file_name = p7_file. "V004
START-OF-SELECTION.
Get the data from XLS to Internal Table
PERFORM f1000_upload_driver_data.
PERFORM f2000_upload_lookup_data.
*UPDATE DATA BASE
SORT it_tab_driver BY gelco_princ_customer qad_cust.
SORT it_tab_lookup BY qad_sold_to.
CLEAR : it_tab_lookup,
it_tab_driver.
LOOP AT it_tab_driver.
CLEAR : it_tab_lookup.
IF
it_tab_driver-gelco_princ_customer = it_tab_driver-qad_cust.
Hit the sold-to column first, and if does not find a hit then try
the bill-to column.
READ TABLE it_tab_lookup
WITH KEY qad_sold_to = it_tab_driver-gelco_princ_customer.
IF sy-subrc = 0.
it_zzsd0010-mandt = it_tab_driver-mandt.
it_zzsd0010-vkorg = it_tab_driver-sorg.
it_zzsd0010-vtweg = it_tab_driver-sdis.
it_zzsd0010-spart = it_tab_driver-sdiv.
it_zzsd0010-princ_customer = it_tab_lookup-rpc_sold_to.
it_zzsd0010-kunnr = it_tab_lookup-rpc_sold_to.
it_zzsd0010-payer = ' '.
it_zzsd0010-kdgrp = it_tab_driver-sell_div.
it_zzsd0010-ernam = sy-uname.
it_zzsd0010-erdat = sy-datum.
it_zzsd0010-erzet = sy-uzeit.
it_zzsd0010-aenam = sy-uname.
it_zzsd0010-aedat = sy-datum.
it_zzsd0010-aezat = sy-uzeit.
PERFORM f6000_add_zeros_to_cust. "V004
APPEND it_zzsd0010.
INSERT INTO zzsd0010 VALUES it_zzsd0010.
PERFORM f5000_warning_file. "V004
CLEAR it_zzsd0010.
ELSEIF sy-subrc <> 0.
READ TABLE it_tab_lookup
WITH KEY qad_bill_to = it_tab_driver-gelco_princ_customer.
IF sy-subrc = 0.
it_zzsd0010-mandt = it_tab_driver-mandt.
it_zzsd0010-vkorg = it_tab_driver-sorg.
it_zzsd0010-vtweg = it_tab_driver-sdis.
it_zzsd0010-spart = it_tab_driver-sdiv.
it_zzsd0010-princ_customer = it_tab_lookup-rpc_bill_to.
it_zzsd0010-kunnr = it_tab_lookup-rpc_bill_to.
it_zzsd0010-payer = 'X'.
it_zzsd0010-kdgrp = it_tab_driver-sell_div.
it_zzsd0010-ernam = sy-uname.
it_zzsd0010-erdat = sy-datum.
it_zzsd0010-erzet = sy-uzeit.
it_zzsd0010-aenam = sy-uname.
it_zzsd0010-aedat = sy-datum.
it_zzsd0010-aezat = sy-uzeit.
PERFORM f6000_add_zeros_to_cust. "V004
APPEND it_zzsd0010.
INSERT INTO zzsd0010 VALUES it_zzsd0010.
PERFORM f5000_warning_file. "V004
CLEAR it_zzsd0010.
ELSE.
it_tab_driver1 = it_tab_driver.
APPEND it_tab_driver1.
ENDIF.
ENDIF.
ELSEIF it_tab_driver-gelco_princ_customer <> it_tab_driver-qad_cust.
Hit the sold-to column first, and if does not find a hit then try
the bill-to column.
READ TABLE it_tab_lookup
WITH KEY qad_sold_to = it_tab_driver-qad_cust.
IF sy-subrc = 0.
it_zzsd0010-mandt = it_tab_driver-mandt.
it_zzsd0010-vkorg = it_tab_driver-sorg.
it_zzsd0010-vtweg = it_tab_driver-sdis.
it_zzsd0010-spart = it_tab_driver-sdiv.
it_zzsd0010-kunnr = it_tab_lookup-rpc_sold_to.
it_zzsd0010-payer = ' '.
it_zzsd0010-kdgrp = it_tab_driver-sell_div.
it_zzsd0010-ernam = sy-uname.
it_zzsd0010-erdat = sy-datum.
it_zzsd0010-erzet = sy-uzeit.
it_zzsd0010-aenam = sy-uname.
it_zzsd0010-aedat = sy-datum.
it_zzsd0010-aezat = sy-uzeit.
READ TABLE it_tab_lookup
WITH KEY qad_sold_to = it_tab_driver-gelco_princ_customer.
IF sy-subrc = 0.
it_zzsd0010-princ_customer = it_tab_lookup-rpc_sold_to.
PERFORM f6000_add_zeros_to_cust. "V004
APPEND it_zzsd0010.
INSERT INTO zzsd0010 VALUES it_zzsd0010.
PERFORM f5000_warning_file. "V004
CLEAR it_zzsd0010.
ELSEIF sy-subrc <> 0.
READ TABLE it_tab_lookup
WITH KEY qad_bill_to = it_tab_driver-gelco_princ_customer.
IF sy-subrc = 0.
it_zzsd0010-princ_customer = it_tab_lookup-rpc_bill_to.
PERFORM f6000_add_zeros_to_cust. "V004
APPEND it_zzsd0010.
INSERT INTO zzsd0010 VALUES it_zzsd0010.
PERFORM f5000_warning_file. "V004
CLEAR it_zzsd0010.
ELSE.
it_tab_driver1 = it_tab_driver.
APPEND it_tab_driver1.
ENDIF.
ENDIF.
ELSEIF sy-subrc <> 0.
READ TABLE it_tab_lookup
WITH KEY qad_bill_to = it_tab_driver-qad_cust.
IF sy-subrc = 0.
it_zzsd0010-mandt = it_tab_driver-mandt.
it_zzsd0010-vkorg = it_tab_driver-sorg.
it_zzsd0010-vtweg = it_tab_driver-sdis.
it_zzsd0010-spart = it_tab_driver-sdiv.
it_zzsd0010-kunnr = it_tab_lookup-rpc_bill_to.
it_zzsd0010-payer = 'X'.
it_zzsd0010-kdgrp = it_tab_driver-sell_div.
it_zzsd0010-ernam = sy-uname.
it_zzsd0010-erdat = sy-datum.
it_zzsd0010-erzet = sy-uzeit.
it_zzsd0010-aenam = sy-uname.
it_zzsd0010-aedat = sy-datum.
it_zzsd0010-aezat = sy-uzeit.
READ TABLE it_tab_lookup
WITH KEY qad_sold_to = it_tab_driver-gelco_princ_customer.
IF sy-subrc = 0.
it_zzsd0010-princ_customer = it_tab_lookup-rpc_sold_to.
PERFORM f6000_add_zeros_to_cust. "V004
APPEND it_zzsd0010.
INSERT INTO zzsd0010 VALUES it_zzsd0010.
PERFORM f5000_warning_file. "V004
CLEAR it_zzsd0010.
ELSEIF sy-subrc <> 0.
READ TABLE it_tab_lookup
WITH KEY qad_bill_to = it_tab_driver-gelco_princ_customer.
IF sy-subrc = 0.
it_zzsd0010-princ_customer = it_tab_lookup-rpc_bill_to.
PERFORM f6000_add_zeros_to_cust. "V004
APPEND it_zzsd0010.
INSERT INTO zzsd0010 VALUES it_zzsd0010.
PERFORM f5000_warning_file. "V004
CLEAR it_zzsd0010.
ELSE.
it_tab_driver1 = it_tab_driver.
APPEND it_tab_driver1.
ENDIF.
ENDIF.
ELSE.
it_tab_driver1 = it_tab_driver.
APPEND it_tab_driver1.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
LOOP AT it_tab_driver.
IF
it_tab_driver-gelco_princ_customer <> it_tab_driver-qad_cust.
READ TABLE it_tab_lookup
WITH KEY qad_sold_to = it_tab_driver-gelco_princ_customer.
IF sy-subrc = 0.
it_zzsd0010-mandt = it_tab_driver-mandt.
it_zzsd0010-vkorg = it_tab_driver-sorg.
it_zzsd0010-vtweg = it_tab_driver-sdis.
it_zzsd0010-spart = it_tab_driver-sdiv.
it_zzsd0010-princ_customer = it_tab_lookup-rpc_sold_to.
it_zzsd0010-kunnr = it_tab_lookup-rpc_sold_to.
it_zzsd0010-payer = ' '.
it_zzsd0010-kdgrp = it_tab_driver-sell_div.
it_zzsd0010-ernam = sy-uname.
it_zzsd0010-erdat = sy-datum.
it_zzsd0010-erzet = sy-uzeit.
it_zzsd0010-aenam = sy-uname.
it_zzsd0010-aedat = sy-datum.
it_zzsd0010-aezat = sy-uzeit.
PERFORM f6000_add_zeros_to_cust. "V004
APPEND it_zzsd0010.
INSERT INTO zzsd0010 VALUES it_zzsd0010.
PERFORM f5000_warning_file. "V004
CLEAR it_zzsd0010.
ELSE.
it_tab_driver1 = it_tab_driver.
APPEND it_tab_driver1.
ENDIF.
ENDIF.
ENDLOOP.
PERFORM f3000_data_base_not_updated.
PERFORM f4000_check_sales_division.
*& Form f1000_upload_driver_data
FORM f1000_upload_driver_data.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
EXPORTING
filename = p_file
i_begin_col = $v_start_col
i_begin_row = $v_start_row
i_end_col = $v_end_col
i_end_row = $v_end_row
TABLES
intern = it_driver
EXCEPTIONS
inconsistent_parameters = 1
upload_ole = 2
OTHERS = 3.
IF sy-subrc <> 0.
WRITE:/10 'File '.
ENDIF.
IF sy-subrc EQ 0.
READ TABLE it_driver INDEX 1.
gd_currentrow = it_driver-row.
LOOP AT it_driver.
IF it_driver-row NE gd_currentrow.
APPEND it_tab_driver.
CLEAR it_tab_driver.
gd_currentrow = it_driver-row.
ENDIF.
CASE it_driver-col.
WHEN '0001'.
it_tab_driver-mandt = it_driver-value.
WHEN '0002'.
it_tab_driver-sorg = it_driver-value.
WHEN '0003'.
it_tab_driver-sdis = it_driver-value.
WHEN '0004'.
it_tab_driver-sdiv = it_driver-value.
WHEN '0005'.
it_tab_driver-gelco_princ_customer = it_driver-value.
WHEN '0006'.
it_tab_driver-sell_div = it_driver-value.
WHEN '0007'.
it_tab_driver-payer = it_driver-value.
WHEN '0008'.
it_tab_driver-qad_cust = it_driver-value.
WHEN '0009'.
it_tab_driver-name = it_driver-value.
WHEN '0010'.
it_tab_driver-broker = it_driver-value.
ENDCASE.
ENDLOOP.
ENDIF.
APPEND it_tab_driver.
ENDFORM. " f1000_upload_driver_data
*& Form f2000_upload_lookup_data
FORM f2000_upload_lookup_data.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
EXPORTING
filename = p1_file
i_begin_col = $v_start_col
i_begin_row = $v_start_row
i_end_col = $v_end_col
i_end_row = $v_end_row
TABLES
intern = it_lookup
EXCEPTIONS
inconsistent_parameters = 1
upload_ole = 2
OTHERS = 3.
IF sy-subrc <> 0.
WRITE:/10 'File '.
ENDIF.
IF sy-subrc EQ 0.
READ TABLE it_lookup INDEX 1.
gd_currentrow = it_lookup-row.
LOOP AT it_lookup.
IF it_lookup-row NE gd_currentrow.
APPEND it_tab_lookup.
CLEAR it_tab_lookup.
gd_currentrow = it_lookup-row.
ENDIF.
CASE it_lookup-col.
WHEN '0001'.
it_tab_lookup-rpc_ship_to = it_lookup-value.
WHEN '0002'.
it_tab_lookup-rpc_sold_to = it_lookup-value.
WHEN '0003'.
it_tab_lookup-rpc_bill_to = it_lookup-value.
WHEN '0004'.
it_tab_lookup-type = it_lookup-value.
WHEN '0005'.
it_tab_lookup-qad_ship_to = it_lookup-value.
WHEN '0006'.
it_tab_lookup-qad_sold_to = it_lookup-value.
WHEN '0007'.
it_tab_lookup-qad_bill_to = it_lookup-value.
WHEN '0008'.
it_tab_lookup-sell_div1 = it_lookup-value.
WHEN '0009'.
it_tab_lookup-broker = it_lookup-value.
ENDCASE.
ENDLOOP.
ENDIF.
APPEND it_tab_lookup.
ENDFORM. " f2000_upload_lookup_data
*& Form f3000_data_base_not_updated
text
FORM f3000_data_base_not_updated .
CALL FUNCTION 'DOWNLOAD'
EXPORTING
BIN_FILESIZE = ' '
CODEPAGE = ' '
filename = p2_file
filetype = 'ASC'
TABLES
data_tab = it_tab_driver1
FIELDNAMES =
EXCEPTIONS
invalid_filesize = 1
invalid_table_width = 2
invalid_type = 3
no_batch = 4
unknown_error = 5
gui_refuse_filetransfer = 6
customer_error = 7
OTHERS = 8
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " data_base_not_updated
*& Form f4000_Check_Sales_Division
text
FORM f4000_check_sales_division .
SORT it_outfile.
SORT it_outfile1.
SORT it_outfile2.
SORT it_outfile3.
CALL FUNCTION 'DOWNLOAD'
EXPORTING
filename = p3_file
filetype = 'ASC'
TABLES
data_tab = it_outfile
EXCEPTIONS
invalid_filesize = 1
invalid_table_width = 2
invalid_type = 3
no_batch = 4
unknown_error = 5
gui_refuse_filetransfer = 6
customer_error = 7
OTHERS = 8.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'DOWNLOAD' "V004
EXPORTING "V004
filename = p4_file "V004
filetype = 'ASC' "V004
TABLES "V004
data_tab = it_outfile1 "V004
EXCEPTIONS "V004
invalid_filesize = 1 "V004
invalid_table_width = 2 "V004
invalid_type = 3 "V004
no_batch = 4 "V004
unknown_error = 5 "V004
gui_refuse_filetransfer = 6 "V004
customer_error = 7 "V004
OTHERS = 8. "V004
IF sy-subrc <> 0. "V004
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO "V004
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. "V004
ENDIF. "V004
CALL FUNCTION 'DOWNLOAD' "V004
EXPORTING "V004
filename = p5_file "V004
filetype = 'ASC' "V004
TABLES "V004
data_tab = it_outfile2 "V004
EXCEPTIONS "V004
invalid_filesize = 1 "V004
invalid_table_width = 2 "V004
invalid_type = 3 "V004
no_batch = 4 "V004
unknown_error = 5 "V004
gui_refuse_filetransfer = 6 "V004
customer_error = 7 "V004
OTHERS = 8. "V004
IF sy-subrc <> 0. "V004
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO "V004
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. "V004
ENDIF. "V004
CALL FUNCTION 'DOWNLOAD' "V004
EXPORTING "V004
filename = p6_file "V004
filetype = 'ASC' "V004
TABLES "V004
data_tab = it_outfile3 "V004
EXCEPTIONS "V004
invalid_filesize = 1 "V004
invalid_table_width = 2 "V004
invalid_type = 3 "V004
no_batch = 4 "V004
unknown_error = 5 "V004
gui_refuse_filetransfer = 6 "V004
customer_error = 7 "V004
OTHERS = 8. "V004
IF sy-subrc <> 0. "V004
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO "V004
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. "V004
ENDIF. "V004
CALL FUNCTION 'DOWNLOAD' "V004
EXPORTING "V004
filename = p7_file "V004
filetype = 'ASC' "V004
TABLES "V004
data_tab = it_outfile4 "V004
EXCEPTIONS "V004
invalid_filesize = 1 "V004
invalid_table_width = 2 "V004
invalid_type = 3 "V004
no_batch = 4 "V004
unknown_error = 5 "V004
gui_refuse_filetransfer = 6 "V004
customer_error = 7 "V004
OTHERS = 8. "V004
IF sy-subrc <> 0. "V004
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO "V004
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. "V004
ENDIF. "V004
ENDFORM. " f4000_Check_Sales_Division
*& Form f5000_warning_file
Sales area in KNVV table is compared with the sales area in
ZZSD0010 table and a warning file is created if any mismatch *
occurs *
FORM f5000_warning_file . "V004
IF it_zzsd0010-payer <> 'X'. "V003
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' "V002
EXPORTING "V002
input = it_zzsd0010-kunnr "V002
IMPORTING "V002
output = it_zzsd0010-kunnr. "V002
SELECT kunnr "V002
vkorg "V004
vtweg "V004
spart "V004
kdgrp "V002
INTO TABLE it_knvv "V002
FROM knvv "V002
WHERE kunnr = it_zzsd0010-kunnr. "V002
IF sy-subrc = 0. "V002
READ TABLE it_knvv WITH KEY kunnr = it_zzsd0010-kunnr.
IF it_zzsd0010-kdgrp <> it_knvv-kdgrp. "V002
CONCATENATE it_zzsd0010-princ_customer "V002
it_zzsd0010-kunnr "V002
it_zzsd0010-kdgrp "V002
it_knvv-kdgrp "V002
INTO it_outfile SEPARATED BY space. "V002
APPEND it_outfile. "V002
ENDIF. "V002
IF it_zzsd0010-vkorg <> it_knvv-vkorg. "V004
CONCATENATE it_zzsd0010-princ_customer "V004
it_zzsd0010-kunnr "V004
it_zzsd0010-vkorg "V004
it_knvv-vkorg "V004
INTO it_outfile1 SEPARATED BY space. "V004
APPEND it_outfile1. "V005
ENDIF. "V004
IF it_zzsd0010-vtweg <> it_knvv-vtweg. "V004
CONCATENATE it_zzsd0010-princ_customer "V004
it_zzsd0010-kunnr "V004
it_zzsd0010-vtweg "V004
it_knvv-vtweg "V004
INTO it_outfile2 SEPARATED BY space. "V004
APPEND it_outfile2. "V005
ENDIF. "V004
IF it_zzsd0010-spart <> it_knvv-spart. "V004
CONCATENATE it_zzsd0010-princ_customer "V004
it_zzsd0010-kunnr "V004
it_zzsd0010-spart "V004
it_knvv-spart "V004
INTO it_outfile3 SEPARATED BY space. "V004
APPEND it_outfile3. "V005
ENDIF. "V004
CLEAR it_outfile. "V002
CLEAR it_outfile1. "V004
CLEAR it_outfile2. "V004
CLEAR it_outfile3. "V004
CLEAR it_knvv. "V002
REFRESH it_knvv. "V002
ELSE. "V002
CONCATENATE 'CUSTOMER' "V002
it_zzsd0010-kunnr "V002
'NOT FOUND IN KNVV TABLE' "V002
INTO it_outfile4 SEPARATED BY space. "V002
APPEND it_outfile4. "V002
ENDIF. "V002
ENDIF. "V003
ENDFORM. " f5000_warning_file "V004
*& Form f6000_add_zeros_to_cust
text
--> p1 text
<-- p2 text
form f6000_add_zeros_to_cust .
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' "V002
EXPORTING "V002
input = it_zzsd0010-kunnr "V002
IMPORTING "V002
output = it_zzsd0010-kunnr. "V002
endform. " f6000_add_zeros_to_cust -
Downloading ...into text file
hii Friends,,,,
i want to download report program into text file and its includes into seperate text file without using function modules.I want to do it with CL_GUI_FRONTEND_SERVICES and readreport.
Kindly halp me or send any sample code???
Regards Mandeep.Hi Mandeep Singh,
The solution is simple press the button PATTERN or press CTRL + F6.
That gives you a pop up.
Select radio button "ABAP Object Patterns"
Press Enter.
In Call Method radio button.
Type "CL_GUI_FRONTEND_SERVICES" in Class/Interface.
<b>Select the METHOD of your choice by pressing F4 in the box Method.</b>
This should solve the query.
Reward Points if useful.
Thanks,
Tej.. -
Very Easy Question: How to view source code of JAR file
Hi Experts,
1) Can we can see the content of JAR file?
2) How we can we see content of JAR file?
3) I have with me JAR file. It is sap.compcui_gpoadp~ObjectAndDataProvider.JAR. I have to make some changes in the JAR file source code. How I can find the source code?
I tried to see the source code using NWDS. However, I can not see the code.
Regards,
Gaurav>
Gary wrote:
> Can I make changes in the source code of JAR file? Can I make changes in the code?
You cannot do this by simple repacking/rearchiving of JAR, because it contains special descriptor with fingerprint. In general, JAR is unmodifiable, however, you can create a new one with modified sources.
You can try to import the JAR in some Java project in Eclipse, for example. Then make your changes and use the Eclipse's Export JAR wizard in order to repack the modified source Java files in a new JAR.
>
Gary wrote:
> Can I rename the JAR file and still it will usable? Please confirm.
I general, yes, the operation is allowed. However, you cannot do this with JAR deployed on some J2EE server or Portal, for example. Because there are references to it.
>
Gary wrote:
> Please let me know if by any chance I can see the content of JAR file in NWDS.
Yes, sure. Use Import from Archive wizard in Eclipse. Or add the JAR in the class path of some Java project and Eclipse will show you the content of it.
BR, Sergei -
Download Source Code of SAP Fiori SRM - My Shopping cart application
Hi Folks,
Where i can download, source code of SAP Fiori - SRM My Shopping Cart application.
If it is possible any one share or provide download path of sap fiori My Shopping cart application.
Thanks in advance.
-Cheers
Ganesh BabuThanks for your info.
I have one more question, we do not have FIORI app landscape now, we are planning to get the Shopping Cart application from SAP then we will start the customizing by using the steps which are mentioned in above thread Link.
Can you pls. share how to download the SAP FIORI - Shopping cart app (approval & my Shopping cart) then how to proceed with installing the app in ABAP app server & NW Gateway service.
Regards
Ganesh. -
hi,
i downloaded a txt file from 3rd party software and upload to sap. all country are ok except 1 country.
on first line, there is a character at the begining of the line :
锘?20:070511
it should actually be :20:070511.
this character only can be seen in debug mode. i tried to delete the line and type in manually in the txt file and reupload to sap;
change from ws_upload to gui_upload;
notepad save as utf-8 also cannot. unicode i do not think can use as will generate and become 1 long string.
what could be the cause and how to do away with it?
thankshi,
1) i already said i deleted the line and typed in manually in the text file but still the same.
2) i know can remove the unsupported code in program but i need to find out the root cause.
thanks -
Can Labview output source code in text format?
I am trying to file a patent that includes some Labview code. The patent office recommends attaching code (either source code or machine code) to show reduction to practice.
However, it appears that the USPTO only accepts CD-Rs that have ASCII text on them. Is there a way to export Labview source code or machine code (from application builder?) to text?
Does anyone have any advice for dealing with the PTO when Labview code is involved?
Thanks,
Casey> I am trying to file a patent that includes some Labview code. The
> patent office recommends attaching code (either source code or machine
> code) to show reduction to practice.
>
> However, it appears that the USPTO only accepts CD-Rs that have ASCII
> text on them. Is there a way to export Labview source code or machine
> code (from application builder?) to text?
>
> Does anyone have any advice for dealing with the PTO when Labview code
> is involved?
>
I believe this has been done before. I did a quick search on
www.uspto.gov, and found lots of them referencing LabVIEW -- meaning
that LabVIEW was mentioned in the patent, and probably that LV code was
the mentioned embodiment of the patent. I didn't browse all of them to
see if or how they i
ncluded source, but surely you can find a precedent
for including a pdf or rtf with your diagrams.
If you can't find anything else, print your VIs to RTF and see about
submitting that.
Greg McKaskle -
Where can I get the source code of Text Layout Editor?
Hi, Guys:
I just want to design horizontal or vertical rulers that are exactly same as the one I see in the Text Layout Editor.
Please see the url: http://labs.adobe.com/technologies/textlayout/demos/
But I cann't download any source code. Does anyone know if it's possible to get it? Thanks.And now it is possible: http://blogs.adobe.com/tlf/2009/12/new-and-updated-tlf-samples.html
-
Attaching source code of jar files in ecllipse edidor
Hi all,
i want to attach source code for jre system library 1.5 while i am using ecllipse 3.2. i also want to attach other source code for struts.jar .
but i am unable to do it.
my another problem is that i have struts.jar 1.2.9 and source code for that version is not available on the apache site.
so please help me to attaching source file with jar files.
thanks.source code for jre system library 1.5 under eclipse: Window -> Preferences ->
Installed JREs -> here add JDK and not JRE
(that's all !!)
source code for struts.jardownload struts.xxx-src.zip from struts web site the
add it to your struts project repository. Write some
code that uses the struts API then select a struts
class (ActionForm for example) and hit F3 keyboard
key. Finally, click the button Attach
Source... and select struts.xxx-src.zip you've
just downloaded.
do the same thing for all other jar which have a
source code
hope that helpsRather than change JVMs to do this, you could just follow java_2006's instructions for the JRE, looking for the source inside the folder where your JDK is installed. It's in a file called src.zip -
Old version Source code to .exe file conversion
I have a programming GUI source code (written in an older version of LabVIEW). Can it be supported by LABview Evaluation version 10.0.1 and be converted to an .exe file. How can I convert and use source code file for programming? What do I need to convert and how?
I'm new to LABview. Please help!!2010 can open VIs written in LabVIEW 6.0 or newer. Just double click on the top level VI. You will also need to install any hardware drivers (i.e. GPIB, DAQ, etc) that the old program used.
With the evaluation version, you can create an exe but it will have a watermark on the front panel. -
How to download data into a text file format ?
Hi, all.
My situation now is: I have a report pogram which can retrieve data from database, and I would like to export or download those data to outside as a text file (.txt) in my local computer.
So, does anyone know how to do it? i mean my report coding should add on or enhance with what coding in order to do like that.
Thanks in advance.Hi,
Use GUI_DOWNLOAD Function module.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
BIN_FILESIZE =
filename = 'FILEPATH'*
FILETYPE = 'ASC'
APPEND = ' '
WRITE_FIELD_SEPARATOR = 'X' (Field separator )
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 = ' '
IMPORTING
FILELENGTH =
tables
data_tab = t_customer ( give internal tablename )
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. " IF SY-SUBRC -
How to get the source code in PAR file
Hi All,
I used the PAR migration tool to migrate from PAR to EAR file. When I imported the EAR into NWDS 7.3, I was just able to see the structure and jsp files and could not find the java source code files. I would requires the java source code to make modifications so that deprecated APIs can be replaced and to also make the code compatible with JDK 1.6.
I think the original 7.0 PAR file itself does not contain the source code. I decided to use the "Include source code" option when exporting the 7.0 PAR.
I have the portal application DC project in my NWDS 7.0. However, when I try to export the PAR file using Export --> PAR File -- > Next... I am unable to select any project from the list. The list appears blank with disabled Next & Finish buttons.
I also noticed that in the portal DC application structure, there is a .sda file under /gen/default/deploy. Also there is no PAR folder under /gen/default/public.
How do I include the source in the PAR file so that I can edit the same after migrating to EAR format ?
Regards,
MelwynDC and PAR/EAR stuff are different formats, SC/DC is an archive type used by NWDI, if I got it right.
How do I go about generating the PAR file (with source) ?
In fact through including the seources while creating the PAR/EAR in NWDS, but: no need to do that, you can also depack SDA (rename it to zip). If you wanna just see the Java sources you will find them there, otherwise decompile as Vijay already sad.
cheers -
To see the source code in .sca file
Hi Experts,
We have installed EP with NWDI 7.0 2004s SP11 version.
I have installed NWDS 7.0.08 in mysystem.
I have been provided with a .sca file which contains the applications which are developed.
Now I have to see the source code of those applications in NWDS thru NWDI or by any other means.
Thanks & regards
VardhanHi Pascal,
I have already unzipped it and I got the folders like Build archives, Deploy archives, Meta inf, source archives.
Deploy archives consists of .sda files what you have said in your post.
Source archives folder has a .sc file.
I deployed that .sca file through sdm, but it is not available in the software components under CMS inorder to import it into track.
But that software component is available under my SLD--> installed systems products.
My objective is to see the source code in that .sca file.
What do you mean by double post and tripple post?
Best Regards
Harshavardhan -
Download internal table as text file with comma separation
hi all
I wanted text file separated by comma. I used the CSV function module, but the result is separeted by semicolon,instead i need comma.
Kindly suggest some solution.
Thanks
Subhause this fm to convert to csv file
CALL FUNCTION 'SAP_CONVERT_TO_TEX_FORMAT'
EXPORTING
I_FIELD_SEPERATOR = ','
TABLES
I_TAB_SAP_DATA = ITAB_FINAL
CHANGING
I_TAB_CONVERTED_DATA = ITAB_OUTPUT
EXCEPTIONS
CONVERSION_FAILED = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
itab_output is of type ITAB_OUTPUT TYPE TRUXS_T_TEXT_DATA,
and then download using gui_download
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
FILENAME = W_FILENAME
FILETYPE = 'ASC'
TABLES
DATA_TAB = ITAB_OUTPUT
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.
Maybe you are looking for
-
IMac error message with 32Gb compact flash card from Nikon D4
Hi I have a iMac 2.8Gig core 2 duo running 10.7.4 - I get a error message (the disk inserted is not readable by this computer) when using 32gb compact flash cards from my Nikon D4, have tried bith Sandisk and Lexar cards same error message. However b
-
Looking for Dreamweaver How to's
Hi all, As a beginner, I am having problems with Dreamweaver CS4. Mainly with creating an email campain page. I have read so much on does and don't, which many people seem to disregard. I would like to know the following... 1. Should I use tables or
-
Hi All, I am facing some problem with SDN, i am getting 1000's of mails daily to my official mail box.Thats why I planned to unsubscribe with this ID from sdn. Please provide me the link where i can find the Unsubscribe link on SDN Home page Regards.
-
10.4.3 Update foze my mac HELP!
I am not a proficent mac expert so I don't recal the specific language of the prompts but this is what happend I ran software update so I could get 10.4.3, came back a few minutes later and the instillation had timed out. Said to quit instillation, d
-
Communication via TCPIP with an oscilloscope
I try to communicate via TCPIP with a digital oscilloscope (Tektronix TDS3000B series). First of all; Is that possible or do I need a GPIB interface? Where can I find an exact description of the commands? So far I could build a connection, but nothin