Submit program in background job

Hi all.
Somehow I'm not able of using the following source code within a program executed within a scheduled job:
SUBMIT RFEBKA00 USING SELECTION-SET 'VAR1'.
The above program is the transaction FF_5.
Does any one

try to code in the below mentioned ...
use BATCH = 'X' option.
submit rfebka00 USING SELECTION-SET 'VAR1'
with batch = 'X' AND RETURN

Similar Messages

Handle submit program for background jobs in RFC FM to send email in ITS

Hi all
I am facing a problem in ITS, i.e. I have called a RFC Function Module on the page load event of one of the HTML template. In that FM I have used submit program. This RFC FM is working fine in background i.e. it is sending pdf as email to a particular email address
but in the frontend it is not responding.
I wanted to ask whether we can handle submit <program-name> in background job from ITS
If you are unable to understand the problem i can share with you my code as well.
Thanks
Ekta Tuli

Hi Tobias
The Function Module ZV_FUNC_CCK_EMAIL_PDF is used to generate the email with pdf as attachement. it is generating email at backend but not in frontend.
thanks
ekta
please find the code below for the FM
FUNCTION zv_func_cck_email_pdf.
*"*"Local interface:
*" IMPORTING
*" VALUE(CONTRACT) LIKE VBAP-VBELN
*" VALUE(EMAIL) LIKE ADR6-SMTP_ADDR
*" EXPORTING
*" VALUE(RETURN) TYPE CHAR4
data: i_vbak like vbak .
DATA: v_cont(10) TYPE c.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
 EXPORTING
 input = contract
 IMPORTING
 output = v_cont.
DATA: z_element(30) TYPE c.
DATA: gv_fb_addr_get_selection LIKE addr1_sel.
DATA: BEGIN OF mtab_contract OCCURS 0, "sap field
 ordno(10), "vbeln (10)
 terr(6),
 vkorg LIKE vbak-vkorg,
 vkgrp LIKE knvv-vkgrp,
 repname(35),
 repmailbox(10),
 gueen(10), "expires dated -same as valid to
 kunnr(10),
 name1(35), "name1(35)
 stras(35), "stras(35)
 pstlz(10), "pstlz(10)
 ort01(35), "ort01(35) city
 regio(3), "regio(3)
 kunnr2(10),
 name2(35), "NUM?(35)
 stras2(35), "stras(35)
 pstlz2(10), "pstlz(10)
 ort012(35), "ort01(35) city
 regio2(3), "regio(3)
 kit1 LIKE vbap-matnr, " currently 41315
 kit1-qty(6), " like vbap-zmeng,
 kit2 LIKE vbap-matnr, " currently 41316
 kit2-qty(6), " like vbap-zmeng,
 kit3 LIKE vbap-matnr, " currently 41317
 kit3-qty(6), " like vbap-zmeng,
 kit4 LIKE vbap-matnr, " currently 91869US
 kit4-qty(6), " like vbap-zmeng,
 med1 LIKE vbap-matnr, " currently 7408cp
 med1-qty(6), " like vbap-zmeng,
 med2 LIKE vbap-matnr, " currently 0211CP
 med2-qty(6), " like vbap-zmeng,
 med3 LIKE vbap-matnr, " currently 0578CP
 med3-qty(6), " like vbap-zmeng,
 med4 LIKE vbap-matnr, " currently 0068CP
 med4-qty(6), " like vbap-zmeng,
 med5 LIKE vbap-matnr, " currently 0069CP
 med5-qty(6), " like vbap-zmeng,
 med6 LIKE vbap-matnr, " currently other
 dis6 LIKE makt-maktx, " currently other
 med6-qty(6), " like vbap-zmeng,
 med7 LIKE vbap-matnr, " currently other
 dis7 LIKE makt-maktx, " currently other
 med7-qty(6), " like vbap-zmeng,
 med8 LIKE vbap-matnr, " currently other
 dis8 LIKE makt-maktx, " currently other
 med8-qty(6), " like vbap-zmeng,
 med9 LIKE vbap-matnr, " currently other
 dis9 LIKE makt-maktx, " currently other
 med9-qty(6), " like vbap-zmeng,
 med10 LIKE vbap-matnr, " currently other
 dis10 LIKE makt-maktx, " currently other
 med10-qty(6), " like vbap-zmeng,
END OF mtab_contract.
DATA: BEGIN OF mtab_material OCCURS 0,
 ordno(10),
 matnr LIKE vbap-matnr,
 qty LIKE vbap-zmeng,
 END OF mtab_material.
DATA: w-mm(4) VALUE ' MM '.
*SELECT-OPTIONS: s_vkorg FOR vbak-vkorg,
* s_vkgrp FOR knvv-vkgrp, "Sales Group
* s_terr FOR knvp-kunn2. "Territory Code
*PARAMETERS: p_parvw LIKE vbpa-parvw MEMORY ID par OBLIGATORY, "Partner ID
** DEFAULT 'Z1'.
* p_vbeln LIKE vbak-vbeln MEMORY ID aun,
* p_email LIKE adr6-smtp_addr MEMORY ID email. "Sales Document #
*SELECT-OPTIONS: "s_vbeln FOR vbak-vbeln MEMORY ID aun, "Sales Document #
* s_guebg FOR vbak-guebg, "Valid-From Date
* s_gueen FOR vbak-gueen, "Valid-To Date
* s_ship FOR vbpa-kunnr, "Ship-to customer
* s_bstzd FOR vbak-bstzd MEMORY ID bst ."DEFAULT 'CCK'. "P.O. # Supplement
DATA: i_otf TYPE STANDARD TABLE OF itcoo,
 i_content_txt TYPE table of solisti1, "Content
 i_content_bin TYPE solix_tab, "Content
 i_content_bin1 TYPE solix_tab, "Content
 i_objhead TYPE soli_tab,
 w_pdf TYPE solisti1, "For PDF
 w_res TYPE itcpp, "SAPscript output
 w_otf TYPE itcoo, "For OTF
 w_transfer_bin TYPE sx_boolean, "Content
 prog(60).
data : t_obj_bin type standard table of solisti1.
DATA: w_arc_params LIKE arc_params,
 w_pri_params LIKE pri_params.
