Parameters for filteration of output

Question

hi
can any one help how to make work the following parameters p_eeoc and p_aap in my code which is used for filter criteria
please help with correction in the code
urgent
*=======================================================================
TABLES
*=======================================================================
TABLES: pernr,
        t5u13,
        cskt ,
        t001p,
        t500p,
        t501t,
        t503t,
        t513s,
        t527x,
        t529t,
        t530t,
        t5uaa.
*=======================================================================
TYPE-POOLS
*=======================================================================
TYPE-POOLS: slis,
            vrm.
*=======================================================================
INFOTYPES
*=======================================================================
INFOTYPES: 0000,                               "Actions
           0001,                               "Org Assignment
           0002,                               "Personal Data
           0006,                               "Address
           0008,                               "Basic Pay
           0041,                               "Date Specifications
           0077.                               "Additional Personal Data
*=======================================================================
GLOBAL CONSTANTS
*=======================================================================
CONSTANTS: gc_x               TYPE c VALUE 'X',
           g_w(1)             TYPE c VALUE 'W',
           g_h(1)             TYPE c VALUE 'H',
           g_af(2)            TYPE c VALUE 'AF',
           g_ai(2)            TYPE c VALUE 'AI',
           g_01(2)            TYPE c VALUE 'R1',
           g_02(2)            TYPE c VALUE 'R2',
           g_03(2)            TYPE c VALUE 'R3',
           g_05(2)            TYPE c VALUE 'R5'.
*=======================================================================
TYPES
*=======================================================================
TYPES : BEGIN OF t_roster,
        pernr                 TYPE p0001-pernr,
        ssn                   TYPE p0002-perid,
        first_name            TYPE p0002-vorna,
        last_name             TYPE p0002-nachn,
        city                  TYPE t500p-ort01,
        state                 TYPE t500p-regio,
        zipcode               TYPE t500p-pstlz,
        hire_date(10)         TYPE c,
        lhire_date(10)        TYPE c,
        serv_date(10)         TYPE c,
        eg                    TYPE p0001-persg,
        eg_desc               TYPE t501t-ptext,
        esg                   TYPE p0001-persk,
        esg_desc              TYPE t503t-ptext,
        race                  TYPE p0077-rac01,
        ***                   TYPE p0002-gesch,
        job_grade             TYPE p0008-trfgr,
        job_level             TYPE p0008-trfst,
        grade_entry_date(10)  TYPE c,
        job_title             TYPE p0001-plans,
        title(30)             TYPE c,
        job_code              TYPE p0001-stell,
        job_code_desc         TYPE t513s-stltx,
        job_entry_date(10)    TYPE c,
        annual_sal            TYPE p0008-ansal,
        hrly_rate             TYPE p0008-bet01,
        org_unit              TYPE p0001-orgeh,
        orgtx(40)             TYPE c,
        cost_cntr             TYPE p0001-kostl,
        ltext(40)             TYPE c,
        personal_area         TYPE p0001-werks,
        personal_area_desc    TYPE t500p-name1,
        supervisor(30)        TYPE c,
        flsa                  TYPE t5u13-exmpt,
        ee01                  TYPE t5u13-eeoct,
        job_grp               TYPE p0001-stell,
        aap_code              TYPE t5u13-aapct,
        aap_code_desc         TYPE t5uaa-ltext,
        dob                   TYPE p0002-gbdat,
        psa                   TYPE p0001-btrtl,
        psa_desc              TYPE t001p-btext,
        unionl                TYPE p0001-btrtl,
        unionc                TYPE p0001-btrtl,
  END OF t_roster.
*=======================================================================
INTERNAL TABLES
*=======================================================================
DATA : gi_roster       TYPE  STANDARD TABLE OF  t_roster,
       gi_objec        TYPE  STANDARD TABLE OF  objec,
       gi_hrp1000      TYPE  STANDARD TABLE OF  hrp1000,
       gi_cskt         TYPE  STANDARD TABLE OF  cskt,
       gi_t001p        TYPE  STANDARD TABLE OF  t001p,
       gi_t500p        TYPE  STANDARD TABLE OF  t500p,
       gi_t501t        TYPE  STANDARD TABLE OF  t501t,
       gi_t503t        TYPE  STANDARD TABLE OF  t503t,
       gi_t513s        TYPE  STANDARD TABLE OF  t513s,
       gi_t527x        TYPE  STANDARD TABLE OF  t527x,
       gi_t529t        TYPE  STANDARD TABLE OF  t529t,
       gi_t530t        TYPE  STANDARD TABLE OF  t530t,
       gi_t5u13        TYPE  STANDARD TABLE OF  t5u13,
       gi_t5uaa        TYPE  STANDARD TABLE OF  t5uaa.
