Simple Intaractive report in HR-ABAP

Question

Hi Experts,
How can i display Intaractive report ,
In basic List i want to print EMP data on top.
and infotype number and infotype text .
In secondary list infotype data on which the user intactive with infotype no..
If user intaract the 0001 infotype, In secondary list i want display only 0001 data.
thanks advace,,,REWARDs  for  usefull answers

Answer 1

Hi,
I am providing some sample code , similarly you can do for other infotypes . If you being functional ask your technical person to just copy this code in a new report and just execute .
In the first display screen choose any pernr and ot will take you to the next screen displaying the details for that employee.
Report Test.
                      Tables & Structures                            *
TABLES :pa0000, pa0001.
TYPES :  BEGIN OF ty_pa0000,
        pernr type pa0000-pernr,
        END OF ty_pa0000,
        BEGIN OF ty_pa0001,
        pernr type pa0001-pernr,
        endda type pa0001-endda,
        begda type pa0001-begda,
        name  type pa0001-ename,
        END OF ty_pa0001.
                 Internal Tables and Work Area                       *
DATA : gt_pa0000 TYPE STANDARD TABLE OF ty_pa0000,
       gw_pa0000 LIKE LINE OF gt_pa0000,
       gt_pa0001 TYPE STANDARD TABLE OF ty_pa0001,
       gw_pa0001 LIKE LINE OF gt_pa0001.
                 Select the single personnel number                  *
SELECT pernr
FROM pa0000
INTO TABLE gt_pa0000
where begda le sy-datum and
      endda ge sy-datum.
                 get org assgn details of employees                  *
IF gt_pa0000[] IS NOT INITIAL.
  SELECT pernr
         endda
         begda
         ename
  FROM pa0001
  INTO TABLE gt_pa0001
  FOR ALL ENTRIES IN gt_pa0000
  WHERE pernr = gt_pa0000-pernr and
        endda ge sy-datum and
        begda le sy-datum.
ENDIF.
                 Generate Report                                     *
clear : gw_pa0000, gw_pa0001.
To get the hand icon on the text
FORMAT HOTSPOT.
LOOP AT gt_pa0000 INTO gw_pa0000.
  AT FIRST.
    WRITE:/  'Personnel Number' .
    SKIP.
  ENDAT.
  READ table gt_pa0001 into gw_pa0001 with key pernr = gw_pa0000-pernr.
  WRITE:/
         gw_pa0000-pernr.
  HIDE : gw_pa0001.
  SKIP.
  CLEAR : gw_pa0000, gw_pa0001.
ENDLOOP.
                 At Line Selection                                   *
AT LINE-SELECTION.
uline AT /1(110).
write:/ sy-vline,  'Personnel number' centered , sy-vline , 25(25) 'Start Date' centered , sy-vline , 55(26) 'Enddate' centered ,
        sy-vline , 86(25) 'Name' centered,sy-vline.
uline AT /1(110).
WRITE:/ sy-vline ,  gw_pa0001-pernr centered, 20 sy-vline ,25(25)  gw_pa0001-begda centered, sy-vline , 55(26)  gw_pa0001-endda  centered, sy-vline ,86(25) gw_pa0001-name  centered, sy-vline.
uline AT /1(110).
Hope this helps .
Regards,
SureshP.