메뉴 건너뛰기

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


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


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


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

번호 제목 글쓴이 날짜 조회 수
307 ABAP에서 작성한 프로그램 다운로드 방법이.. 김지성 2007.06.01 2151
306 [re] ABAP에서 작성한 프로그램 다운로드 방법이.. [3] file sapjoy 2007.06.01 2143
305 unicode 관련된 간단한 질문입니다... 그러나 헤매고 있다는;; [3] file bd 2007.05.31 1887
304 'Gui_downlod' function 사용사 pop-up에 관한 질문입니다. [5] 하늘만 2007.05.31 2112
» unicode 관련되서 소스를 수정한 결과 한글에 대해선 값이 출력이 안되내용. [2] file bd 2007.05.31 2338
302 dump 좀 해석 부탁드립니다. [6] file 김지성 2007.05.31 1682
301 OPEN DATASET & R3 Non-Unicode system등 2가지 질문 합니다. [3] bd 2007.05.30 3021
300 파일 업로드 왜이렇게 어렵습니까? [5] 김지성 2007.05.30 2003
299 [re] 파일 업로드 왜이렇게 어렵습니까?(혹시나 하여 소스 올려봅니다) [6] file 김지성 2007.05.30 2699
298 파일 다운로드 기능을 추가할 수 있는 지? [3] 김지성 2007.05.30 1930
297 CL_ABAP_CHAR_UTILITIES 사용 용도에 대해 알고 싶습니다. [3] file bd 2007.05.29 2810
296 변형(Variant) 설정자 ID 아는방법? [2] 김화영 2007.05.29 2381
295 [질문] 변형 varient질문입니다. [1] 나도아밥퍼 2007.05.28 1797
294 <b>[완료]</b>테이블에 있는 데이터를 스크린에 뿌리는 로직인데 잘 안풀려서요 [4] 아밥초보생 2007.05.28 1821
293 SCREEN 및 SET CURSOR에 대해 궁금합니다. [6] file 김지성 2007.05.28 3164
292 화면우측 상단의 "X" 클릭시 궁금합니다. [2] 김지성 2007.05.28 2248
291 CALL METHOD CL_ABAP_LIST_UTILITIES=>MEMORY_TO_DISPLAY 질문입니다. [4] bd 2007.05.28 2977
290 [질문] 같은 값 하나만 뽑아내고 싶은데요... [1] 나도아밥퍼 2007.05.25 1749
289 [질문] 이 상황에 대한 여러분의 좋은 의견 부탁드립니다. [2] 나도아밥퍼 2007.05.25 1675
288 [질문] 주민번호 뒷자리를 *******로 표현하고 싶다.. [3] 나도아밥퍼 2007.05.25 5076