*=======================================================================
GLOBAL WORKAREAS
*=======================================================================
DATA : gs_roster       TYPE t_roster,
       gs_objec        TYPE objec,
       gs_hrp1000      TYPE hrp1000,
       gs_cskt         TYPE cskt,
       gs_t001p        TYPE t001p,
       gs_t500p        TYPE t500p,
       gs_t501t        TYPE t501t,
       gs_t503t        TYPE t503t,
       gs_t513s        TYPE t513s,
       gs_t527x        TYPE t527x,
       gs_t529t        TYPE t529t,
       gs_t530t        TYPE t530t,
       gs_t5u13        TYPE t5u13,
       gs_t5uaa        TYPE t5uaa.
*=======================================================================
GLOBAL VARIABLES
*=======================================================================
DATA :  gv_ltext(40)       TYPE c,
        gv_ltext1(40)      TYPE c,
        gv_age(3)          TYPE c,
        gv_butxt(40)       TYPE c,
        gv_eeoc(10)        TYPE c,
        gv_prevdate        TYPE datum.
*=======================================================================
ALV DECLARATIONS
*=======================================================================
DATA: gi_fieldcat    TYPE slis_t_fieldcat_alv,
      gs_fieldcat    TYPE slis_fieldcat_alv,
      i_top_of_page  TYPE slis_t_listheader,
      g_repid        TYPE sy-repid,
      g_save,
      gs_layout      TYPE slis_layout_alv,
      gt_events      TYPE slis_t_event,
      gs_variant     LIKE disvariant,
      gi_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE'.
*=======================================================================
SELECTION-SCREEN
*=======================================================================
DATA: name  TYPE vrm_id,
      list  TYPE vrm_values,
      value LIKE LINE OF list.
SELECTION-SCREEN BEGIN OF BLOCK b1
                 WITH FRAME TITLE text-x02.
PARAMETERS :
              employee_location
              employee_list
             p_race(10) AS LISTBOX VISIBLE LENGTH 30,
             p_gender TYPE p0002-gesch,
             p_eeoc   TYPE t5u13-eeoct,
             p_aap    TYPE t5u13-aapct.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK file_param
                 WITH FRAME TITLE text-x02.
PARAMETERS:
           roster TYPE c RADIOBUTTON GROUP file DEFAULT 'X' ,
           hire  TYPE c RADIOBUTTON GROUP file,
           termi  TYPE c RADIOBUTTON GROUP file,
           transfer  TYPE c RADIOBUTTON GROUP file.
SELECTION-SCREEN END OF BLOCK file_param.
*=======================================================================
AT SELECTION-SCREEN
*=======================================================================
AT SELECTION-SCREEN OUTPUT.
  REFRESH list.
  name = 'P_RACE'.
  value-key = 'R1'.
  value-text = 'American Indian or Alaskan Native'.
  APPEND value TO list.
CLEAR value.
  value-key = 'R2'.
  value-text = 'Asian'.
  APPEND value TO list.
CLEAR value.
  value-key = 'R3'.
  value-text = 'Black or African American'.
  APPEND value TO list.
CLEAR value.
  value-key = 'R5'.
  value-text = 'White'.
  APPEND value TO list.
CLEAR value.
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id              = name
      values          = list
    EXCEPTIONS
      id_illegal_name = 1
      OTHERS          = 2.
*=======================================================================
INITIALIZATION DECLARATION
*=======================================================================
INITIALIZATION.
  g_repid = sy-repid.
  PERFORM layout_init    USING gs_layout.
  PERFORM eventtab_build USING gt_events[].
  gs_variant-report = g_repid.
  g_save = 'A'.
