该程序在运行时会创建一个JOB,并且将该自己以JOB后台方式运行,并且可以从前台传递参数到后台JOB
2017-12-25 10:44
721 查看
REPORT ymais_sust.
TABLES vbap.
PARAMETERS: p_back .
SELECT-OPTIONS: s_vbeln FOR vbap-vbeln .
DATA: l_number TYPE tbtcjob-jobcount,
l_name TYPE tbtcjob-jobname .
DATA: run_flg."当前程序是否已在后台运行过了
l_name = sy-repid."当前程序名
START-OF-SELECTION.
DATA: c_tmp(20).
DATA:l_jobcount TYPE tbtcm-jobcount,
l_jobname TYPE tbtcm-jobname.
"如果当前程序是在后台运行时,从SAP内存中读取前台共享的参数
IF sy-batch IS
NOT INITIAL.
CALL
FUNCTION 'GET_JOB_RUNTIME_INFO'"获取当前后台Job名与Job编号
IMPORTING
jobcount = l_jobcount
jobname = l_jobname.
CONCATENATE 'YMAIS_SUST' l_jobcount INTO c_tmp RESPECTING
BLANKS.
"读取从前台传递过来的参数
IMPORT run_flg FROM SHARED
BUFFER indx(fi) ID c_tmp.
IF sy-subrc
<> 0.
MESSAGE e001(00) WITH 'import
data unsuccessful'.
ELSE.
"所有输出的 message 可以在假脱机日志里看到
MESSAGE i001(00) WITH '从前台读取来的值 run_flg
= ' run_flg.
"共享内存使用后即时删除,否则要等到服务器重启再消失
DELETE FROM SHARED
BUFFER indx(fi) ID c_tmp.
ENDIF.
ELSE."如果是通过前台运行时
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.
IF sy-subrc = 0.
"直接采用 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.
TABLES vbap.
PARAMETERS: p_back .
SELECT-OPTIONS: s_vbeln FOR vbap-vbeln .
DATA: l_number TYPE tbtcjob-jobcount,
l_name TYPE tbtcjob-jobname .
DATA: run_flg."当前程序是否已在后台运行过了
l_name = sy-repid."当前程序名
START-OF-SELECTION.
DATA: c_tmp(20).
DATA:l_jobcount TYPE tbtcm-jobcount,
l_jobname TYPE tbtcm-jobname.
"如果当前程序是在后台运行时,从SAP内存中读取前台共享的参数
IF sy-batch IS
NOT INITIAL.
CALL
FUNCTION 'GET_JOB_RUNTIME_INFO'"获取当前后台Job名与Job编号
IMPORTING
jobcount = l_jobcount
jobname = l_jobname.
CONCATENATE 'YMAIS_SUST' l_jobcount INTO c_tmp RESPECTING
BLANKS.
"读取从前台传递过来的参数
IMPORT run_flg FROM SHARED
BUFFER indx(fi) ID c_tmp.
IF sy-subrc
<> 0.
MESSAGE e001(00) WITH 'import
data unsuccessful'.
ELSE.
"所有输出的 message 可以在假脱机日志里看到
MESSAGE i001(00) WITH '从前台读取来的值 run_flg
= ' run_flg.
"共享内存使用后即时删除,否则要等到服务器重启再消失
DELETE FROM SHARED
BUFFER indx(fi) ID c_tmp.
ENDIF.
ELSE."如果是通过前台运行时
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.
IF sy-subrc = 0.
"直接采用 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.
相关文章推荐
- springMVC中前台向后台传递参数的方式
- 分享一个自己应用中判断应用运行状态是前台还是后台
- 自己动手实现一个守护进程,当控制台窗口关闭时还可以在后台运行。每隔一秒钟向my.log文件中插入一条记录
- 只运行一个实例,单击程序快捷方式让程序激活到前台
- bat脚本实例实现只允许运行一个实例(安装程序、创建快捷方式脚本)
- 创建并运行一个基本的Python测试程序(自己的看法修改)
- 《项目经验》--后台一般处理程序向前台JS文件传递JSON,JS解析JSON,将数据显示在界面--显示在DropDownList 或 显示在动态创建的table中
- Java程序以后台方式在Linux上运行并且重定向LOG文件
- js ajax post请求 传递一个较长的参数(含有逗点),IE浏览器可以正常传递到后台做处理,谷歌浏览器会把参数拦截,找不到相应的目标
- 《项目经验》--后台一般处理程序向前台JS文件传递JSON,JS解析JSON,将数据显示在界面--显示在DropDownList 或 显示在动态创建的table中
- [SAP ABAP开发技术总结]程序自己以JOB方式运行
- jquery.validate的ajax方式验证[可以一个控件下一次传递多个参数,已经成功通过验证]
- android两种方式中自己画一个圆,实现单点触控时拖动图片,跟着拖动点走,并且可以放大或缩小
- android 快捷方式开发(三)通过程序运行时自动创建
- 前后台交互的传参方式与大参数传递
- Linux中让程序或者命令后台运行的方式
- C函数只能有一个返回值,如果需要返回多个值,怎么办,其实很简单,只要将指针作为函数参数传递就可以了
- 微信小程序详解——页面之间的跳转方式【路由】和参数传递
- 自己写的程序expr,以计算从命令行输入的逆波尔表达式的值,其中每个运算符或操作数用一个单独的参数表示
- SpringMVC之后台接收参数与前台传递数据