Info set query

Question

Hello everybody,
I have a problem with the creation of info set (tcode : sq00 and sq02)
I need your help, i have to develop a query with a number Purchase Order and number of invoice.
For example : for a number of invoice : 5105617263
i have with TOAD (soft) this :
select distinct ekko.ebeln, rseg.belnr
from sapsr3.ekko, sapsr3.rseg
where ekko.ebeln = rseg.ebeln
and rseg.belnr = '5105617263'
and ekko.mandt = '350'
EBELN        BELNR
4500013374   5105617263
4500014267   5105617263
I've tried to have the same result with an info set (sq02) and i have this :
Purchase Order           Invoice
4500013374               5105617263
4500013374               5105617263
4500013374               5105617263
4500014267               5105617263
4500014267               5105617263
4500014267               5105617263
4500014267               5105617263
I dont know to develop in ABAP and i want to know if it's possible to have DISTINCT in an info set ?
Or which table can i use to have this ?
Thank you very much

Answer 1

thanks for your answers.
<br>
I tried to create a z programm with tcode SE38 but i dont have the key.
<br>
I would like to know if i can write this code on the tcode sq02 ?
<br>
this is my code :
<br><br><br>
FUNCTION /1BCDWB/IQG000000000487EXTR.<br>
<br>
""Interface locale :<br>
*"  TABLES<br>
*"      %SELOPT STRUCTURE  RSPARAMS<br>
*"      %DTAB STRUCTURE  /1BCDWB/IQG000000000487<br>
*"  CHANGING<br>
*"     VALUE(%RTMODE) TYPE  AQLIMODE<br>
*"  EXCEPTIONS<br>
*"      NO_DATA<br>
*"      NO_AUTHORIZATION<br>
*"      ILLEGAL_PACKAGE<br>
*"      CURSOR_NOT_OPEN<br>
<br>
<br><br><br>
call function 'RSAQRT_SET_IDENTIFICATION'<br>
exporting iqid        = %iqid<br>
          sscr_report = sy-repid<br>
changing  rtmode      = %rtmode.<br>
<br><br><br>
if %rtmode-pack_on = space or %rtmode-first_call = 'X'.<br>
   call function 'RSAQRT_FILL_SELECTIONS'<br>
     tables   selopt = %selopt<br>
     changing rtmode = %rtmode.<br>
endif.<br>
<br><br><br>
call function 'RSAQRT_INIT_TEXTHANDLING'    <br>
     exporting class   = 'CL_TEXT_IDENTIFIER'<br>
     wsid    = 'G'<br>
     infoset = 'REQUETE_EBELN'.<br>
<br><br>
if %rtmode-no_authchk = space<br>
and ( %rtmode-pack_on = space or %rtmode-first_call = 'X' ).<br>
refresh %auth_tabs.<br>
append 'RBKP' to %auth_tabs.<br>
append 'EKBE' to %auth_tabs.<br>
append 'EKKO' to %auth_tabs.<br>
call function 'RSAQRT_AUTHORITY_CHECK'<br>
      exporting<br>
          auth_tabs         = %auth_tabs<br>
          auth_clas         = 'CL_QUERY_TAB_ACCESS_AUTHORITY'<br>
      changing<br>
          rtmode            = %rtmode<br>
      exceptions<br>
          NO_AUTHORIZATION  = 1.<br>
if sy-subrc = 1.<br>
   raise no_authorization.<br>
endif.<br>
endif.<br>
break-point.<br>
<br><br><br>
data: %l_no_further_fetch type flag, " stop fetching<br>
       %l_hits_cnt         type i.    " cnt for %dbtab entries<br>
<br><br><br>
   if %rtmode-pack_abort = 'X'.<br>
     if not %dbcursor is initial.<br>
     close cursor %dbcursor.<br>
     endif.<br>
     exit.<br>
endif.<br>
<br><br><br>
if %rtmode-pack_on = space or %rtmode-first_call = 'X'.<br>
      if not %dbcursor is initial.<br>
          close cursor %dbcursor.<br>
      endif.<br>
      open cursor with hold %dbcursor for<br>
      select RBKPBELNR RBKPRMWWR RBKPWAERS RBKPWMWST1 EKBEBELNR EKKOEBELN<br>
      from ( RBKP<br>
           inner join EKBE<br>
              on  EKBEBELNR = RBKPBELNR<br>
           inner join EKKO<br>
            on  EKKOEBELN = EKBEEBELN )<br>
           where RBKP~BELNR in SP$00001<br>
           and EKKO~EBELN in SP$00002 .<br>
endif.<br>
<br><br><br>
if %dbcursor is initial.<br>
  raise cursor_not_open.<br>
endif.<br>
<br><br><br>
while %l_no_further_fetch = space.<br>
      fetch next cursor %dbcursor<br>
      into (RBKP-BELNR , RBKP-RMWWR , RBKP-WAERS , RBKP-WMWST1 , EKBE-BELNR , EKKO-EBELN ).<br>
      if ( ( %rtmode-acc_check = 'X' and<br>
           sy-dbcnt > %rtmode-acc_number )<br>
          or sy-subrc <> 0 ).<br>
          %l_no_further_fetch = 'X'.<br>
      else.<br>
           check SP$00001.<br>
           check SP$00002.<br>
          call function 'RSAQRT_TEXTFIELD_REFRESH'.<br>
           %dtab-BELNR = RBKP-BELNR .<br>
           %dtab-RMWWR = RBKP-RMWWR .<br>
           %dtab-WAERS = RBKP-WAERS .<br>
           %dtab-WMWST1 = RBKP-WMWST1 .<br>
           %dtab-WAERS001 = RBKP-WAERS .<br>
           %dtab-EBELN = EKKO-EBELN .<br>
           append %dtab.<br>
           %l_hits_cnt = %l_hits_cnt + 1.<br>
           if %rtmode-pack_on = 'X'<br>
               and %l_hits_cnt >= %rtmode-pack_size.<br>
                %l_no_further_fetch = 'X'.<br>
               endif.<br>
          endif.<br>
     endwhile.<br>
<br><br><br>
if %l_hits_cnt = 0.<br>
     if not %dbcursor is initial.<br>
      close cursor %dbcursor.<br>
     endif.<br>
     raise no_data.<br>
   endif.<br>
<br><br><br>
if %rtmode-pack_on <> 'X'.<br>
      close cursor %dbcursor.<br>
endif.<br>
read table %dtab index 1 transporting no fields.<br>
if sy-subrc ne 0.<br>
     raise no_data.<br>
endif.<br>
<br><br>
endfunction.
<br><br>
if i can write this code on the sq02, where i must write this ?  DATA ? INITIALISATION ? START-OF-SELECTION ?
Thank u very much for your help !
Edited by: missmiss25 on Oct 23, 2009 10:09 AM