如何实现ABAP程序连续自动运行？

Posted 2023-05-07

要求一个ABAP程序，每隔1小时自动运行一次，连续下去。因为每运行一次，将产生一些文件供其他程序调用。请问如何实现？忘了说明一点，时间段要作为SELECT SCREEN 的参数传到程序内，供SELECT语句查询出不同的数据。谢谢。

参考技术A 后台，不过你要运行的程序需要分前后台的情况，至少一些报错信息需要分在SM36可以设置定时运行程序 参考技术B 忘了说明一点，时间段要作为参数传到程序内，供SELECT语句查询出不同的数据。 参考技术C 看你要将文件生成在哪了，后台的话只能将文件生成在应用服务器上

ABAP实现屏幕自己刷新和跳转功能

ABAP开发工程中，有时候需要让跳转出的屏幕自动实现跳转和刷新的功能，该功能的实现需要在屏幕PBO 里面调用相应的事件执行。

关键代码为：

  SET TITLEBAR \' 屏幕自动程序\'.

  IF g_contine_no IS INITIAL.
    CREATE OBJECT gr_timer.
    CREATE OBJECT gr_app_timer.
    SET HANDLER gr_app_timer->handle_get_brgew FOR gr_timer.

    "0.5S 刷新一次
    gr_timer->interval = \'0.5\'.
    CALL METHOD gr_timer->run.

    "计数器，刷新6次获取重量
    g_count = g_count + 1.
    IF g_count GE 6.
      g_contine_no = \'X\'.
      "停止刷新标识
      g_refresh_no = \'X\'.
    ENDIF.
  ENDIF.

  IF  sy-ucomm <> \'ENTER\'.
    CREATE OBJECT gr_timer.
    CREATE OBJECT gr_app_timer.
    SET HANDLER gr_app_timer->handle_callback FOR gr_timer.
    gr_timer->interval = \'1\'.
    CALL METHOD gr_timer->run.
  ENDIF.

一个完整小程序的源代码为：自动刷新屏幕小程序