DATASET file open, read, write, close TAB keys are separated

DATSET opens and writes file data, the code is as follows:

 

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 LINE

                      INTO  LW_OUTDATA

                      SEPARATED BY CNS_TAB.

    TRANSFER LW_OUTDATA TO W_FILPATH.

ENDLOOP.

CLOSE DATASET  W_FILPATH.

 

Read the contents of the .TXT file to the internal table, separated by the TAB key.

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.

Guess you like

Origin http://43.154.161.224:23101/article/api/json?id=325058154&siteId=291194637