‎2010 Jun 24 3:36 PM
183
184 SELECTION-SCREEN : BEGIN OF BLOCK blk WITH FRAME TITLE text-001.
185
186 PARAMETERS : p_ebeln LIKE ekko-ebeln.
187
188 SELECTION-SCREEN : END OF BLOCK blk .
189 *
190 START-OF-SELECTION.
191 PERFORM entry_neu USING space space.
192
193 END-OF-SELECTION.
194 *
195 PERFORM checkinput.
196 PERFORM headerdata.
197 PERFORM itemdata.
198 PERFORM process.
199 PERFORM EXPORTMEMORY.
200 PERFORM sform.
201 *
202 *endform.
203 *
204 *----
205 * FORM ENTRY
206 *----
207 FORM entry_neu USING return_code us_screen.
208 DATA: lf_retcode TYPE sy-subrc.
209 xscreen = us_screen.
210 PERFORM processing USING lf_retcode
211 us_screen.
212 IF lf_retcode NE 0.
===== return_code = 1.
214 ELSE.
215 return_code = 0.
216 ENDIF.
217 ENDFORM. "ENTRY_NEU
218 *
219 *****
220 FORM processing USING cf_retcode proc_screen.
221 DATA: lf_fm_name TYPE rs38l_fnam.
222 DATA: ls_control_param TYPE ssfctrlop.
223 DATA: ls_composer_param TYPE ssfcompop.
224 DATA: ls_recipient TYPE swotobjid.
225 DATA: ls_sender TYPE swotobjid.
226 DATA: ls_addr_key LIKE addr_key.
227 DATA: ls_job_info TYPE ssfcrescl.
228 *break-point.
229 PERFORM checkinput.
230 PERFORM clearvar.
231 PERFORM headerdata.
232 PERFORM itemdata.
Edited by: Rob Burbank on Jun 24, 2010 10:54 AM
‎2010 Jun 24 3:52 PM
return_code
Is this a import parameter or something ?
Mention how it is declared.
‎2010 Jun 24 3:56 PM
Moderator message - Please do not post your dump and expect the forum to figure out what you want - post locked Rob