Skip to Content
0
Apr 08, 2010 at 09:54 AM

How to check existing records in Ztable?

102 Views

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