DATASET 文件的打开读取写入关闭 TAB键分开

Posted 2020-11-01 阳光旅人

DATSET 打开、写入文件数据，代码如下：

 

DATA:

    CNS_TAB TYPE  CHAR1 VALUE CL_ABAP_CHAR_UTILITIES => HORIZONTAL_TAB.

OPEN DATASET W_FILPATH FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.

IF SY-SUBRC <> 0.

    MESSAGE E043(ZTHL1) WITH W_FILPATH.

ENDIF.

LOOP AT TD_ERRFILE INTO ST_ERRFILE.

    CONCATENATE ST_ERRFILE-MBLNR

                                 ST_ERRFILE-ZEILE

                      INTO  LW_OUTDATA

                      SEPARATED BY CNS_TAB.

    TRANSFER LW_OUTDATA TO W_FILPATH.

ENDLOOP.

CLOSE DATASET  W_FILPATH.

 

读取.TXT文件内容到内表，TAB键分开。

OPEN DATASET P_SVINFL FOR INPUT IN LEGACY TEXT MODE.

READ DATASET P_SVINFL INTO LW_LINE.

IF SY-SUBRC = 0.

    SPLIT LW_LINE AT CNS_TAB

      INTO TH_INPUT_MATL

                TH_INPUT_PLANT.

      APPEND TH_INPUT TO TD_INPUT.

ENDIF.