How to filter by manager's name using selection screen

Question

Hi all,
  I am trying to modify the report to filter data from the report based on the manger name given in selection screen. As the manger's name was given in selection screen.. records have to come only of the employee how were working under that entered manager name.
  I am unable to follow this code to modify.. where to add select criteria to filter... please make modify to my code..
  I am pasting my code here, Can any one kindly help for this scenario.
TABLES: PA0001,  "HR Master Record: Infotype 0001 (Org. Assignment),
        PA0002,
        P0000,
        PA9001,
        PA0007,
        HRP1001, "Infotype 1001 DB Table
        PA0034. "HR Master Record: Infotype 0034 (Corporate Function)
*Internal table for holding output data
DATA: IT_PA0002 LIKE PA0002  OCCURS 100 WITH HEADER LINE,
      IT_PA9001 LIKE PA9001  OCCURS 100 WITH HEADER LINE,
      IT_PA0007 LIKE PA0007  OCCURS 100 WITH HEADER LINE,
      IT_PA0034 LIKE PA0034  OCCURS 100 WITH HEADER LINE.
DATA: IT_RET LIKE BAPIRET2,
      IT_ACT LIKE BAPI_SWHACTOR OCCURS 0,
      IT_STR LIKE BAPI_STRUC OCCURS 0,
      IT_ORG LIKE BAPI_OBJEC OCCURS 0,
      IT_POS LIKE BAPI_OBJEC OCCURS 0,
      IT_SUP LIKE BAPI_OBJEC OCCURS 0,
      IT_FCAT LIKE BAPI_HRAQFIELDDESCRIPTION OCCURS 0,
      IT_FDAT LIKE BAPI_HRFIELDDATA OCCURS 0,
      IT_ORGS TYPE STANDARD TABLE OF BAPI_OBJEC WITH HEADER LINE,
      IT_POSS TYPE STANDARD TABLE OF BAPI_OBJEC WITH HEADER LINE,
      IT_SUPR TYPE STANDARD TABLE OF BAPI_OBJEC WITH HEADER LINE,
      V_DATE  TYPE SY-DATUM,
      IT_T500P LIKE T500P OCCURS 0 WITH HEADER LINE,
      IT_TT500P LIKE T500P OCCURS 0 WITH HEADER LINE,
      IT_T001P LIKE T001P OCCURS 0 WITH HEADER LINE      .
DATA: IT_PA0001 LIKE PA0001 OCCURS 100 WITH HEADER LINE,
      P_ENDDA LIKE sy-datum.
DATA: Begin of I_HRE,
        pernr  like  pa0001-pernr,  "Emp Number
        nachn  like  pa0002-nachn,  "Last Name
        vorna  like  pa0002-vorna,  "First Name
        plans  like  BAPI_OBJEC-LONG_TEXT,  "Position
        div_text  like  pa9001-div_text,
        kztim  like  ZKZTIM_VAUES-name,
        stext  like  T591S-STEXT,     "Corporate function text
        werks  like  BAPI_OBJEC-LONG_TEXT,
        btrtl  like  pa0001-btrtl,
        orgeh  like  BAPI_OBJEC-LONG_TEXT,
        kostl  like  pa0001-kostl,
        mstbr  like  pa0001-mstbr,  "Supervisor
      End of I_HRE.
DATA: I_HR like I_HRE occurs 100 with header line.
DATA: V_PLANS LIKE PA0001-PLANS,
      V_EMP   LIKE PA0001-PERNR,
      V_KOSTL LIKE PA0001-KOSTL,
      V_SUPER LIKE BAPI_OBJEC-LONG_TEXT,
      V_EMP_POS LIKE BAPI_OBJEC-LONG_TEXT,
      V_SUPER_POS LIKE BAPI_OBJEC-LONG_TEXT,
      V_HEADER TYPE N VALUE 1,
      V_COUNTER TYPE N VALUE 1,
      EMP_INDICATOR TYPE N,
      V_ORGEH LIKE BAPI_OBJEC-LONG_TEXT,
      V_WERKS LIKE BAPI_OBJEC-LONG_TEXT,
      V_KZTIM LIKE ZKZTIM_VAUES-NAME,
      V_STEXT LIKE T591S-STEXT.
  DATA: v_file TYPE string,         "Detail Filename
        v_filerecord(1000),
        f_filerecord(1000),
        drive(3),
        mstbr  like  pa0001-mstbr,  "Supervisor
        count  type n value 0.
