[SAP ABAP开发技术总结]程序自己以JOB方式运行

声明：原创作品，转载时请注明文章来自SAP师太技术博客（ 博/客/园ｗｗｗ.ｃｎｂｌｏｇｓ.ｃｏｍ）：www.cnblogs.com/jiangzhengjun，并以超链接形式标明文章原始出处，否则将追究法律责任！原文链接：http://www.cnblogs.com/jiangzhengjun/p/4265630.html

该程序在运行时会创建一个JOB，并且将该自己以JOB后台方式运行，并且可以从前台传递参数到后台JOB

invalid_job_data
        jobname_missing 
        .
      "直接采用 SUBMIT 的方式，让报表程序在后台运行
      SUBMIT ymais_sust
        WITH p_back  = p_back"Paramters参数
        WITH s_vbeln IN s_vbeln"Selection-option参数
*     WITH s_bukrs BETWEEN '1106' AND '1111' SIGN 'I'"如果Selection-option只有一行时，可以这样使用，如果是单个值，还可以这样使用：
*     WITH bukrs eq '1106' SIGN 'I'
        VIA JOB l_name NUMBER l_number AND RETURN.
      "由于 Shared Buffer是整个服务器都可以共享的，所以每个后台Job需要自己的 Buffer，所以
      "使用各自Job的编号来区分。该方式用来在前台程序与后台Job之间传递参数
      CONCATENATE 'YMAIS_SUST' l_number INTO c_tmp RESPECTING BLANKS.
      EXPORT run_flg FROM 'X' TO SHARED BUFFER indx(fi) ID  c_tmp.
      "也可以通过下面标准函数来提交Job，但此标准函数不能直接将前台参数传递给后台Job程序（除通过变式
      "参数 VARIANT 外）。所以只能采用上面 EXPORT ... SHARED BUFFER 语句来共享服务器内存来实现
*    CALL FUNCTION 'JOB_SUBMIT'
*      EXPORTING
*        authcknam = sy-uname
*        jobcount  = l_number
*        jobname   = l_name
**       PRIPARAMS = ' '打印参数
*        report    = 'YMAIS_SUST'
**       VARIANT   =  ' '可通过变式来传递参数
      CALL FUNCTION 'JOB_CLOSE'
        EXPORTING
          jobcount             = l_number
          jobname              = l_name
          strtimmed            = 'X'.
    ENDIF.
  ENDIF.
END-OF-SELECTION.
  "如果当前程序是在后台运行时
  IF sy-batch IS NOT INITIAL.
    "会输出到假脱机输出列表中
    WRITE: / '后台输出'.
    "后面还可以写在后台运行时需要执行的代码逻辑及输出
    ......
  ELSE.
    MESSAGE '当前程序已经通过后台运行' TYPE 'I'.
    LEAVE PROGRAM.
  ENDIF.