맛있는 데이터

REPORT YSOURCEDOWN line-size 1023 message-id ytest1.
data: g_program type progname.

select-options: is_pgmnm for g_progname.
parameters: ip_dir typs string default 'C:\ABAP\'.

initialization.
  is_pgmnm-sign = 'I'.
  is_pgmnm-option = 'CP'.
  is_pgmnm-low = 'Z*'.
  append is_pgmnm.
  is_pgmnm-low = 'LZ*'. "function module
  append is_pgmnm.
  is_pgmnm-low = 'Y*'.
  append is_pgmnm.
  is_pgmnm-low = 'LY*'.
  append is_pgmnm.

start-of-selection.
  data: l_off type i,
   l_len type i,
l_dir type string,
l_ch.
l_dir = ip_dir.
condense l_dir no-gaps.
l_off = strlen( l_dir ) - 1.
l_ch - l_dir+l_off(1).
if l_ch <> '\'.
  concatenate l_dir '\' into l_dir.
endif.

data: begin of ls_reposrc,
progname type progname,
end of ls_reposrc,
lt_reposrc like table of ls_reposrc.

select progname
  into table lt_reposrc
from reposrc
where progname in is_pgmnm
and r3state = 'A'.

data: begin of ls_lines,
txt(300),
end of ls_lines,
lt_lines like table of ls_lines,
l_filenm type string.

loop at lt_reposrc into ls_reposrc.
clear lt_lines[].
read report ls_reposrc-progname into lt_lines.
concatenate l_dir ls_reposrc-progname '.abap' into l_filenm.

call function 'GUI_DOWNLOAD'
exporting
filename = l_filenm
tables
data_tab = lt_lines.
endloop.

참고출처 : https://mpjamong.tistory.com/17

HANA STUDIO 설치
support.sap.com 접속 후 [SAP Support Potal] - [Software Downloads] 접속
Hana studio 검색 후 Windows 10에 맞는 설치 파일 다운로드
Sapcar 검색 후 OS에 맞는 설치 파일 다운로드 (sapcar는 sar 파일 압축 해제 Utility)
설치 파일 리스트
- HANA STUDIO 설치 파일 : IMC_STUDIOS2_(최신버전).SAR
- SAR 파일 압축해제 도구 : SAPCAR_(최신버전).EXE

아래는 설치과정 캡처참고

help.sap.com 에 다운로드 및 설치 방법이 안내되어 있다

HANA Studio 2 다운로드 

SAPCAR 다운로드 (SAR 파일 utility)

파일 동일 경로에 위치하고 압축해제
command : path>SAPCAR_XXX.exe -xvf IMC_STUDIO2_XXX.SAR

압축해제된 폴더
C:\>program files> 에 설치시 관리자권한으로 수행하지 않을경우 권한으로 인한 에러가 발생할 수 있음

hdbsetup.exe 실행하여 설치시작

HANA Studio 가 설치되면 HANA 관련 tool 을 수행할 수 있는 상태로 eclipse + plug in 이 설치된다.

hana studio 로 기본 software가  설치된 상태

ABAP 을 개발하기 위해서는 ADT 추가 plug-in 을 설치해야 하고 그 이전에 eclipse 버전을 확인하여 버전에 맞는 plug-in을 설치해야 한다

이클립스 버전 확인 아래의 경우 2022-11 버전

tools.hana.ondemand.com 에서 eclipse 버전별 설치가능 tool 확인

버전을 확인했으면 새로운 plug-in 설치

버전에 따른 url 을 입력하면 설치가능한 tool 목록이 검색됨

설치가 완료되면 재시작

perspective 에 설치된 ABAP, BW Modeling 등이 표시됨

ABAP REST API (Representational State Transfer). REST-compliant Web-based services

RESP API 사용 URL 포맷
http://<domain:port>/zsicf_service/zhandler_template?sap-client=100&para=...

개요
WWW -> Request -> ICF -> Request Handler : cl_rest_http_handler -> Resource provider : cl_rest_resource -> Response
웹에서 ABAP REST API 를 호출하여 SAP 웹서비스를 제공

• The HTTP protocol is used for communication
• The REST interface is designed as part of the Internet Communication Framework (ICF) that controls HTTP communication in the AS ABAP (T-code for ICF - SICF)
• Routing of HTTP requests to different services and resources depending on the specified resource paths
• Support of multiple text formats, such as, XML, JSON, plain text, HTML.

Step : REST API in SAP 생성

• cl_rest_resource 를 상속하여 클래스를 생성하고 get, post, put, delete 등의 메소드를 구현한다.
• cl_rest_http_handler를 상속하여 클래스를 생성하고 get_root_handler 메소드와 리소스클래스에 대한 라우터를 구현한다.
• SICF 서비스를 생성하고 생성된 handler 클래스에 추가한다.
• acivate 하고 테스트

