Converting PNP related statement to simple ABAP

Question

Hello,
i had a report which uses PNP logical database of HR module.
the code contains two specific lines to be used with it.
Get PERNR.
and
rp_provide_from_last p0000 space pn-begda pn-endda.
Now i want to do the same functionality using simple ABAP statements.
Could you please guide me. My requirement is that i had to fill a table, lets take Pa0000 internal table, so for that i could use a select statemnt instead of GET PERNR statement.
but didnt getting the conversion for the macro being used above. Also the PERNR field is not a mandatory one on the selection screen

Answer 1

hi check this program,
*& Report  ZBEN
REPORT  ZBEN.
tables:t591a,pa0021,pa0002.
DATA:BEGIN OF IT_PA0002 OCCURS 0,
     PERNR LIKE PA0002-PERNR,
     BEGDA LIKE PA0002-BEGDA,
     ENDDA LIKE PA0002-ENDDA,
     END OF IT_PA0002.
DATA:BEGIN OF IT_PA0021 OCCURS 0,
     PERNR LIKE PA0021-PERNR,
     subty like pa0021-subty,
     BEGDA LIKE PA0021-BEGDA,
     ENDDA LIKE PA0021-ENDDA,
     FAMSA LIKE PA0021-FAMSA,
     OBJPS LIKE PA0021-OBJPS,
     FAVOR LIKE PA0021-FAVOR,
     FANAM LIKE PA0021-FANAM,
     KDSVH LIKE PA0021-KDSVH,
     KDART LIKE PA0021-KDART,
     END OF IT_PA0021.
data:it_t591a type t591a occurs 0 with header line.
data:it_t591s type t591s occurs 0 with header line.
PARAMETERS:P_PERNR LIKE PA0021-PERNR.
START-OF-SELECTION.
SELECT PERNR
       BEGDA
       ENDDA
       FROM PA0021
       INTO TABLE IT_PA0002
       WHERE PERNR = P_PERNR.
       IF SY-SUBRC = 0.
       SELECT PERNR
              subty
              BEGDA
              ENDDA
              FAMSA
              FAVOR
              OBJPS
              FANAM
              KDSVH
              KDART
              FROM PA0021
              INTO CORRESPONDING FIELDS OF TABLE IT_PA0021
              FOR ALL ENTRIES IN IT_PA0002
              WHERE PERNR = IT_PA0002-PERNR.
              if sy-subrc = 0.
             SELECT * FROM T591A
                    INTO table it_t591a
                    for all entries in it_pa0021
                     where infty = '0021'
                     and subty = it_pa0021-subty.
               if sy-subrc = 0.
               select * from t591s into table it_t591s where sprsl = 'EN'
                                                       and infty = '0021'
                                                       and subty = it_t591a-subty.
              IF SY-SUBRC = 0.
              LOOP AT IT_PA0021.
              WRITE:/ IT_PA0021-PERNR, IT_PA0021-BEGDA, IT_PA0021-ENDDA, IT_PA0021-FAMSA, IT_PA0021-OBJPS,it_t591s-stext,IT_PA0021-FAVOR, IT_PA0021-FANAM, IT_PA0021-KDSVH, IT_PA0021-KDART.
              ENDLOOP.
              ENDIF.
           endif.
              ENDIF.
              endif.
reward points if useful,
venkat.
Edited by: venkat  appikonda on Mar 5, 2008 12:11 PM