메뉴 건너뛰기

SAP 한국 커뮤니티



 

*&---------------------------------------------------------------------*
*& Report  Z_UNICODE1
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  Z_UNICODE1.

TYPES :
  BEGIN OF PERSON,
        FIRSTNAME(20TYPE C,
        LASTNAME(20TYPE C,
        AGE          TYPE I,
  END OF PERSON,

  BEGIN OF ADDRESS,
    STREET(20TYPE C,
    CITY(30TYPE C,
    CODE(6TYPE C,
    COUNTRY(20TYPE C,
  END OF ADDRESS,

  BEGIN OF CONTAINER,
    TAG(1TYPE C,
*    CONTENTS(100) TYPE C,     
    CONTENTS TYPE XSTRING,
  END OF CONTAINER.


DATA : CONTAINER_TAB TYPE STANDARD TABLE OF CONTAINER.


PERFORM FILL_TABLE CHANGING CONTAINER_TAB.

PERFORM WRITE_TABLE USING CONTAINER_TAB.
*&---------------------------------------------------------------------*
*&      Form  fill_table
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      <--P_CONTAINER_TAB  text
*----------------------------------------------------------------------*
FORM FILL_TABLE  CHANGING DATA_TAB LIKE CONTAINER_TAB.

  DATA : PERS TYPE PERSON,
         ADDR TYPE ADDRESS,
         ENTRY TYPE CONTAINER.

  PERS-FIRSTNAME = 'Max'.
  PERS-LASTNAME  = 'Meier'.
  PERS-AGE       = 33.
  ENTRY-TAG = 'P'.
*  ENTRY-CONTENTS = PERS.
  EXPORT VALUE = PERS TO DATA BUFFER ENTRY-CONTENTS.
  APPEND ENTRY TO DATA_TAB.

  ADDR-STREET = '송파'.
  ADDR-CITY = '서울'.
  ADDR-CODE = '123456'.
  ADDR-COUNTRY = '대한민국'.
  ENTRY-TAG = 'A'.
  ENTRY-CONTENTS = ADDR.
  APPEND ENTRY TO DATA_TAB.

  PERS-FIRSTNAME = 'Fred'.
  PERS-LASTNAME = 'smith'.
  PERS-AGE = '23'.
  ENTRY-TAG = 'P'.
*  ENTRY-CONTENTS = PERS.
  EXPORT VALUE = PERS TO DATA BUFFER ENTRY-CONTENTS.
  APPEND ENTRY TO DATA_TAB.



ENDFORM.                    " fill_table
*&---------------------------------------------------------------------*
*&      Form  WRITE_TABLE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_CONTAINER_TAB  text
*----------------------------------------------------------------------*
FORM WRITE_TABLE  USING  DATA_TAB LIKE CONTAINER_TAB.

  DATA : CONTAINER_LINE TYPE CONTAINER,
         PERS TYPE PERSON,
         ADDR TYPE ADDRESS.

  LOOP AT DATA_TAB INTO CONTAINER_LINE.
    CASE CONTAINER_LINE-TAG.
      WHEN 'P'.
*        PERS = CONTAINER_LINE-CONTENTS.
        IMPORT VALUE = PERS FROM DATA BUFFER CONTAINER_LINE-CONTENTS.
        WRITE : / 'FIRST NAME', PERS-FIRSTNAME,
                / 'LAST  NAME', PERS-LASTNAME,
                / 'AGE'       , PERS-AGE.
        ULINE.
      WHEN 'A'.
        ADDR = CONTAINER_LINE-CONTENTS.
        WRITE : / 'Street' , ADDR-STREET,
                / 'city', ADDR-CITY,
                / 'postal code', ADDR-CODE,
                / 'country', ADDR-COUNTRY.
        ULINE.
    ENDCASE.
  ENDLOOP.
ENDFORM.                    " WRITE_TABLE


 


수정한 부분은 주석 처리 바루 아래 한줄 입니다.


 


한글이 안나오는 이유가 데이터 선언부에서


*    CONTENTS(100) TYPE C,     
    CONTENTS TYPE XSTRING,
기존에 Character type 이 Byte type인 xstring 로 변경이되어서 안나오는것 같은대용..


나오게 할수 있는 방법이 없을까용???


결과 화면 같이 올려 드림니다.


힌트좀 부탁 드림니다. 선배님들.. ^^

번호 제목 글쓴이 날짜 조회 수
327 BAPI로 전표 생성시 세금코드 관련 문의 [2] file 해피소울 2019.10.08 590
326 CALL FM 시 IN BACKGROUND TASK 옵션과 IN BACKGROUND TASK AS SEPARATE UNIT 차이 문의 드려요. chronos 2020.05.29 589
325 FTP 접속 후 한글이름으로 된 폴더명 접근 불가관련 [2] 난꿀 2021.01.13 583
324 SAP GUI ALV 엑셀 뷰 기능 오류 문의합니다. file wjd 2020.02.06 580
323 abap 초보 db테이블에 itab 넣는것 질문드립니다.. [2] file 부링 2021.04.07 578
322 loop at into, loop at assigning <fs> 구문의 차이점! [3] 아밥자 2018.12.29 575
321 SAP Business Function 이란 뭔가요~? [1] 난꿀 2019.10.10 573
320 DBCO를 통해 MS SQL VIEW의 값들을 가져올 수 없나요? [3] file 다크나잇트 2021.11.22 572
319 ERP전체적흐름도 [1] 1년차 2019.02.12 571
318 SUBMIT 에서 호출된 프로그램의 VARIANT읽어서 넣을수 잇나요? [2] 썬와인 2020.08.04 568
317 "CALL transaction without authority-check" [2] 율시스 2021.10.26 566
316 이제 막 easy abap 2.0 책 사서 공부하고 있는데 open sql 관련 이해가 안가는 내용이 있습니다.. [2] newenw 2022.09.12 564
315 DB수정 프로그램을 개발할 경우 보통 DELETE & INSERT와 MODIFY중 뭘쓰나요? [3] 로우랜즈 2022.07.06 561
314 SAP ABAP 자격증 공부 관련 질문 [1] 호치쿠 2019.04.16 560
313 인쇄시 SAP spool error 발생 모포 2020.02.19 559
312 인터널 테이블 3줄을 1줄로 변경하고 싶은데.. [4] file 죠죠 2020.04.22 558
311 아밥에서 인터넷 실행하기 질문요 [1] 파출부 2021.01.05 556
310 ALV GRID 에서 값 수정 후 DUMP 에러로 GETWA_NOT_ASSIGNED 가 뜹니다. [1] file 메론쥬스 2022.04.07 555
309 아밥질문은 아니지만 ㅜㅜ 파일 업로드 에러(Error Opening File) 질문합니다. [2] file 낑깡 2020.11.20 553
308 PARAMETER ID 관련 문의 드립니다. [2] 닌자부기 2020.06.18 552