메뉴 건너뛰기

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 로 변경이되어서 안나오는것 같은대용..


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


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


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

번호 제목 글쓴이 날짜 조회 수
» unicode 관련되서 소스를 수정한 결과 한글에 대해선 값이 출력이 안되내용. [2] file bd 2007.05.31 2439
302 dump 좀 해석 부탁드립니다. [6] file 김지성 2007.05.31 1713
301 OPEN DATASET & R3 Non-Unicode system등 2가지 질문 합니다. [3] bd 2007.05.31 3168
300 파일 업로드 왜이렇게 어렵습니까? [5] 김지성 2007.05.31 2033
299 [re] 파일 업로드 왜이렇게 어렵습니까?(혹시나 하여 소스 올려봅니다) [6] file 김지성 2007.05.31 2931
298 파일 다운로드 기능을 추가할 수 있는 지? [3] 김지성 2007.05.30 2073
297 CL_ABAP_CHAR_UTILITIES 사용 용도에 대해 알고 싶습니다. [3] file bd 2007.05.30 2910
296 변형(Variant) 설정자 ID 아는방법? [2] 김화영 2007.05.29 2442
295 [질문] 변형 varient질문입니다. [1] 나도아밥퍼 2007.05.29 1847
294 <b>[완료]</b>테이블에 있는 데이터를 스크린에 뿌리는 로직인데 잘 안풀려서요 [4] 아밥초보생 2007.05.29 1852
293 SCREEN 및 SET CURSOR에 대해 궁금합니다. [6] file 김지성 2007.05.29 3239
292 화면우측 상단의 "X" 클릭시 궁금합니다. [2] 김지성 2007.05.28 2336
291 CALL METHOD CL_ABAP_LIST_UTILITIES=>MEMORY_TO_DISPLAY 질문입니다. [4] bd 2007.05.28 3145
290 [질문] 같은 값 하나만 뽑아내고 싶은데요... [1] 나도아밥퍼 2007.05.26 1768
289 [질문] 이 상황에 대한 여러분의 좋은 의견 부탁드립니다. [2] 나도아밥퍼 2007.05.26 1692
288 [질문] 주민번호 뒷자리를 *******로 표현하고 싶다.. [3] 나도아밥퍼 2007.05.25 5138
287 POPUP 창에 대해 문의드립니다. [3] file 김지성 2007.05.25 1905
286 [질문] alv에서 컬럼 순서를 내마음대로 정하고 싶거든요.. [3] 나도아밥퍼 2007.05.24 3213
285 TIF 그래픽 올리는 방법 [6] 김화영 2007.05.23 2104
284 [re] TIF 그래픽 올리는 방법 [4] file mean 2007.05.24 2400