bohemianrsd

tab.alv4

*&---------------------------------------------------------------------*
*& Include ZLCLM1051O01
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
PERFORM STATUS_0100 .
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module TOP_OF_PAGE OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE TOP_OF_PAGE OUTPUT.
* creating html control.
CHECK GO_HTML IS INITIAL.
CREATE OBJECT GO_HEAD
EXPORTING
CONTAINER_NAME = 'CON1'.
CREATE OBJECT GO_DOCU
EXPORTING
STYLE = 'ALV_GIRD'.
CREATE OBJECT GO_HTML
EXPORTING
PARENT = GO_HEAD.
GO_DOCU->HTML_CONTROL = GO_HTML.
* display document.
CALL METHOD GO_DOCU->DISPLAY_DOCUMENT
EXPORTING
REUSE_CONTROL = ZGCLZ_X
PARENT = GO_HEAD
EXCEPTIONS
HTML_DISPLAY_ERROR = 1.
GS_TABSTRIP-SCREEN = GC_101.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module SET_ALV_0101 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE SET_ALV_0101 OUTPUT.
* IF GO_BODY1 IS BOUND.
* PERFORM REFRESH_TABLE.
* RETURN.
* ENDIF.
IF GO_BODY1 IS INITIAL.
PERFORM CREATE_TAB.
ENDIF.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module SET_ALV_0102 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE SET_ALV_0102 OUTPUT.
** IF GO_BODY2 IS BOUND.
** PERFORM REFRESH_TABLE_0102.
** RETURN.
** ENDIF.
IF GO_BODY2 IS INITIAL.
PERFORM CREATE_TAB_0102.
ENDIF.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module SET_ALV_0103 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE SET_ALV_0103 OUTPUT.
**
** IF GO_BODY3 IS BOUND.
** PERFORM REFRESH_TABLE_0103.
** RETURN.
** ENDIF.
IF GO_BODY3 IS INITIAL.
PERFORM CREATE_TAB_0103.
ENDIF.
ENDMODULE.
Comment
Suggested
Recent