*&---------------------------------------------------------------------*
*& Report Z15_02
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT z15_02.
DATA : con1_ref TYPE REF TO cl_gui_custom_container.
DATA : g_grid TYPE REF TO cl_gui_alv_grid.
DATA : gs_variant TYPE disvariant.
DATA : gt_sflight TYPE TABLE OF sflight.
DATA : OK_CODE TYPE SY-UCOMM.
START-OF-SELECTION.
SELECT * FROM sflight
INTO TABLE gt_sflight UP TO 25 ROWS.
CALL SCREEN 100.
*&---------------------------------------------------------------------*
*& Module INIT_CON OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE init_con OUTPUT.
IF con1_ref IS INITIAL.
CREATE OBJECT con1_ref
EXPORTING
container_name = 'CON1'.
CREATE OBJECT g_grid
EXPORTING
i_parent = con1_ref.
ENDIF.
gs_variant-report = sy-repid.
gs_variant-username = sy-uname.
CALL METHOD g_grid->set_table_for_first_display
EXPORTING
i_structure_name = 'SFLIGHT'
is_variant = gs_variant
i_save = 'A'
CHANGING
it_outtab = gt_sflight.
ENDMODULE. " INIT_CON OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module USER_COMMAND_0100 input.
IF OK_CODE = 'BACK'.
LEAVE PROGRAM.
ENDIF.
endmodule. " USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module STATUS_0100 output.
SET PF-STATUS '100_STATUS'.
* SET TITLEBAR 'xxx'.
endmodule. " STATUS_0100 OUTPUT
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
170 | REPORT z16_05. | sapjoy | 2012.08.01 | 1183 |
169 | REPORT z15_13. | sapjoy | 2012.08.01 | 1181 |
168 | REPORT z15_03. | sapjoy | 2012.08.01 | 1181 |
167 | PROGRAM z13_02. | sapjoy | 2012.08.01 | 1181 |
166 | REPORT z05_01. [3] | sapjoy | 2012.07.30 | 1170 |
165 | REPORT z15_15. | sapjoy | 2012.08.01 | 1168 |
» | Report Z15_02 | sapjoy | 2012.08.01 | 1164 |
163 | PROGRAM z13_03. | sapjoy | 2012.08.01 | 1162 |
162 | REPORT z12_30. | sapjoy | 2012.07.30 | 1160 |
161 | REPORT z12_05. | sapjoy | 2012.07.30 | 1156 |
160 | REPORT z15_04. | sapjoy | 2012.08.01 | 1155 |
159 | REPORT z15_21. | sapjoy | 2012.08.01 | 1153 |
158 | PROGRAM z13_05. | sapjoy | 2012.08.01 | 1153 |
157 | REPORT z12_24. | sapjoy | 2012.07.30 | 1153 |
156 | REPORT z15_10. | sapjoy | 2012.08.01 | 1145 |
155 | REPORT z16_03. | sapjoy | 2012.08.01 | 1143 |
154 | REPORT z15_07. | sapjoy | 2012.08.01 | 1129 |
153 | REPORT z15_01. | sapjoy | 2012.08.01 | 1118 |
152 | REPORT z15_22. | sapjoy | 2012.08.01 | 1107 |
151 | REPORT z16_08. | sapjoy | 2012.08.01 | 1090 |