SELECTION-SCREEN BEGIN OF BLOCK SELECTION WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: S_PERNR FOR P0000-PERNR,
                S_WERKS FOR PA0001-WERKS,
                S_BTRTL FOR PA0001-BTRTL,
                S_PERSG FOR PA0001-PERSG,
                S_ORGEH FOR PA0001-ORGEH,
                S_DIV   FOR PA9001-DIV_CODE,
                S_KZTIM FOR PA0007-KZTIM,
               S_sname for pa0001-sname, " this is to enter name
                                                         " as manager name
                S_FUNKT FOR PA0034-FUNKT.
SELECTION-SCREEN END OF BLOCK SELECTION.
SELECTION-SCREEN BEGIN OF BLOCK SELECTION1 WITH FRAME TITLE TEXT-002.
PARAMETERS:     P_BEGDA LIKE SY-DATUM DEFAULT sy-datum.
*                P_ENDDA LIKE SY-DATUM DEFAULT '99991231'.
SELECTION-SCREEN END OF BLOCK SELECTION1.
START-OF-SELECTION.
if P_BEGDA is initial.
  p_begda = sy-datum.
endif.
if P_ENDDA is initial.
  p_endda = sy-datum.
endif.
if S_PERSG is initial.
*    S_PERSG-SIGN = 'I'.
*    S_PERSG-OPTION = 'EQ'.
*    S_PERSG-LOW = '1'.
*    APPEND S_PERSG.
*    S_PERSG-SIGN = 'I'.
*    S_PERSG-OPTION = 'EQ'.
*    S_PERSG-LOW = '6'.
*    APPEND S_PERSG.
    S_PERSG-SIGN = 'I'.
    S_PERSG-OPTION = 'NE'.
    S_PERSG-LOW = '5'.
    APPEND S_PERSG.
endif.
  SELECT * FROM PA0001 into IT_PA0001
    WHERE PERNR IN S_PERNR
      AND WERKS IN S_WERKS
      AND BTRTL IN S_BTRTL
      AND PERSG IN S_PERSG
      AND ORGEH IN S_ORGEH
      AND BEGDA LE P_BEGDA
      AND ENDDA GE P_ENDDA.
    APPEND IT_PA0001.
  ENDSELECT.
  IF not S_DIV[] is initial.
    SELECT * FROM PA9001 into IT_PA9001
      WHERE DIV_CODE IN S_DIV.
      APPEND IT_PA9001.
    ENDSELECT.
  ENDIF.
  IF not S_KZTIM[] is initial.
    SELECT * FROM PA0007 into IT_PA0007
      WHERE KZTIM IN S_KZTIM.
      APPEND IT_PA0007.
    ENDSELECT.
  ENDIF.
  IF not S_FUNKT[] is initial.
    SELECT * FROM PA0034 into IT_PA0034
      WHERE FUNKT IN S_FUNKT.
      APPEND IT_PA0034.
    ENDSELECT.
  ENDIF.
  SORT IT_PA0001 by SNAME.
  LOOP AT IT_PA0001.
    IF not S_DIV[] is initial.
      READ TABLE IT_PA9001 with key pernr = IT_PA0001-PERNR.
      IF sy-subrc ne 0.
        continue.
      ENDIF.
    ENDIF.
    IF not S_KZTIM[] is initial.
      READ TABLE IT_PA0007 with key pernr = IT_PA0001-PERNR.
      IF sy-subrc ne 0.
        continue.
      ENDIF.
    ENDIF.
    IF not S_FUNKT[] is initial.
      READ TABLE IT_PA0034 with key pernr = IT_PA0001-PERNR.
      IF sy-subrc ne 0.
        continue.
      ENDIF.
    ENDIF.
      V_COUNTER = 1.
            V_EMP = IT_PA0001-PERNR.
            V_KOSTL = IT_PA0001-KOSTL.