*=======================================================================
START-OF-SELECTION
*=======================================================================
START-OF-SELECTION.
GET pernr.
PERFORM roster_aap.
END-OF-SELECTION.
  PERFORM fetch_roster_text.
    PERFORM output_roster_display.
*&      Form  ROSTER_AAP
      text
-->  p1        text
<--  p2        text
FORM roster_aap .
  PERFORM infty_rost_0001.
  PERFORM infty_rost_0002.
  PERFORM infty_rost_0008.
  PERFORM infty_rost_0041.
  PERFORM infty_rost_0077.
  PERFORM supervisor_rost.
  PERFORM append_rost_recs.
ENDFORM.                    " ROSTER_AAP
*&      Form  INFTY_ROST_0001
      text
-->  p1        text
<--  p2        text
FORM infty_rost_0001 .
  rp_provide_from_last p0001 space
                          pn-begda pn-endda.
  IF pnp-sw-found = 1.
    gs_roster-pernr         = p0001-pernr.
    gs_roster-eg            = p0001-persg.
    READ TABLE gi_t501t INTO gs_t501t WITH KEY persg = p0001-persg.
    IF sy-subrc <> 0.
      APPEND gs_t501t TO gi_t501t.
      CLEAR gs_t501t.
    ENDIF.
    gs_roster-esg           = p0001-persk.
    READ TABLE gi_t503t INTO gs_t503t WITH KEY persk = p0001-persk.
    IF sy-subrc <> 0.
      APPEND gs_t503t TO gi_t503t.
      CLEAR gs_t503t.
    ENDIF.
    gs_roster-job_title     = p0001-plans.
    READ TABLE gi_hrp1000 INTO gs_hrp1000 WITH KEY objid = p0001-plans.
    IF sy-subrc <> 0.
      APPEND gs_hrp1000 TO gi_hrp1000.
      CLEAR gs_hrp1000.
    ENDIF.
    gs_roster-job_code      = p0001-stell.
    READ TABLE gi_t513s INTO gs_t513s WITH KEY stell = p0001-stell.
    IF sy-subrc <> 0.
      APPEND gs_t513s TO gi_t513s.
      CLEAR gs_t513s.
    ENDIF.
    gs_roster-org_unit      = p0001-orgeh.
    READ TABLE gi_t527x INTO gs_t527x WITH KEY orgeh = p0001-orgeh.
    IF sy-subrc <> 0.
      APPEND gs_t527x TO gi_t527x.
      CLEAR gs_t527x.
    ENDIF.
    gs_roster-cost_cntr     = p0001-kostl.
    READ TABLE gi_cskt INTO gs_cskt WITH KEY kostl = p0001-kostl.
    IF sy-subrc <> 0.
      APPEND gs_cskt TO gi_cskt.
      CLEAR gs_cskt.
    ENDIF.
    gs_roster-personal_area = p0001-werks.
    READ TABLE gi_t500p INTO gs_t500p WITH KEY persa = p0001-werks.
    IF sy-subrc <> 0.
      APPEND gs_t500p TO gi_t500p.
      CLEAR gs_t500p.
    ENDIF.
    gs_roster-job_grp       = p0001-stell.
    READ TABLE gi_t5u13 INTO gs_t5u13 WITH KEY stell = p0001-stell.
    IF sy-subrc <> 0.
      APPEND gs_t5u13 TO gi_t5u13.
      CLEAR gs_t5u13.
    ENDIF.
   select single ltext from t5uaa into gv_ltext1 where aapct = gs_roster-aap_code
                                                  and eeoct = gs_roster-ee01.
                        gs_roster-aap_code_desc = gv_ltext1.
    READ TABLE gi_t5uaa INTO gs_t5uaa WITH KEY aapct = gs_roster-aap_code.
    IF sy-subrc <> 0.
      APPEND gs_t5uaa TO gi_t5uaa.
      CLEAR gs_t5uaa.
    ENDIF.
    gs_roster-psa           = p0001-btrtl.
    READ TABLE gi_t001p INTO gs_t001p WITH KEY btrtl = p0001-btrtl.
    IF sy-subrc <> 0.
      APPEND gs_t001p TO gi_t001p.
      CLEAR gs_t001p.
    ENDIF.
    gs_roster-unionl        = p0001-btrtl.
    gs_roster-unionc        = p0001-btrtl.
  ENDIF.
