1 FUNCTION zfm_pp_0004.
2 *"----------------------------------------------------------------------
3 *"*"本地接口：
4 *" IMPORTING
5 *" VALUE(IV_TEST) TYPE CHAR1 OPTIONAL
6 *" EXPORTING
7 *" VALUE(EV_MESSAGE) TYPE CHAR255
8 *" VALUE(EV_TYPE) TYPE CHAR1
9 *" TABLES
10 *" TI_INPUT STRUCTURE ZSPP_0004 OPTIONAL
11 *"----------------------------------------------------------------------
12
13 DATA:ls_in_crhd_api01 TYPE crhd_api01,
14 ls_in_crhd_api02 TYPE crhd_api02,
15 ls_in_crhd_api03 TYPE crhd_api03,
16 ls_in_crhd_api05 TYPE crhd_api05,
17 lt_in_crco_api01 TYPE TABLE OF crco_api01,
18 ls_in_crco_api01 TYPE crco_api01,
19 lt_in_kapa_api01 TYPE TABLE OF kapa_api01,
20 ls_in_kapa_api01 TYPE kapa_api01,
21 lt_in_crhd_api04 TYPE TABLE OF crhd_api04,
22 ls_in_crhd_api04 TYPE crhd_api04,
23 lt_in_kapa_api02 TYPE TABLE OF kapa_api02,
24 ls_in_kapa_api02 TYPE kapa_api02,
25 lt_return TYPE bapiret2_tab,
26 ls_return TYPE bapiret2.
27
28 CLEAR ls_in_crhd_api01 .
29 CLEAR ls_in_crhd_api02 .
30 CLEAR ls_in_crhd_api03 .
31 CLEAR ls_in_crhd_api05 .
32 REFRESH lt_in_crco_api01 .
33 REFRESH lt_in_kapa_api01 .
34 REFRESH lt_in_crhd_api04 .
35 REFRESH lt_in_kapa_api02 .
36
37 LOOP AT ti_input ASSIGNING FIELD-SYMBOL(<fs_data>) .
38
39 ls_in_crhd_api01-arbpl = <fs_data>-arbpl .
40 ls_in_crhd_api01-werks = <fs_data>-werks .
41 ls_in_crhd_api01-verwe = <fs_data>-verwe .
42 ls_in_crhd_api01-ktext = <fs_data>-ktext .
43
44 ls_in_crhd_api02-vgwts = <fs_data>-vgwts .
45 ls_in_crhd_api02-veran = <fs_data>-veran .
46 ls_in_crhd_api02-planv = '009' ."用途
47
48 ls_in_crhd_api03-steus = <fs_data>-steus .
49
50 ls_in_crhd_api05-fort1 = <fs_data>-fort1 .
51 ls_in_crhd_api05-fort2 = <fs_data>-fort2 .
52 ls_in_crhd_api05-fort3 = <fs_data>-fort3 .
53 ls_in_crhd_api05-kapart = <fs_data>-kapar .
54
55 CLEAR ls_in_crco_api01 .
56 ls_in_crco_api01-begda = <fs_data>-begda .
57 ls_in_crco_api01-endda = '99991231'."结束日期
58 ls_in_crco_api01-kostl = <fs_data>-kostl .
59 ls_in_crco_api01-lstar1 = <fs_data>-lstar1 .
60 ls_in_crco_api01-leinh1 = <fs_data>-leinh1 .
61 ls_in_crco_api01-forml1 = <fs_data>-forml1 .
62 ls_in_crco_api01-lstar2 = <fs_data>-lstar2 .
63 ls_in_crco_api01-leinh2 = <fs_data>-leinh2 .
64 ls_in_crco_api01-forml2 = <fs_data>-forml2 .
65 ls_in_crco_api01-lstar3 = <fs_data>-lstar3 .
66 ls_in_crco_api01-leinh3 = <fs_data>-leinh3 .
67 ls_in_crco_api01-forml3 = <fs_data>-forml3 .
68 ls_in_crco_api01-lstar4 = <fs_data>-lstar4 .
69 ls_in_crco_api01-leinh4 = <fs_data>-leinh4 .
70 ls_in_crco_api01-forml4 = <fs_data>-forml4 .
71 ls_in_crco_api01-lstar5 = <fs_data>-lstar5 .
72 ls_in_crco_api01-leinh5 = <fs_data>-leinh5 .
73 ls_in_crco_api01-forml5 = <fs_data>-forml5 .
74 ls_in_crco_api01-lstar6 = <fs_data>-lstar6 .
75 ls_in_crco_api01-leinh6 = <fs_data>-leinh6 .
76 ls_in_crco_api01-forml6 = <fs_data>-forml6 .
77 APPEND ls_in_crco_api01 TO lt_in_crco_api01 .
78
79 CLEAR ls_in_kapa_api01 .
80 ls_in_kapa_api01-kapart = <fs_data>-kapar .
81 ls_in_kapa_api01-ktext = <fs_data>-ktext .
82 ls_in_kapa_api01-werks = <fs_data>-werks .
83 APPEND ls_in_kapa_api01 TO lt_in_kapa_api01 .
84
85 CLEAR ls_in_crhd_api04 .
86 ls_in_crhd_api04-fork1 = <fs_data>-fork1 .
87 ls_in_crhd_api04-fork2 = <fs_data>-fork2 .
88 ls_in_crhd_api04-fork3 = <fs_data>-fork3 .
89 APPEND ls_in_crhd_api04 TO lt_in_crhd_api04 .
90
91 CLEAR ls_in_kapa_api02 .
92 ls_in_kapa_api02-planr = <fs_data>-planr .
93 ls_in_kapa_api02-kalid = <fs_data>-kalid .
94 ls_in_kapa_api02-versa = <fs_data>-versa .
95 ls_in_kapa_api02-kapeh = <fs_data>-kapeh .
96 ls_in_kapa_api02-begzt = <fs_data>-begzt+0(2) && <fs_data>-begzt+3(2) && <fs_data>-begzt+6(2) .
97 ls_in_kapa_api02-endzt = <fs_data>-endzt+0(2) && <fs_data>-endzt+3(2) && <fs_data>-endzt+6(2) .
98 ls_in_kapa_api02-pause = <fs_data>-pause+0(2) && <fs_data>-pause+3(2) && <fs_data>-pause+6(2) .
99 ls_in_kapa_api02-ngrad = <fs_data>-ngrad .
100 ls_in_kapa_api02-aznor = <fs_data>-aznor .
101 ls_in_kapa_api02-meins = <fs_data>-meins .
102 ls_in_kapa_api02-kapter = <fs_data>-kapter .
103 ls_in_kapa_api02-kaplpl = <fs_data>-kaplpl .
104 APPEND ls_in_kapa_api02 TO lt_in_kapa_api02 .
105
106 ENDLOOP .
107
108 CLEAR lt_return.
109
110 DATA: gv_extnum TYPE balhdr-extnumber,
111 lv_guid_22 TYPE sysuuid_22,
112 lv_comment TYPE crtx-ktext.
113 CLEAR gv_extnum .
114 CLEAR lv_guid_22 .
115 CLEAR lv_comment .
116 lv_guid_22 = cl_system_uuid=>if_system_uuid_static~create_uuid_c22( ).
117 gv_extnum = lv_guid_22.
118 TRANSLATE gv_extnum TO UPPER CASE.
119 lv_comment = gv_extnum.
120
121 CALL FUNCTION 'CRAP_WKC_CLR_APPL_LOG_EXTRNLID'.
122 CALL FUNCTION 'CRAP_WORKCENTER_CREATE'
123 EXPORTING
124 in_crhd_api01 = ls_in_crhd_api01
125 in_crhd_api02 = ls_in_crhd_api02
126 * IN_CRHD_API03 =
127 in_crhd_api05 = ls_in_crhd_api05
128 comment = lv_comment
129 test = ''
130 * IN_CRHD_API07 =
131 * IN_CRHD_API08 =
132 * IV_NO_COMMIT =
133 * IV_LANGU =
134 TABLES
135 in_kapa_api01 = lt_in_kapa_api01
136 in_kapa_api02 = lt_in_kapa_api02
137 in_crhd_api04 = lt_in_crhd_api04
138 in_crco_api01 = lt_in_crco_api01
139 * IN_KAZY_API01 =
140 * IN_KAPA_API04 =
141 * IN_CRHD_API09 =
142 * IN_KAKT_API01 =
143 * IN_KAPA_API05 =
144 .
145
146 DATA:lt_message TYPE TABLE OF balm,
147 ls_message TYPE balm,
148 lv_message TYPE string.
149
150 REFRESH lt_message .
151
152 CALL FUNCTION 'APPL_LOG_READ_DB'
153 EXPORTING
154 object = 'CRAP'
155 subobject = '*'
156 external_number = gv_extnum
157 * DATE_FROM = '00000000'
158 * DATE_TO = SY-DATUM
159 * TIME_FROM = '000000'
160 * TIME_TO = SY-UZEIT
161 * LOG_CLASS = '4'
162 * PROGRAM_NAME = '*'
163 * TRANSACTION_CODE = '*'
164 * USER_ID = ' '
165 * MODE = '+'
166 * PUT_INTO_MEMORY = ' '
167 * IMPORTING
168 * NUMBER_OF_LOGS =
169 TABLES
170 * HEADER_DATA =
171 * HEADER_PARAMETERS =
172 messages = lt_message
173 * MESSAGE_PARAMETERS =
174 * CONTEXTS =
175 * T_EXCEPTIONS =
176 .
177
178 IF line_exists( lt_message[ msgty = 'E' ] ) .
179
180 LOOP AT lt_message INTO ls_message WHERE msgty = 'E' .
181
182 CALL FUNCTION 'MESSAGE_TEXT_BUILD'
183 EXPORTING
184 msgid = ls_message-msgid
185 msgnr = ls_message-msgno
186 msgv1 = ls_message-msgv1
187 msgv2 = ls_message-msgv2
188 msgv3 = ls_message-msgv3
189 msgv4 = ls_message-msgv4
190 IMPORTING
191 message_text_output = lv_message.
192
193 ev_message = lv_message && ';' && ev_message .
194
195 ENDLOOP .
196
197 ev_type = 'E' .
198
199 ELSE .
200
201 ev_type = 'S' .
202
203 ENDIF .
204
205 ENDFUNCTION.