*DATA: lcl_cls TYPE REF TO cl_gui_frontend_services.
CONSTANTS : c_x TYPE c VALUE 'X', "X
 c_locl(4) TYPE c VALUE 'LOCL', "Local Printer
 c_otf TYPE sx_format VALUE 'OTF', "OTF
 c_pdf TYPE sx_format VALUE 'PDF', "PDF
 c_printer TYPE sx_devtype VALUE 'PRINTER', "PRINTER
 c_bin TYPE char10 VALUE 'BIN'. "BIN
DATA: v_name TYPE string ."Downloading File Name
DATA: v_len_in TYPE so_obj_len,
 v_tempdir(50) TYPE c,
 v_size TYPE i.
DATA : x_pdf_bag_tline TYPE rcl_bag_tline,
 v_pdf_fsize TYPE i,
 objpack LIKE sopcklsti1 OCCURS 2 WITH HEADER LINE,
 objhead LIKE solisti1 OCCURS 1 WITH HEADER LINE,
 objbin LIKE solisti1 OCCURS 10 WITH HEADER LINE,
 objtxt LIKE solisti1 OCCURS 10 WITH HEADER LINE,
 reclist LIKE somlreci1 OCCURS 5 WITH HEADER LINE,
 doc_chng LIKE sodocchgi1,
 tab_lines LIKE sy-tabix.
DATA : v_pnum LIKE usr21-persnumber,
 v_anum LIKE usr21-addrnumber,
 smtp_addr LIKE adr6-smtp_addr.
DATA: v_path TYPE string,
 v_code TYPE i.
DATA : wa_obj_txt TYPE solisti1.
DATA : t_obj_txt TYPE STANDARD TABLE OF solisti1.
DATA : t_rec_list TYPE STANDARD TABLE OF somlreci1.
DATA : t_obj_pack TYPE STANDARD TABLE OF sopcklsti1.
DATA : wa_document_data TYPE sodocchgi1. "Mail data
DATA : wa_rec_list TYPE somlreci1.
DATA: reciever TYPE sadrud. "Email address of the receiver
DATA : wa_obj_pack TYPE sopcklsti1.
DATA: v_lines(10) TYPE n.
DATA: binfilesize TYPE i.
DATA : wa_obj_header TYPE solisti1.
DATA : t_obj_header TYPE STANDARD TABLE OF solisti1.
DATA : obj_id TYPE sofolenti1-object_id. "To send a file as attatchment
data: pdftab type table of tline with header line.
data : flag_sent_to_all type sonv-flag.
*START-OF-SELECTION.
* IF lcl_cls IS INITIAL.
* CREATE OBJECT lcl_cls.
* ENDIF.
CLEAR i_vbak.
SELECT * FROM vbak into i_vbak
 WHERE
* guebg IN s_guebg AND "Valid-From Date
* gueen IN s_gueen AND "Valid-To Date
* vkorg IN s_vkorg AND
 vbeln = v_cont AND
* AUART = 'LP ' AND "Converts to 'CO ' Scheduling A
 auart = 'KM ' AND "Converts to 'CQ ' Qty contract
* VBTYP = 'E' AND "sales doc cat? JM
 vbtyp = 'G' ."AND "sales doc cat "JM
* bstzd IN s_bstzd.
 mtab_contract-kunnr = i_vbak-kunnr.
 mtab_contract-ordno = i_vbak-vbeln.
 mtab_contract-vkorg = i_vbak-vkorg.
 WRITE i_vbak-gueen TO mtab_contract-gueen. "CHG014419
 APPEND mtab_contract.
ENDSELECT.
LOOP AT mtab_contract.
* PERFORM get_contract. "CO sales orders line items
******Get Contract*********
* SELECT SINGLE kunnr "partner
* INTO vbpa-kunnr
* FROM vbpa
* WHERE vbeln EQ mtab_contract-ordno
* AND posnr EQ '000000'
* AND parvw EQ 'WE' "Ship-To's
* AND kunnr IN s_ship. "Ship-To ID added 04/01/99
* IF sy-subrc EQ 0 .
* MOVE vbpa-kunnr TO mtab_contract-kunnr2.
* MODIFY mtab_contract.
* ELSE.
* EXIT.
* ENDIF.
CLEAR knvp.
SELECT SINGLE kunn2 "territory
 INTO knvp-kunn2
 FROM knvp
 WHERE kunnr EQ mtab_contract-kunnr2
 AND vkorg EQ mtab_contract-vkorg
 AND parvw EQ 'Z6'.
* AND kunn2 IN s_terr .
IF sy-subrc EQ 0 .
 MOVE knvp-kunn2 TO mtab_contract-terr.
 MODIFY mtab_contract.
ELSE.
 EXIT.
ENDIF.
CLEAR kna1. "get rep name and mail box
SELECT SINGLE name2 FROM kna1 INTO (kna1-name2)
 WHERE kunnr = knvp-kunn2.
IF sy-subrc EQ 0 .
 SPLIT kna1-name2 AT w-mm INTO mtab_contract-repname
 mtab_contract-repmailbox.
 mtab_contract-repmailbox+3 = mtab_contract-repmailbox.
 mtab_contract-repmailbox(3) = 'MM'.
 MODIFY mtab_contract.
ENDIF.
CLEAR knvv.
SELECT SINGLE vkgrp
 INTO knvv-vkgrp
 FROM knvv
 WHERE kunnr EQ knvp-kunn2
 AND vkorg EQ mtab_contract-vkorg.
* AND vkgrp IN s_vkgrp.
IF sy-subrc EQ 0 .
 MOVE knvv-vkgrp TO mtab_contract-vkgrp.
 MODIFY mtab_contract.
ELSE.
 EXIT.