ENDFORM.                    " INFTY_ROST_0001
*&      Form  INFTY_ROST_0002
      text
-->  p1        text
<--  p2        text
FORM infty_rost_0002 .
  rp_provide_from_last p0002 space
                          pn-begda pn-endda.
  IF pnp-sw-found = 1.
    IF p_gender IS NOT INITIAL AND p_gender NE p0002-gesch.
      REJECT.
    ENDIF.
    gs_roster-ssn        = p0002-perid.
    gs_roster-first_name = p0002-vorna.
    gs_roster-last_name  = p0002-nachn.
    gs_roster-***        = p0002-gesch.
    gs_roster-dob        = p0002-gbdat.
  ENDIF.
ENDFORM.                    " INFTY_ROST_0002
*&      Form  INFTY_ROST_0008
      text
-->  p1        text
<--  p2        text
FORM infty_rost_0008 .
  DATA: lv_wage TYPE lgart,
        lv_amount TYPE pad_amt7s.
  rp_provide_from_last p0008 space
                          pn-begda pn-endda.
  IF pnp-sw-found = 1.
    gs_roster-annual_sal = p0008-ansal.
    DO 40 TIMES VARYING lv_wage FROM p0008-lga01
                              NEXT p0008-lga02
              VARYING lv_amount FROM p0008-bet01
                                NEXT p0008-bet02.
      IF lv_wage = '0101'.
        gs_roster-hrly_rate = lv_amount.
        EXIT.
      ENDIF.
    ENDDO.
    gs_roster-job_grade    = p0008-trfgr.
    gs_roster-job_level    = p0008-trfst.
  ENDIF.
ENDFORM.                    " INFTY_ROST_0008
*&      Form  INFTY_ROST_0041
      text
-->  p1        text
<--  p2        text
FORM infty_rost_0041 .
  DATA : l_date  TYPE datum,
         l_hdate TYPE datum,
         l_sdate TYPE datum.
  rp_provide_from_last p0041 space
                       pn-begda pn-endda.
  IF pnp-sw-found = 1.
    CLEAR : l_date,
            l_hdate,
            l_sdate.
*--Last Hire Date--
    CALL FUNCTION 'HR_DATESPECIFICATION_DATE_GET'
      EXPORTING
        p0041                    = p0041
        p_datar                  = 'U1'
     P_DATKN                  =
     IMPORTING
       p_date                   = l_date
     EXCEPTIONS
       illegal_arguments        = 1
       more_than_one_date       = 2
       OTHERS                   = 3
    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 NOT p_hdate IS INITIAL AND p_hdate NE l_date.
     REJECT.
   ENDIF.
    IF NOT l_date IS INITIAL.
      CONCATENATE
                 l_date4(2) l_date6(2) l_date+0(4)
                 INTO gs_roster-hire_date
                 SEPARATED BY '/'.
   ELSEIF p_hdate IS NOT INITIAL.
     REJECT.
    ENDIF.
  ENDIF.
IF NOT p_hdate IS INITIAL AND p_hdate NE l_date.
   REJECT.
ENDIF.
*--Last Hire Date--
  CALL FUNCTION 'HR_DATESPECIFICATION_DATE_GET'
    EXPORTING
      p0041                    = p0041
      p_datar                  = 'U2'
     P_DATKN                  =
   IMPORTING
     p_date                   = l_hdate
   EXCEPTIONS
     illegal_arguments        = 1
     more_than_one_date       = 2
     OTHERS                   = 3
  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 NOT l_hdate IS INITIAL.
    CONCATENATE
               l_hdate4(2) l_hdate6(2) l_hdate+0(4)
               INTO gs_roster-lhire_date
               SEPARATED BY '/'.
  ENDIF.
