REPORT z15_06.
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.
PARAMETERS: p_vari LIKE disvariant-variant.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vari.
gs_variant-report = sy-repid.
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
EXPORTING
is_variant = gs_variant
i_save = 'A'
IMPORTING
es_variant = gs_variant
EXCEPTIONS
not_found = 1
program_error = 2
OTHERS = 3.
IF sy-subrc EQ 0.
p_vari = gs_variant-variant.
ENDIF.
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'
i_default = ''
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
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
609 | report zsapdoi_004. | sapjoy | 2008.12.26 | 2923 |
608 | FUNCTION Z_BAPI_ASSETNAME_SEARCH | sapjoy | 2009.01.30 | 2898 |
607 | INCLUDE Z16_001I01 | sapjoy | 2007.04.26 | 2887 |
606 | REPORT Z05_001 [3] | sapjoy | 2007.05.21 | 2880 |
605 | REPORT z17_20 | sapjoy | 2012.08.01 | 2879 |
604 | REPORT Z03_003 [7] | sapjoy | 2007.05.11 | 2875 |
603 | FORM set_field_catalogs_grid USING lt_fieldcat TYPE lvc_t_fcat. | sapjoy | 2007.01.03 | 2875 |
602 | REPORT z19_010 [2] | sapjoy | 2007.04.06 | 2843 |
601 | REPORT z18_014 | sapjoy | 2007.03.09 | 2843 |
600 | Sub DOI_MACRO() | sapjoy | 2008.12.26 | 2842 |
599 | DBZF1SSEL | sapjoy | 2006.12.19 | 2842 |
598 | REPORT Z09_006 [1] | sapjoy | 2006.12.18 | 2839 |
597 | REPORT Z03_006 [5] | sapjoy | 2006.12.02 | 2812 |
596 | report zunicode_017. | sapjoy | 2008.11.21 | 2810 |
595 | REPORT Z07_016 | sapjoy | 2008.04.14 | 2804 |
594 | Report Z15_047 [3] | sapjoy | 2007.12.05 | 2798 |
593 | FIELD_EXIT_STCD2_0 | sapjoy | 2008.12.16 | 2792 |
592 | report zunicode_026. | sapjoy | 2008.11.21 | 2782 |
591 | REPORT Z18_001 | sapjoy | 2007.03.02 | 2774 |
590 | Z01_021 [1] | sapjoy | 2006.12.02 | 2771 |