How to extract current record using get pernr (logical database)

Question

Hi all,
I am using logical database in the program and using <b>get pernr</b> method. But there are multiple entries in the infotype for a perticular employee. i want to extract employees current record whose end date is greater than sy-datum.
how to do this using <b>get pernr</b>?
Thanks in advance.

Answer 1

Hi Priti,
Get Pernr statement will get all the records for each employee spcicified for the Begin and End dates on the selection screen and store in an internal table for the infotypes declared in the infotypes statement.
You need to read this table and copy only the records that meet the date criteria in an internal table for further use.
For Ex:
infotypes : 0001.
tables : pernr.
TYPES : BEGIN OF ty_kostl,
         pernr TYPE pernr-pernr,
         kostl TYPE p0001-kostl,
         ename TYPE p0001-ename,
        END   OF ty_kostl.
Work Areas
DATA : g_kostl_wa  TYPE ty_kostl.
Internal Tables
DATA : i_kostl  TYPE TABLE OF ty_kostl.
start-of-selection.
   get pernr.
   PROVIDE * FROM p0001 BETWEEN pn-begda AND pn-endda.
    if p0001-endda GT sy-datum.
       g_kostl_wa-pernr = p0001-pernr.
       g_kostl_wa-kostl = p0001-kostl.
       g_kostl_wa-ename = p0001-ename.
       APPEND g_kostl_wa TO i_kostl.
       CLEAR  g_kostl_wa.
    endif.
  ENDPROVIDE.