메뉴 건너뛰기

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


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


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


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

번호 제목 글쓴이 날짜 조회 수
326 부탁드립니다. [2] 김태은 2007.06.07 1940
325 data type 에대한 질문 입니다. (Xstring , x) [1] bd 2007.06.07 2836
324 SET/GET Cursor에 대해 문의드립니다. [6] file 김지성 2007.06.07 3404
323 SE80에서 스탠다드 프로그램을 부른다는 것은?ㅠㅠ 알려주세용~ [1] 정미영 2007.06.07 1959
322 <b>[완료]</b>ALV Grid에서 Toolbar만 refresh 시키는 방법은 뭔가요? [2] 궁금해요. 2007.06.07 3717
321 ALV GRID가 아니라 LIST에서 CHECKBOX FIELD- Single로 check될 수 있도록 하는 방법 [3] 김화영 2007.06.07 2513
320 급합니다..스탠다드화면 카피 어떻게 하나요 [2] 정미영 2007.06.07 2009
319 web dynpro 한글 자료 없으시나요?? ㅠ.ㅠ [2] 기절하고파 2007.06.07 2021
318 value테이블과 check테이블 차이가 뭔가요? kyeinho 2007.06.07 2013
317 [re] value테이블과 check테이블 차이가 뭔가요? [4] file sapjoy 2007.06.07 3657
316 테이블 만들 때 에러 [4] file mean 2007.06.05 2417
315 [질문]select-option에 관련된 질문입니다. [1] 나도아밥퍼 2007.06.05 1739
314 4.6와 ECC6.0 다른 문법 정리자료 요청 [1] BlackBean 2007.06.05 1968
313 [질문] class alv로 이렇게 표현이 가능합니까? [1] 나도아밥퍼 2007.06.04 1695
312 CALL METHOD cl_gui_frontend_services 에 관해서 [3] file 하늘만 2007.06.04 2139
311 [re] CALL METHOD cl_gui_frontend_services 에 관해서 [1] 하늘만 2007.06.05 1684
310 assign 질문입니다. bd 2007.06.04 1896
309 BDC 생성시 수량필드 입력에 대해.. [2] file 김지성 2007.06.04 2198
308 unicode 에서 Structure Enhancements 되었다는 말이 있는대요.. file bd 2007.06.01 1986
307 ABAP에서 작성한 프로그램 다운로드 방법이.. 김지성 2007.06.01 2151