Ooalv top-of page printing

Question

hi,
i got one object in that OOALV is USED.
in the output of OOALV Grid its displaying all selection parameter elements.
like i have selection parameter plant,werks,batch,postind date and posting time.
in output its displaying plant,werks and batch low and high valuesbut not posting date and time.
can any one tell me that  its not displaying and where i have to write the code.
they used OOALV fieldcatalog abd GRId to display data.
Thanks and regards
suneetha

Answer 1

Hi suneetha ,
just go through this coding where i have used top-of page in  Grid FM
i think might be useful to you 
TABLES:  afko,                         " Order Header
         afpo,                         " Order Item
         aufk,                         " Order Master
         resb,
         afvc,                         " Order Operation w/i an Order
         afvv,                        " Qty/Dates/values in an Operation
         crhd,                         " Work Center
         mara,                         " Material Master
         makt,                         " Material Description
         ausp,                         " Characteristic Values
         cabn,                         " Characteristic
         plpo,                         " Task list-operation/activity
         plfl.                         " Task list - sequences
TYPE-POOLS:slis.
DATA:check(1).
TYPES:BEGIN OF t_afko,
      check,
      aufnr TYPE afko-aufnr,
      gltrp TYPE afko-gltrp,
      gstrp TYPE afko-gstrp,
      gamng TYPE afko-gamng,
      plnbez TYPE afko-plnbez,
      END OF t_afko.
DATA:i_afko TYPE STANDARD TABLE OF t_afko,
     w_afko LIKE LINE OF i_afko.
DATA:i_afko1 TYPE STANDARD TABLE OF t_afko,
     w_afko1 LIKE LINE OF i_afko1.
DATA:ponum TYPE afko-aufnr,
     stdate TYPE afko-gltrp,
     fidate TYPE afko-gstrp,
     quanty TYPE afko-gamng,
     mater  TYPE afko-plnbez,
     descr  TYPE makt-maktx,
     index  TYPE sy-index,
     count(3) VALUE '0'.
TYPES:BEGIN OF t_final,
      check,
      aufnr  TYPE afko-aufnr,
      gltrp  TYPE afko-gltrp,
      gstrp  TYPE afko-gstrp,
      gamng  TYPE afko-gamng,
      plnbez TYPE afko-plnbez,
      maktx  TYPE makt-maktx,
      END OF t_final.
DATA:i_final TYPE STANDARD TABLE OF t_final,
     w_final LIKE LINE OF i_final,
     i_final1 TYPE STANDARD TABLE OF t_final,
     w_final1 LIKE LINE OF i_final1.
TYPES:BEGIN OF t_crhd,
      objid TYPE crhd-objid,
      arbpl TYPE crhd-arbpl,
      END OF t_crhd.
DATA:i_crhd TYPE STANDARD TABLE OF t_crhd,
     w_crhd LIKE LINE OF i_crhd.
TYPES:BEGIN OF t_afvc,
      aufpl TYPE afvc-aufpl,
      arbid TYPE afvc-arbid,
      END OF t_afvc.
DATA:i_afvc TYPE STANDARD TABLE OF t_afvc,
     w_afvc LIKE LINE OF i_afvc.
TYPES:BEGIN OF t_item,
      matnr  TYPE resb-matnr,       " Component Matl Number
      maktx  TYPE makt-maktx,       " Matl Desc for Component
      bdmng  TYPE resb-bdmng,       " Component Req'd Qty
      END OF t_item.
DATA:i_item TYPE STANDARD TABLE OF t_item,
     w_item LIKE LINE OF i_item.
TYPES:BEGIN OF t_resb,
      matnr TYPE resb-matnr,
      bdmng TYPE resb-bdmng,
      END OF t_resb.
DATA:i_resb TYPE STANDARD TABLE OF t_resb,
     w_resb LIKE LINE OF i_resb.
DATA:i_makt TYPE STANDARD TABLE OF makt,
     w_makt LIKE LINE OF i_makt.
TYPES:BEGIN OF t_aufk,
      aufnr TYPE aufk-aufnr,
      auart TYPE aufk-auart,
      werks TYPE aufk-werks,
      END OF t_aufk.
DATA:i_aufk TYPE STANDARD TABLE OF t_aufk,
     w_aufk LIKE LINE OF i_aufk.
