메뉴 건너뛰기

SAP 한국 커뮤니티

[re] 똑같은 에러가 뜹니다. ^^ ..다시 한번 조언 부탁 드릴께요

이종현 2007.02.10 14:32 조회 수 : 2603 추천:117

답변 정말 감사 합니다.. 오타가 그렇게 있을줄이야..ㅜㅜ
그런데 선배님께서 주신 소스 코드로 다시 해보아도.. 똑 같은 에러 메시지가 뜨네요 ..
에러 메시지에 대해 조금이라도 지식이 있었으면 쉽게 해결 해 보았을 텐데..
아직 공부해나가야 할 길이 멀었네요 .. 앞으로 더욱 열심히 해겠습니다. ㅎㅎ
그리고 .. 오타 다시 수정해서 이렇게 올립니다.
FIND statement가 정의 되지 않았다고 계속 뜨는데 ..
FIND 구문 쪽을 살펴봐도.. 틀린 부분이 없는데도 계속 이렇게 되네요 ..
다시 한번 .. 조언 부탁 드립니다.



----- 수정한 소스 코드 -----------

TYPES:

   BEGIN OF st_flight_c,

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

BEGIN OF st_flight,
            carrid(3)              TYPE c,
            connid(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 :      set_string  type string,
            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-connid
          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-seatsmax_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-fldate DD/MM/YYYY,
      wa_flight-price CURRENCY wa_flight-currency,
      wa_flight-currency,
      wa_flight-planetype,
      wa_flight-seatsmax,
      wa_flight-seatsocc.