메뉴 건너뛰기

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


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


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


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

번호 제목 글쓴이 날짜 조회 수
6210 OPEN DATASET & R3 Non-Unicode system등 2가지 질문 합니다. [3] bd 2007.05.30 3027
6209 dump 좀 해석 부탁드립니다. [6] file 김지성 2007.05.31 1686
» unicode 관련되서 소스를 수정한 결과 한글에 대해선 값이 출력이 안되내용. [2] file bd 2007.05.31 2341
6207 'Gui_downlod' function 사용사 pop-up에 관한 질문입니다. [5] 하늘만 2007.05.31 2114
6206 unicode 관련된 간단한 질문입니다... 그러나 헤매고 있다는;; [3] file bd 2007.05.31 1887
6205 ABAP에서 작성한 프로그램 다운로드 방법이.. 김지성 2007.06.01 2152
6204 unicode 에서 Structure Enhancements 되었다는 말이 있는대요.. file bd 2007.06.01 1986
6203 [re] ABAP에서 작성한 프로그램 다운로드 방법이.. [3] file sapjoy 2007.06.01 2145
6202 BDC 생성시 수량필드 입력에 대해.. [2] file 김지성 2007.06.04 2213
6201 assign 질문입니다. bd 2007.06.04 1896
6200 CALL METHOD cl_gui_frontend_services 에 관해서 [3] file 하늘만 2007.06.04 2153
6199 [질문] class alv로 이렇게 표현이 가능합니까? [1] 나도아밥퍼 2007.06.04 1695
6198 4.6와 ECC6.0 다른 문법 정리자료 요청 [1] BlackBean 2007.06.05 1968
6197 [re] CALL METHOD cl_gui_frontend_services 에 관해서 [1] 하늘만 2007.06.05 1685
6196 [질문]select-option에 관련된 질문입니다. [1] 나도아밥퍼 2007.06.05 1739
6195 테이블 만들 때 에러 [4] file mean 2007.06.05 2434
6194 value테이블과 check테이블 차이가 뭔가요? kyeinho 2007.06.07 2013
6193 [re] value테이블과 check테이블 차이가 뭔가요? [4] file sapjoy 2007.06.07 3671
6192 web dynpro 한글 자료 없으시나요?? ㅠ.ㅠ [2] 기절하고파 2007.06.07 2021
6191 급합니다..스탠다드화면 카피 어떻게 하나요 [2] 정미영 2007.06.07 2011