*&---------------------------------------------------------------------*
*& 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
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
510 | REPORT z15_04. | sapjoy | 2012.08.01 | 1155 |
509 | REPORT z12_30. | sapjoy | 2012.07.30 | 1160 |
508 | PROGRAM z13_03. | sapjoy | 2012.08.01 | 1161 |
» | Report Z15_02 | sapjoy | 2012.08.01 | 1164 |
506 | REPORT z15_15. | sapjoy | 2012.08.01 | 1168 |
505 | REPORT z05_01. [3] | sapjoy | 2012.07.30 | 1170 |
504 | REPORT z15_13. | sapjoy | 2012.08.01 | 1174 |
503 | PROGRAM z13_02. | sapjoy | 2012.08.01 | 1181 |
502 | REPORT z15_03. | sapjoy | 2012.08.01 | 1181 |
501 | REPORT z16_10. | sapjoy | 2012.08.01 | 1182 |
500 | REPORT z16_05. | sapjoy | 2012.08.01 | 1183 |
499 | REPORT z15_25. [1] | sapjoy | 2012.08.01 | 1189 |
498 | report Z12_33 | sapjoy | 2012.07.30 | 1193 |
497 | REPORT z15_20. | sapjoy | 2012.08.01 | 1193 |
496 | REPORT z12_27. | sapjoy | 2012.07.30 | 1208 |
495 | REPORT z15_23. [1] | sapjoy | 2012.08.01 | 1215 |
494 | REPORT z15_17. [1] | sapjoy | 2012.08.01 | 1217 |
493 | REPORT Z12_22 | sapjoy | 2012.07.30 | 1226 |
492 | REPORT z16_04. | sapjoy | 2012.08.01 | 1246 |
491 | REPORT z12_06. | sapjoy | 2012.07.30 | 1294 |