hi frnds,
i have uploaded the data from excel sheet to ztable.now anyone tell me how to check duplicacy in ztable.if i hv uploaded the data in Ztable n again im uploading the same then system shud give msg that "Data already Exists".My prgm is as follows-
REPORT zexcel_upload.
TYPE-POOLS: truxs.
PARAMETERS: p_file TYPE rlgrap-filename.
TYPES: BEGIN OF t_datatab,
name1(30) TYPE c,
name2(30) TYPE c,
name3(30) TYPE c,
END OF t_datatab.
DATA: it_datatab TYPE STANDARD TABLE OF t_datatab,
wa_datatab TYPE t_datatab.
DATA: it_tab TYPE STANDARD TABLE OF ztbl_dbtab,
wa_tab TYPE ztbl_dbtab.
DATA: it_raw TYPE truxs_t_text_data.
* At selection screen
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
field_name = 'P_FILE'
IMPORTING
file_name = p_file.
***********************************************************************
*START-OF-SELECTION.
START-OF-SELECTION.
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
EXPORTING
* I_FIELD_SEPERATOR =
i_line_header = 'X'
i_tab_raw_data = it_raw " WORK TABLE
i_filename = p_file
TABLES
i_tab_converted_data = it_datatab[] "ACTUAL DATA
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.
***********************************************************************
* END-OF-SELECTION.
END-OF-SELECTION.
* LOOP AT it_datatab INTO wa_datatab.
* WRITE:/ wa_datatab-col1,
* wa_datatab-col2,
* wa_datatab-col3.
* ENDLOOP.
*
*
LOOP AT it_datatab INTO wa_datatab.
MOVE-CORRESPONDING wa_datatab TO wa_tab.
APPEND wa_tab TO it_tab.
*INSERT ZTBL_DBTAB FROM WA_TAB.
ENDLOOP.
*
IF it_tab[] IS NOT INITIAL.
INSERT ztbl_dbtab FROM TABLE it_tab.
ENDIF.
if sy-subrc = 0.
message 'Data already exists' type 'w'.
endif.
Edited by: Thomas Zloch on Apr 8, 2010 3:33 PM - tags added