文本格式导入内表示例

*&---------------------------------------------------------------------*
*& Report  ZEXCEL_TO_INTERNAL_TABLE2
*&
*&---------------------------------------------------------------------*
*&文本带导入,不带数据头
*&
*&---------------------------------------------------------------------*

REPORT  ZTXT_TO_INTERNAL_TABLE2.
DATA:BEGIN OF IEXCEL OCCURS 0,
  MATNR LIKE MARD-MATNR,
  WERKS LIKE MARD-WERKS,
  LGORT LIKE MARD-LGORT,
  END OF IEXCEL.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS:RB1 RADIOBUTTON GROUP B1,
           RB2 RADIOBUTTON GROUP B1.
SELECTION-SCREEN END OF BLOCK B1.

CALL FUNCTION 'UPLOAD'
 EXPORTING
   FILETYPE                      = 'DAT'
  TABLES
    DATA_TAB                      = IEXCEL
*     EXCEPTIONS
*       CONVERSION_ERROR              = 1
*       INVALID_TABLE_WIDTH           = 2
*       INVALID_TYPE                  = 3
*       NO_BATCH                      = 4
*       UNKNOWN_ERROR                 = 5
*       GUI_REFUSE_FILETRANSFER       = 6
*       OTHERS                        = 7
          .
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
DATA SUM TYPE I.
DESCRIBE TABLE IEXCEL LINES SUM.
IF RB1 = 'X'.
  IF SUM > 1000.
    WRITE:'导入数据条数过多,不能超过1000条'.
  ELSE.
    WRITE:'数据正确,可以导入'.
    WRITE:/'总共有',SUM,'条数据'.
  ENDIF.
ENDIF.
IF RB2 = 'X'.
  WRITE:/ '物料编号','工厂','库位'.
  LOOP AT IEXCEL.
    WRITE:/ IEXCEL-MATNR,IEXCEL-WERKS,IEXCEL-LGORT.

  ENDLOOP.

ENDIF.