alv_interface

zjut_xiongfeng

浏览: 287271 次
性别:
来自: 杭州

最近访客更多访客>>

ggggoo

Jafiv

149032105

depravedangel

博主相关

博客

微博

相册

留言

关于我

文章分类

社区版块

存档分类

*&---------------------------------------------------------------------*
*& Report Z_ALV_INTERFACE_CHECK *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*

REPORT z_alv_interface_check .
***************************************************************
* Type pool declaration for ALV
***************************************************************
TYPE-POOLS: slis.
***************************************************************
* Table
***************************************************************
TABLES: sbook.
***************************************************************
* Type declaration for SBOOK table
***************************************************************
TYPES: BEGIN OF ty_sbook,
carridTYPE s_carr_id, "Airline Code
connidTYPE s_conn_id, " Flight Connection Number
fldateTYPE s_date, "Flight date
bookidTYPE s_book_id, " Booking number
customidTYPE s_customer,"Customer Number
END OF ty_sbook.
*****************************************************************
* Table declaration for SBOOK table
*****************************************************************
DATA: i_sbook TYPE STANDARD TABLE OF ty_sbook INITIAL SIZE 0,

****************************************************************
* Table declaration for field catalog
****************************************************************
i_fcata TYPE slis_t_fieldcat_alv.
****************************************************************
* Workarea declaration for field catalog table
****************************************************************
DATA: w_fcata TYPE slis_fieldcat_alv.
****************************************************************
* Selection screen
**************************************************************
SELECT-OPTIONS: s_carrid FOR sbook-carrid.
***************************************************************
* Start-of-selection event
****************************************************************

*Fetch data from sbook table
PERFORM fetch_data.
* Populate field catalog
PERFORM populate_catalog.
* Display data in ALV
PERFORM display_alv.
*&--------------------------------------------------------------
*& Form fetch_data
*&-------------------------------------------------------------
FORM fetch_data .
SELECT carrid " Airline Code
connid " Flight Connection Number
fldate " Flight date
bookid " Booking number
customid" Customer Number
FROM sbook
INTO TABLE i_sbook
WHERE carrid IN s_carrid.
IF sy-subrc = 0.
SORT i_sbook BY carrid.
ENDIF.
ENDFORM. "fetch_data
*&-------------------------------------------------------------*
*& Form populate_catalog
*&--------------------------------------------------------------
FORM populate_catalog .
w_fcata-fieldname = 'CARRID'.
w_fcata-tabname = 'I_SBOOK'.
w_fcata-seltext_m = 'Airline Code'(001).
w_fcata-ddictxt = 'M'.
APPEND w_fcata TO i_fcata. w_fcata-fieldname = 'CONNID'.
w_fcata-tabname = 'I_SBOOK'.
w_fcata-seltext_m = 'Flight Connection Number'(002).
w_fcata-ddictxt = 'M'.
APPEND w_fcata TO i_fcata.
* Wrong field name FIDATE w_fcata-fieldname = 'FIDATE'.
w_fcata-tabname = 'I_SBOOK'.
w_fcata-seltext_m = 'Flight date'(003).
w_fcata-ddictxt = 'M'.
APPEND w_fcata TO i_fcata.
* Wrong field name BOOKLD w_fcata-fieldname = 'BOOKLD'.
w_fcata-tabname = 'I_SBOOK'.
w_fcata-seltext_m = 'Booking number'(004).
w_fcata-ddictxt = 'M'.
APPEND w_fcata TO i_fcata. w_fcata-fieldname = 'CUSTOMID'.
w_fcata-tabname = 'I_SBOOK'.
w_fcata-seltext_m = 'Customer Number'(005).
w_fcata-ddictxt = 'M'.
APPEND w_fcata TO i_fcata.
ENDFORM. " populate_catalog
*&----------------------------------------------------------
*& Form display_alv
*&-----------------------------------------------------------
FORM display_alv .
DATA: l_repid TYPE sy-repid.l_repid = sy-repid.
* Interface check parameter, we have to pass ‘X’ as value in
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
i_interface_check = 'X'
i_callback_program = l_repid
it_fieldcat = i_fcata
TABLES
t_outtab = i_sbook
EXCEPTIONS
program_error = 1
OTHERS = 2.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " display_alv