*--Service Date--
  CALL FUNCTION 'HR_DATESPECIFICATION_DATE_GET'
    EXPORTING
      p0041                    = p0041
      p_datar                  = 'U4'
     P_DATKN                  =
   IMPORTING
     p_date                   = l_sdate
   EXCEPTIONS
     illegal_arguments        = 1
     more_than_one_date       = 2
     OTHERS                   = 3
  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 NOT l_sdate IS INITIAL.
    CONCATENATE
               l_sdate4(2) l_sdate6(2) l_sdate+0(4)
               INTO gs_roster-serv_date
               SEPARATED BY '/'.
  ENDIF.
ENDFORM.                    " INFTY_ROST_0041
*&      Form  INFTY_ROST_0077
      text
-->  p1        text
<--  p2        text
FORM infty_rost_0077 .
  DATA: lv_race TYPE races.
rp_provide_from_last p0077 space
                               pn-begda pn-endda.
  IF pnp-sw-found = 1.
CLEAR lv_race.
    DO 10 TIMES VARYING lv_race FROM p0077-rac01
                            NEXT p0077-rac02.
   gs_roster-race = p0077-rac01.
      IF lv_race NE space .
IF NOT p_race IS INITIAL AND p_race NE lv_race.
      REJECT.
    ENDIF.
        IF lv_race EQ g_01.
          gs_roster-race = g_ai.
        ELSEIF lv_race EQ g_02.
          gs_roster-race = g_h.
        ELSEIF lv_race EQ g_03.
          gs_roster-race = g_af.
        ELSEIF lv_race EQ g_05.
          gs_roster-race = g_w.
        ENDIF.
      ENDIF.
    ENDDO.
  ENDIF.
ENDFORM.                    " INFTY_ROST_0077
*&      Form  SUPERVISOR_ROST
      text
-->  p1        text
<--  p2        text
FORM supervisor_rost .
  REFRESH gi_objec.
  IF NOT  p0001-orgeh IS INITIAL.
    CALL FUNCTION 'HRCM_ORGUNIT_MANAGER_GET'
      EXPORTING
        plvar                    = '01'
        otype                    = 'O'
        objid                    = p0001-orgeh
        begda                    = pn-begda
        endda                    = pn-endda
    PATH_ID                  = ' '
    TABLES
       manager_info_table       = gi_objec
     EXCEPTIONS
       path_error               = 1
       root_error               = 2
       nothing_found            = 3
       OTHERS                   = 4
    IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    SORT gi_objec DESCENDING BY endda.
    READ TABLE gi_objec INTO gs_objec INDEX 1.
    IF sy-subrc = 0.
      gs_roster-supervisor = gs_objec-stext.
      CLEAR gs_objec.
    ENDIF.
  ENDIF.
ENDFORM.                    " SUPERVISOR_ROST
*&      Form  APPEND_ROST_RECS
      text
-->  p1        text
<--  p2        text
FORM append_rost_recs .
  IF NOT gs_roster-pernr IS INITIAL.
    APPEND gs_roster TO gi_roster.
    CLEAR gs_roster.
  ENDIF.
ENDFORM.                    " APPEND_ROST_RECS
*&      Form  FETCH_ROSTER_TEXT
      text