*            WRITE: (10) V_EMP, (20) PA0002-NACHN, (20) PA0002-VORNA.
      WRITE: / SY-VLINE.                   " Left border
        WHILE V_EMP NE ''.
            PERFORM GET_SUPER CHANGING V_EMP V_SUPER
                                V_EMP_POS.
          if v_emp ne ''.
              select single * into it_pa0002 from pa0002
                where pernr = v_emp
                  and begda LE p_begda
                  and endda GE p_endda.
              IF V_HEADER = 1.
                    PERFORM HEADING.
                V_HEADER = 0.
              ENDIF.
              WRITE:  (10) V_EMP, (17) IT_PA0002-NACHN
                      ,(17) IT_PA0002-VORNA, (40) V_EMP_POS.
              move v_emp  to  i_hr-pernr.
              move IT_PA0002-NACHN  to  i_hr-nachn.
              move IT_PA0002-VORNA  to  i_hr-vorna.
              move V_EMP_POS  to  i_hr-plans.
              EMP_INDICATOR = V_COUNTER.
              IF V_COUNTER = 1.
                select single * into it_pa9001 from pa9001
                  where pernr = v_emp
                    and begda LE p_begda
                    and endda GE p_endda.
                select single * into it_pa0007 from pa0007
                  where pernr = v_emp
                    and begda LE p_begda
                    and endda GE p_endda.
                PERFORM GET_KZTIM_TEXT CHANGING it_pa0007-kztim V_KZTIM.
                select single * into it_pa0034 from pa0034
                  where pernr = v_emp
                    and begda LE p_begda
                    and endda GE p_endda.
                PERFORM GET_FUNKT_TEXT CHANGING it_pa0034-funkt v_stext.
                write: (8) IT_PA9001-DIV_CODE, (17) V_KZTIM,
                       (25) V_STEXT.
                move  IT_PA9001-DIV_CODE  to  i_hr-div_text.
                move  v_KZTIM  to  i_hr-kztim.
              ENDIF.
              IF V_COUNTER = 0.
                WRITE: (1) '|'.
              ENDIF.
              IF V_COUNTER = 1.
                PERFORM GET_NAMES.
                WRITE: (20) V_WERKS, (5) IT_PA0001-BTRTL
                        ,(20) V_ORGEH,(11) V_KOSTL, (3) '|'.
                V_COUNTER = 0.
                move  V_WERKS  to  i_hr-werks.
                move  IT_PA0001-BTRTL  to  i_hr-btrtl.
                move  V_ORGEH  to  i_hr-orgeh.
                move  V_KOSTL  to  i_hr-kostl.
              ENDIF.
            clear it_pa0002.
            refresh it_pa0002.
          endif.
            V_EMP = V_SUPER.
            move V_SUPER to i_hr-mstbr.
            if EMP_INDICATOR EQ 1.
              append i_hr.
            endif.
            clear i_hr.
        ENDWHILE.
  NEW-LINE.
  CLEAR : V_KZTIM, it_pa9001, it_PA0007.
  ENDLOOP.
* Check if its a background Job
  IF SY-BATCH NE SPACE.
    perform write_file.     "Output File
  ENDIF.
  ULINE.
*&      Form  GET_SUPER
*       This subroutine takes the position number and get the position
* number that it reports to and then who is holding that position and
* then the name of the person who is holding that position in order to
* provide the supervisors name for the person in that position.
*  -->  p1        text
*  <--  p2        text
FORM GET_SUPER CHANGING EMP_SUB EMP_SUPER
                           EMP_SUB_POS  .
  DATA: v_reporto like hrp1001-varyf value space,
        v_holder  like hrp1001-varyf value space,
        v_filled  like hrp1001-varyf value space,
        v_otype   like hrp1001-otype value space,
        v_objid   like hrp1001-objid value space.
  CLEAR: v_reporto, v_holder, v_filled, v_otype, v_objid,
                          EMP_SUB_POS.
  Select single plans
    into v_plans
    from pa0001
        where pernr = emp_sub
          and begda LE p_begda
          and endda GE p_endda.
        CALL FUNCTION 'BAPI_ORGUNITEXT_DATA_GET'
           EXPORTING
              PLVAR                = '01'
              OTYPE                = 'S'
              OBJID                = v_PLANS
              KEYDATE              = SY-DATUM
              SCENARIO             = '    '
