FIELD VALUE IN ALV HEADER

Question

Hi friends,
I make one header alv ok I want and take one variable count in my program so I want to display its value in ALV HEADER
Total Target Qty:
Total EMP. Efficiency 
Total Machine Effi. 
I take may header like this and pass thre text here.ok Now I want to display value of this three.
Total Trget Qty: 2.23 like that.
CLEAR st_line.
  st_line-typ = 'S'.
  CONCATENATE 'Total Target Qty: '  count     ' ' INTO st_line-info.
  APPEND st_line TO t_list_top_of_page.
So I took like this in header count is my variable in which I take value.
So how can we pass the value in ALV Header please tell me.
its urgent so.
Thnaks in Advance.
Prashant.

Answer 1

HI DHWANI,
*& Report  ZPP_RE_EMP_DETAILS
*& This Report is used to check the Employee Performance And Used Machine Quantity
*& Rqueirement By Santhosh
*& Developed By Prashant On Date 01.02.2008
*&  Created By: Prashant Brahmbhatt
*&  Creation Date: 20080201
*&  Module: PP (Production & Plannig)
*&  Changed By         Changed Date        Reason
REPORT  zpp_re_emp_details.
TABLES:zpplan.
TYPE-POOLS:slis.
DATA:BEGIN OF itab OCCURS 0,
     zdate LIKE zpplan-zdate,
     werks LIKE zpplan-werks,
     mname LIKE zpplan-mname,
     shftin LIKE zpplan-shftin,
     iserh LIKE zpplan-iserh,
     quaty LIKE zpplan-quaty,
     plan_qty LIKE zpplan-plan_qty,
     act_prod LIKE zpplan-act_prod,
     temp TYPE c,
     tar_qty(10) TYPE c,
     ach_qty(10) TYPE c,
     mch_eff(10) TYPE c,
    a(10) TYPE c,
     END OF itab.
DATA:BEGIN OF temp OCCURS 0,
     zdate LIKE zpplan-zdate,
     werks LIKE zpplan-werks,
     mname LIKE zpplan-mname,
     shftin LIKE zpplan-shftin,
     iserh LIKE zpplan-iserh,
     quaty LIKE zpplan-quaty,
     plan_qty LIKE zpplan-plan_qty,
     act_prod LIKE zpplan-act_prod,
     temp TYPE c,
     tar_qty(10) TYPE c,
     ach_qty(10) TYPE c,
     mch_eff(10) TYPE c,
    a(10) TYPE c,
     END OF temp.
DATA:BEGIN OF itab_t OCCURS 0,
     zdate LIKE zpplan-zdate,
     werks LIKE zpplan-werks,
     mname LIKE zpplan-mname,
     shftin LIKE zpplan-shftin,
     iserh LIKE zpplan-iserh,
     quaty LIKE zpplan-quaty,
     plan_qty LIKE zpplan-plan_qty,
     act_prod LIKE zpplan-act_prod,
     temp TYPE c,
     tar_qty(10) TYPE c,
     ach_qty(10) TYPE c,
     mch_eff(10) TYPE c,
    a(10) TYPE c,
     END OF itab_t.
DATA:BEGIN OF itab1 OCCURS 0,
     zdate LIKE zpplan-zdate,
     werks LIKE zpplan-werks,
     mname LIKE zpplan-mname,
     shftin LIKE zpplan-shftin,
     act_prod LIKE zpplan-act_prod,
     quaty LIKE zpplan-quaty,
     planned LIKE zpplan-planned,
     iserh LIKE zpplan-iserh,
     temp TYPE c,
     tar_qty TYPE p DECIMALS 2,
     ach_qty TYPE p DECIMALS 2,
     mch_eff TYPE p DECIMALS 2,
     END OF itab1.
DATA: wa LIKE  itab1.
DATA:BEGIN OF itab2 OCCURS 0,
     zdate LIKE zpplan-zdate,
     werks LIKE zpplan-werks,
     mname LIKE zpplan-mname,
     shftin LIKE zpplan-shftin,
     act_prod LIKE zpplan-act_prod,
     quaty LIKE zpplan-quaty,
     planned LIKE zpplan-planned,
     iserh LIKE zpplan-iserh,
     temp TYPE c,
     tar_qty(10) TYPE p DECIMALS 2,
     ach_qty(10) TYPE p DECIMALS 2,
     mch_eff(10) TYPE p DECIMALS 2,
     count(10) TYPE c,
     END OF itab2.
