-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathzcx_wd_ftp_error.clas.abap
68 lines (51 loc) · 1.42 KB
/
zcx_wd_ftp_error.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
class ZCX_WD_FTP_ERROR definition
public
inheriting from CX_STATIC_CHECK
create public .
public section.
interfaces IF_T100_MESSAGE .
data MS_SY type SYST .
methods CONSTRUCTOR
importing
!TEXTID like IF_T100_MESSAGE=>T100KEY optional
!PREVIOUS like PREVIOUS optional
!MS_SY type SYST optional .
methods IF_MESSAGE~GET_TEXT
redefinition .
methods IF_MESSAGE~GET_LONGTEXT
redefinition .
protected section.
methods UPDATE_T100KEY_FROM_SYST .
private section.
ENDCLASS.
CLASS ZCX_WD_FTP_ERROR IMPLEMENTATION.
method CONSTRUCTOR.
CALL METHOD SUPER->CONSTRUCTOR
EXPORTING
PREVIOUS = PREVIOUS
.
me->MS_SY = MS_SY .
clear me->textid.
if textid is initial.
IF_T100_MESSAGE~T100KEY = IF_T100_MESSAGE=>DEFAULT_TEXTID.
else.
IF_T100_MESSAGE~T100KEY = TEXTID.
endif.
endmethod.
METHOD if_message~get_longtext.
update_t100key_from_syst( ).
result = super->if_message~get_longtext( preserve_newlines ).
ENDMETHOD.
METHOD if_message~get_text.
update_t100key_from_syst( ).
result = super->if_message~get_text( ).
ENDMETHOD.
METHOD update_t100key_from_syst.
if_t100_message~t100key-msgid = ms_sy-msgid.
if_t100_message~t100key-msgno = ms_sy-msgno.
if_t100_message~t100key-attr1 = ms_sy-msgv1.
if_t100_message~t100key-attr2 = ms_sy-msgv2.
if_t100_message~t100key-attr3 = ms_sy-msgv3.
if_t100_message~t100key-attr4 = ms_sy-msgv4.
ENDMETHOD.
ENDCLASS.