*                 EVALPATH             = 0
              EVALDEPTH            = 0
           IMPORTING
              RETURN               = IT_RET
           TABLES
*                 ACTORTAB             = IT_ACT
*                 STRUCTURALDATA       = IT_STR
              OBJECTSDATA          = IT_SUP
*                 FIELDCATALOGUE       = IT_FCAT
*                 FIELDDATA            = IT_FDAT
        IF SY-SUBRC EQ 0.
          READ TABLE IT_SUP INTO IT_SUPR
             WITH KEY PLAN_VERS  = '01'
                      OBJECTTYPE = 'S'
                      OBJECT_ID  = v_PLANS.
          IF SY-SUBRC EQ 0.
            MOVE IT_SUPR-LONG_TEXT TO EMP_SUB_POS.
          ENDIF.
        ENDIF.
  Select Single varyf
     into v_reporto
     from hrp1001
        where otype = 'S'
          and objid = v_plans
          and rsign = 'A'
          and relat = '002'
          and begda LE p_begda
          and endda GE p_endda.
  if sy-subrc = 0.
    move v_reporto+0(1) to v_otype.
    move v_reporto+2(8) to v_objid.
    Select single varyf
       into v_holder
       from hrp1001
          where otype = v_otype
            and objid = v_objid
            and rsign = 'A'
            and relat = '008'
          and begda LE p_begda
          and endda GE p_endda.
    if sy-subrc = 0.
      move v_holder+0(1) to v_otype.
      move v_holder+2(8) to v_objid.
      EMP_SUPER = v_objid.
    IF EMP_SUB = EMP_SUPER.
       EMP_SUPER = ''.
    ENDIF.
*      Select single varyf
*         into v_filled
*            from hrp1001
*               where otype = v_otype
*                 and objid = v_objid
*                 and rsign = 'A'
*                 and relat = '209'.
*      if sy-subrc = 0.
*        CLEAR: IT_RET, IT_ACT, IT_STR,  IT_FCAT, IT_FDAT,
*               IT_SUP, IT_SUPR.
*        REFRESH: IT_POSS.
*        move v_filled+0(2) to v_otype.
*        move v_filled+2(8) to v_objid.
*        CALL FUNCTION 'BAPI_ORGUNITEXT_DATA_GET'
*           EXPORTING
*              PLVAR                = '01'
*              OTYPE                = v_otype
*              OBJID                = v_objid
*              KEYDATE              = V_DATE
*              SCENARIO             = '    '
**                 EVALPATH             = 0
*              EVALDEPTH            = 0
*           IMPORTING
*              RETURN               = IT_RET
*           TABLES
**                 ACTORTAB             = IT_ACT
**                 STRUCTURALDATA       = IT_STR
*              OBJECTSDATA          = IT_SUP
**                 FIELDCATALOGUE       = IT_FCAT
**                 FIELDDATA            = IT_FDAT
*        IF SY-SUBRC EQ 0.
*          READ TABLE IT_SUP INTO IT_SUPR
*             WITH KEY PLAN_VERS  = '01'
*                      OBJECTTYPE = v_otype
*                      OBJECT_ID  = v_objid.
*          IF SY-SUBRC EQ 0.
*            MOVE IT_SUPR-LONG_TEXT TO EMP_SUPER.
*          ENDIF.
*        ENDIF.
*      endif.
    endif.
  endif.
    if sy-subrc <> 0.
       EMP_SUPER = ''.
    endif.