DATA: a(10) TYPE c,
      b(10) TYPE c,
      count(10) TYPE c,
      count1(10) TYPE c.
     c(2) TYPE p DECIMALS 2.
DATA:t_fcat TYPE slis_t_fieldcat_alv,
     t_events TYPE slis_t_event,
     t_list_top_of_page TYPE slis_t_listheader,
     t_list_end_of_page TYPE slis_t_listheader.
CONSTANTS:c_formname_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE'.
CONSTANTS:c_formname_end_of_page TYPE slis_formname VALUE 'END_OF_PAGE'.
DATA: st_line TYPE slis_listheader.
              SELECTION-SCREEN
SELECTION-SCREEN:BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.
*PARAMETERS:shftin LIKE zpplan-shftin.
SELECT-OPTIONS:date FOR zpplan-zdate,
               shftin FOR zpplan-shftin,
               werks FOR zpplan-werks.
SELECTION-SCREEN:END OF BLOCK blk1.
               ALV CALL
INITIALIZATION.
  PERFORM build_fieldcatalog USING t_fcat .
  PERFORM event_call.
  PERFORM head_built USING t_events.
START-OF-SELECTION.
  PERFORM data_retrieval.
  PERFORM display_alv.
*&      Form  build_fieldcatalog
      text
     -->P_T_FCAT  text
FORM build_fieldcatalog  USING temp_fcat TYPE slis_t_fieldcat_alv.
  DATA:w_fcat TYPE slis_fieldcat_alv.
  w_fcat-tabname = 'ITAB2'.
  w_fcat-fieldname = 'MNAME'.
  w_fcat-seltext_m = 'Machine Name'.
  APPEND w_fcat TO temp_fcat.
  CLEAR w_fcat.
  w_fcat-tabname = 'ITAB2'.
  w_fcat-fieldname = 'SHFTIN'.
  w_fcat-seltext_m = 'Emp No'.
  APPEND w_fcat TO temp_fcat.
  CLEAR w_fcat.
  w_fcat-tabname = 'ITAB2'.
  w_fcat-fieldname = 'ZDATE'.
  w_fcat-seltext_m = 'Pos Date'.
  APPEND w_fcat TO temp_fcat.
  CLEAR w_fcat.
w_fcat-tabname = 'ITAB2'.
w_fcat-fieldname = 'QUATY'.
w_fcat-seltext_m = 'Quantity'.
APPEND w_fcat TO temp_fcat.
CLEAR w_fcat.
  w_fcat-tabname = 'ITAB2'.
  w_fcat-fieldname = 'ACT_PROD'.
  w_fcat-seltext_m = 'Actual Quantity'.
  APPEND w_fcat TO temp_fcat.
  CLEAR w_fcat.
  w_fcat-tabname = 'ITAB2'.
  w_fcat-fieldname = 'ISERH'.
  w_fcat-seltext_m = 'Down Time'.
  APPEND w_fcat TO temp_fcat.
  CLEAR w_fcat.
  w_fcat-tabname = 'ITAB2'.
  w_fcat-fieldname = 'TAR_QTY'.
  w_fcat-seltext_m = 'Target Qty.'.
  APPEND w_fcat TO temp_fcat.
  CLEAR w_fcat.
  w_fcat-tabname = 'ITAB2'.
  w_fcat-fieldname = 'ACH_QTY'.
  w_fcat-seltext_m = 'EMP Effec.'.
  APPEND w_fcat TO temp_fcat.
  CLEAR w_fcat.
  w_fcat-tabname = 'ITAB2'.
  w_fcat-fieldname = 'MCH_EFF'.
  w_fcat-seltext_m = 'Machine Effec.'.
  APPEND w_fcat TO temp_fcat.
  CLEAR w_fcat.
w_fcat-tabname = 'ITAB2'.
w_fcat-fieldname = 'COUNT'.
w_fcat-seltext_m = 'Machine Effec.'.
APPEND w_fcat TO temp_fcat.
CLEAR w_fcat.
ENDFORM.                    " build_fieldcatalog
*&      Form  event_call
      text
-->  p1        text
<--  p2        text
FORM event_call .
  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
   EXPORTING
     i_list_type           = 0
   IMPORTING
     et_events             = t_events
  EXCEPTIONS
    LIST_TYPE_WRONG       = 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.
ENDFORM.                    " event_call
*&      Form  data_retrieval
      text