ENDIF.
mtab_contract-med1-qty = '_______'.
mtab_contract-med2-qty = '_______'.
mtab_contract-med3-qty = '_______'.
mtab_contract-med4-qty = '_______'.
mtab_contract-med5-qty = '_______'.
mtab_contract-med6-qty = '_______'.
mtab_contract-med7-qty = '_______'.
mtab_contract-med8-qty = '_______'.
mtab_contract-med9-qty = '_______'.
mtab_contract-med10-qty = '_______'. "JM
mtab_contract-kit1-qty = '____'.
mtab_contract-kit2-qty = '____'.
mtab_contract-kit3-qty = '____'.
mtab_contract-kit4-qty = '____'.
mtab_contract-dis6 = 'OTHER _____________________'. "JM
mtab_contract-dis7 = 'OTHER _____________________'. "JM
mtab_contract-dis8 = 'OTHER _____________________'. "JM
mtab_contract-dis9 = 'OTHER _____________________'. "JM
mtab_contract-dis10 = 'OTHER _____________________'. "JM
* SELECT * FROM VBAP WHERE VBELN = MTAB_CONTRACT-ORDNO.
* IF VBAP-MATNR = '7408CP'.
* MTAB_CONTRACT-MED1 = VBAP-MATNR.
* ELSEIF VBAP-MATNR = '0211CP'.
* MTAB_CONTRACT-MED2 = VBAP-MATNR.
* ELSEIF VBAP-MATNR = '91865US'.
* MTAB_CONTRACT-MED3 = VBAP-MATNR.
* ELSEIF VBAP-MATNR = '0578CP'.
* MTAB_CONTRACT-MED4 = VBAP-MATNR.
* ELSEIF VBAP-MATNR = '0068CP'.
* MTAB_CONTRACT-MED5 = VBAP-MATNR.
* ELSEIF VBAP-MATNR = '0069CP'.
* MTAB_CONTRACT-MED6 = VBAP-MATNR.
* ELSEIF VBAP-MATNR = '92055CP'. "JM
* MTAB_CONTRACT-MED7 = VBAP-MATNR. "JM
* ELSEIF VBAP-MATNR = '90799CP'. "JM
* MTAB_CONTRACT-MED8 = VBAP-MATNR. "JM
* ELSEIF VBAP-MATNR = '41315'.
* MTAB_CONTRACT-KIT1 = VBAP-MATNR.
* ELSEIF VBAP-MATNR = '41316'.
* MTAB_CONTRACT-KIT2 = VBAP-MATNR.
* ELSEIF VBAP-MATNR = '41317'.
* MTAB_CONTRACT-KIT3 = VBAP-MATNR.
* ELSEIF VBAP-MATNR = '91869US'.
* MTAB_CONTRACT-KIT4 = VBAP-MATNR.
* ELSE.
* SELECT SINGLE MAKTX INTO MAKT-MAKTX
* FROM MAKT WHERE MATNR = VBAP-MATNR.
* ENDIF.
* MODIFY MTAB_CONTRACT.
* ENDSELECT.
MODIFY mtab_contract.
* IF.
** mtab_contract-terr IN s_terr AND
** mtab_contract-kunnr2 IN s_ship AND
** mtab_contract-vkgrp IN s_vkgrp.
** PERFORM get_address.
* ELSE.
* DELETE mtab_contract INDEX sy-tabix.
* ENDIF.
ENDLOOP.
SORT mtab_contract BY terr.
* PERFORM set_print_option.
* Print defaults should be immed and delete after print...
itcpo-tdimmed = ' '.
itcpo-tddelete = 'X'.
itcpo-tdnewid = 'X'.
itcpo-tdcopies = 1.
itcpo-tdnoprev = 'X'.
itcpo-tdgetotf = 'X'.
itcpo-tddest = 'LOCL'.
CALL FUNCTION 'GET_PRINT_PARAMETERS'
 EXPORTING
 destination = 'LOCL'
 no_dialog = 'X'
 IMPORTING
 out_archive_parameters = w_arc_params
 out_parameters = w_pri_params.
*exit if cancel chosen*
IF sy-subrc NE 0.
 EXIT.
ENDIF.
sadr-regio = 'CA'.
sadr-pstlz = '92620'.
LOOP AT mtab_contract.
* PERFORM check-for-values.
IF mtab_contract-ordno = space.
 mtab_contract-ordno = '___________'.
ENDIF.
IF mtab_contract-terr = space.
 mtab_contract-terr = '______'.
ENDIF.
IF mtab_contract-repname = space.
 mtab_contract-repname = '___________________________________'.
ENDIF.
IF mtab_contract-repmailbox = space.
 mtab_contract-repmailbox = '__________'.
ENDIF.
IF mtab_contract-kunnr = space.
 mtab_contract-kunnr = '__________'.
ENDIF.
IF mtab_contract-name1 = space.
 mtab_contract-name1 = '___________________________________'.
ENDIF.
IF mtab_contract-stras = space.
 mtab_contract-stras = '___________________________________'.
ENDIF.
IF mtab_contract-pstlz = space.
 mtab_contract-pstlz = '__________'.
ENDIF.
IF mtab_contract-ort01 = space.
 mtab_contract-ort01 = '___________________________________'.
ENDIF.
IF mtab_contract-regio = space.
 mtab_contract-regio = '___'.
ENDIF.
IF mtab_contract-kunnr2 = space.
 mtab_contract-kunnr2 = '__________'.
ENDIF.
IF mtab_contract-name2 = space.
 mtab_contract-name2 = '___________________________________'.
ENDIF.
IF mtab_contract-stras2 = space.
 mtab_contract-stras2 = '___________________________________'.
ENDIF.
IF mtab_contract-pstlz2 = space.
 mtab_contract-pstlz2 = '__________'.
ENDIF.
IF mtab_contract-ort012 = space.
 mtab_contract-ort012 = '___________________________________'.
ENDIF.
IF mtab_contract-regio2 = space.
 mtab_contract-regio2 = '___'.
ENDIF.
* PERFORM open_form.
CALL FUNCTION 'OPEN_FORM'
 EXPORTING
 dialog = ' '
 form = 'ZREV_CCK_AGREMT'
 language = sy-langu
 OPTIONS = itcpo
 EXCEPTIONS
 canceled = 1
 device = 2
 form = 3
 OPTIONS = 4
 unclosed = 5
 OTHERS = 6.
IF sy-subrc <> 0.
 MESSAGE e000(zz) WITH 'Open Form Error. ' sy-subrc.
ENDIF.
 z_element = 'MAIN'.
* PERFORM write_form.
CALL FUNCTION 'WRITE_FORM'
 EXPORTING
 element = z_element
 EXCEPTIONS
 element = 1
 function = 2
 type = 3
 unopened = 4
 unstarted = 5
 window = 6
 OTHERS = 7.