-->  p1        text
<--  p2        text
FORM fetch_roster_text .
  IF p_eeoc IS NOT INITIAL AND p_eeoc NE t5u13-eeoct.
    REJECT.
  ENDIF.
  IF NOT gi_roster IS INITIAL.
    SELECT orgeh orgtx FROM t527x
       INTO CORRESPONDING FIELDS OF TABLE gi_t527x
       WHERE  sprsl = sy-langu AND
              endda = '99991231'.
    SELECT persa ort01 regio pstlz name1
        FROM t500p
        INTO CORRESPONDING FIELDS OF TABLE gi_t500p.
    SELECT persg ptext
        FROM t501t
        INTO CORRESPONDING FIELDS OF TABLE gi_t501t
        WHERE  sprsl = sy-langu.
    SELECT persk ptext
             FROM t503t
             INTO CORRESPONDING FIELDS OF TABLE gi_t503t
              WHERE  sprsl = sy-langu.
    SELECT stell stltx FROM t513s
       INTO CORRESPONDING FIELDS OF TABLE gi_t513s
       WHERE sprsl = sy-langu AND
             endda = '99991231'.
    SELECT otype plvar objid stext
            FROM hrp1000 INTO
            CORRESPONDING FIELDS OF TABLE gi_hrp1000
           for all entries in gi_roster
                                    WHERE plvar = '01'
                                    AND otype = 'S'.
                                   and objid = gi_roster-job_title.
    SELECT stell eeoct exmpt aapct
         FROM t5u13
         INTO CORRESPONDING FIELDS OF TABLE gi_t5u13.
        for all entries in gi_t5u13
     WHERE stell = gi_t5u13-stell
     AND eeoct = p_eeoc
     AND aapct = p_aap.
    SELECT aapct eeoct ltext
            FROM t5uaa
            INTO CORRESPONDING FIELDS OF TABLE gi_t5uaa.
         FOR ALL ENTRIES IN gi_roster
         WHERE aapct = gi_roster-aap_code
           and eeoct = gi_roster-ee01.
    SELECT  kostl ltext
      FROM cskt
       INTO CORRESPONDING FIELDS OF TABLE gi_cskt
      FOR ALL ENTRIES IN gi_roster
      WHERE  kostl =  gi_roster-cost_cntr
     WHERE   spras = sy-langu.
    SELECT btrtl btext
         FROM t001p
         INTO CORRESPONDING FIELDS OF TABLE gi_t001p.
        FOR ALL ENTRIES IN gi_roster
        WHERE btrtl = gi_roster-psa.
  ENDIF.
  LOOP AT gi_roster INTO gs_roster.
    CLEAR : gs_hrp1000,
            gs_t5u13,
            gs_t500p,
            gs_t501t,
            gs_t503t,
            gs_t5uaa,
            gs_cskt,
            gs_t001p,
            gs_t513s,
            gs_t527x,
            gs_t529t,
            gs_t530t.
    READ TABLE gi_t501t INTO gs_t501t WITH KEY persg = gs_roster-eg.
    IF sy-subrc = 0.
      gs_roster-eg_desc = gs_t501t-ptext.
    ENDIF.
    READ TABLE gi_t503t INTO gs_t503t WITH KEY persk = gs_roster-esg.
    IF sy-subrc = 0.
      gs_roster-esg_desc = gs_t503t-ptext.
    ENDIF.
    READ TABLE gi_t513s INTO gs_t513s
                        WITH KEY stell = gs_roster-job_code.
    IF sy-subrc = 0.
      gs_roster-job_code_desc = gs_t513s-stltx.
    ENDIF.
    READ TABLE gi_t527x INTO gs_t527x
                      WITH KEY orgeh = gs_roster-org_unit.
    IF sy-subrc = 0.
      gs_roster-orgtx = gs_t527x-orgtx.
    ENDIF.
    READ TABLE gi_hrp1000 INTO gs_hrp1000 WITH KEY objid = gs_roster-job_title.
    IF sy-subrc = 0.
      gs_roster-title = gs_hrp1000-stext.
    ENDIF.
    READ TABLE gi_cskt INTO gs_cskt
                           WITH KEY kostl = gs_roster-cost_cntr.
    IF sy-subrc = 0.
      gs_roster-ltext = gs_cskt-ltext.
    ENDIF.
    READ TABLE gi_t5u13 INTO gs_t5u13 WITH KEY stell = gs_roster-job_code eeoct = p_eeoc aapct =p_aap.
    IF sy-subrc = 0.
      gs_roster-ee01      = gs_t5u13-eeoct.
      gs_roster-flsa      = gs_t5u13-exmpt.
      gs_roster-aap_code  = gs_t5u13-aapct.
    ENDIF.
    READ TABLE gi_t500p INTO gs_t500p WITH KEY persa = gs_roster-personal_area.
    IF sy-subrc = 0.
      gs_roster-city               = gs_t500p-ort01.
      gs_roster-state              = gs_t500p-regio.
      gs_roster-zipcode            = gs_t500p-pstlz.
      gs_roster-personal_area_desc = gs_t500p-name1.
    ENDIF.
    READ TABLE gi_t001p INTO gs_t001p WITH KEY btrtl = gs_roster-psa.
    IF sy-subrc = 0.
      gs_roster-psa_desc = gs_t001p-btext.
    ENDIF.
    READ TABLE gi_t5uaa INTO gs_t5uaa WITH KEY aapct = gs_roster-aap_code eeoct = gs_roster-ee01.
    IF sy-subrc = 0.
      gs_roster-aap_code_desc     = gs_t5uaa-ltext.
    ENDIF.
    MODIFY gi_roster FROM gs_roster .
  ENDLOOP.