-->  p1        text
<--  p2        text
FORM data_retrieval .
  IF shftin <> ''.
    SELECT zdate werks mname shftin  INTO CORRESPONDING FIELDS OF TABLE
     temp FROM zpplan
     WHERE shftin IN shftin
     AND zdate IN date
     AND werks IN werks.
  ELSE.
    SELECT zdate werks mname INTO CORRESPONDING FIELDS OF TABLE
       temp FROM zpplan
       WHERE  zdate IN date
       AND werks IN werks.
  ENDIF.
  SORT temp BY mname zdate shftin.
  DELETE ADJACENT DUPLICATES FROM temp.
  SORT temp BY mname shftin zdate.
  DELETE ADJACENT DUPLICATES FROM temp.
  APPEND temp.
  LOOP AT temp.
    SELECT zdate werks mname shftin act_prod quaty iserh   FROM zpplan INTO CORRESPONDING FIELDS OF TABLE itab_t
    WHERE mname = temp-mname
    AND zdate = temp-zdate
    AND werks = temp-werks.
    LOOP AT itab_t.
      MOVE-CORRESPONDING itab_t TO itab.
      APPEND itab.
    ENDLOOP.
  ENDLOOP.
  *******************************************8
SELECT zdate werks mname shftin act_prod quaty iserh   FROM zpplan INTO CORRESPONDING FIELDS OF TABLE itab
     FOR ALL ENTRIES IN temp
     WHERE zdate = temp-zdate AND
           werks = temp-werks
          AND mname = temp-mname.
SELECT zdate werks mname shftin act_prod quaty iserh   FROM zpplan INTO CORRESPONDING FIELDS OF TABLE itab
   WHERE zdate IN date AND
         werks IN werks AND
shftin = shftin.
  SORT itab BY mname zdate.
DELETE ADJACENT DUPLICATES FROM itab.
  LOOP AT itab.
    MOVE-CORRESPONDING itab TO itab1.
    COLLECT itab1.
  ENDLOOP.
  LOOP AT itab1.
    itab1-tar_qty = itab1-tar_qty + ( itab1-quaty / 3 ).
    IF  ( itab1-tar_qty NE 0 ).
      itab1-ach_qty = ( itab1-ach_qty +  itab1-act_prod / itab1-tar_qty ) * 100.
    ELSE.
      itab1-ach_qty = 0 * 100.
    ENDIF.
    itab1-mch_eff = ( ( 8 - itab1-iserh ) / 8 ) * 100.
    MODIFY itab1 TRANSPORTING tar_qty ach_qty mch_eff.
  ENDLOOP.
  LOOP AT itab1.
    READ TABLE itab1 INDEX 1 INTO wa.
    IF itab1-mname = wa-mname.
      itab1-zdate = wa-zdate.
      itab2-shftin = itab1-shftin.
      itab2-mname = itab1-mname.
      itab2-zdate = itab1-zdate.
           itab2-quaty = itab2-quaty + itab1-quaty.     
           itab2-act_prod = itab2-act_prod + itab1-act_prod.
           itab2-iserh = itab2-iserh + itab1-iserh.
           itab2-tar_qty = itab2-tar_qty + itab1-tar_qty.
           itab2-ach_qty = itab2-ach_qty + itab1-ach_qty.
      itab2-mch_eff = itab2-mch_eff + itab1-mch_eff.
    ELSE.
           APPEND itab2.
           CLEAR itab2.
           MOVE-CORRESPONDING itab1 TO wa.
      itab2-shftin = itab1-shftin.
      itab2-mname = itab1-mname.
      itab2-zdate = itab1-zdate.
      itab2-quaty = itab2-quaty + itab1-quaty.     
      itab2-act_prod = itab2-act_prod + itab1-act_prod.
           itab2-iserh = itab2-iserh + itab1-iserh.
           itab2-tar_qty = itab2-tar_qty + itab1-tar_qty.
           itab2-ach_qty = itab2-ach_qty + itab1-ach_qty.
           itab2-mch_eff = itab2-mch_eff + itab1-mch_eff.
    ENDIF.
  ENDLOOP.
  APPEND itab2.
  LOOP AT itab2.
    IF  ( itab2-tar_qty NE 0 ).
      itab2-ach_qty = ( itab2-ach_qty +  itab2-act_prod / itab2-tar_qty(10) ) * 100.
    ELSE.
      itab2-ach_qty = 0 * 100.
    ENDIF.
    itab2-mch_eff = ( ( 8 - itab2-iserh ) / 8 ) * 100.
    MODIFY itab2 TRANSPORTING tar_qty ach_qty mch_eff.
  ENDLOOP.