* PERFORM close_form.
CALL FUNCTION 'CLOSE_FORM'
 IMPORTING
 RESULT = w_res
 TABLES
 otfdata = i_otf
 EXCEPTIONS
 unopened = 1
 OTHERS = 2.
IF sy-subrc <> 0.
 MESSAGE e000(zz) WITH 'Close Form Error. ' sy-subrc.
ENDIF.
*&---Convert OTF data to PDF data.
call function 'CONVERT_OTF'
 exporting
 format = 'PDF'
 importing
 bin_filesize = binfilesize
 tables
 otf = i_otf
 lines = pdftab[].
data : name LIKE RLGRAP-FILENAME.
CONCATENATE 'C:Temp' mtab_contract-ordno '.pdf' INTO v_name.
*CALL FUNCTION 'DOWNLOAD'
* EXPORTING
* bin_filesize = v_size
* filename = name
* filetype = 'BIN'
* TABLES
* data_tab = pdftab[].
 CALL FUNCTION 'GUI_DOWNLOAD'
 EXPORTING
* BIN_FILESIZE =
 filename = v_name
 FILETYPE = 'BIN'
 tables
 data_tab = pdftab[].
* Downloading the PDF File
* CALL METHOD lcl_cls->gui_download
* EXPORTING
* bin_filesize = v_size
* filename = v_name
* filetype = c_bin
* CHANGING
* data_tab = pdftab[].
CALL METHOD cl_gui_cfw=>flush.
**Send PDF as Email.
* wa_obj_txt-line = 'CCK Contract Agreement'.
APPEND wa_obj_txt TO t_obj_txt.
CLEAR wa_obj_txt.
wa_obj_txt-line = 'Please find attatched PDF document for Contract'.
APPEND wa_obj_txt TO t_obj_txt.
CLEAR wa_obj_txt.
DESCRIBE TABLE t_obj_txt LINES tab_lines.
**Prepare document data
wa_document_data-obj_name = 'CCK Contract Agreement'.
wa_document_data-obj_descr = 'CCK Contract Agreement'.
wa_document_data-obj_langu = sy-langu.
wa_document_data-proc_type = 'R'.
wa_document_data-proc_name = 'CCK'.
wa_document_data-priority = c_x.
wa_document_data-obj_prio = c_x.
**Receiving list
wa_rec_list-receiver = sy-uname.
wa_rec_list-rec_type = 'B'.
wa_rec_list-com_type = 'INT'.
wa_rec_list-notif_del = c_x.
APPEND wa_rec_list TO t_rec_list.
CLEAR wa_rec_list.
wa_rec_list-receiver = '[email protected]'."p_email.
reciever = wa_rec_list-receiver.
wa_rec_list-rec_type = 'U'.
wa_rec_list-com_type = 'INT'.
wa_rec_list-notif_del = c_x.
APPEND wa_rec_list TO t_rec_list.
CLEAR wa_rec_list.
*Object packet
CALL FUNCTION 'SX_TABLE_LINE_WIDTH_CHANGE'
 EXPORTING
 line_width_src = 134
 line_width_dst = 255
 TABLES
 content_in = pdftab[]
 content_out = t_obj_bin
 EXCEPTIONS
 err_line_width_src_too_long = 1
 err_line_width_dst_too_long = 2
 err_conv_failed = 3
 OTHERS = 4
IF sy-subrc <> 0.
ENDIF.
DESCRIBE TABLE t_obj_bin LINES v_lines.
CLEAR wa_obj_pack-transf_bin .
wa_obj_pack-head_start = 1.
wa_obj_pack-head_num = 0.
wa_obj_pack-body_start = 1.
wa_obj_pack-body_num = tab_lines.
wa_obj_pack-doc_type = 'RAW'.
wa_obj_pack-doc_size = tab_lines * 255.
APPEND wa_obj_pack TO t_obj_pack.
CLEAR wa_obj_pack.
wa_obj_pack-transf_bin = 'X'.
wa_obj_pack-head_start = 1.
wa_obj_pack-head_num = 0.
wa_obj_pack-body_start = 1.
wa_obj_pack-body_num = v_lines.
wa_obj_pack-doc_type = 'PDF'.
wa_obj_pack-obj_name = 'ATTATCHMENT'.
wa_obj_pack-obj_descr = mtab_contract-ordno.
wa_obj_pack-doc_size = binfilesize.
APPEND wa_obj_pack TO t_obj_pack .
CLEAR wa_obj_pack.
**Object header
wa_obj_header-line = 'PDF'.
APPEND wa_obj_header TO t_obj_header.
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
 EXPORTING
 document_data = wa_document_data
 put_in_outbox = c_x
 commit_work = c_x
 IMPORTING
 sent_to_all = flag_sent_to_all
 new_object_id = obj_id
 TABLES
 packing_list = t_obj_pack
 object_header = t_obj_header
 contents_bin = t_obj_bin
 contents_txt = t_obj_txt
 receivers = t_rec_list
 EXCEPTIONS
 too_many_receivers = 1
 document_not_sent = 2
 document_type_not_exist = 3
 operation_no_authorization = 4
 parameter_error = 5
 x_error = 6
 enqueue_error = 7
 OTHERS = 8.
IF sy-subrc <> 0.
else.
return = 'true'.
ENDIF.
ENDFUNCTION.
 Flow Editor
<flow>
 <state name="Start">
 <module name="ZV_FUNC_CCK_EMAIL_PDF" type="RFC" stateful="1">
 <inputmapping source="Contract" target="CONTRACT"/>
 <inputmapping source="email" target="EMAIL"/>
 </module>
 <module name="ZV_FUNC_CCK_VALIDATE_SHIPTO" type="RFC" stateful="1">
 <inputmapping source="SHIP_TO" target="KUNNR"/>
 <inputmapping source="USERNAME" target="USER"/>
 <outputmapping source="CITY" target="CITY"/>
 <outputmapping source="NAME" target="NAME"/>
 <outputmapping source="POSTAL" target="POSTAL"/>
 <outputmapping source="REGION" target="REGION"/>
 <outputmapping source="RETURN" target="RETURN"/>
 <outputmapping source="SD_CITY" target="SD_CITY"/>
 <outputmapping source="SD_NAME" target="SD_NAME"/>
 <outputmapping source="SD_POSTAL" target="SD_POSTAL"/>
 <outputmapping source="SD_REGION" target="SD_REGION"/>
 <outputmapping source="SD_STREET" target="SD_STREET"/>
 <outputmapping source="SOLDTO" target="SOLDTO"/>
 <outputmapping source="STREET" target="STREET"/>
 </module>
 </state>
 <event name="onLoad" next_state="Start"/>
 <event name="Check2" next_template="ZV_CCO_CONFIRMED_ORDER"/>