ENDFORM.                    " FETCH_ROSTER_TEXT
*&      Form  OUTPUT_ROSTER_DISPLAY
      text
-->  p1        text
<--  p2        text
FORM output_roster_display .
  PERFORM build_roster_fieldcatalog.
  PERFORM comment_roster_build CHANGING i_top_of_page[].
  PERFORM display_roster_alv_report.
ENDFORM.                    " OUTPUT_ROSTER_DISPLAY
*&      Form  LAYOUT_INIT
      text
     -->P_GS_LAYOUT  text
FORM layout_init  USING rs_layout TYPE slis_layout_alv.
  rs_layout-detail_popup      = 'X'.
  rs_layout-zebra             = 'X'.
  rs_layout-colwidth_optimize = 'X'.
ENDFORM.                    " LAYOUT_INIT
*&      Form  EVENTTAB_BUILD
      text
     -->P_GT_EVENTS[]  text
FORM eventtab_build  USING rt_events TYPE slis_t_event.
*"Registration of events to happen during list display
  DATA: ls_event TYPE slis_alv_event.
  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type = 0
    IMPORTING
      et_events   = rt_events.
  READ TABLE rt_events WITH KEY name = slis_ev_top_of_page
                             INTO ls_event.
  IF sy-subrc = 0.
    MOVE gi_top_of_page TO ls_event-form.
    APPEND ls_event TO rt_events.
  ENDIF.
ENDFORM.                    " EVENTTAB_BUILD
*&      Form  top_of_page
      text
FORM top_of_page.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = i_top_of_page.
ENDFORM.                    "TOP_OF_PAGE
*&      Form  BUILD_ROSTER_FIELDCATALOG
      text
-->  p1        text
<--  p2        text
FORM build_roster_fieldcatalog .
  gs_fieldcat-fieldname = 'PERNR'.
  gs_fieldcat-seltext_m = 'Employee Number'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'SSN'.
  gs_fieldcat-seltext_m = 'SSN Number'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'FIRST_NAME'.
  gs_fieldcat-seltext_m = 'First Name'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'LAST_NAME'.
  gs_fieldcat-seltext_m = 'Last Name'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'CITY'.
  gs_fieldcat-seltext_m = 'City'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'STATE'.
  gs_fieldcat-seltext_m = 'State'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'ZIPCODE'.
  gs_fieldcat-seltext_m = 'Zip Code'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'HIRE_DATE'.
  gs_fieldcat-seltext_m = 'Hire Date'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'LHIRE_DATE'.
  gs_fieldcat-seltext_m = 'Last Hire Date'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'SERV_DATE'.
  gs_fieldcat-seltext_m = 'Service Date'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'EG'.
  gs_fieldcat-seltext_m = 'Eg'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'EG_DESC'.
  gs_fieldcat-seltext_m = 'Eg Description'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'ESG'.
  gs_fieldcat-seltext_m = 'Esg'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'ESG_DESC'.
  gs_fieldcat-seltext_m = 'Eg Description'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'RACE'.
  gs_fieldcat-seltext_m = 'Race'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = '***'.
  gs_fieldcat-seltext_m = '***'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'JOB_GRADE'.
  gs_fieldcat-seltext_m = 'Job Grade'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'JOB_LEVEL'.
  gs_fieldcat-seltext_m = 'Job Level'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'GRADE_ENTRY_DATE'.
  gs_fieldcat-seltext_l = 'Grade Entry Date'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'JOB_TITLE'.
  gs_fieldcat-seltext_l = 'Job Title'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat..
  gs_fieldcat-fieldname = 'TITLE'.
  gs_fieldcat-seltext_l = 'Job Title Description'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'JOB_CODE'.
  gs_fieldcat-seltext_l = 'Job Code'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'JOB_CODE_DESC'.
  gs_fieldcat-seltext_l = 'Job Code Description'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'JOB_ENTRY_DATE'.
  gs_fieldcat-seltext_l = 'Job Entry Date'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'ANNUAL_SAL'.
  gs_fieldcat-seltext_l = 'Annual Salary'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'HRLY_RATE'.
  gs_fieldcat-seltext_l = 'Hourly Rate'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'ORG_UNIT'.
  gs_fieldcat-seltext_l = 'Org Unit'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'ORGTX'.
  gs_fieldcat-seltext_l = 'Org Text'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'COST_CNTR'.
  gs_fieldcat-seltext_l = 'Cost Center'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'LTEXT'.
  gs_fieldcat-seltext_l = 'Cost Center Description'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'PERSONAL_AREA'.
  gs_fieldcat-seltext_l = 'Personal Area'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'PERSONAL_AREA_DESC'.
  gs_fieldcat-seltext_l = 'Personal Area Description'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'SUPERVISOR'.
  gs_fieldcat-seltext_l = 'Supervisor'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'FLSA'.
  gs_fieldcat-seltext_l = 'FLSA'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'EE01'.
  gs_fieldcat-seltext_l = 'EE01'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'JOB_GRP'.
  gs_fieldcat-seltext_l = 'Job Group'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'AAP_CODE'.
  gs_fieldcat-seltext_l = 'AAP Code'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'AAP_CODE_DESC'.
  gs_fieldcat-seltext_l = 'AAP Code Description'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'DOB'.
  gs_fieldcat-seltext_l = 'Date of Birth'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'PSA'.
  gs_fieldcat-seltext_l = 'Personal Sub Area'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'PSA_DESC'.
  gs_fieldcat-seltext_l = 'Personal Sub Area Description'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'UNIONL'.
  gs_fieldcat-seltext_l = 'Union Local'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = 'UNIONC'.
  gs_fieldcat-seltext_l = 'Union Classfication'.
  APPEND gs_fieldcat TO gi_fieldcat.
  CLEAR gs_fieldcat.
