Fetching huge data from BUT000 with same 5 fields

Question

Hi, there is a requirement to create a z table which will have all the customers in table BUT000. If the set of fields (name, last name, gender, birth date, birth place) are same for few partners (different partners), then a same physical reference number

Answer 1

Hi Manali,
What about this sample code:
TYPES: BEGIN OF ty_text,
   name_first TYPE but000-name_first,
   name_last TYPE but000-name_last,
   birthdt TYPE but000-birthdt,
   birthpl TYPE but000-birthpl.
TYPES: END OF ty_text.
TYPES: BEGIN OF ty_ztable,
   ref TYPE int4.
         INCLUDE TYPE ty_text.
TYPES: END OF ty_ztable.
DATA: lt_text TYPE TABLE OF ty_text,
       lt_ztable TYPE HASHED TABLE OF ty_ztable WITH UNIQUE KEY name_first name_last birthdt birthpl,
       ls_ztable TYPE ty_ztable,
       lv_ref TYPE int4,
       l_cur TYPE cursor,
       lv_buf_package type int4.
FIELD-SYMBOLS: <lfs> TYPE ANY,
                <lfs_text> TYPE ty_text,
                <lfs_ztable> type ty_ztable.
lv_ref = 1.
lv_buf_package = 5000.
OPEN CURSOR WITH HOLD l_cur FOR
   SELECT name_first name_last birthdt birthpl FROM but000.
DO.
   FETCH NEXT CURSOR l_cur
     INTO TABLE lt_text PACKAGE SIZE lv_buf_package.
   IF sy-subrc <> 0. EXIT. ENDIF.
   LOOP AT lt_text ASSIGNING <lfs_text>.
     READ TABLE lt_ztable ASSIGNING <lfs_ztable>
       WITH KEY name_first = <lfs_text>-name_first
                name_last = <lfs_text>-name_last
                birthdt = <lfs_text>-birthdt
                birthpl = <lfs_text>-birthpl.
     IF sy-subrc = 0.
       " wa-reference = <lfs_ztable>-ref                    " uncomment this
     ELSE.
       lv_ref = lv_ref + 1.
       CLEAR: ls_ztable.
       " MOVE-CORRESPONDING <lfs_text> TO ls_ztable.        " uncomment this
       " ls_ztable-name_first = <lfs_text>-name_first ....  " uncomment this
       ls_ztable-ref = lv_ref.
       INSERT ls_ztable INTO TABLE lt_ztable.
       " wa-reference = lv_ref    " uncomment this
     ENDIF.
     " move-correspoding to workking area (wa) type zdatabase " uncomment this
     " insert into databse                                    " uncomment this
   ENDLOOP.
   CALL FUNCTION 'DB_COMMIT'.
ENDDO.
CLOSE CURSOR l_cur.
Another way? (index):
Do
  Get the 5 fields (only 1 time for each pack of 5 fields)
  open cursor...
    where field1 = ...
  do.
  endoo.
Enddo.
Regards,
Luis