ALV ヘダー（多行） ABAP

*&---------------------------------------------------------------------*

*&      Form  TOPPAGE_ALV

*&---------------------------------------------------------------------*

*       ALVヘダー

*----------------------------------------------------------------------*

FORM TOPPAGE_ALV.

  DATA: LST_LINE TYPE SLIS_LISTHEADER,

       LTD_HEADER TYPE SLIS_T_LISTHEADER.

*-----  タイトル

   CLEAR LST_LINE.

   LST_LINE-TYP  = 'H'.

   LST_LINE-INFO  = TEXT-H01.

   APPEND LST_LINE TO LTD_HEADER.

*-----  会計年度

   CLEAR LST_LINE.

   LST_LINE-TYP  = 'S'.

   LST_LINE-KEY  = TEXT-H02.

   LST_LINE-INFO = P_GJAHR..

   APPEND LST_LINE TO LTD_HEADER.

*-----  会計期間

   CLEAR LST_LINE.

   LST_LINE-TYP  = 'S'.

   LST_LINE-KEY  = TEXT-H03.

   LST_LINE-INFO = P_MONAT.

   APPEND LST_LINE TO LTD_HEADER.

   CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

     EXPORTING

       IT_LIST_COMMENTARY = LTD_HEADER.

ENDFORM.

......

......

*---呼び出す-----------

* ALVグリッド形式の画面を表示

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

    EXPORTING

      I_CALLBACK_PROGRAM = SY-REPID         "プログラムID

      IS_LAYOUT          = IST_LAYOUT

      IT_FIELDCAT        = ITD_FIELDCAT

      I_CALLBACK_TOP_OF_PAGE   = 'TOPPAGE_ALV'

    TABLES

      T_OUTTAB           = TD_

    EXCEPTIONS

      PROGRAM_ERROR      = 1

      OTHERS             = 2.

--結果--------------

xxxxx一覧

会計年度：２００８

会計期間：０２

grid.............

--------------