保持系统长时间在线

最新推荐文章于 2024-08-26 10:49:37 发布

小胖子写代码

最新推荐文章于 2024-08-26 10:49:37 发布

阅读量109

点赞数

分类专栏： # ABAP-小知识文章标签：开发语言

本文链接：https://blog.csdn.net/qq_38304013/article/details/130749908

版权

ABAP-小知识专栏收录该内容

13 篇文章 0 订阅

订阅专栏

这段代码展示了一个用于在SAP系统中保持长时间运行并显示进度的ZGUI报告。它使用SAPGUI_PROGRESS_INDICATOR函数更新进度条，每秒增加时间计数，并将小时、分钟和秒显示在文本中，确保系统状态的可视化。

摘要由CSDN通过智能技术生成

保持SAP系统长长时间在线不掉线，ZGUI代码如下:

*&---------------------------------------------------------------------*
*& Report ZGUI
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZGUI NO STANDARD PAGE HEADING MESSAGE-ID MG.
DATA : text TYPE string,
       chr  TYPE char2,
       time TYPE i.

DATA:sum  TYPE i,
     hour TYPE i,
     min  TYPE i,
     sec  TYPE i.


time = 0.
CONCATENATE 'Running(hh:mm:ss):' '00:00:00' INTO text.
DO.
  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
    EXPORTING
      percentage = time MOD 100
      text       = text
    EXCEPTIONS
      OTHERS     = 1.
  time = time + 1.
  sum = time * 5.
  IF sum MOD 3600 GE 1800.
    hour = sum / 3600 - 1.
  ELSE.
    hour = sum / 3600.
  ENDIF.


  IF ( sum MOD 3600 ) MOD 60 GE 30.
    min  = ( sum MOD 3600 ) / 60 - 1.
  ELSE.
    min  = ( sum MOD 3600 ) / 60.
  ENDIF.

  sec = sum MOD 60.

  chr = hour.
  IF hour < 10.
    CONCATENATE 'Running(hh:mm:ss):0' chr ':' INTO text.
  ELSE.
    CONCATENATE 'Running(hh:mm:ss):' chr ':' INTO text.
  ENDIF.


  chr = min.
  IF min < 10.
    CONCATENATE text '0' chr ':' INTO text.
  ELSE.
    CONCATENATE text chr ':' INTO text.
  ENDIF.

  chr = sec.
  IF sec < 10.
    CONCATENATE text '0' chr INTO text.
  ELSE.
    CONCATENATE text chr INTO text.
  ENDIF.

  WAIT UP TO 5 SECONDS.
ENDDO.