</flow>

Failed to Run OLE Excel program in background JOB (SM36)

Please help.
I have write a program to use OLE to create a Excel file.
The program can run successful in front end workstation. However, when I run the program in background job by SM36.
The statement "CREATE OBJECT EXCEL 'EXCEL.APPLICATION'" return with error "SY-SUBRC = 2".
How can I solve it ?
Can OLE Excel be run on background job ?
Thanks so much,
Mark

Hi Mark:
Your need is a very common one. I also was asked to generate an Excel in Background.
It is not possible to work with OLE in background mode.
The reason is: In background mode there is no presentation server. OLE is executed in presentation server.
Below I paste the code I wrote to solve my problem.
This class sends a mail with an excel attached. The Excel content will be the internal table you pass to the class. But the Excel is not binary, it is a plain text file, separated by tabulators. Anyway, when you open it with Excel, the columns are properly shown.
Sorry. Comments are in spanish, I don't have time to translate it.
I kindly ask to everybody which want to use it to keep my name in the code.
* Autor: Jordi Escoda, 30/10/2008.
* Descripción: Esta clase genera un correo electrónico destinado a
* una persona, adjuntando el contenido de una tabla interna como
* Excel (campos separados por tabuladores).
* La virtud de esta clase es su sencillez de utilización. Para lanzar
* el mail con el excel adjunto basta con declarar la tabla interna,
* llenarla, colocar el asunto del mensaje, el destinatario, el nombre
* del excel adjunto, y pasar la tabla interna.
* Ejemplo de utilización:
* DATA: lc_mail TYPE REF TO cl_mail_builder_xls_attach.
* DATA: lt_anla TYPE STANDARD TABLE OF anla.
* SELECT * INTO TABLE lt_anla FROM anla.
* CREATE OBJECT lc_mail.
* CALL METHOD lc_mail->set_subject( 'Excel adjunto' ).
* CALL METHOD lc_mail->set_recipient( 'XXX@XXXDOTCOM' ).
* CALL METHOD lc_mail->set_attach_filename( 'ANLA' ).
* APPEND 'Cuerpo del mensaje' TO lt_body.
* APPEND 'Saludos cordiales' TO lt_body.
* CALL METHOD lc_mail->set_bodytext( lt_body ).
* CALL METHOD lc_mail->set_attach_table( lt_anla ).
* CALL METHOD lc_mail->send( ).
* CLASS cl_mail_builder_xls_attach DEFINITION
CLASS cl_mail_builder_xls_attach DEFINITION.
PUBLIC SECTION.
 METHODS: set_subject
 IMPORTING im_subject TYPE so_obj_des,
 set_bodytext
 IMPORTING im_body TYPE bcsy_text,
 set_recipient
 IMPORTING im_recipient TYPE ad_smtpadr,
 set_attach_table
 IMPORTING im_table TYPE ANY TABLE,
 set_attach_filename
 IMPORTING im_attach_name TYPE sood-objdes,
 send.
PRIVATE SECTION.
 CONSTANTS:
 c_tab TYPE c VALUE cl_bcs_convert=>gc_tab,
 c_crlf TYPE c VALUE cl_bcs_convert=>gc_crlf,
 c_singlequote TYPE c VALUE '.
 DATA: l_recipient_addr TYPE ad_smtpadr.
 DATA: send_request TYPE REF TO cl_bcs,
 document TYPE REF TO cl_document_bcs,
 recipient TYPE REF TO if_recipient_bcs,
 bcs_exception TYPE REF TO cx_bcs.
 DATA: binary_content TYPE solix_tab,
 size TYPE so_obj_len.
 DATA: l_string TYPE string,
 l_body_text TYPE bcsy_text,
 l_subject TYPE so_obj_des,
 l_attach_name TYPE sood-objdes.
 METHODS: create_binary_content,
 get_dataelement_medium_text
 IMPORTING im_table_name TYPE tabname
 im_field_name TYPE fieldname
 EXPORTING ex_medium_text TYPE scrtext_m.
ENDCLASS. "cl_mail_builder_xls_attach DEFINITION
* CLASS cl_mail_builder_xls_attach IMPLEMENTATION
CLASS cl_mail_builder_xls_attach IMPLEMENTATION.
METHOD set_bodytext.
 l_body_text[] = im_body[].
ENDMETHOD. "add_bodytext
METHOD set_subject.
 l_subject = im_subject.
ENDMETHOD. "add_subject
METHOD set_attach_filename.
 l_attach_name = im_attach_name.
ENDMETHOD. "add_subject
METHOD set_recipient.
 l_recipient_addr = im_recipient.
ENDMETHOD. "add_subject
METHOD set_attach_table.
* Rellena en un string el contenido de la tabla interna recibida
 DATA: ref_to_struct TYPE REF TO cl_abap_structdescr.
 DATA: my_like TYPE fieldname,
 nombretabla TYPE tabname,
 nombrecampo TYPE fieldname,
 texto_mediano TYPE scrtext_m.
 DATA: l_idx TYPE i,
 l_valorcampo(16) TYPE c,
 l_long TYPE i.
 FIELD-SYMBOLS: <fs_linea> TYPE ANY,
 <fs_campo> TYPE ANY.
 FIELD-SYMBOLS: <comp_descr> TYPE abap_compdescr.
 CHECK NOT im_table[] IS INITIAL.
* Línea con los nombres de las columnas.
 CLEAR l_string.
 LOOP AT im_table ASSIGNING <fs_linea>.
