-
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathzcl_oapi_json.clas.abap
91 lines (72 loc) · 1.94 KB
/
zcl_oapi_json.clas.abap
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
CLASS zcl_oapi_json DEFINITION PUBLIC.
PUBLIC SECTION.
METHODS constructor
IMPORTING
iv_json TYPE string.
METHODS value_boolean
IMPORTING
iv_path TYPE string
RETURNING
VALUE(rv_value) TYPE abap_bool.
METHODS value_integer
IMPORTING
iv_path TYPE string
RETURNING
VALUE(rv_value) TYPE i.
METHODS value_number
IMPORTING
iv_path TYPE string
RETURNING
VALUE(rv_value) TYPE i.
METHODS value_string
IMPORTING
iv_path TYPE string
RETURNING
VALUE(rv_value) TYPE string.
METHODS exists
IMPORTING
iv_path TYPE string
RETURNING
VALUE(rv_exists) TYPE abap_bool.
METHODS members
IMPORTING
iv_path TYPE string
RETURNING
VALUE(rt_members) TYPE string_table.
PROTECTED SECTION.
PRIVATE SECTION.
DATA mt_data TYPE ty_data_tt.
ENDCLASS.
CLASS zcl_oapi_json IMPLEMENTATION.
METHOD constructor.
DATA lo_parser TYPE REF TO lcl_parser.
CREATE OBJECT lo_parser.
mt_data = lo_parser->parse( iv_json ).
ENDMETHOD.
METHOD exists.
READ TABLE mt_data WITH KEY full_name = iv_path TRANSPORTING NO FIELDS.
rv_exists = boolc( sy-subrc = 0 ).
ENDMETHOD.
METHOD members.
DATA ls_data LIKE LINE OF mt_data.
LOOP AT mt_data INTO ls_data WHERE parent = iv_path.
APPEND ls_data-name TO rt_members.
ENDLOOP.
ENDMETHOD.
METHOD value_boolean.
rv_value = boolc( value_string( iv_path ) = 'true' ).
ENDMETHOD.
METHOD value_integer.
rv_value = value_string( iv_path ).
ENDMETHOD.
METHOD value_number.
rv_value = value_string( iv_path ).
ENDMETHOD.
METHOD value_string.
DATA ls_data LIKE LINE OF mt_data.
READ TABLE mt_data INTO ls_data WITH KEY full_name = iv_path.
IF sy-subrc = 0.
rv_value = ls_data-value.
ENDIF.
ENDMETHOD.
ENDCLASS.