ENDFORM.                    " GET_SUPER
*&      Form  HEADING
*       text
*  -->  p1        text
*  <--  p2        text
FORM HEADING .
  FORMAT INTENSIFIED OFF.              " Remove any INTENSIFIED
  FORMAT COLOR COL_HEADING INTENSIFIED." Title color
  WRITE:  (10) 'Employee', (17) 'Last Name'
                      ,(17) 'First Name', (40) 'Position'
                      ,(8) 'Division', (17) 'Management Type'
                      ,(25) 'Corporate Function'
      ,(20) 'Personnel Area', (5) 'PSA'
      ,(20) 'Org. Unit',(11) 'Cost Center',(3) '|'
          ,(10) 'Supervisor', (17) 'Last Name'
                      ,(17) 'First Name', (40) 'Position', (1) '|'
          ,(10) 'Supervisor', (17) 'Last Name'
                      ,(17) 'First Name', (40) 'Position', (1) '|'
          ,(10) 'Supervisor', (17) 'Last Name'
                      ,(17) 'First Name', (40) 'Position', (1) '|'
          ,(10) 'Supervisor', (17) 'Last Name'
                      ,(17) 'First Name', (40) 'Position', (1) '|'
          ,(10) 'Supervisor', (17) 'Last Name'
                      ,(17) 'First Name', (40) 'Position', (1) '|'
          ,(10) 'Supervisor', (17) 'Last Name'
                      ,(17) 'First Name', (40) 'Position', (1) '|'
          ,(10) 'Supervisor', (17) 'Last Name'
                      ,(17) 'First Name', (40) 'Position', (1) '|'
          ,(10) 'Supervisor', (17) 'Last Name'
                      ,(17) 'First Name', (40) 'Position', (1) '|'
          ,(10) 'Supervisor', (17) 'Last Name'
                      ,(17) 'First Name', (40) 'Position', (1) '|'
  ULINE  .                    " Line below titles
    NEW-LINE.
      WRITE: / SY-VLINE.                   " Left border
  FORMAT COLOR OFF.
ENDFORM.                    " HEADING
*&      Form  GET_NAMES
*       text
*  -->  p1        text
*  <--  p2        text
FORM GET_NAMES .
  CLEAR: IT_RET, IT_ACT, IT_STR, IT_ORG, IT_POS, IT_FCAT, IT_FDAT,
         IT_ORGS, IT_POSS, V_ORGEH, V_WERKS.
  REFRESH: IT_ORGS, IT_POSS.
  MOVE SY-DATUM TO V_DATE.
  CALL FUNCTION 'BAPI_ORGUNITEXT_DATA_GET'
     EXPORTING
        PLVAR                = '01'
        OTYPE                = 'O '
        OBJID                = IT_PA0001-ORGEH
        KEYDATE              = V_DATE
        SCENARIO             = '    '
*         SCENARIO             = 'MDT1'
*         EVALPATH             = '0       '
        EVALDEPTH            = 0
     IMPORTING
        RETURN               = IT_RET
     TABLES
*         ACTORTAB             = IT_ACT
*         STRUCTURALDATA       = IT_STR
         OBJECTSDATA          = IT_ORG
*         FIELDCATALOGUE       = IT_FCAT
*         FIELDDATA            = IT_FDAT
  IF SY-SUBRC EQ 0.
    READ TABLE IT_ORG INTO IT_ORGS
       WITH KEY PLAN_VERS  = '01'
                OBJECTTYPE = 'O '
                OBJECT_ID  = IT_PA0001-ORGEH.
    IF SY-SUBRC EQ 0.
      MOVE IT_ORGS-LONG_TEXT TO V_ORGEH.
    ENDIF.
  ENDIF.
  CALL FUNCTION 'HR_TMW_READ_T500P'
    EXPORTING
      PERSA          = IT_PA0001-WERKS
    IMPORTING
      W500P          = IT_T500P
    EXCEPTIONS
      NO_ENTRY_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.
  IF SY-SUBRC EQ 0.
    MOVE IT_T500P-NAME1 TO V_WERKS.
    CLEAR:  IT_T500P.
    REFRESH: IT_T500P.
  ENDIF.
*  CALL FUNCTION 'HR_TMW_READ_T001P'
*    EXPORTING
*      PERSA          = PA0001-WERKS
*      BTRTL          = PA0001-BTRTL
*    IMPORTING
*      W001P          = IT_T001P
*    EXCEPTIONS
*      NO_ENTRY_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.
*  IF SY-SUBRC EQ 0.
*    MOVE IT_T001P-BTEXT TO IT_HRR05-BTRTL.
*  ENDIF.
ENDFORM.                    " GET_NAMES
*&      Form  GET_KZTIM_TEXT
*       text
*      <--P_V_EMP  text
*      <--P_V_KZTIM  text
FORM GET_KZTIM_TEXT  CHANGING P_KZTIM_ID
                              P_KZTIM.
  select single NAME into P_KZTIM from ZKZTIM_VAUES
          where TYPE eq P_KZTIM_ID.
