Pa20(maintain text,display text)

Question

Hi ,
I Need to retrieve the text stored for a emplyee.below i am giving the full details,
In Pa20 transaction if we give the perso. no and select the 0008 infotype.then click on overview tab.then in overview screen if i select any record i.e any period of dates and clicks on display.in display window menu bar
<b>EDIT-> maintain text .</b>
they are maintaing some text in that.if i click on display text the text was displaying.
i need to fetch that data in my custom report.
can anybody helps from where this text can be selected.which ifotype?.
hope my question is understood .
Thanks,
JK.

Answer 1

the following works perfect for me..
*& Report  ZP_PA_0008_READ_NOTES                                       *
report  zp_pa_0008_read_notes.
infotypes:
0008.
* workfields & internal tables
data w_subrc type sysubrc.
data:  key like pskey.
data: begin of ptext occurs 200.
data:   line(78).
data: end of ptext.
selection-screen begin of block abc with frame title text-001.
parameters:
               p_pernr like pernr-pernr,
               p_date like sy-datum.
selection-screen end of block abc.
call function 'HR_READ_INFOTYPE'
  exporting
    tclas           = 'A'
    pernr           = p_pernr
    infty           = '0008'
    begda           = p_date
    endda           = p_date
  importing
    subrc           = w_subrc
  tables
    infty_tab       = p0008
  exceptions
    infty_not_found = 1
    others          = 2.
if sy-subrc <> 0.
  message id sy-msgid type sy-msgty number sy-msgno
          with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
loop at p0008 where itxex eq 'X'.
  refresh ptext.
  move-corresponding p0008 to key.
  import ptext from database pcl1(tx) id key.
  loop at ptext.
    write :/ p_pernr,ptext-line.
  endloop.
endloop.
~Suresh