Extract data from Pipe Delimited file

Question

Hi everybody,
Could someone provide me the command to extract data from a pipe delimited file ("|") using Open/Read Data set.
I mean eliminating the delimiter ("|") and just picking the data.
Thanks
M

Answer 1

Here you go.. this code snippet parses the input file record by using pipe (variable lv_pipe) as separator, for tab separated file you can use lv_tab like wise...
  TYPES: BEGIN OF ts_field,
           field(50) TYPE c,
         END OF ts_field,
         tt_field TYPE TABLE OF ts_field.
   DATA: ls_record TYPE string,
        ls_input_data TYPE ts_input_data,
        lv_tab TYPE x VALUE '09',
        lv_pipe TYPE C VALUE '|',
        ls_field TYPE ts_field,
        lt_field_tab TYPE tt_field,
        lv_field_index TYPE syindex,
        lv_record_no TYPE syindex.
  FIELD-SYMBOLS: <fs_field> TYPE ANY.
  OPEN DATASET fv_file_path IN TEXT MODE FOR INPUT.
  IF sy-subrc = 0.
    DO.
      lv_record_no = lv_record_no + 1.
      READ DATASET fv_file_path INTO ls_record.
      IF sy-subrc NE 0.
        EXIT.
      ELSE.
        SPLIT ls_record  AT lv_pipe INTO TABLE lt_field_tab.
        CLEAR: lv_field_index, ls_input_data.
        LOOP AT lt_field_tab INTO ls_field.
          lv_field_index = lv_field_index + 1.
          ASSIGN COMPONENT lv_field_index OF STRUCTURE
            ls_input_data TO <fs_field>.
          IF sy-subrc = 0.
            <fs_field> = ls_field-field.
          ENDIF.
        ENDLOOP.
        APPEND ls_input_data TO ft_input_data.
      ENDIF.
    ENDDO.
    CLOSE DATASET fv_file_path.