PERFORM TOP_OF_PAGE.
PERFORM GET_JOB_DETAILS.
*&---------------------------------------------------------------------*
*& Form GET_JOB_DETAILS
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM GET_JOB_DETAILS .
* CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
* EXPORTING
* IT_FIELDCAT = IT_FCAT
*i_callback_top_of_page = 'TOP-OF-PAGE'
* TABLES
* T_OUTTAB = IT_TBTCO.
* IF SY-SUBRC <> 0.
** Implement suitable error handling here
* ENDIF.
*
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
IT_FIELDCAT = IT_FCAT
TABLES
T_OUTTAB = IT_TBTCO.
IF SY-SUBRC <> 0.
* Implement suitable error handling here
WRITE: 'HI'.
ENDIF.
ENDFORM. " GET_JOB_DETAILS
*&---------------------------------------------------------------------*
*& Form TOP_OF_PAGE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM TOP_OF_PAGE .
WA_HEADING-TYP = 'H' .
* WA_HEADING-KEY = 'H' .
WA_HEADING-INFO = 'IDOC Monitoring' .
APPEND WA_HEADING TO I_HEADING .
CLEAR WA_HEADING.
WA_HEADING-TYP = 'S' .
WA_HEADING-KEY = 'USERNAME' .
WA_HEADING-INFO = SY-UNAME .
APPEND WA_HEADING TO I_HEADING .
CLEAR WA_HEADING.
WA_HEADING-TYP = 'A' .
WA_HEADING-KEY = 'DATE' .
WA_HEADING-INFO = SY-DATUM .
APPEND WA_HEADING TO I_HEADING .
CLEAR WA_HEADING.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = I_HEADING
* I_LOGO = I_HEADING
* I_END_OF_LIST_GRID =
* I_ALV_FORM =
.
ENDFORM. " TOP_OF_PAGE