메뉴 건너뛰기

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


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


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


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

번호 제목 글쓴이 날짜 조회 수
328 Fuction 'BAPI_SALESORDER_CHANGE' file iamgood 2020.05.27 250
327 특정 사용자만 Excel Uplaod 시, 오류 발생 문의 [11] bbaechu 2020.05.29 1790
326 CALL FM 시 IN BACKGROUND TASK 옵션과 IN BACKGROUND TASK AS SEPARATE UNIT 차이 문의 드려요. chronos 2020.05.29 594
325 HINT 튜닝을 통한 쿼리 속도 개선 문의 드려요 [1] HANAMANA 2020.06.02 1227
324 [문의] BAPI_PO_CREATE1 문의 (Schedule 데이터 ) [4] file 아좀더 2020.06.09 421
323 안녕하세요 SAP과 오라클DB 연동 문제 질문드립니다. [4] file 임채욱 2020.06.10 1686
322 안녕하세요 select screen에서 값변경 문의좀드리겠습니다. [1] 악영채 2020.06.18 622
321 PARAMETER ID 관련 문의 드립니다. [2] 닌자부기 2020.06.18 552
320 ALV 가로로 출력 문의 밉상쿠우 2020.06.24 248
319 타 아밥 프로그램에서 정보를 던져서 엑셀에 넣고 싶습니다 ㅜ [1] 궁금합니다 2020.06.25 462
318 select 해서 테이블 저장만 하는 프로그램은 type 문의드립니다. (stms 오류 관련) [1] file HANAMANA 2020.07.03 253
317 동적으로 ALV 리스트 추가가 가능할까요? [2] file 그녀는애교쟁이 2020.07.04 352
316 대차대죠표(report painter) 금액 필드 18자리 이상 표시 두두두둥 2020.07.07 227
315 SD문서 처리 시 FI처리 [1] file 아바밥 2020.07.07 421
314 프로그램에 공통 부분 로직 구성? 초보 질문입니다. [2] 십년만에 2020.07.16 282
313 gui_download class 사용 후 xlsx 파일 열때 오류가 납니다. 제이영 2020.07.22 1420
312 st04에서 select single 사용 질문 [1] 돈테크만 2020.07.24 400
311 native sql SUBSTR 사용 에러 질문 file 김주형 2020.07.24 362
310 외부 프로그램 subroutine 호출 문제 [1] file 김주형 2020.07.24 222
309 ASSIGN할 때 ->* 기호는 어떤 의미인가요? 로우랜즈 2020.07.27 439