使用BDC进行电话交易'SM37'

2020-09-08 02:47发布

点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)您好,专家,我需要在我的z程序中...

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


您好,专家,我需要在我的z程序中调用T.cde SM37才能看到最后一天播放的作业,所以我的编码正在工作,但是我正在 接收到BDC_OKCODE子屏幕,我必须单击它以跳过第一个屏幕..并获得作业列表。

我的问题是:
有没有办法自动跳过它?

> BW:这是一个批处理程序,因此Submit根本无济于事...

最好的问候。

珍妮

我的编码是:

 数据from_date TYPE btcsdate。
 数据lt_from_data bdcdata的类型表。
 数据ls_from_data与lt_from_data类似。
 ls_from_data-program ='SAPLBTCH'。
 ls_from_data-dynpro ='2170'。
 ls_from_data-dynbegin ='X'。
 ls_from_data-fnam ='BTCH2170-FROM_DATE'。
 ls_from_data-fval = '22 .05.2019'。
 附录ls_from_data至lt_from_data。
 清除ls_from_data。

 ls_from_data-program =''。
 ls_from_data-dynpro =''。
 ls_from_data-dynbegin =''。
 ls_from_data-fnam ='BDC_OKCODE'。
 ls_from_data-fval ='= DOIT'。
 附录ls_from_data至lt_from_data。

 使用lt_from_data进行呼叫交易" SM37"。

(6.2 kB)
13条回答
奄奄一息的小鱼
2020-09-08 03:34

嗨,

我只是在建议其他安排工作的方法。

 DATA:v_jobhead就像tbtcjob。
   数据:v_jobcount类似于tbtcjob-jobcount。
   数据:v_eventparm类似于tbtcjob-eventparm。
   数据:v_flg_released TYPE c。
   数据:e_error。
   数据:正在运行,如tbtcv-run。

   类型:esp1_boolean像布尔布尔。

   常量:esp1_false TYPE esp1_boolean VALUE'',
              esp1_true类型esp1_boolean值'X'。

   常量:lv_true TYPE布尔值esp1_true,
              lv_false TYPE布尔值esp1_false。

   数据:v_jobnam类似于tbtcjob-jobname值'ZSD_IPRICE',
               v_report像sy-repid VALUE'ZSDPORICE_PROGRAM',
               v_varian LIKE raldb-variant,
               v_uname类似sy-uname。

   v_uname = sy-uname。
 * v_varian = sy-slset。
 *添加新工作
   通话功能'JOB_OPEN'
     出口
 * delanfrep ='X'
       职位名称= v_jobnam
     输入
       职位数= v_jobcount
     例外情况
       cant_create_job = 1
       invalid_job_data = 2
       jobname_missing = 3
       其他= 4。
   如果sy-subrc <> 0。
     e_error ='X'。
     消息"后台作业调度失败"类型" E"。
     出口。
   其他。

     通话功能'JOB_SUBMIT'
       出口
         authcknam = v_uname
         职位数= v_jobcount
         职位名称= v_jobnam
         报告= v_report
         变体= v_varian
       例外情况
         bad_priparams = 1
         bad_xpgflags = 2
         invalid_jobdata = 3
         jobname_missing = 4
         job_notex = 5
         job_submit_failed = 6
         lock_failed = 7
         program_missing = 8
         prog_abap_and_extpg_set = 9
         其他= 10。
     如果sy-subrc <> 0。
       消息"后台作业调度失败"类型" E"。
       出口。
     其他。
       通话功能" JOB_CLOSE"
         出口
 * EVENT_ID = IC_WWI_WORKPROCESS_EVENT
 * EVENT_PARAM = V_EVENTPARM
 * EVENT_PERIODIC ='X'
           职位数= v_jobcount
           职位名称= v_jobnam
           strtimmed ='X'
         输入
           job_was_released = v_flg_released
         例外情况
           cant_start_immediate = 1
           invalid_startdate = 2
           jobname_missing = 3
           job_close_failed = 4
           job_nosteps = 5
           job_notex = 6
           lock_failed = 7
           其他= 8。
       如果sy-subrc <> 0。
         消息"后台作业调度失败"类型" E"。
         出口。
       其他。
         消息"计划的后台作业"类型" S"。
       万一。
     ENDIF。"提交工作
   万一。  "乔恩公开赛
 

问候,

纳瓦

一周热门 更多>