[ABAP]上传TXT档案ALV显示【模板】

REPORT ZTEST_UPLOAD.
*------------------------------------------------------------*
* DATA DECLARATION
*------------------------------------------------------------*
TABLES: EKKO,EKPO,LFA1,MARA,MARC,T001W.
DATA:L_TLINE LIKE TABLE OF TLINE WITH HEADER LINE.
*R1 UODATE TABLE
DATA: BEGIN OF ITABR1 OCCURS 0,
      EBELN LIKE EKPO-EBELN,
      WERKS LIKE MARC-WERKS,
      LIFNR LIKE EKKO-LIFNR,    "Vendor Number
      EKGRP LIKE EKKO-EKGRP,    "Purchase group
      EMSNO LIKE L_TLINE-TDLINE, "PO textVALUE
*      DATE LIKE MARA-ERSDA,      "Change date
      END OF ITABR1.
*ITAB_UPLOAD
DATA: BEGIN OF ITAB_UPLOAD OCCURS 0,
      EBELN LIKE EKPO-EBELN,
      WERKS LIKE MARC-WERKS,
      LIFNR LIKE EKKO-LIFNR,    "Vendor Number
      EKGRP LIKE EKKO-EKGRP,    "Purchase group
      EMSNO LIKE L_TLINE-TDLINE, "PO text
      END OF ITAB_UPLOAD.
*-----------------------*
*ALV DECLARATION
*-----------------------*
PARAMETERS: ALV_DEF LIKE DISVARIANT-VARIANT NO-DISPLAY.
INCLUDE RM07ALVI.
DATA: FC_ALV TYPE SLIS_FIELDCAT_ALV OCCURS 10 WITH HEADER LINE.

*-------------------------------------------------------------*
* SELECTION SCREEN
*-------------------------------------------------------------*
SELECTION-SCREEN: BEG