程序TimeOut后几种处理的第三种方法(面试题)

bober2004

能详解吗?想知道啦

lgp100_ren

好帖

lxy9792

期待奇迹 出现！

awarecan

这两天用的一个培训系统，服务器端某个网络设备配置的有问题，一但在gui里2分钟没有操作，就会把连接给断掉
正好看到这个帖子，想到可以用避免超时一样的技术来解决这个问题。

具体解决超时问题的方法见以下代码。

关键是用CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'来避免超时。

1. 
   
2. REPORT  z_timeout.
   
3. 
   
4. PARAMETERS seconds TYPE i.
   
5. 
   
6. DATA: base TYPE i,
   
7.       span TYPE i,
   
8.       ms TYPE i,
   
9.       text_clock TYPE string,
   
10.       timer TYPE REF TO if_abap_runtime.
    
11. 
    
12. START-OF-SELECTION.
    
13. 
    
14.   ms = seconds * 1000 . " Maybe different in other OS, we have used win2003
    
15. 
    
16.   timer = cl_abap_runtime=>create_lr_timer( ).
    
17. 
    
18.   base = timer->get_runtime( ) / 1000.
    
19. 
    
20.   DO.
    
21. 
    
22.     DO 100 TIMES.
    
23.       span = timer->get_runtime( ) / 1000 - base.
    
24.       IF span > ms.
    
25.         MESSAGE 'Time is up.' TYPE 'S'.
    
26.         LEAVE PROGRAM.
    
27.       ENDIF.
    
28. 
    
29.       text_clock = span.
    
30.       CONCATENATE 'We have spend' text_clock 'milliseconds.'
    
31.         INTO text_clock SEPARATED BY ' '.
    
32. 
    
33.       CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
    
34.         EXPORTING
    
35.           percentage = sy-index
    
36.           text       = text_clock.
    
37. 
    
38.       WAIT UP TO 3 SECONDS.  " Maybe use more long waiting time
    
39. 
    
40.     ENDDO.
    
41. 
    
42.   ENDDO.
    

复制代码

neafea

REPORT  z_timeout.

PARAMETERS seconds TYPE i.

DATA: base TYPE i,
      span TYPE i,
      ms TYPE i,
      text_clock TYPE string,
      timer TYPE REF TO if_abap_runtime.

START-OF-SELECTION.

  ms = seconds * 1000 . " Maybe different in other OS, we have used win2003

  timer = cl_abap_runtime=>create_lr_timer( ).

  base = timer->get_runtime( ) / 1000.

  DO.

    DO 100 TIMES.
      span = timer->get_runtime( ) / 1000 - base.
      IF span > ms.
        MESSAGE 'Time is up.' TYPE 'S'.
        LEAVE PROGRAM.
      ENDIF.

      text_clock = span.
      CONCATENATE 'We have spend' text_clock 'milliseconds.'
        INTO text_clock SEPARATED BY ' '.

      CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
        EXPORTING
          percentage = sy-index
          text       = text_clock.

      WAIT UP TO 3 SECONDS.  " Maybe use more long waiting time

    ENDDO.

  ENDDO.

zhaoleslie

没有最好，只有更好。

只要是人看的结果，一般结果的数据量一般不会特别大。

但是可能需要检索非常巨大的数据去获得结果，所以可以通过优化索引和程序来提高数据读取效率。

比如把一个大表改为几个小表。去除不必要的字段读取和检索。

缩短期间等。