* Toma los atributos del componente
 ref_to_struct =
 cl_abap_structdescr=>describe_by_data( <fs_linea> ).
 LOOP AT ref_to_struct->components ASSIGNING <comp_descr>.
 ASSIGN COMPONENT <comp_descr>-name
 OF STRUCTURE <fs_linea> TO <fs_campo>.
* Obtenemos el origen de donde proviene (like). Ej:BKPF-BUDAT
 DESCRIBE FIELD <fs_campo> HELP-ID my_like.
 SPLIT my_like AT '-' INTO nombretabla nombrecampo.
 CALL METHOD get_dataelement_medium_text
 EXPORTING
 im_table_name = nombretabla
 im_field_name = nombrecampo
 IMPORTING
 ex_medium_text = texto_mediano.
 IF texto_mediano IS INITIAL.
 CONCATENATE l_string <comp_descr>-name INTO l_string.
 ELSE.
 CONCATENATE l_string texto_mediano INTO l_string.
 ENDIF.
 AT LAST.
 CONCATENATE l_string c_crlf INTO l_string.
 EXIT.
 ENDAT.
 CONCATENATE l_string c_tab INTO l_string.
 ENDLOOP.
 EXIT.
 ENDLOOP.
* Contenido de la tabla
 LOOP AT im_table ASSIGNING <fs_linea>.
* Toma los atributos del componente
 ref_to_struct =
 cl_abap_structdescr=>describe_by_data( <fs_linea> ).
 LOOP AT ref_to_struct->components ASSIGNING <comp_descr>.
* Asignamos el componente ue tratamos, para obtener
* el valor del mismo
 ASSIGN COMPONENT <comp_descr>-name OF STRUCTURE <fs_linea>
 TO <fs_campo>.
 CASE <comp_descr>-type_kind.
 WHEN 'P'. "Packed Number
* Convierte a caracter
 WRITE <fs_campo> TO l_valorcampo.
 CONCATENATE l_string l_valorcampo INTO l_string.
 WHEN OTHERS.
 l_long = STRLEN( <fs_campo> ).
 IF l_long > 11 AND <fs_campo> CO ' 0123456789'.
* El Excel muestra un número tal como 190000000006
* en formato 1,9E+11.
* Para eviarlo, los números de más de 11 dígitos los
* concatenamos con comillas simples.
 CONCATENATE l_string c_singlequote
 <fs_campo> c_singlequote INTO l_string.
 ELSE.
 CONCATENATE l_string <fs_campo> INTO l_string.
 ENDIF.
 ENDCASE.
 AT LAST.
* Añade CRLF
 CONCATENATE l_string c_crlf INTO l_string.
 EXIT.
 ENDAT.
* Añade tabulador
 CONCATENATE l_string c_tab INTO l_string.
 ENDLOOP.
 ENDLOOP.
 create_binary_content( ).
ENDMETHOD. "set_attach_table
METHOD create_binary_content.
 DATA: l_size TYPE so_obj_len.
* convert the text string into UTF-16LE binary data including
* byte-order-mark. Mircosoft Excel prefers these settings
* all this is done by new class cl_bcs_convert (see note 1151257)
 TRY.
 cl_bcs_convert=>string_to_solix(
 EXPORTING
 iv_string = l_string
 iv_codepage = '4103' "suitable for MS Excel, leave empty
 iv_add_bom = 'X' "for other doc types
 IMPORTING
 et_solix = binary_content
 ev_size = size ).
 CATCH cx_bcs.
 MESSAGE e445(so).
 ENDTRY.
ENDMETHOD. "create_binary_content
METHOD send.
 DATA: l_sent_to_all TYPE os_boolean.
 TRY.
* create persistent send request
 send_request = cl_bcs=>create_persistent( ).
* create and set document with attachment
* create document object
 document = cl_document_bcs=>create_document(
 i_type = 'RAW'
 i_text = l_body_text
 i_subject = l_subject ).
* add the spread sheet as attachment to document object
 document->add_attachment(
 i_attachment_type = 'xls'
 i_attachment_subject = l_attach_name
 i_attachment_size = size
 i_att_content_hex = binary_content ).
* add document object to send request
 send_request->set_document( document ).
* add recipient (e-mail address)
 recipient =
 cl_cam_address_bcs=>create_internet_address(
 l_recipient_addr ).
* add recipient object to send request
 send_request->add_recipient( recipient ).
* send document
 l_sent_to_all = send_request->send(
 i_with_error_screen = 'X' ).
 COMMIT WORK.
 IF l_sent_to_all IS INITIAL.
 MESSAGE i500(sbcoms) WITH l_recipient_addr.
 ELSE.
 MESSAGE s022(so).
 ENDIF.
 CATCH cx_bcs INTO bcs_exception.
 MESSAGE i865(so) WITH bcs_exception->error_type.
 ENDTRY.
ENDMETHOD. "lcl_mail_xls_attachment
METHOD get_dataelement_medium_text.
 DATA: lt_fld_info TYPE STANDARD TABLE OF dfies,
 wa_fld_info TYPE dfies.
* Busca en el diccionario los datos del campo
 CALL FUNCTION 'DDIF_FIELDINFO_GET'
 EXPORTING
 tabname = im_table_name
 fieldname = im_field_name
 langu = sy-langu
 TABLES
 dfies_tab = lt_fld_info
 EXCEPTIONS
 not_found = 1
 internal_error = 2
 OTHERS = 3.
 CLEAR ex_medium_text.
 IF sy-subrc = 0.
 READ TABLE lt_fld_info INDEX 1 INTO wa_fld_info.
* Si lo ha podido tomar del diccionario...
 IF NOT wa_fld_info-scrtext_m IS INITIAL.
* Toma el nombre del nombre de campo del diccionario
 ex_medium_text = wa_fld_info-scrtext_m.
 ENDIF.
 ENDIF.
ENDMETHOD. "get_dataelement_medium_text
ENDCLASS. "cl_mail_builder_xls_attach IMPLEMENTATION

How to get data from the called program using SUBMIT in a background job?

Hi Experts,
I've a program which creates a background job using JOB_OPEN and JOB_CLOSE function modules.
Between the above function modules I need to call a program using SUBMIT VIA JOB statement.
My problem is, How do I fetch some data in an internal table in the called program to the calling program after the SUBMIT statement?
I tried to EXPORT and IMPORT the data, but they are giving a failed sy-subrc when using this background job.
Kindly let me know your inputs and valuable suggestions.

