使用BDC进行电话交易'SM37'-第2页回答

1楼 · 2020-09-08 03:35.采纳回答

Jennifer Jena ：运行以下代码。

 DATA 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至lt_from_data。


 清除ls_from_data。
 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-fnam ='BTCH2170-TO_DATE'。
 ls_from_data-fval = '22 .05.2019'。
 附录ls_from_data至lt_from_data。


 清除ls_from_data。
 ls_from_data-fnam ='BTCH2170-JOBNAME'。
 ls_from_data-fval ='*'。
 附录ls_from_data至lt_from_data。


 清除ls_from_data。
 ls_from_data-fnam ='BTCH2170-USERNAME'。
 ls_from_data-fval ='*'。
 附录ls_from_data至lt_from_data。


 清除ls_from_data。
 ls_from_data-fnam ='BTCH2170-SCHEDUL'。
 ls_from_data-fval ='X'。
 附录ls_from_data至lt_from_data。


 清除ls_from_data。
 ls_from_data-fnam ='BTCH2170-READY'。
 ls_from_data-fval ='X'。
 附录ls_from_data至lt_from_data。


 清除ls_from_data。
 ls_from_data-fnam ='BTCH2170-RUNNING'。
 ls_from_data-fval ='X'。
 附录ls_from_data至lt_from_data。


 清除ls_from_data。
 ls_from_data-fnam ='BTCH2170-FINISHED'。
 ls_from_data-fval ='X'。
 附录ls_from_data至lt_from_data。


 清除ls_from_data。
 ls_from_data-fnam ='BTCH2170-ABORTED'。
 ls_from_data-fval ='X'。
 附录ls_from_data至lt_from_data。


 清除ls_from_data。
 ls_from_data-fnam ='BDC_OKCODE'。
 ls_from_data-fval ='= DOIT'。
 附录ls_from_data至lt_from_data。


 清除ls_from_data。
 ls_from_data-program ='SAPLBTCH'。
 ls_from_data-dynpro ='2170'。
 ls_from_data-dynbegin ='X'。
 附录ls_from_data至lt_from_data。

 清除ls_from_data。
 ls_from_data-fnam ='BDC_OKCODE'。
 ls_from_data-fval ='/EECAN'。
 附录ls_from_data至lt_from_data。


 使用lt_from_data进行呼叫交易'SM37'
       模式" E"。

ZJXianG

2楼-- · 2020-09-08 03:34

对于您的后续问题< em>"我单击SM37上的BACK按钮（Jobs_list屏幕），然后我将返回T.code SM37的选择屏幕，而不是直接返回到我的Zprogram。" 添加对 BDC通话的开始屏幕。因此，实际上发生的是您已经填写了第一个屏幕，第二个屏幕本质上是一个错误（因此，模式" E"有效），然后回到第一个屏幕时，录音就知道该怎么做

 DATA 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 ='BDC_OKCODE'。
 ls_from_data-fval ='/EECAN'。
 附录ls_from_data至lt_from_data。
 清除ls_from_data。

clever101

3楼-- · 2020-09-08 03:36

请使用"评论"按钮，而不是"答案"；正如SAP所说："在回答之前，仅应在提出解决海报问题的方案时才提交答案。"

Climb_Ma

4楼-- · 2020-09-08 03:39

或仅致电（或改编）FM BP_JOB_MAINTENANCE_SM37B。

奄奄一息的小鱼

5楼-- · 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。"提交工作
   万一。  "乔恩公开赛

问候，

纳瓦