메뉴 건너뛰기

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 code page 변환에 대한 질문과 정보?? 입니다. [1] bd 2007.06.07 2346
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 3414
323 SE80에서 스탠다드 프로그램을 부른다는 것은?ㅠㅠ 알려주세용~ [1] 정미영 2007.06.07 1959
322 <b>[완료]</b>ALV Grid에서 Toolbar만 refresh 시키는 방법은 뭔가요? [2] 궁금해요. 2007.06.07 3722
321 ALV GRID가 아니라 LIST에서 CHECKBOX FIELD- Single로 check될 수 있도록 하는 방법 [3] 김화영 2007.06.07 2514
320 급합니다..스탠다드화면 카피 어떻게 하나요 [2] 정미영 2007.06.07 2010
319 web dynpro 한글 자료 없으시나요?? ㅠ.ㅠ [2] 기절하고파 2007.06.07 2021
318 [re] value테이블과 check테이블 차이가 뭔가요? [4] file sapjoy 2007.06.07 3659
317 value테이블과 check테이블 차이가 뭔가요? kyeinho 2007.06.07 2013
316 테이블 만들 때 에러 [4] file mean 2007.06.05 2420
315 [질문]select-option에 관련된 질문입니다. [1] 나도아밥퍼 2007.06.05 1739
314 [re] CALL METHOD cl_gui_frontend_services 에 관해서 [1] 하늘만 2007.06.05 1685
313 4.6와 ECC6.0 다른 문법 정리자료 요청 [1] BlackBean 2007.06.05 1968
312 [질문] class alv로 이렇게 표현이 가능합니까? [1] 나도아밥퍼 2007.06.04 1695
311 CALL METHOD cl_gui_frontend_services 에 관해서 [3] file 하늘만 2007.06.04 2143
310 assign 질문입니다. bd 2007.06.04 1896
309 BDC 생성시 수량필드 입력에 대해.. [2] file 김지성 2007.06.04 2202
308 [re] ABAP에서 작성한 프로그램 다운로드 방법이.. [3] file sapjoy 2007.06.01 2143