APPEND itab2.
  LOOP AT itab2.
   count = sy-tfill.
    a = a + itab2-tar_qty.
    b = b + itab2-ach_qty.
  ENDLOOP.
  CLEAR itab2.
  itab2-tar_qty = a.
  itab2-ach_qty = b.
  APPEND itab2.
  CLEAR itab2.
  count = a / sy-tfill.
  count1 = b / sy-tfill.
  itab2-tar_qty = count.
  itab2-ach_qty = count1.
itab2-tar_qty = count.
  APPEND itab2.
ENDFORM.                    " data_retrieval
*&      Form  head_built
      text
     -->P_T_EVE  text
FORM head_built  USING    p_t_eve TYPE slis_t_event.
count = a / sy-tfill.
  DATA: ls_event TYPE slis_alv_event.
  REFRESH t_list_top_of_page.
  READ TABLE p_t_eve WITH KEY name = slis_ev_top_of_page INTO ls_event.
  IF sy-subrc = 0.
    MOVE c_formname_top_of_page TO ls_event-form.
    MODIFY p_t_eve FROM ls_event   INDEX sy-tabix.
  ENDIF.
   CLEAR st_line.
    st_line-typ = 'S'.
    st_line-key = 'Total Target Qty: '.
    st_line-info = count.
    APPEND st_line TO t_list_top_of_page.
CLEAR st_line.
st_line-typ = 'S'.
st_line-info = count.
CONCATENATE 'Avg Target Qty.'  count  ' ' INTO st_line-info.
APPEND st_line TO t_list_top_of_page.
  CLEAR st_line.
    st_line-typ = 'S'.
    st_line-key = 'Avg.EMP Efficiency: '.
    st_line-info = count1.
    APPEND st_line TO t_list_top_of_page.
  CLEAR st_line.
    st_line-typ = 'S'.
    st_line-key = 'Avg. Machine Efficincy: '.
   st_line-info = count.
    APPEND st_line TO t_list_top_of_page.
REFRESH t_list_end_of_page.
READ TABLE p_t_eve WITH KEY name =  slis_ev_end_of_list INTO ls_event.
IF sy-subrc = 0.
   MOVE c_formname_end_of_page TO ls_event-form.
   MODIFY p_t_eve FROM ls_event INDEX sy-tabix.
ENDIF.
CLEAR st_line.
st_line-typ = 'S'.
CONCATENATE 'END OF PAGE' ' ' INTO st_line-info.
APPEND st_line TO t_list_end_of_page.
ENDFORM.                    " head_built
*&      Form  top-of-page
      text
FORM top_of_page.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = t_list_top_of_page
    I_LOGO                   =
    I_END_OF_LIST_GRID       =
    I_ALV_FORM               =
ENDFORM.                    "top-of-page
*&      Form  display_alv
      text
-->  p1        text
<--  p2        text
FORM display_alv .
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
  I_INTERFACE_CHECK                 = ' '
  I_BYPASSING_BUFFER                = ' '
  I_BUFFER_ACTIVE                   = ' '
     i_callback_program                = 'ZPP_RE_EMP_DETAILS'
  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                   = 'ALV_BACKGROUND'
   i_grid_title                      = 'EMP Information'
  I_GRID_SETTINGS                   =
  IS_LAYOUT                         =
     it_fieldcat                       = t_fcat
  IT_EXCLUDING                      =
  IT_SPECIAL_GROUPS                 =
  IT_SORT                           =
  IT_FILTER                         =
  IS_SEL_HIDE                       =
  I_DEFAULT                         = 'X'
  I_SAVE                            = ' '
  IS_VARIANT                        =
     it_events                         = t_events
  IT_EVENT_EXIT                     =
  IS_PRINT                          =
  IS_REPREP_ID                      =
  I_SCREEN_START_COLUMN             = 0
  I_SCREEN_START_LINE               = 0
  I_SCREEN_END_COLUMN               = 0
  I_SCREEN_END_LINE                 = 0
  I_HTML_HEIGHT_TOP                 = 0
  I_HTML_HEIGHT_END                 = 0
  IT_ALV_GRAPHICS                   =
  IT_HYPERLINK                      =
  IT_ADD_FIELDCAT                   =
  IT_EXCEPT_QINFO                   =
  IR_SALV_FULLSCREEN_ADAPTER        =
IMPORTING
  E_EXIT_CAUSED_BY_CALLER           =
  ES_EXIT_CAUSED_BY_USER            =
    TABLES
      t_outtab                          = itab2
EXCEPTIONS
  PROGRAM_ERROR                     = 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.
ENDFORM.                    " display_alv