*&----------------------------------------------------------------*
*& Report  YRTEST0005
*&
*&----------------------------------------------------------------*
*&
*&  Run Program with Background job
*&----------------------------------------------------------------*

report  yrtest0005.

* Run Program with Background job
  data: l_number type tbtcjob-jobcount,
        l_name   type tbtcjob-jobname.

  concatenate 'Z00' '_'  sy-datum '_'  sy-uzeit
         into l_name.

  call function 'JOB_OPEN'
    exporting
      jobname          = l_name
    importing
      jobcount         = l_number
    exceptions
      cant_create_job  = 1
      invalid_job_data = 2
      jobname_missing  = 3
      others           4.

  check sy-subrc = 0.
*  submit zlmmm65010 with  pa_bukrs =  pi_bukrs
*                    with  pa_gbm   =  l_gbm
*                    with  pa_week  =  pi_planid
*                    with  pa_ck01  =  c_x
*                    user  sy-uname
*                    via job l_name number l_number
*                    and return.

  submit yrtest0006 user  sy-uname
                    via job l_name number l_number
                    and return.

  check sy-subrc eq 0.
  message s303(me) with 'Success'.

  call function 'JOB_CLOSE'
    exporting
      jobcount             = l_number
      jobname              = l_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.
 




*&----------------------------------------------------------------*
*& Report  YRTEST0006
*&
*&----------------------------------------------------------------*
*&
*&
*&----------------------------------------------------------------*

report  yrtest0006.

*  include yrtest0006top.
*  include yrtest0006f01.


end-of-selection.
  write: sy-uname, sy-datum, sy-uzeit.