샘플예제 시나리오 : 고객불만사항을 web 서비스로 접수하여 저장하고, 상태값을 조회하는 서비스

Development approach

1. 테이블 생성
2. SNRO로 고객불만사항ID 생성
3. resource class 생성후 get/post 메소드 구현
4. request handler 클래스 생성
5. SICF 서비스 생성 및 active
6. postman을 활용한 테스트

ZCL_WEBCOMPLAINT_RH 클래스 생성 (cl_rest_http_handler 상속)

method IF_REST_APPLICATION~GET_ROOT_HANDLER.
data(lo_router) = new cl_rest_router( ).
lo_router->ATTACH(
  EXPORTING
     iv_template = '/webcomplaint'
     iv_handler_class = 'ZCL_WEBCOMPLAINT_RP' ).
RO_ROOT_HANDLER = lo_router.
endmethod.

ZCL_WEBCOMPLAINT_RP 클래스 생성 (cl_rest_resource 상속)

method IF_REST_RESOURCE~GET.
 data: lv_string1 type string,
          lv_string2 type string,
          gs_complaint type ZREST_COMPLAINT.

lv_string1 = mo_request->get_uri_query_parameter( iv_name = 'ID' ).
select single * from zrest_complaint into corresponding fields of gs_complaint where id = lv_string1.
/UI2/CL_JSON=>SERIALIZE(
   EXPORTING
       DATA = gs_complaint
   RECEIVING
      R_JSON = lv_string2 ).

mo_response->create_entity( )->set_string_data( iv_data = lv_string2 ).
mo_response->set_header_field(
  EXPORTING
    iv_name = 'Content-Type'
    iv_value = 'application/json' ).
endmethod.

Tcode : SICF 수행

타입 : SERVICE 실행

Create Host/Service 생성

서비스 이름 생성

서비스 path 에 대한 설명과 handler 등록

신규 생성된 서비스 우클릭후 activate service 이후 우클릭 test service

서비스 핸들러에 지정된 path가 아니므로 수행되지 않음

지정된 path 를 추가하면 json 응답이 수행됨

테이블에 저장된 ID 를 parameter로 추가하여 실행하면 데이터가 회신됨

postman을 통한 테스트

get method 생성 이후 post method 선택 후 생성

method IF_REST_RESOURCE~POST.
 data: lv_string1 type string,
          lv_string2 type string,
          gs_complaint type ZREST_COMPLAINT.

data(lo_entity) = mo_request->GET_ENTITY( ).
data(lo_response) = mo_response->CREATE_ENTITY( ).
"read string data i.e json
data(lv_data) = LO_ENTITY->GET_STRING_DATA( ).

/ui2/cl_json=>DESERIALIZE( EXPORTING JSON = lv_data CHANGING gs_complaint).
CALL FUNCTION 'NUMBER_GET_NEXT'
  EXPORTING
     NR_RANGE_NR = '01'
     OBJECT  = 'ZRESTC'
     QUANTITY = '1'
  IMPORTING 
    NUMBER = gs_complaint-id.

gs_complaint-createdby = sy-uname.
gs_complaint-createdon = sy-datum.
gs_complaint-time = sy-uzeit.

insert into zrest_complaint values gs_complaint.

/ui2/cl_json=>serialize( EXPORTING data = gs_complaint RECEIVING r_json = lv_response ).
lo_response->SET_STRING_DATA( iv_data = lv_response ).

endmethod.

postman 에서 테스트
처음 설정한 URL에서 GET으로 Header에 key : x-csrf-token / value : fetch 로 토큰값을 가져온다

POST 방식으로 변경한 뒤 key : x-csrf-token / value : 45TZXnvTH... (위에서 생성한 토큰값) 을 입력하고 body에 json 을 넣는다. 타입은 raw

하단 response 를 save file 로 하여 response 값을 파일 다운로드해서 확인할 수 있다.
SE11 에서 데이터가 저장된 것도 확인 가능

참고 : https://www.youtube.com/watch?v=DIFFPPyg40w&t=1994s 

CLASS lcl_test DEFINITION.
  PUBLIC SECTION.
    CLASS-METHODS:
      func_meth
        IMPORTING
          i_param TYPE i
        RETURNING
          VALUE(r_res) TYPE char1.
ENDCLASS.

l_res = lcl_test=>func_meth( 1 ).

* you could also call it like this
l_res = lcl_test=>func_meth( i_param = 1 ).

* also this variant is possible
l_res = lcl_test=>func_meth( EXPORTING i_param = 1 ).

* the traditional CALL METHOD syntax would be like this
CALL METHOD lcl_test=>func_meth
  EXPORTING
    i_param = 1
  RECEIVING
    r_res = l_res.