Kumar,
When we execute a program as a background job then the output will be sent to Spool which needs to be fetched again.I guess we need to use Submit via spool as mentioned by Rajat.
Check these threads to get some idea
submit report to spool & import spool id
Re: Generate Spool for a report
K.Kiran.

Submit RSEOUT00 as background job

Hi all,
Here is my requirement.There is a Z program from which RSEOUT00 program has to be called , so that it will change the Idoc status to '03'. I tried using Submit RSEOUT00..and return and also tried JOB_open and then SUBMIT rseout00 WITH docnum EQ p_idocno user sy-uname via job jobname number jobcount and return and then JOB_CLOSE .I checked SM37 also where i can see this job as finished..
I tried COMMIT WORK statement and also WAIT statement .
But still the idoc status wont change to '03' .
Can anyone plase advise on how to correct this .
Regards,
Sudheer

Hi,
I have created background job for RSEOUT00 and written the below code. It worked.
DATA: w_number TYPE tbtcjob-jobcount,
 w_name TYPE tbtcjob-jobname VALUE 'ZTEST_JOB'.
 CALL FUNCTION 'JOB_OPEN'
 EXPORTING
 jobname = w_name
 IMPORTING
 jobcount = w_number
 EXCEPTIONS
 cant_create_job = 1
 invalid_job_data = 2
 jobname_missing = 3
 OTHERS = 4.
 IF sy-subrc = 0.
 SUBMIT rseout00 VIA JOB w_name NUMBER w_number AND RETURN.
 IF sy-subrc = 0.
 CALL FUNCTION 'JOB_CLOSE'
 EXPORTING
 jobcount = w_number
 jobname = w_name
 strtimmed = 'X'
 EXCEPTIONS
 cant_start_immediate = 1
 invalid_startdate = 2
 jobname_missing = 3
 job_close_failed = 4
 job_nosteps = 5
 job_notex = 6
 lock_failed = 7
 OTHERS = 8.
 IF sy-subrc <> 0.
 ENDIF.
 ENDIF.
 ENDIF.
Thanks,
Appanaboina

It has an error when run a program in background job

Dear Expert,
we have a program
when run it in background,it has a error "Error during import of clipboard contents" but when run it normally(run in front workbench se38 or run the t-code),everything is ok.i've used typingJDBG in the command box to debuge the background job,there has no error.
whould you like to tell me what had happen? thanks a lot!
addition: the program used a function ALSM_EXCEL_TO_INTERNAL_TABLE
Thanks & Regards,
Kerry
Edited by: Kerry Wang on Aug 24, 2009 2:12 PM
Edited by: Kerry Wang on Aug 24, 2009 2:14 PM
Edited by: Kerry Wang on Aug 24, 2009 2:14 PM

Hi,
You cannot use FMs to get data directly from the presentation server when program is executed in the backgroud.
Check the thread : GUI_DOWNLOAD
Regards,
Himanshu

Program for Background Job for COGI

Does anyone know what is the Program name for creating background job to run COGI? I'm using CORUAFFW to create variants and run the program but its not working as I guess it isonly generating the report but not deleting the records if inventory is added.
Thanks
Mama
Edited by: Amit Raichura on Mar 21, 2008 1:31 AM

Amit,
Use Program "CORUAFWP" to schedule background job to post COGI error records if the error is corrected, as in your case stock is corrected.
Regards,
Prasobh

Program in background Jobs

HI
Can anybody please let me know how to find out the program scheduled in a job, as either the job may not be run for long time or not even scheduled?
Thanks in advance

HI sameer
Did u tried
transaction SM36 for defining background jobs
and SM37 for displaying all background jobs that you want
Regards Rk
Message was edited by:
Rk Pasupuleti

How to run the program in background job,program should run in 3 days.

Dear Gurus,
i have a program , that program should run approximately 3 days to get the result.
i scheduled this program as a background job.
how can i run sto5 t-code for this same program.
i that case how we can trace the output.
Experts please help me out.
Thank u very much.
Regards
sudheer

Hello Sudheer,
The trace can be set on background jobs by using ST12 transaction. Please make sure that the trace is activated for only few minutes in production environment.
Contact your basis team to activate trace on background job and the transaction used is ST12.
Thanks

Program for background jobs...

Hi
I know that when i create any info structure; a program is also created in background viz used while creating background jobs...but i dont know where can i view them? This program is used while creating a background jobs in SM36.......Please correct me if i am wrong
Suppose i have created info structure S999; then in that case from where to locate that program which must have been created in background?
Rgds

Hi,
While executing the info structure, in the initial screen, click system in the menu bar and click status. in the popping menu you can find the program associated with the info structure.

Problem in Submit Program in background

Hi Expert,
I have one progam which fetch the sales order data as per input selection and pass it to COOISPI T.Code.
Through the program
      SUBMIT PPIO_ENTRY
              USING SELECTION-SCREEN '1000'
                  WITH P_TCODE = 'COOISPI'
                  WITH P_AUTYP = '40'
                  USING SELECTION-SET 'SAP&COOISPI'
                  WITH SELECTION-TABLE rspar_tab
                 AND RETURN.
But when i schedule the job of program then it is not running.
Submit statement is running in background mode or not.
Is there any other way to doing this work.

HI ,
yes it works
You check the statement SY-BATCH ..
Or u can call the transaction and pass the values...
Please see the sample code :

Issue in submit program via background. data is not appearing in spool.

hi all,
i am submitting a program in bachground. the output data needs to be written in the spool.
when i try using my ID i am getting desired result. when others execute it it is going to printer instead of spool as they have default printers assigned to them. i tried defaulting print parameters to a dummy printer. still the problem is not solved.
please advice. the code is as follows......
print_parameters-PDEST = 'oooo'.
 SUBMIT /pbs/riaufk20
 WITH strno IN r_tplnr
 WITH auart IN r_auart
 WITH datuv EQ '19000101'
 WITH datub EQ '99990101'
 WITH pbs_apar EQ '3'
 WITH dy_ofn EQ 'X'
 WITH dy_his EQ 'X'
 WITH dy_iar EQ 'X'
 WITH dy_mab EQ 'X'
 WITH variant EQ '/ZPM_POM_ORD'
