선언

DATA : DOCKING_CONTAINER        TYPE REF TO  CL_GUI_DOCKING_CONTAINER.

DATA : G_DOCUMENT               TYPE REF TO CL_DD_DOCUMENT,
           G_HTML                   TYPE REF TO CL_GUI_HTML_VIEWER,
           G_SPLITTER               TYPE REF TO CL_GUI_SPLITTER_CONTAINER,
           G_PARENT_HTML            TYPE REF TO CL_GUI_CONTAINER.

EVENT...

    METHODS : HANDLE_TOP_OF_PAGE
                 FOR EVENT TOP_OF_PAGE OF CL_GUI_ALV_GRID
                 IMPORTING E_DYNDOC_ID.

   METHOD HANDLE_TOP_OF_PAGE.
     PERFORM EVENT_TOP_OF_PAGE USING E_DYNDOC_ID.
   ENDMETHOD.                    "HANDLE_top_of_page

FORM EVENT_TOP_OF_PAGE  USING    E_DYNDOC_ID TYPE REF TO CL_DD_DOCUMENT.

  PERFORM COMMENTARY_WRITE USING E_DYNDOC_ID.

ENDFORM.                    " event_top_of_page

FORM COMMENTARY_WRITE USING CL_DD  TYPE REF TO CL_DD_DOCUMENT.

  DATA: L_TEXT1(255) TYPE C.
  DATA: L_TEXT2(255) TYPE C.
  DATA: L_DATE(255) TYPE C.

* 생산일자 플랜트를 뿌려준다.
  CONCATENATE 'TEST'
              '^^'
              INTO L_TEXT1 SEPARATED BY SPACE.

  CALL METHOD CL_DD->ADD_TEXT
    EXPORTING
      TEXT         = L_TEXT1
      SAP_EMPHASIS = CL_DD_DOCUMENT=>STRONG.

  CALL METHOD CL_DD->NEW_LINE
    EXPORTING
      REPEAT = 1.

  CALL METHOD CL_DD->ADD_GAP
    EXPORTING
      WIDTH = 120.

ENDFORM.                               " f01_alv_event_html_top_of_page

**& TOP 오브젝트 생성
*  CREATE OBJECT DOCKING_CONTAINER
*    EXPORTING
*      DYNNR                       = '0100'
*      REPID                       = SY-REPID
*      SIDE                        = DOCKING_CONTAINER->DOCK_AT_TOP
*      EXTENSION                   = 50
*    EXCEPTIONS
*      CNTL_ERROR                  = 1
*      CNTL_SYSTEM_ERROR           = 2
*      CREATE_ERROR                = 3
*      LIFETIME_ERROR              = 4
*      LIFETIME_DYNPRO_DYNPRO_LINK = 5.
*
**& TOP 오브젝트 생성
*  CREATE OBJECT G_SPLITTER
*    EXPORTING
*      PARENT  = DOCKING_CONTAINER
*      ROWS    = 1
*      COLUMNS = 1.
*
**& TOP 오브젝트 생성
*  CALL METHOD G_SPLITTER->GET_CONTAINER
*    EXPORTING
*      ROW       = 1
*      COLUMN    = 1
*    RECEIVING
*      CONTAINER = G_PARENT_HTML.
*
**& TOP 오브젝트 생성
*  CREATE OBJECT G_HTML
*    EXPORTING
*      PARENT = G_PARENT_HTML.
*
**& TOP 오브젝트 생성
*  CREATE OBJECT G_DOCUMENT
*    EXPORTING
*      STYLE = 'ALV_GRID'.

  SET HANDLER GCL_EVENT_HANDLER->HANDLE_TOP_OF_PAGE
           FOR GCL_GRID.

*  TOP 이벤트 셋팅
  CALL METHOD G_DOCUMENT->INITIALIZE_DOCUMENT.

  CALL METHOD GCL_GRID->LIST_PROCESSING_EVENTS
    EXPORTING
      I_EVENT_NAME = 'TOP_OF_PAGE'
      I_DYNDOC_ID  = G_DOCUMENT.

*& TOP
  PERFORM HTML.
  CALL METHOD GCL_GRID->SET_HTML_HEADER.

FORM HTML .
* set wallpaper
  CALL METHOD G_DOCUMENT->SET_DOCUMENT_BACKGROUND
    EXPORTING
      PICTURE_ID = 'ALV_BACKGROUND'.   "i_background_id.

  G_DOCUMENT->HTML_CONTROL = G_HTML.

* display TOP document
  CALL METHOD G_DOCUMENT->DISPLAY_DOCUMENT
    EXPORTING
      REUSE_CONTROL      = 'X'
      PARENT             = G_PARENT_HTML
    EXCEPTIONS
      HTML_DISPLAY_ERROR = 1.
  IF SY-SUBRC NE 0.
    "//DO NOTHING
  ENDIF.
ENDFORM.                    " html

잘 추가하시면 나오실꺼예여 ^^;

좋은정보 감사합니다. 정말로!