Çarşamba , 26 Temmuz 2017

SAP Timer Kodu

Home Forumlar SAP ABAP Forum ABAP Genel SAP Timer Kodu

Bu konu 0 yanıt ve 1 izleyen içeriyor ve en son Sinan Dilaver’in profil fotoğrafı Sinan Dilaver tarafından 1 yıl 10 ay önce tarihinde güncellendi.

1 yazı görüntüleniyor (toplam 1)
  • Yazar
    Yazılar
  • #4263
    Sinan Dilaver’in profil fotoğrafı
    Sinan Dilaver
    Yönetici

    ekranın açıldıkan sonra kendini yenilemsini için kullanılabilecek örnek kod, özellikle kantar ekranı yazıyorsanız işinize yarar 🙂

    FUNCTION Z_WAIT_30_SECS.

    DATA: ZTIME LIKE SY-UZEIT.

    GET TIME.

    ZTIME = SY-UZEIT + 30.

    DO.
    GET TIME.
    IF SY-UZEIT >= ZTIME.
    EXIT.
    ENDIF.
    ENDDO.

    ENDFUNCTION.

    Then create this test program.

    REPORT ZREFRESH LINE-SIZE 132 no standard page heading.

    DATA: ZNUM LIKE SY-TABIX.

    GET TIME.
    WRITE: /01 ‘Update Number:’, ZNUM, SY-UZEIT.

    CALL FUNCTION ‘Z_WAIT_30_SECS’
    STARTING NEW TASK ‘IF’
    PERFORMING START_REFRESH ON END OF TASK.

    AT USER-COMMAND.
    IF SY-UCOMM = ‘REFR’.

    SY-LSIND = SY-LSIND – 1.
    ADD 1 TO ZNUM.
    GET TIME.
    WRITE: /01 ‘Update Number:’, ZNUM, SY-UZEIT.

    CALL FUNCTION ‘Z_WAIT_30_SECS’
    STARTING NEW TASK ‘IF’
    PERFORMING START_REFRESH ON END OF TASK.

    ENDIF.

    *—————————————————————-
    * Program Subroutines
    *—————————————————————-
    FORM START_REFRESH USING TASKNAME.
    * The SET USER-COMMAND initiates the communication back to the program
    SET USER-COMMAND ‘REFR’.

    ENDFORM.

    *– End of Program

1 yazı görüntüleniyor (toplam 1)

Bu konuyu yanıtlamak için giriş yapmış olmalısınız.