Create Job By Code / Kod ile iş kurma

    DATA: number  TYPE tbtcjob-jobcount,
          name    TYPE tbtcjob-jobname VALUE 'ZMM_TARIH_STOK',"job name iş adı
          print_parameters TYPE pri_params.






    DATA :
     ls_class TYPE  tbtcjob.
    ls_class-execserver = 'r3krpdb_KRP_01'."job server işin çalışacağı server sistem
    CALL FUNCTION 'JOB_OPEN'
      EXPORTING
        jobname          = name
      IMPORTING
        jobcount         = number            "JOBCLASS = LS_CLASS
      EXCEPTIONS
        cant_create_job  = 1
        invalid_job_data = 2
        jobname_missing  = 3
        OTHERS           = 4.
    IF sy-subrc = 0.
      DATA:
            archi_parameters TYPE arc_params,
            valid_flag(1) TYPE c.

      CALL FUNCTION 'GET_PRINT_PARAMETERS'
       EXPORTING
         archive_mode           = '1'
         no_dialog = 'X'
       IMPORTING
         out_parameters         = print_parameters
*    out_archive_parameters = archi_parameters
         valid                  = valid_flag
       EXCEPTIONS
         invalid_print_params   = 2
         OTHERS                 = 4.

      print_parameters-pdest = 'LP01'."default çıktı almaması
      CLEAR print_parameters-primm .


      SUBMIT zmm_stok_bilgileri "job kurulacak program"programme which will be set

WITH matnr IN matnr
WITH mtart IN mtart
WITH bukrs IN bukrs
WITH werks IN werks
WITH lgort IN lgort
WITH charg IN charg
WITH bwtar IN bwtar
WITH bwart IN bwart
WITH sobkz EQ sobkz
WITH datum IN datum2


WITH ay = gt_secim-ay
WITH HAFTA = GT_SECIM-HAFTA
      WITH p_uname = p_uname
      WITH p_datum = p_datum
      WITH p_uzeit = p_uzeit
      WITH job    = 'X'
      WITH lgbst  = ''
      WITH bwbst  = 'X'
      WITH sbbst  = ''
      WITH KAYDET = 'X'
      WITH tur    = lv_tur
                      TO SAP-SPOOL
                       SPOOL PARAMETERS print_parameters
                      "ARCHIVE PARAMETERS archi_parameters
                      WITHOUT SPOOL DYNPRO
                      VIA JOB name NUMBER number
                      AND RETURN.

      IF sy-subrc = 0.
        DATA : lv_t TYPE btcsrvname  .
        IF sy-sysid EQ 'KRT'." if test system "test sistemiyse
          lv_t = 'kordkrt_KRT_01'.
        ELSE.
          lv_t = 'r3krpdb_KRP_01'."production sistem
        ENDIF.
        if lv_date is not initial .
        CALL FUNCTION 'JOB_CLOSE'
          EXPORTING
            jobcount             = number
            jobname              = name
            strtimmed            = ' '
            targetserver         = lv_t
            SDLSTRTTM             = LV_TIME
            SDLSTRTDT             = lv_date
          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.
        else.
        CALL FUNCTION 'JOB_CLOSE'
          EXPORTING
            jobcount             = number
            jobname              = name
            strtimmed            = 'X'
            targetserver         = lv_t
          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.
        endif.
        FORMAT COLOR COL_POSITIVE .
        WRITE : / 'İş kuruldu..' ."Job created
        WRITE :   'Kullanıcı:' , p_uname. "User
        WRITE :   'Tarih    :' , p_datum."Date
        WRITE :   'Saat     :' , p_uzeit."Tıme


      ELSE.
        FORMAT COLOR COL_NEGATIVE .
        WRITE : / 'Program Çağırırken Hata..'."error when submit programme
      ENDIF.

    ELSE.
      FORMAT COLOR COL_NEGATIVE .
      WRITE : / 'Job Kurarken Hata..'."error when job create
    ENDIF.