저도 방금 전에 글을 올리신 분과 같이 abap certi를 준비하고 있는 학생입니다.
형한테도 많은 도움을 받고 있지만 ..형 소개로 이 싸이트를 알게 되었고
더 많은것을 얻어 가고자 이렇게 글을 올려 봅니다.

저도 .. 실습 부분중에 막히 부분이 있어서요. ㅋ
syntax error check에서... 자꾸 에러가 나네요..!!!
에러가 난 부분은 캡쳐화면을 파일로 첨부 해 놓았습니다.
아주 기초적인 에러 같은데 .. 아직 공부를 하고 있는터라 잘 모르겠네요 ㅜㅜ..
그럼 선배님들의 조언 부탁 드릴ㄲㅔ요 ^^


소스 코드 입니다.

REPORT  zbc401_23_split_string        .

TYPES:

   BEGIN OF st_flight_c,

        mandt(3)                      TYPE   c,
        carrid(3)                        TYPE   c,
        connid(3)                       TYPE   c,
        fldate(8)                          TYPE   c,
        price(20)                         TYPE   c,
        currency(5)                     TYPE   c,
        planetype(10)                  TYPE   c,
        seatsmas(10)                  TYPE   c,
        seatsocc(10)                    TYPE   c,
        paymentsum(22)              TYPE   c,
        seatsmax_b(10)               TYPE   c,
        seatsocc_b(10)                TYPE   c,
        seatsmax_f(10)                TYPE   c,
        seatsocc_f(10)                 TYPE   c,
    END OF st_flight_c,

BEGIN OF st_flight,
            carrid(3)              TYPE c,
            connidn(4)          TYPE n,
            fldate                  TYPE d,
            price(9)              TYPE p DECIMALS 2,
            currency(5)        TYPE c,
            planetype(10)     TYPE c,
            seatsmax           TYPE i,
            seatsocc            TYPE i,
END OF st_flight.

DATA :
            datastring  TYPE string,
            wa_flight_c TYPE st_flight_c,
            wa_flight     TYPE st_flight.

START-OF-SELECTION.

  CALL FUNCTION 'BC401_GET_SEP_STRING'
*      EXPORTING
*         im_number ='1'
*         im_table_name = 'SFLGHT'
*         im_separator = '#'
*         im_unique = 'X'
       IMPORTING
            ex_string = datastring
       EXCEPTIONS
            no_data   = 1
            OTHERS    = 2.
  IF sy-subrc <> 0.
    MESSAGE a038(bc401).
  ENDIF.


  SHIFT datastring BY 2 PLACES.
  find '##' in datastring.
  IF sy-subrc <> 0.
    MESSAGE a702(bc401).
  ENDIF.

  SPLIT datastring AT '##' INTO set_string datastring.

  SPLIT set_string AT '#' INTO
          wa_flight_c-mandt
          wa_flight_c-carrid
          wa_flight_c-fldate
          wa_flight_c-price
          wa_flight_c-currency
          wa_flight_c-planetype
          wa_flight_c-seatsmax
          wa_flight_c-seatsocc
          wa_flight_c-paymentsum
          wa_flight_c-seatmax_b
          wa_flight_c-seatsocc_b
          wa_flight_c-seatsmax_f
          wa_flight_c-seatsocc_f.

  MOVE-CORRESPONDING wa_flight_c TO wa_flight.

  WRITE: /
      wa_flight-carrid,
      wa_flight-connid,
      wa_flight-fldata DD/MM/YYYY,
      wa_flight-price CURRENCY wa_flight-crurrency,
      wa_flight-currency,
      wa_flight-planetype,
      wa_flight-seatmax,
      wa_flight-seatsocc.