메뉴 건너뛰기

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.
>
>            
>
>
번호 제목 글쓴이 날짜 조회 수
6486 ALV에서 F4 이벤트 관련 질문 드립니다. [2] JrABAPer 2024.07.10 276
6485 모듈 풀 테이블 컨트롤 셀 데이터 변경 관련 질문입니다 DGRG 2020.09.02 277
6484 프로그램 연속 실행 시 오류는 원인이 뭘까요? yoon123 2022.07.01 278
6483 subscreen 호출 에러ㅠ [1] file 오로나민 2024.07.04 278
6482 LB10, LX04 user exit 찾으니 안나오네요(스탠다드 수정) [1] HANAMANA 2019.01.25 281
6481 Activate 할 때 Activate화면이 작아졌는데.. [1] file tutorialMan 2022.09.30 282
6480 이지아밥2.0 예제 z04_05 질문드립니다. [2] file 리얼오버 2022.01.07 283
6479 abap 으로 DFS 알고리즘 구현해보신분 계실까요...? Juenkdo1 2024.03.14 283
6478 자재문서 처리 Tcode를 실제 사용자가 최초 접속한 트랜잭션으로 넣을 수 있을까요? [5] 로우랜즈 2023.08.29 284
6477 SAP Audit 감사는 어떻게 준비하는건가요? yoon123 2022.10.28 285
6476 S/O 생성 시 확정수량 0 오류 [1] 유반장 2023.01.09 286
6475 Active servers 관련해서 질문있습니다~! [1] 삽고 2019.07.22 290
6474 GUI STATUS 관련 질문드립니다. 비행청년 2019.11.21 290
6473 예제 Z13_01 오류 확인부탁드립니다. [1] file 리얼오버 2022.01.08 292
6472 SAP 입고 날짜 변경 [1] 배기사 2023.02.14 292
6471 VL02 굿이슈 리스트 볼 수 있는법 [3] blouson1 2023.03.16 292
6470 Selection-Screen의 Obligatory와 user-command의 관계 [1] 리자몽워터 2023.06.20 293
6469 MIGO에서 아래 아이템그리드 부분의 레이아웃 설정 방법? [1] 깨애굴 2024.10.31 294
6468 select 해서 테이블 저장만 하는 프로그램은 type 문의드립니다. (stms 오류 관련) [1] file HANAMANA 2020.07.03 296
6467 (초보)VIEW 데이터 저장관련 문의 드립니다. [2] file bapp 2022.11.12 296