DATA:***_qty TYPE co_menge VALUE 0,
     lines TYPE i,
     v_aufnr TYPE afko-aufnr.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS:
p_werks TYPE aufk-werks OBLIGATORY MEMORY ID wrk,  " PLANT
p_auart TYPE aufk-auart OBLIGATORY,                "ORDER TYPE
p_arbpl TYPE crhd-arbpl OBLIGATORY.                "Work center
SELECT-OPTIONS:
s_plnbez FOR afko-plnbez,            "material
s_gstrp  FOR afko-gstrp OBLIGATORY,  "ORDER BASIC START DATE
s_gltrp  FOR afko-gltrp OBLIGATORY,  "ORDER BASIC FINISH DATE
s_gstrs  FOR afko-gstrs,             "ORDER SCHEDULE START DATE
s_gltrs  FOR afko-gltrs.             "ORDER SCHEDULE FINISH DATE
SELECTION-SCREEN END OF BLOCK b1.
*ALV data declarations
DATA: fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE,
      gd_tab_group TYPE slis_t_sp_group_alv,
      gd_layout    TYPE slis_layout_alv,
      gd_repid     LIKE sy-repid,
      t_heading TYPE slis_t_listheader.
DATA: it_events TYPE slis_t_event,
      wa_events LIKE LINE OF it_events.
CLEAR:   wa_events.
REFRESH: it_events.
wa_events-name = 'TOP-OF-PAGE'.
wa_events-form = 'top-of-page'.
APPEND wa_events TO it_events .
CLEAR wa_events.
DATA:lst TYPE slis_t_listheader,
     wst like line of lst.
wst-typ = 'H'.
wst-info = 'PRODUCTION ORDERS SELECTION'.
APPEND wst TO lst.
*Start-of-selection.
START-OF-SELECTION.
  PERFORM data_retrieval.
  PERFORM get_events.
  PERFORM build_fieldcatalog.
  PERFORM build_layout.
  PERFORM display_alv_report.
*&      Form  BUILD_FIELDCATALOG
      Build Fieldcatalog for ALV Report
FORM build_fieldcatalog.
There are a number of ways to create a fieldcat.
For the purpose of this example i will build the fieldcatalog manualy
by populating the internal table fields individually and then
appending the rows. This method can be the most time consuming but can
also allow you  more control of the final product.
Beware though, you need to ensure that all fields required are
populated. When using some of functionality available via ALV, such as
total. You may need to provide more information than if you were
simply displaying the result
              I.e. Field type may be required in-order for
                   the 'TOTAL' function to work.
  fieldcatalog-fieldname   = 'CHECK'.
  fieldcatalog-seltext_m   = 'SELECTION'.
  fieldcatalog-col_pos     = 1.
fieldcatalog-outputlen   = 10.
fieldcatalog-emphasize   = 'X'.
fieldcatalog-key         = 'X'.
fieldcatalog-input       = 'X'.
  fieldcatalog-edit        = 'X'.
  fieldcatalog-checkbox    = 'X'.
fieldcatalog-do_sum      = 'X'.
fieldcatalog-no_zero     = 'X'.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'AUFNR'.
  fieldcatalog-seltext_m   = 'PO NUMBER'.
  fieldcatalog-col_pos     = 2.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'GSTRP'.
  fieldcatalog-seltext_m   = 'BASIC START DATE'.
  fieldcatalog-col_pos     = 3.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'GLTRP'.
  fieldcatalog-seltext_m   = 'BASIC FINISH DATE'.
  fieldcatalog-col_pos     = 4.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'GAMNG'.
  fieldcatalog-seltext_m   = 'PO QUANTITY'.
  fieldcatalog-col_pos     = 5.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'PLNBEZ'.
  fieldcatalog-seltext_m   = 'MATERIAL'.
  fieldcatalog-col_pos     = 6.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'MAKTX'.
  fieldcatalog-seltext_m   = 'MATERIAL DESCRIPTION'.
  fieldcatalog-col_pos     = 7.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
ENDFORM.                    " BUILD_FIELDCATALOG
*&      Form  BUILD_LAYOUT
      Build layout for ALV grid report
