Regarding logical data base tables

Question

i am working on abap-hr. i want to know how to retrieve data from two different hr-database tables to two different internal tables and then send it to final internal table.can any one plz give me sample hr code.
your help is rewarded with points
bye
rad

Answer 1

Hi
If you are using logical databases, then you don't have to give any SELECT statement.
1. For getting the personnel number, you use PNP logical database.
2. Declare infotypes of the 2 tables from which you need to fetch data, say for 0000, 0001.
3. Use the event GET PERNR in START-OF-SELECTION.
when you do this, an internal table will be created and will be populated with all pernr for the declared infotypes in P0000, P0001.
4. at the event END-OF-SELECTION, GET PERNR will be triggered and next pernr will be fetched and the internal tables with that pernr will be populated.
You can use these internal tables for getting the desired records by using the macros,
RP-PROVIDE-FROM-LAST ......
SAMPLE CODE:
infotypes: 0000, 0001, 0002.
tables: pa0000, pa0001, PERNR.
data: begin of itab occurs 0,
      end of itab.
Start-of-selection
  START-OF-SELECTION.
  GET PERNR.
RP-PROVIDE-FROM-LAST P0001 SPACE PN-BEGDA PN-ENDDA.
if no record is found then exit
  IF PNP-SW-FOUND = 1.
    ITAB-PERNR  = PERNR-PERNR.      "Emp no
    ITAB-BUKRS  = P0001-BUKRS.      "Company code
    ITAB-WERKS  = P0001-WERKS.      "Personnel area
    ITAB-BTRTL  = P0001-BTRTL.      "Personnel sub-area
RP-PROVIDE-FROM-LAST P0002 SPACE PN-BEGDA PN-ENDDA.
  if pnp-sw-found = 1.
    ITAB-VORNA  = P0002-VORNA.
    ITAB-NACHN  = P0002-NACHN.
   endif.
  ELSE.
    EXIT.
  ENDIF.    
append itab.
  END-OF-SELECTION.
this will fetch the last record. if you need to fetch all records then you can loop P0001 and get the values for that particular pernr.
loop at P0001.
  itab-pernr = pernr-pernr.
  itab-werks = P0001-werks.
endloop.
Regards,
Navneeth
PS: If not clear, please let me know.
Message was edited by: Navneeth Saraogi