REPORT z16_08.
TYPE-POOLS : slis.
DATA gt_fieldcat TYPE slis_t_fieldcat_alv.
DATA gs_fieldcat TYPE slis_fieldcat_alv.
DATA gt_events TYPE slis_t_event.
DATA gs_event TYPE slis_alv_event.
DATA: gs_layout TYPE slis_layout_alv.
DATA : BEGIN OF gt_itab OCCURS 0,
carrid LIKE sflight-carrid,
connid LIKE sflight-connid,
fldate LIKE sflight-fldate,
price LIKE sflight-price,
END OF gt_itab.
SELECT * FROM sflight
INTO CORRESPONDING FIELDS OF TABLE gt_itab
UP TO 25 ROWS.
MOVE 'PF_STATUS_SET' TO gs_event-name.
MOVE 'ALV_STATUS_SET' TO gs_event-form.
APPEND gs_event TO gt_events.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
i_program_name = sy-repid
i_internal_tabname = 'GT_ITAB'
* i_structure_name =
i_client_never_display = 'X'
i_inclname = sy-repid
i_bypassing_buffer = 'X'
i_buffer_active = 'X'
CHANGING
ct_fieldcat = gt_fieldcat.
* ALV 레이아웃 줄무틔 패턴 설정
gs_layout-zebra = 'X'.
* ALV 종료여부 팝업창 설정
gs_layout-confirmation_prompt = 'X'.
* ALV 편집모드 설정
gs_layout-edit = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-repid
it_events = gt_events
it_fieldcat = gt_fieldcat
is_layout = gs_layout
i_callback_user_command = 'ALV_USER_COMMAND'
TABLES
t_outtab = gt_itab.
*&---------------------------------------------------------------------*
*& Form alv_user_command
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_UCOMM text
* -->P_SELFIELD text
*----------------------------------------------------------------------*
FORM alv_user_command USING p_ucomm LIKE sy-ucomm
p_selfield TYPE slis_selfield.
CASE p_ucomm.
WHEN 'CLOSE'.
LEAVE PROGRAM.
ENDCASE.
ENDFORM. " ALV_USER_COMMAND
*&---------------------------------------------------------------------*
*& Form alv_status_set
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->PT_EXTAB text
*----------------------------------------------------------------------*
FORM alv_status_set USING pt_extab TYPE slis_t_extab .
CLEAR: pt_extab[].
* SET PF-STATUS 'ALV_STATUS'.
SET PF-STATUS 'STANDARD_FULLSCREEN'.
ENDFORM. "ALV_STATUS_SET
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
530 | REPORT z15_16. | sapjoy | 2012.08.01 | 1067 |
529 | REPORT z12_14 | sapjoy | 2012.07.30 | 1068 |
528 | REPORT z16_01. | sapjoy | 2012.08.01 | 1070 |
527 | REPORT z12_01. | sapjoy | 2012.07.30 | 1073 |
526 | Z15_01_PBO | sapjoy | 2012.08.01 | 1073 |
525 | REPORT z17_01 . | sapjoy | 2012.08.01 | 1073 |
524 | REPORT z05_16. | sapjoy | 2012.07.30 | 1074 |
523 | REPORT z16_07. | sapjoy | 2012.08.01 | 1074 |
522 | REPORT z17_05 . | sapjoy | 2012.08.01 | 1075 |
521 | REPORT z17_07 . | sapjoy | 2012.08.01 | 1085 |
» | REPORT z16_08. | sapjoy | 2012.08.01 | 1090 |
519 | REPORT z15_22. | sapjoy | 2012.08.01 | 1106 |
518 | REPORT z15_01. | sapjoy | 2012.08.01 | 1118 |
517 | REPORT z15_07. | sapjoy | 2012.08.01 | 1129 |
516 | REPORT z16_03. | sapjoy | 2012.08.01 | 1142 |
515 | REPORT z15_10. | sapjoy | 2012.08.01 | 1145 |
514 | REPORT z15_21. | sapjoy | 2012.08.01 | 1151 |
513 | REPORT z12_24. | sapjoy | 2012.07.30 | 1153 |
512 | PROGRAM z13_05. | sapjoy | 2012.08.01 | 1153 |
511 | REPORT z12_05. | sapjoy | 2012.07.30 | 1155 |