Not getiing spool if zprogram excutes in background which calls a submit

Question

Dear All,
I have two programs with same selection screen , one is a z one and the other a standard one .
i am calling the standard program from my z program using Submit with some restriction value in the selection screen of the standard program.
Everything is OK , now the thing is i am not getting a spool in SM37 when i execute the z report (which calls the standards program with submit) in background .
I want in  the one  spool like i am getting if i execute the standard program manually in background.
Regards

Answer 1

Hi Try this way..
now it creates two spools...
**** Subroutine to get the print parameters
  PERFORM get_print_parameters.
  CONCATENATE 'QU'
               sy-datum+4(4)
               sy-uzeit INTO
               wa_pri_params-plist.
*   Submit report in background and creating spool
  SUBMIT <Reportname> USING SELECTION-SET p_var
      TO SAP-SPOOL WITHOUT SPOOL DYNPRO
      SPOOL PARAMETERS wa_pri_params AND RETURN.
  COMMIT WORK AND WAIT.
*   To fetch the spool number from TSP01 table
  IF sy-subrc EQ 0.
    SELECT rqident
           FROM tsp01
           INTO p_spool
*             UP TO 1 ROWS
           WHERE rq2name = wa_pri_params-plist.
    ENDSELECT.
  ENDIF.
FORM get_print_parameters .
* Function Module to get the print parameters
  CALL FUNCTION 'GET_PRINT_PARAMETERS'
    EXPORTING
      destination            = 'BC01'                       "'LP01'
      list_name              = 'TEST'
      list_text              = 'SUBMIT ... TO SAP-SPOOL'
      immediately            = ' '
      line_size              = '2000'
      no_dialog              = 'X'
    IMPORTING
      out_parameters         = wa_pri_params
      valid                  = w_valid
*** Begin of insert PJ051810
    EXCEPTIONS
      archive_info_not_found = 1
      invalid_print_params   = 2
      invalid_archive_params = 3
      OTHERS                 = 4.
  IF sy-subrc <> 0.
    WRITE : 'Invalid Printer assigned'.
  ENDIF.
*** End of insert PJ051810
ENDFORM.                    " GET_PRINT_PARAMETERS
Prabhudas