TYPE-POOLS ICON.
TABLES SSCRFIELDS.
TABLES:spfli.
TYPE-POOLS: SLIS.
DATA L_FLAG.
DATA OK_CODE TYPE SY-UCOMM.
DATA UC_CODE TYPE SY-UCOMM.
DATA: LT_DYNPFIELDS LIKE TABLE OF DYNPREAD WITH HEADER LINE,
LV_DYNAME LIKE SY-REPID,
LV_DYNNR LIKE SY-DYNNR.
DATA FUNCTXT TYPE SMP_DYNTXT.
DATA:lt_spfli TYPE TABLE OF spfli WITH HEADER LINE.
DATA:gt_fieldcat TYPE lvc_t_fcat,
gs_layout TYPE lvc_s_layo.
SELECT-OPTIONS: S_car FOR spfli-carrid.
SELECTION-SCREEN: FUNCTION KEY 1.
INITIALIZATION.
FUNCTXT-ICON_ID = ICON_CREATE.
FUNCTXT-QUICKINFO = '新增'.
"functxt-icon_text = '新增'.
SSCRFIELDS-FUNCTXT_01 = FUNCTXT.
AT SELECTION-SCREEN.
CASE SSCRFIELDS-UCOMM.
WHEN 'FC01'.
* MESSAGE W000(ZSD000) WITH 'ERROR'.
L_FLAG = 'C'.
CALL SCREEN 200.
when OTHERS.
ENDCASE.
START-OF-SELECTION.
PERFORM DISPLAY_DATA.
*&---------------------------------------------------------------------*
*& Form FILL_FIELD
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_0091 text
* -->P_0092 text
*----------------------------------------------------------------------*
FORM FILL_FIELD USING p_field p_text .
DATA lw_fcat TYPE lvc_s_fcat.
lw_fcat-fieldname = p_field.
lw_fcat-coltext = p_text.
APPEND lw_fcat TO gt_fieldcat.
ENDFORM. " FILL_FIELD
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0200 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0200 INPUT.
uc_code = ok_code .
CLEAR ok_code.
CASE uc_code.
WHEN 'BACK'.
LEAVE PROGRAM.
WHEN 'ZX'.
PERFORM DISPLAY_DATA.
ENDCASE.
ENDMODULE. " USER_COMMAND_0200 INPUT
*&---------------------------------------------------------------------*
*& Form DISPLAY_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM DISPLAY_DATA .
SELECT *
FROM spfli
INto CORRESPONDING FIELDS OF TABLE lt_spfli
WHERE carrid In s_car.
PERFORM fill_field USING:
'CARRID' '航班',
'CONNID' '航线'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
EXPORTING
I_CALLBACK_PROGRAM = SY-REPID
IT_FIELDCAT_LVC = GT_FIELDCAT
TABLES
T_OUTTAB = lt_spfli
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ENDIF.
ENDFORM. " DISPLAY_DATA
*&---------------------------------------------------------------------*
*& Module STATUS_0200 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE STATUS_0200 OUTPUT.
SET PF-STATUS 'STATUS_0200'.
* SET TITLEBAR 'xxx'.
ENDMODULE. " STATUS_0200 OUTPUT
*&---------------------------------------------------------------------*
*& Form DISPLAY_DATA1
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM DISPLAY_DATA1 .
WRITE:'successful'.
ENDFORM. " DISPLAY_DATA1
屏幕:PROCESS BEFORE OUTPUT.
MODULE STATUS_0200.
*
PROCESS AFTER INPUT.
MODULE USER_COMMAND_0200.