SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-04-30 20:03:20 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Update zcl_abapgit_object_http.clas.abap

Browse Source
This commit is contained in:
ThomasPloski 2024-12-05 08:53:37 +01:00 committed by GitHub
parent 89f094d9f5
commit 01feefca6b
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
src/objects/zcl_abapgit_object_http.clas.abap
View File

@ -11,28 +11,28 @@ CLASS zcl_abapgit_object_http DEFINITION
PROTECTED SECTION. PROTECTED SECTION.
PRIVATE SECTION. PRIVATE SECTION.
TYPES: BEGIN OF s_uconservhttphandler, TYPES: BEGIN OF ty_uconservhttphandler,
id TYPE c LENGTH 30, id TYPE c LENGTH 30,
version TYPE c LENGTH 1, version TYPE c LENGTH 1,
serviceorder TYPE n LENGTH 2, serviceorder TYPE n LENGTH 2,
servicehandler TYPE c LENGTH 30, servicehandler TYPE c LENGTH 30,
END OF s_uconservhttphandler. END OF ty_uconservhttphandler.
TYPES: BEGIN OF s_uconhttpservtext, TYPES: BEGIN OF ty_uconhttpservtext,
id TYPE c LENGTH 30, id TYPE c LENGTH 30,
version TYPE c LENGTH 1, version TYPE c LENGTH 1,
lang TYPE lang, lang TYPE lang,
shorttext TYPE c LENGTH 255, shorttext TYPE c LENGTH 255,
END OF s_uconhttpservtext. END OF ty_uconhttpservtext.
TYPES: BEGIN OF s_handler, TYPES: BEGIN OF ty_handler,
id TYPE c LENGTH 30, id TYPE c LENGTH 30,
version TYPE c LENGTH 1, version TYPE c LENGTH 1,
serviceorder TYPE n LENGTH 2, serviceorder TYPE n LENGTH 2,
servicehandler TYPE c LENGTH 30, servicehandler TYPE c LENGTH 30,
END OF s_handler. END OF ty_handler.
TYPES: BEGIN OF s_ty_gs_object_version , TYPES: BEGIN OF ty_gs_object_version,
id TYPE c LENGTH 1, id TYPE c LENGTH 1,
object_state TYPE c LENGTH 1, object_state TYPE c LENGTH 1,
END OF s_ty_gs_object_version. END OF ty_gs_object_version.
ENDCLASS. ENDCLASS.
@ -71,16 +71,16 @@ CLASS ZCL_ABAPGIT_OBJECT_HTTP IMPLEMENTATION.
METHOD zif_abapgit_object~deserialize. METHOD zif_abapgit_object~deserialize.
TRY. TRY.
DATA: lv_http_servid TYPE c LENGTH 30. DATA: lv_http_servid TYPE c LENGTH 30.
DATA: lt_handler TYPE TABLE OF s_handler. DATA: lt_handler TYPE TABLE OF ty_handler.
DATA: ls_handler LIKE LINE OF lt_handler. DATA: lty_handler LIKE LINE OF lt_handler.
DATA: ls_description TYPE s_uconhttpservtext. DATA: ls_description TYPE ty_uconhttpservtext.
DATA: ls_korr TYPE trkorr. DATA: ls_korr TYPE trkorr.
DATA: lv_check_object_name TYPE c LENGTH 40. DATA: lv_check_object_name TYPE c LENGTH 40.
DATA: lx TYPE REF TO cx_root, DATA: lx TYPE REF TO cx_root,
lv_id TYPE c LENGTH 30, lv_id TYPE c LENGTH 30,
lo_http TYPE REF TO object, lo_http TYPE REF TO object,
lv_abap_lang TYPE s_ty_gs_object_version. lv_abap_lang TYPE ty_gs_object_version.
TRY. TRY.
io_xml->read( io_xml->read(
EXPORTING iv_name = 'HTTPID' EXPORTING iv_name = 'HTTPID'
@ -124,10 +124,10 @@ CLASS ZCL_ABAPGIT_OBJECT_HTTP IMPLEMENTATION.
EXPORTING EXPORTING
handler = lt_handler. handler = lt_handler.
IF lt_handler IS NOT INITIAL. IF lt_handler IS NOT INITIAL.
READ TABLE lt_handler INTO ls_handler INDEX 1. READ TABLE lt_handler INTO lty_handler INDEX 1.
"get language version from abap class "get language version from abap class
lv_check_object_name = ls_handler-servicehandler. lv_check_object_name = lty_handler-servicehandler.
IF lv_check_object_name IS NOT INITIAL. IF lv_check_object_name IS NOT INITIAL.
TRY. TRY.
DATA lv_instance TYPE REF TO object. DATA lv_instance TYPE REF TO object.
@ -222,8 +222,8 @@ CLASS ZCL_ABAPGIT_OBJECT_HTTP IMPLEMENTATION.
DATA: lv_http_srv_id TYPE c LENGTH 30, DATA: lv_http_srv_id TYPE c LENGTH 30,
lo_serv TYPE REF TO object, "if_ucon_api_http_service lo_serv TYPE REF TO object, "if_ucon_api_http_service
lt_handler TYPE TABLE OF s_uconservhttphandler, lt_handler TYPE TABLE OF ty_uconservhttphandler,
ls_description TYPE s_uconhttpservtext, ls_description TYPE ty_uconhttpservtext,
lv_text TYPE string, lv_text TYPE string,
lx TYPE REF TO cx_root. lx TYPE REF TO cx_root.
TRY. TRY.