ENDFORM.                    " BUILD_ROSTER_FIELDCATALOG
*&      Form  COMMENT_ROSTER_BUILD
      text
     <--P_I_TOP_OF_PAGE[]  text
FORM comment_roster_build  CHANGING top_of_page TYPE
                    slis_t_listheader.
  DATA: ls_line           TYPE slis_listheader,
        l_startdate(10)   TYPE c,
        l_enddate(10)     TYPE c,
        l_final_start(22) TYPE c,
        l_final_end(22)   TYPE c.
  CLEAR ls_line.
  ls_line-typ  = 'H'.
  ls_line-info = 'AAP-EEOC Roster Report Data '. "Max len = 60
  APPEND ls_line TO i_top_of_page.
ENDFORM.                    " COMMENT_ROSTER_BUILD
*&      Form  DISPLAY_ROSTER_ALV_REPORT
      text
-->  p1        text
<--  p2        text
FORM display_roster_alv_report .
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
            EXPORTING
      I_INTERFACE_CHECK                 = ' '
      I_BYPASSING_BUFFER                = ' '
      i_buffer_active                   = 'X'
            i_callback_program                = g_repid
      I_CALLBACK_PF_STATUS_SET          = ' '
      I_CALLBACK_USER_COMMAND           = ' '
      I_CALLBACK_TOP_OF_PAGE            = ' '
      I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
      I_CALLBACK_HTML_END_OF_LIST       = ' '
      i_structure_name                  = ' '
      I_BACKGROUND_ID                   = ' '
      I_GRID_TITLE                      =
      I_GRID_SETTINGS                   =
            is_layout                         = gs_layout
            it_fieldcat                       = gi_fieldcat

Answer 1

Hi,
    use FM table_compress ,table_decompress
   CALL FUNCTION 'TABLE_COMPRESS'
       TABLES
            IN             = LISTOBJECT
            OUT            = COMP_out   
   EXCEPTIONS
            COMPRESS_ERROR = 1
            OTHERS         = 2.
      CALL FUNCTION 'TABLE_DECOMPRESS'
                     TABLES IN = COMP_OUT
                           OUT = COMP_IN.
Regards
amole