第一次真正自己写ABAP

REPORT Z_NEIL_TEST2 .

TABLES ZYL16.
DATA: G_ITAB LIKE ZYL16_NEIL OCCURS 0 WITH HEADER LINE,
      G_ITAB_YL16 LIKE ZYL16 OCCURS 0 WITH HEADER LINE.

DATA: begin of input_line ,
      matnr like zyl16-matnr,
      end of input_line.

DATA: input_itab like input_line OCCURS 1 WITH HEADER LINE.

*----------> parameters
selection-screen begin of block a with frame title text-002.
parameters: p_matnr like mara-matnr matchcode object mat1.
parameters: p_werks like rc29n-werks memory id wrk.
PARAMETERS: PATH LIKE IBIPPARMS-PATH DEFAULT 'D:/BOM.TXT'.
selection-screen end of block a.

*----------> call function
CALL FUNCTION 'WS_UPLOAD'
  EXPORTING
      CODEPAGE          = 'TEST'
      FILENAME          = PATH
      FILETYPE          = 'DAT'
      ITEM              ='MAT.'
  TABLES
      DATA_TAB          = input_ITAB
  EXCEPTIONS
      CONVERSION_ERROR  =1
      INVALID_TABLE_WIDTH = 2
      INVALID_TYPE      = 3.

*------------------->input data to g_itab
refresh g_itab.
loop at input_itab.
  clear g_itab.
  g_itab-n_partno = input_itab-matnr.
  g_itab-werks = P_WERKS.
  append g_itab.
endloop.

CALL FUNCTION 'Z_RFC_YL16_NEIL'
  TABLES
    IO_TAB        = G_ITAB
          .
loop at g_itab.
  write: /(15) g_itab-matnr, (5) g_itab-meins,
      (5) g_itab-MENGE, (5) g_itab-SMAKTX,
      (15) g_itab-IDNRK, (5) g_itab-STUFE,
      (5) g_itab-DECLITEM, (5) g_itab-TAX_CODE,
      (5) g_itab-E_I,(20) g_itab-MAKTX.
endloop.