FORM build_layout.
  gd_layout-no_input          = 'X'.
  gd_layout-colwidth_optimize = 'X'.
  gd_layout-totals_text       = 'Totals'(201).
gd_layout-totals_only        = 'X'.
gd_layout-f2code            = 'DISP'.  "Sets fcode for when double
                                        "click(press f2)
gd_layout-zebra             = 'X'.
gd_layout-group_change_edit = 'X'.
gd_layout-header_text       = 'helllllo'.
ENDFORM.                    " BUILD_LAYOUT
*&      Form  DISPLAY_ALV_REPORT
      Display report using ALV grid
FORM display_alv_report.
  gd_repid = sy-repid.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
            i_callback_program      = gd_repid
            i_callback_top_of_page   = 'TOP-OF-PAGE'
           i_callback_user_command = 'USER_COMMAND'
           i_grid_title           = outtext
            is_layout               = gd_layout
            it_fieldcat             = fieldcatalog[]
           it_special_groups       = gd_tabgroup
            it_events                = it_events
            i_save                  = 'X'
           is_variant              = z_template
       TABLES
            t_outtab                = i_final
       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_REPORT
*&      Form  DATA_RETRIEVAL
      Retrieve data form EKPO table and populate itab it_ekko
FORM data_retrieval.
  SELECT objid arbpl FROM crhd INTO TABLE i_crhd WHERE arbpl = p_arbpl.
  IF NOT i_crhd[] IS INITIAL.
    SELECT aufpl arbid
                FROM afvc INTO TABLE i_afvc
                FOR ALL ENTRIES IN i_crhd
                WHERE arbid = i_crhd-objid.
  ENDIF.
  IF NOT i_afvc[] IS INITIAL.
    SELECT aufnr gltrp gstrp gamng plnbez
             FROM  afko INTO CORRESPONDING FIELDS OF TABLE i_afko
             FOR ALL ENTRIES IN i_afvc
             WHERE aufpl = i_afvc-aufpl
               AND gstrp IN s_gstrp
               AND gltrp IN s_gltrp.
    SORT i_afko BY aufnr.
  ENDIF.
  IF NOT i_afko[] IS INITIAL.
    SELECT aufnr auart werks FROM aufk INTO TABLE i_aufk
                 FOR ALL ENTRIES IN i_afko
                   WHERE aufnr = i_afko-aufnr
                     AND auart = p_auart
                     AND werks = p_werks.
  ENDIF.
  IF NOT i_afko[] IS INITIAL.
    SELECT * FROM makt INTO TABLE i_makt
             FOR ALL ENTRIES IN i_afko
             WHERE matnr = i_afko-plnbez
               AND spras = sy-langu.
    SORT i_makt BY matnr.
  ENDIF.
  LOOP AT i_aufk INTO w_aufk.
    w_final-check = check.
    READ TABLE i_afko INTO w_afko
              WITH KEY aufnr = w_aufk-aufnr BINARY SEARCH.
    w_final-aufnr = w_afko-aufnr.
    w_final-gltrp = w_afko-gltrp.
    w_final-gstrp = w_afko-gstrp.
    w_final-gamng = w_afko-gamng.
    w_final-plnbez = w_afko-plnbez.
    READ TABLE i_makt INTO w_makt WITH KEY
                      matnr = w_afko-plnbez BINARY SEARCH.
    w_final-maktx = w_makt-maktx.
    APPEND w_final TO i_final.
    CLEAR w_final.
  ENDLOOP.
ENDFORM.                    " DATA_RETRIEVAL
*&      Form  top_of_page
      text
FORM top_of_page.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
  EXPORTING
  it_list_commentary = lst
I_LOGO =
I_END_OF_LIST_GRID =
ENDFORM.                    " alv_top_of_page
*&      Form  get_events
      text
FORM get_events.
  CLEAR : wa_events, it_events[].
  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type = 0
    IMPORTING
      et_events   = it_events.
  READ TABLE it_events WITH KEY name = slis_ev_top_of_page
                         INTO wa_events.
  IF sy-subrc EQ 0.
    MOVE 'TOP_OF_PAGE' TO wa_events-form.
    MODIFY it_events FROM wa_events INDEX sy-tabix.
  ENDIF.
ENDFORM.                    "get_events
regards
Naveen Khan