REPORT z18_004 .
DATA : con1_ref TYPE REF TO cl_gui_custom_container.
DATA : grid1 TYPE REF TO cl_gui_alv_grid,
gs_variant LIKE disvariant,
gs_cs_variant LIKE disvariant,
gt_sflight TYPE TABLE OF sflight.
PARAMETERS: p_vari LIKE disvariant-variant.
INITIALIZATION.
gs_variant-report = sy-repid.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vari.
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
EXPORTING
is_variant = gs_variant
i_save = 'A'
IMPORTING
es_variant = gs_cs_variant
EXCEPTIONS
not_found = 1
program_error = 2
OTHERS = 3.
IF sy-subrc EQ 0.
p_vari = gs_cs_variant-variant.
ENDIF.
START-OF-SELECTION.
SELECT * FROM sflight INTO TABLE gt_sflight.
CALL SCREEN 100.
*---------------------------------------------------------------------*
* MODULE init_con OUTPUT
*---------------------------------------------------------------------*
*
*---------------------------------------------------------------------*
MODULE init_con OUTPUT.
IF con1_ref IS INITIAL.
CREATE OBJECT con1_ref
EXPORTING container_name = 'CON1'.
CREATE OBJECT grid1
EXPORTING
i_parent = con1_ref.
CALL METHOD grid1->set_table_for_first_display
EXPORTING
i_structure_name = 'SFLIGHT'
i_save = 'A'
is_variant = gs_variant " variant display
* i_default = ' '
CHANGING
it_outtab = gt_sflight.
ENDIF.
ENDMODULE. " init_con OUTPUT
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
SET PF-STATUS 'G100'.
* SET TITLEBAR 'xxx'.
ENDMODULE. " STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module USER_COMMAND_0100 input.
CASE SY-UCOMM.
WHEN 'BACK' OR 'EXIT' OR 'CANC'.
LEAVE TO SCREEN 0.
ENDCASE.
endmodule. " USER_COMMAND_0100 INPUT
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
430 | REPORT Z13_001 | sapjoy | 2007.01.08 | 2362 |
429 | report zsalv_013 | sapjoy | 2010.08.20 | 2361 |
428 | REPORT z19_002 | sapjoy | 2007.03.24 | 2360 |
427 | REPORT z18_008 | sapjoy | 2007.03.07 | 2359 |
426 | REPORT Z11_010 | sapjoy | 2006.12.22 | 2358 |
425 | Z07_005 | sapjoy | 2006.12.06 | 2353 |
424 | REPORT Z017_007 [3] | sapjoy | 2007.02.11 | 2353 |
» | REPORT z18_004 [1] | sapjoy | 2007.03.05 | 2348 |
422 | report zsalv_023 . | sapjoy | 2010.08.20 | 2347 |
421 | REPORT Z17_003 | sapjoy | 2007.02.08 | 2347 |
420 | REPORT Z07_018 | sapjoy | 2006.12.08 | 2341 |
419 | method DISPLAY_LIST . [2] | sapjoy | 2007.10.28 | 2341 |
418 | REPORT z17_18 . | sapjoy | 2012.08.01 | 2340 |
417 | REPORT Z10_001 | sapjoy | 2008.04.14 | 2339 |
416 | report zsalv_003 | sapjoy | 2010.08.20 | 2336 |
415 | REPORT ZBAPI_ALE | sapjoy | 2009.02.05 | 2334 |
414 | report zsalv_011 | sapjoy | 2010.08.20 | 2331 |
413 | report zsalv_030 . | sapjoy | 2010.08.20 | 2330 |
412 | report zsalv_018 . | sapjoy | 2010.08.20 | 2327 |
411 | REPORT Z07_012 | sapjoy | 2006.12.08 | 2326 |
gs_variant-variant = p_vari.
이 구문이 빠진거 같습니다.