TO SAP-SPOOL SPOOL PARAMETERS print_parameters
WITHOUT SPOOL DYNPRO
VIA JOB v_jobname NUMBER v_number_l AND RETURN.

print_parameters-PDEST = 'oooo'. dont mention the any thing related to print settings...
SUBMIT <zprg> WITH s_matnr = wmara-matnr
 WITH s_werks = wmarc-werks
 WITH p_diff = lv_diff
 VIA JOB <Name> NUMBER lv_jcount
 AND RETURN.

Action monitoring through program RSPPFPROCESS - background job

Dear SAP CRM Experts,
I'm working with SAP CRM 2007 - Interaction Centre
I've configured actions which have to trigger mails when SLA deadlines are reached
I've scheduled a job from the program RSPPFPROCESS, with a variant.
If I launch the variant manually, I'm able to find the right actions related to the various transactions I'd previously created; otherwise, if I schedule the job, no mails are triggered.
What should I do?
Can anybody help me?
Thanks a lot,
Andrea

The fact is that there is a strange behaviour of the system:
lets suppose that I'm creating a ticket from the GUI.
I manually change the date which correspond to the duedate in the starting condition of the action, inserting a date in the past.
I press Enter.
No action are processed, although the Processing Time has been set in customizing as "Immediately".
Now if I click on the Tab "Actions" (or if I click on the button Save) the action is triggered and the corresponding e-mail is sent.
Any idea?
Thanks in advance,
Andrea
P.S. P O I N T S will be re war ded

Submit background job for a report

Hai Friends,
I want to submit a report in background which should run on first monday of every month. otherthen SM36 and SM37. Because we cant give date and time like this.
If any coding required Pl give me the code.
regards,
vamsykrishna.

This is the Basic code to Achieve that.
Call Function 'JOB_OPEN'
SUBMIT RSBDCBTC
via background Job <Job info>
With QIE = <QID Returned by BDC_OPEN_Group FM>
AND RETURN.
Call Function 'JOB_CLOSE'
2) Also go through this
DATA: lv_job_name LIKE tbtco-jobname,
lv_job_nr LIKE tbtco-jobcount,
lv_job_released TYPE c,
lv_job_start_sofort TYPE c,
lv_print_parameters TYPE pri_params.
lv_job_name = 'Z_BGPROGRAM'.
CALL FUNCTION 'JOB_OPEN'
EXPORTING
jobname = lv_job_name
IMPORTING
jobcount = lv_job_nr
EXCEPTIONS
cant_create_job = 1
invalid_job_data = 2
jobname_missing = 3
OTHERS = 4.
IF syst-subrc = 0.
" submit job with all the selection screen params...
SUBMIT (lv_job_name)
WITH applfile = applfile " these are the parameters of the background program
WITH p_lines = p_lines
USER syst-uname " you must use this
VIA JOB lv_job_name NUMBER lv_job_nr AND RETURN.
IF sy-subrc = 0.
CALL FUNCTION 'JOB_CLOSE'
EXPORTING
jobcount = lv_job_nr
jobname = lv_job_name
strtimmed = 'X'
IMPORTING
job_was_released = lv_job_released
EXCEPTIONS
cant_start_immediate = 1
invalid_startdate = 2
jobname_missing = 3
job_close_failed = 4
job_nosteps = 5
job_notex = 6
lock_failed = 7
OTHERS = 8.
IF syst-subrc <> 0.
MESSAGE i162(00) WITH
'An error occured while closing the background job.'.
STOP.
ENDIF.
ENDIF.
ENDIF.
SKIP 1.
WRITE: / 'Background process', lv_job_name , 'called successfully' NO-GAP.
WRITE: / 'You can check the job in transaction SM37'.

SUBMIT REPORT AS A BACKGROUND JOB

Hi all,
 I am executing one report in foreground in that report i want to submit one report which should be executed in background only. how it is possible to execute 2nd report in background mode only.
Regards
deepak

This is the Basic code to Achieve that.
Call Function 'JOB_OPEN'
SUBMIT RSBDCBTC
via background Job <Job info>
With QIE = <QID Returned by BDC_OPEN_Group FM>
AND RETURN.
Call Function 'JOB_CLOSE'
2) Also go through this
DATA: lv_job_name LIKE tbtco-jobname,
lv_job_nr LIKE tbtco-jobcount,
lv_job_released TYPE c,
lv_job_start_sofort TYPE c,
lv_print_parameters TYPE pri_params.
lv_job_name = 'Z_BGPROGRAM'.
CALL FUNCTION 'JOB_OPEN'
 EXPORTING
 jobname = lv_job_name
 IMPORTING
 jobcount = lv_job_nr
 EXCEPTIONS
 cant_create_job = 1
 invalid_job_data = 2
 jobname_missing = 3
 OTHERS = 4.
IF syst-subrc = 0.
" submit job with all the selection screen params...
 SUBMIT (lv_job_name)
 WITH applfile = applfile " these are the parameters of the background program
 WITH p_lines = p_lines
 USER syst-uname " you must use this
 VIA JOB lv_job_name NUMBER lv_job_nr AND RETURN.
 IF sy-subrc = 0.
 CALL FUNCTION 'JOB_CLOSE'
 EXPORTING
 jobcount = lv_job_nr
 jobname = lv_job_name
 strtimmed = 'X'
 IMPORTING
 job_was_released = lv_job_released
 EXCEPTIONS
 cant_start_immediate = 1
 invalid_startdate = 2
 jobname_missing = 3
 job_close_failed = 4
 job_nosteps = 5
 job_notex = 6
 lock_failed = 7
 OTHERS = 8.
 IF syst-subrc <> 0.
 MESSAGE i162(00) WITH
 'An error occured while closing the background job.'.
 STOP.
 ENDIF.
 ENDIF.
ENDIF.
SKIP 1.
WRITE: / 'Background process', lv_job_name , 'called successfully' NO-GAP.
WRITE: / 'You can check the job in transaction SM37'.
Thanks

Submit program in background job

Similar Messages

Maybe you are looking for