메뉴 건너뛰기

SAP 한국 커뮤니티

오타가 다섯개 정도 있네요.
다음 소스를 복사해서 활성화 해보세요.

REPORT  Z01                                                         .

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,
        seatsmax(10)                  type c,
        seatsmas(10)                  TYPE   c,
        seatsocc(10)                    TYPE   c,
        paymentsum(22)              TYPE   c,
        seatsmax_b(10)               TYPE   c,
        seatmax_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,
            connid(4)          TYPE n,
            fldate                  TYPE d,
            price(9)              TYPE p DECIMALS 2,
            currency(5)        TYPE c,
            planetype(10)     TYPE c,
            seatmax           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-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-fldate DD/MM/YYYY,
      wa_flight-price, " CURRENCY wa_flight-crurrency,
*      wa_flight-currency,
      wa_flight-planetype,
      wa_flight-seatmax,
      wa_flight-seatsocc.
>저도 방금 전에 글을 올리신 분과 같이 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.
>
>            
>
>
번호 제목 글쓴이 날짜 조회 수
127 <b>[완료]</b>[re] 탐색도움말 [23] sapjoy 2006.12.11 5773
126 <img src=3.gif border=0> MOD 와 DIV에 대해 설명 좀 부탁드립니다.. [2] 용군 2009.06.04 5802
125 <img src=3.gif>엑셀 매크로를 이용하여 양식을 출력하는 방법 좀 알려주세요..ㅜㅜ [3] 싼타 2010.08.19 5820
124 <b>[완료]</b><b>[완료]</b><b>[완료]</b><b>[완료]</b>특정 글자 뒤의 내용을 가져 오는 법 문의. 2006.12.02 5842
123 [요청]스마트폼 - 페이지 번호 매기기. [2] JiruMi 2009.03.17 5856
122 [요청]BAPI BAPI_GOODSMVT_CREATE 펑션의 기본적인 사용법 [1] 댕댕 2008.05.05 5861
121 현재 시간을 가져올려면 어떻게 해야하나요? [1] 노력&성장 2007.07.19 5883
120 <img src=2.gif>st04 sql command editor 문의좀 드립니다. [1] 청공 2011.01.27 5896
119 <b>[완료]</b><b>[완료]</b>BDC 수행 중 에러가 발생합니다. [1] 2006.12.02 5897
118 [요청]delete 하는법 알려주세요...조건에 맞는필드를 삭제하려고요... [5] 아밥! 2008.11.06 5914
117 [요청]CALL SCREEN 100 STARTING AT .. ENDING AT .. [5] genius 2008.04.16 5929
116 <img src=2.gif>클래스 CL_GUI_CFW=>DISPATCH 에 대해? [1] 예스맨 2009.10.21 5969
115 <img src=3.gif>alv 테이블 필드 숨기기에 대해 질문드립니다. [4] 유정a 2010.10.21 5980
114 [요청]SET_READY_FOR_INPUT 이메소드에관해... [3] CoolGuy 2008.06.17 5997
113 <b>[완료]</b><b>[완료]</b>탐색도움말 2006.12.09 6000
112 [요청]refresh_table_display와 cl_gui_cfw=>flush 의 차이점에대해서 알고싶습니다 [3] 고양이야옹 2008.12.04 6027
111 <b>[완료]</b><b>[완료]</b><b>[완료]</b><b>[완료]</b><b>[완료]</b>[re] ABAP에서 활성화 또는 실행시 경고음 없애는 방법이 있나요? 2006.12.02 6047
110 <img src=3.gif>ALV 합계,소계 기능에 대해서 질문이 있습니다. [3] rune 2010.04.15 6050
109 <b>[완료]</b><b>[완료]</b><b>[완료]</b><b>[완료]</b>ABAP에서 활성화 또는 실행시 경고음 없애는 방법이 있나요? [2] ecbase 2006.12.02 6073
108 <img src=3.gif>엑셀 다운로드시 숫자가 2.00911E+12나오는데 방법이 없을까요? [6] 귤탱 2009.11.13 6145