ENDFORM.                    " GET_KZTIM_TEXT
*&      Form  GET_FUNKT_TEXT
*       text
*      <--P_V_EMP  text
*      <--P_V_KZTIM  text
FORM GET_FUNKT_TEXT  CHANGING P_FUNKT_ID
                              P_STEXT.
  select single STEXT into P_STEXT from T591S
          where SPRSL eq 'EN' and
                INFTY eq '0034' and
                SUBTY eq P_FUNKT_ID.
ENDFORM.                    " GET_KZTIM_TEXT
*&      Form  write_file
*       text
*  -->  p1        text
*  <--  p2        text
FORM write_file .
*   Checking the System ID
  if sy-sysid = 'RD1'.
    drive = 'D:\'.
  else.
    drive = 'M:\'.
  endif.
*  concatenate drive sy-sysid
*              '\Output\Reports\HR\HR_Public\Emp_Hierarchy'
*              sy-datum
*              '.xls' into v_file.
  concatenate drive sy-sysid
              '\Output\Reports\HR\HR_Public\Emp_Hierarchy.xls'
              into v_file.
  OPEN DATASET v_file FOR OUTPUT in text mode encoding default.
  concatenate 'Employee'
              'Last Name'
              'First Name'
              'Position'
              'Division'
              'Management Type'
              'Corporate Function'
              'Personnel Area '
              'PSA'
              'Org. Unit'
              'Cost Center'
              'Supervisor'
              'Last Name'
              'First Name'
              'Position'
              'Supervisor'
              'Last Name'
              'First Name'
              'Position'
              'Supervisor'
              'Last Name'
              'First Name'
              'Position'
              'Supervisor'
              'Last Name'
              'First Name'
              'Position'
              'Supervisor'
              'Last Name'
              'First Name'
              'Position'
              'Supervisor'
              'Last Name'
              'First Name'
              'Position'
              'Supervisor'
              'Last Name'
              'First Name'
              'Position'
              'Supervisor'
              'Last Name'
              'First Name'
              'Position'
              'Supervisor'
              'Last Name'
              'First Name'
              'Position'
               into v_filerecord
               separated by CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB.
  transfer v_filerecord to v_file.    "Writing to file
  clear v_filerecord.
  loop at IT_PA0001.
    do.
      if count eq 0.
        read table i_hr with key pernr = IT_PA0001-pernr.
        concatenate i_hr-pernr
                    i_hr-nachn
                    i_hr-vorna
                    i_hr-plans
                    i_hr-div_text
                    i_hr-kztim
                    i_hr-stext
                    i_hr-werks
                    i_hr-btrtl
                    i_hr-orgeh
                    i_hr-kostl
                    into v_filerecord
                    separated by CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB.
         mstbr = i_hr-mstbr.
         count = count + 1.
      else.
        read table i_hr with key pernr = mstbr.
        concatenate v_filerecord
                    i_hr-pernr
                    i_hr-nachn
                    i_hr-vorna
                    i_hr-plans
                    into f_filerecord
                    separated by CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB.
        v_filerecord = f_filerecord.
        mstbr = i_hr-mstbr.
        clear i_hr.
      endif.
      if mstbr eq space.
        exit.
      endif.
    enddo.
    transfer v_filerecord to v_file.  "Writing to file
    clear: v_filerecord, f_filerecord, count.
  endloop.
  CLOSE DATASET v_file.
ENDFORM.                    " write_file
Edited by: Surender Batlanki on Feb 20, 2008 7:50 AM
Edited by: Surender Batlanki on Feb 20, 2008 7:59 AM
Edited by: Surender Batlanki on Feb 20, 2008 8:12 AM
Edited by: Surender Batlanki on Feb 20, 2008 3:16 PM
Edited by: Alvaro Tejada Galindo on Feb 20, 2008 9:26 AM

Answer 1

Hi Surender,
In the Perform GET_SUPER, you are getting manager's OBJID. Use this OBJID and from PA0001 get Manger's name.
While passing data to output table, filter that table by Manager's name and then pass output table for display.
Hope this helps u.
<REMOVED BY MODERATOR>
Regards,
Preeti
Edited by: Alvaro Tejada Galindo on Feb 20, 2008 9:26 AM