Function to Release and Process a batch imput session.

Question

Hi experts,
Does anibody know a function module that i caold use to release a batch imput session? And another to Process it? Like in Transaction SM35. I need this to do this in a certain case of an abap program i'm developing.
Thank-you,
Artur.
Message was edited by:
        Artur Rodriguez

Answer 1

                   FORM lanzar_recuento                             *
      Función que actualiza la transaccion que le indicamos         *
FORM lanzar_recuento USING value(p_mappe) LIKE biseg-mappe.
  DATA: lv_numero  LIKE tbtcjob-jobcount,   "ID de un job de fondo
        lv_jobname LIKE tbtco-jobname,      "Nombre job
        lv_jobbina LIKE tbtco-jobname,      "Nombre job BI
        lv_status  LIKE tbtcjob-status.     "Satus del job
  CONCATENATE 'JOB_SM35_' 'P_MAPPE' INTO lv_jobname.
  CALL FUNCTION 'JOB_OPEN'
    EXPORTING
      jobname          = lv_jobname          "Nombre Job
    IMPORTING
      jobcount         = lv_numero           "Número Job
    EXCEPTIONS
      cant_create_job  = 1
      invalid_job_data = 2
      jobname_missing  = 3
      OTHERS           = 4.
  SUBMIT rsbdcsub
           WITH mappe = p_mappe
           AND RETURN VIA JOB lv_jobname NUMBER lv_numero.
  CALL FUNCTION 'JOB_CLOSE'
    EXPORTING
      jobcount             = lv_numero        "Número job
      jobname              = lv_jobname       "Nombre job
      strtimmed            = 'X'  "Inicio inmediato
    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.
  COMMIT WORK AND WAIT.
*-----Comprobamos que el job se haya ejecutado para continuar.
  DO.
    CALL FUNCTION 'BP_JOB_STATUS_GET'
      EXPORTING
        jobcount                         = lv_numero
        jobname                          = lv_jobname
     IMPORTING
      status                           = lv_status
    HAS_CHILD                        =
     EXCEPTIONS
       job_doesnt_exist                 = 1
       unknown_error                    = 2
       parent_child_inconsistency       = 3
       OTHERS                           = 4.
    IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    IF lv_status NE 'F'.
      WAIT UP TO 1 SECONDS.
      "espere fin trabajo
    ELSE.
      EXIT.
    ENDIF.
  ENDDO.
*----Comprobamos que se haya lanzado el BI para continuar.
  CLEAR lv_jobbina.
  lv_jobbina = p_mappe.
  DO.
    CALL FUNCTION 'BP_JOB_STATUS_GET'
      EXPORTING
       jobcount                         = lv_numero
        jobname                          = lv_jobbina
     IMPORTING
      status                           = lv_status
    HAS_CHILD                        =
     EXCEPTIONS
       job_doesnt_exist                 = 1
       unknown_error                    = 2
       parent_child_inconsistency       = 3
       OTHERS                           = 4.
    IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    IF lv_status NE 'F'.
      WAIT UP TO 1 SECONDS.
      "espere fin trabajo
    ELSE.
      EXIT.
    ENDIF.
  ENDDO.
ENDFORM.                    "lanzar_recuento