-
Notifications
You must be signed in to change notification settings - Fork 1
/
zcl_file.clas.abap
65 lines (52 loc) · 1.76 KB
/
zcl_file.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
CLASS zcl_file DEFINITION
PUBLIC
FINAL
CREATE PRIVATE .
PUBLIC SECTION.
CLASS-METHODS create IMPORTING i_location TYPE ze_file_location
i_full_path TYPE string
RETURNING VALUE(r_return) TYPE REF TO zif_file.
CLASS-METHODS get_location IMPORTING i_loc_sapgui TYPE abap_bool OPTIONAL
i_loc_appserver TYPE abap_bool OPTIONAL
RETURNING VALUE(r_return) TYPE ze_file_location.
CLASS-METHODS value_help IMPORTING i_loc_sapgui TYPE abap_bool OPTIONAL
i_loc_appserver TYPE abap_bool OPTIONAL
RETURNING VALUE(r_return) TYPE string.
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_file IMPLEMENTATION.
METHOD create.
CASE i_location.
WHEN zif_file=>mc_loc_sapgui.
CREATE OBJECT r_return TYPE zcl_file_sapgui.
WHEN zif_file=>mc_loc_appserver.
CREATE OBJECT r_return TYPE zcl_file_appserver.
WHEN OTHERS.
"TODO RAISE Exception
EXIT.
ENDCASE.
IF i_full_path IS NOT INITIAL.
r_return->set_full_path( i_full_path ).
ENDIF.
ENDMETHOD.
METHOD get_location.
CASE abap_true.
WHEN i_loc_sapgui.
r_return = zif_file=>mc_loc_sapgui.
WHEN i_loc_appserver.
r_return = zif_file=>mc_loc_appserver.
WHEN OTHERS.
r_return = abap_false.
ENDCASE.
ENDMETHOD.
METHOD value_help.
CASE abap_true.
WHEN i_loc_sapgui.
r_return = zcl_file_sapgui=>value_help_for_sapgui( ).
WHEN i_loc_appserver.
r_return = zcl_file_appserver=>value_help_for_appserver( ).
WHEN OTHERS.
"TODO Exception
ENDCASE.
ENDMETHOD.
ENDCLASS.