메뉴 건너뛰기

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


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


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


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

번호 제목 글쓴이 날짜 조회 수
5253 배치잡등록시 After job을 이용해서 Peridic job설정하는 방법. 한하늘 2007.10.22 2356
5252 덤프문제중에 모르는 것 질문합니다. 명신용 2007.05.03 2356
5251 [요청]Write문 List를 PDF 파일로 저장이 가능한가요? [9] 달이랑 2009.03.23 2355
5250 <b>[완료]</b>CTS 관하여...[급합니다] 도와주세요. [7] file 달이랑 2007.11.16 2355
5249 <b>[완료]</b>커리문 에러 [4] SSong 2007.08.27 2355
5248 <img src=2.gif>테이블 유지보수 뷰 관련 질문입니다. ^^ [6] file 크리스마스 2010.12.28 2354
5247 <img src=1.gif>F-04에서 전표 부분반제 하려는데 BAPI 있나요? yang 2011.02.23 2353
5246 <b>[완료]</b>[건수집계 덤프처리]건수 집계시 건수에 따라 메모리 덤프 발생 [5] 폴라리스 2008.12.17 2351
5245 <b>[완료]</b>[MM] 구매정보레코드 추가 정보를 관리하기 위한 방법 한우물 2008.07.28 2351
5244 code page 변환에 대한 질문과 정보?? 입니다. [1] bd 2007.06.07 2351
5243 [요청] 뷰 클러스터 질문입니다 mean 2007.11.22 2349
» unicode 관련되서 소스를 수정한 결과 한글에 대해선 값이 출력이 안되내용. [2] file bd 2007.05.31 2349
5241 [요청]테이블 변경에 대한 CTS 요청시 경고발생후 운영서버에 적용안되는 문제 [1] 에드 2008.03.04 2348
5240 SAP ECC 6.0에서 타시스템의 WEB Service 호출하는 방법 및 사례를 구합니다. SkyDream 2009.11.02 2347
5239 ALV에서 ROW를 하나만 선택할수있는 파라메터가 무언가요? [5] 노력&성장 2007.10.30 2347
5238 <img src=1.gif>필드에 특수문자가 들어가면 글씨가 붉은색으로 출력 출력이 됩니다. file rudtnfkrn 2010.10.08 2346
5237 <img src=2.gif>여러 BAPI를 순차적으로 돌린 후 마지막에 한거번에 COMMIT 하는 방법? [3] 아밥 2009.12.10 2346
5236 <img src=1.gif>스크린페인터에서요 아이콘 그림을 넣고 나서 활성화하면 INPUT필드가 사라져요. 해결방법이 없을까요? 마늘맛쿨피스 2010.09.13 2345
5235 vmi실행하는 mrko 송장전기일 추가 user-exit을 못찾겠습니다. [1] 노력&성장 2007.06.15 2345
5234 <b>[완료]</b>SAPscript(se78)에서 사진의 해상도가 낮게 보입니다. [2] activeman 2008.04.10 2343