- 浏览: 289927 次
- 性别:
- 来自: 深圳
文章分类
最新评论
-
Kisses99:
怎么锁了?readonly?
tomcat不能正常启动 -
zhangliixi:
老板果然还是要厉害点~~
tomcat不能正常启动
ABAP程序启动后台作业
- 博客分类:
- sap
- abap report
- abap语法
FORM frm_set_bgex .
DATA:
lc_ind TYPE char1,
lt_par_tab TYPE STANDARD TABLE OF rsparams,
ls_par_tab TYPE rsparams,
lc_jobname TYPE tbtcjob-jobname VALUE 'Z03P2R1104_CALC',
lc_jobnum TYPE tbtcjob-jobcount
.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
text_question = text-010
default_button = '2'
display_cancel_button = ''
IMPORTING
answer = lc_ind.
CHECK lc_ind EQ '1'.
CONCATENATE lc_jobname '_' sy-datum INTO lc_jobname.
* Par: BUKRS
CLEAR ls_par_tab.
ls_par_tab-selname = 'P_BUKRS'.
ls_par_tab-kind = 'P'.
ls_par_tab-low = z03p2s002-bukrs.
APPEND ls_par_tab TO lt_par_tab.
* Par: GJAHR
CLEAR ls_par_tab.
ls_par_tab-selname = 'P_GJAHR'.
ls_par_tab-kind = 'P'.
ls_par_tab-low = z03p2s002-gjahr.
APPEND ls_par_tab TO lt_par_tab.
* Par: MONAT
CLEAR ls_par_tab.
ls_par_tab-selname = 'P_MONAT'.
ls_par_tab-kind = 'P'.
ls_par_tab-low = z03p2s002-monat.
APPEND ls_par_tab TO lt_par_tab.
* Select-option: S_RCODE
CLEAR ls_par_tab.
ls_par_tab-selname = 'S_RCODE'.
ls_par_tab-kind = 'S'.
ls_par_tab-sign = 'I'.
ls_par_tab-option = 'EQ'.
LOOP AT gt_alv INTO gs_alv
WHERE mark EQ 'X'.
ls_par_tab-low = gs_alv-rcode.
APPEND ls_par_tab TO lt_par_tab.
ENDLOOP.
CLEAR ls_par_tab.
ls_par_tab-selname = 'P_BATCH'.
ls_par_tab-kind = 'P'.
ls_par_tab-low = 'Y'.
APPEND ls_par_tab TO lt_par_tab.
* Create Job
CALL FUNCTION 'JOB_OPEN'
EXPORTING
jobname = lc_jobname
IMPORTING
jobcount = lc_jobnum
EXCEPTIONS
cant_create_job = 1
invalid_job_data = 2
jobname_missing = 3
OTHERS = 4.
IF sy-subrc NE 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSE.
SUBMIT z03p2r002 WITH SELECTION-TABLE lt_par_tab"z03p2r002程序随后附上
VIA JOB lc_jobname NUMBER lc_jobnum AND RETURN.
IF sy-subrc EQ 0.
"CLOSE JOB DEFINITION
CALL FUNCTION 'JOB_CLOSE'
EXPORTING
jobcount = lc_jobnum
jobname = lc_jobname
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
invalid_target = 8
OTHERS = 9.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSE.
MESSAGE i016(z03p2).
ENDIF.
ELSE.
ENDIF.
ENDIF.
ENDFORM. " FRM_SET_BGEX
z03p2r002中的选择屏幕
*&---------------------------------------------------------------------*
*& 包括 Z03P2X0007
*&---------------------------------------------------------------------*
PARAMETERS:
p_bukrs TYPE z03p2s002-bukrs DEFAULT '1201' OBLIGATORY,
p_gjahr TYPE z03p2s002-gjahr NO-DISPLAY,
p_monat TYPE z03p2s002-monat NO-DISPLAY,
p_batch TYPE sy-batch DEFAULT 'X' NO-DISPLAY.
.
SELECT-OPTIONS s_rcode FOR z03p2r1104m-rcode NO-DISPLAY.
DATA:
lc_ind TYPE char1,
lt_par_tab TYPE STANDARD TABLE OF rsparams,
ls_par_tab TYPE rsparams,
lc_jobname TYPE tbtcjob-jobname VALUE 'Z03P2R1104_CALC',
lc_jobnum TYPE tbtcjob-jobcount
.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
text_question = text-010
default_button = '2'
display_cancel_button = ''
IMPORTING
answer = lc_ind.
CHECK lc_ind EQ '1'.
CONCATENATE lc_jobname '_' sy-datum INTO lc_jobname.
* Par: BUKRS
CLEAR ls_par_tab.
ls_par_tab-selname = 'P_BUKRS'.
ls_par_tab-kind = 'P'.
ls_par_tab-low = z03p2s002-bukrs.
APPEND ls_par_tab TO lt_par_tab.
* Par: GJAHR
CLEAR ls_par_tab.
ls_par_tab-selname = 'P_GJAHR'.
ls_par_tab-kind = 'P'.
ls_par_tab-low = z03p2s002-gjahr.
APPEND ls_par_tab TO lt_par_tab.
* Par: MONAT
CLEAR ls_par_tab.
ls_par_tab-selname = 'P_MONAT'.
ls_par_tab-kind = 'P'.
ls_par_tab-low = z03p2s002-monat.
APPEND ls_par_tab TO lt_par_tab.
* Select-option: S_RCODE
CLEAR ls_par_tab.
ls_par_tab-selname = 'S_RCODE'.
ls_par_tab-kind = 'S'.
ls_par_tab-sign = 'I'.
ls_par_tab-option = 'EQ'.
LOOP AT gt_alv INTO gs_alv
WHERE mark EQ 'X'.
ls_par_tab-low = gs_alv-rcode.
APPEND ls_par_tab TO lt_par_tab.
ENDLOOP.
CLEAR ls_par_tab.
ls_par_tab-selname = 'P_BATCH'.
ls_par_tab-kind = 'P'.
ls_par_tab-low = 'Y'.
APPEND ls_par_tab TO lt_par_tab.
* Create Job
CALL FUNCTION 'JOB_OPEN'
EXPORTING
jobname = lc_jobname
IMPORTING
jobcount = lc_jobnum
EXCEPTIONS
cant_create_job = 1
invalid_job_data = 2
jobname_missing = 3
OTHERS = 4.
IF sy-subrc NE 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSE.
SUBMIT z03p2r002 WITH SELECTION-TABLE lt_par_tab"z03p2r002程序随后附上
VIA JOB lc_jobname NUMBER lc_jobnum AND RETURN.
IF sy-subrc EQ 0.
"CLOSE JOB DEFINITION
CALL FUNCTION 'JOB_CLOSE'
EXPORTING
jobcount = lc_jobnum
jobname = lc_jobname
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
invalid_target = 8
OTHERS = 9.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSE.
MESSAGE i016(z03p2).
ENDIF.
ELSE.
ENDIF.
ENDIF.
ENDFORM. " FRM_SET_BGEX
z03p2r002中的选择屏幕
*&---------------------------------------------------------------------*
*& 包括 Z03P2X0007
*&---------------------------------------------------------------------*
PARAMETERS:
p_bukrs TYPE z03p2s002-bukrs DEFAULT '1201' OBLIGATORY,
p_gjahr TYPE z03p2s002-gjahr NO-DISPLAY,
p_monat TYPE z03p2s002-monat NO-DISPLAY,
p_batch TYPE sy-batch DEFAULT 'X' NO-DISPLAY.
.
SELECT-OPTIONS s_rcode FOR z03p2r1104m-rcode NO-DISPLAY.
发表评论
-
程序方法添加SAP_ALL权限
2012-04-10 14:28 1946REPORT ZTEST_001. data zUSR04 ... -
Business Add-ins
2011-12-20 10:33 1244本文是BC425中BAPI部分的内容,闲来无事学习一下,顺便翻 ... -
维护成本控制凭证的编号范围报错:co area have different elements
2011-08-19 16:30 1310在做维护成本控制凭证的编号范围时,从0001控制范围cop ... -
初级成本要素和次级成本要素 .
2011-08-18 16:40 2801初级成本要素与次级成本要素。SAP除总帐的及时集成外,它的另一 ... -
SAP query传输以后需要重新生成程序
2011-07-26 10:53 5780最近有个需求,需 ... -
SAP菜单显示事务码
2011-07-11 16:34 2817SAP的菜单项上,默认不显示该菜单项的事务码,进行如下操作可显 ... -
SAP ABAP 游标操作
2011-07-07 10:37 2371if not %dbcursor is initial. ... -
程序查找Customer Exit
2011-04-11 10:27 1047REPORT ZEXIT_HELP no standard p ... -
inner join on, left join on, right join on区别(转)
2011-03-31 14:06 16041.理论 只要两个表的公共字段有匹配值,就将这两个表中的记录 ... -
abap的子程序参数传递注意点(转)
2011-03-31 13:22 25821、参数引用传递(Parameters Passed by R ... -
For all entries使用中注意的问题
2011-03-30 21:54 11841.SELECT CARRID CONNI ... -
ABAP memory中的Export和Import
2011-03-30 17:02 3547REPORT z_barry_export_import . ... -
ABAP中的各种接口技术(转)
2011-03-30 12:19 2287下面总结一下ABAP中的各 ... -
导入现成的安装有SAP的虚拟机报错:Failed to lock the file解决方法
2011-03-23 10:52 2205虚拟机文件来源:windows server 200 ... -
sap 标准abap程序优化example
2011-03-22 11:11 1346用se38进入程序编辑器,然后在Environment-Exa ... -
BADI 入门
2011-03-21 22:17 1061badi入门的文章看了不少,感觉下面这一片讲的挺好的。 地址: ... -
根据事物码查找BADI(转)
2011-03-21 20:29 1398对于根据事务代码查找对应的BADI,网上介绍的方法很多,但总结 ... -
SAP IMG的概念
2011-03-05 11:14 2100SAP - IMG IMG是SAP后台配置的入口。 Imp ... -
abap debug中设置watchpoint
2011-03-02 23:12 5052拿一个实例来说:先将文件写入服务器,然后再从应用服务器上读取, ... -
Pooled and Cluster Tables
2011-03-01 16:12 1023Table pools (pools) and table c ...
相关推荐
如何调试程序的后台作业(Debugging programs in the background)
批量下载abap程序-改造版
ABAP程序下载工具 1.4.4 PROGRAM zdtp_massdownload.
ABAP程序相互调用例子及说明!如带select-options程序的Submit的用法和带parameters程序的Submit的用法等!
SAP ABAP程序性能调优介绍.pptx
我们在用事务码 SE38 创建新程序时,总是被要求指定一个程序类型,这些程序类型分别完成不同的功能,如果选择错误,程序就可能无法运行。下面一一介绍这些程序类型:
下载ABAP程序源代码的程序.pdf
从零开始,教授如何配置 Eclipse 开发 SAP ABAP 程序环境。2020 年最新版本操作...ABAP Development Tool的Java端实现就是Eclipse的一个扩展,使用JCO(Java Connector)连接ABAP后台的adt服务,实现对ABAP程序的操作。
ABAP程序 通过程序中的关键字查找程序名和首次出现的行数,双击程序名进入程序
这个程序的原名是Mass download version 1.5.0. 但是如果直接运行的话可能中文乱码。所以我做了一些调整,加了一个字符编码选项。如果是中文,就采用编码4310就行了。当然中文其实也有很多编码的,如gbk等。所以在跑...
这是一个ABAP子程序SUBMIT调用的方法,要根据实际灵活使用。
ABAP程序介绍
深入ABAP程序设计,语法,结构,性能优化,案例。
SAP后台作业记录,后台作业记录表及后台作业对应的状态查询
DBCO通过ABAP程序连接外部数据库
abap 练习程序abap 练习程序 abap 练习程序abap 练习程序abap 练习程序abap 练习程序
难得的关于abap程序开发的电子书,详细的介绍了abap环境的配置,数据字典和数据表的读取以及各种控件的使用
ABAP程序下载工具 1.5.2
ABAP 调用ABAP PROXY
ABAP 4程序开发ABAP 4程序开ABAP 4程序开发发