Move data in dynamic screen.
*&---------------------------------------------------------------------*
*& Report ZVK_OO_INTERFACES1_TEST
*&---------------------------------------------------------------------*
REPORT zvk_oo_interfaces1_test NO STANDARD PAGE HEADING.
DATA: BEGIN OF itab OCCURS 5.
INCLUDE STRUCTURE thlines.
DATA: END OF itab.
DATA i TYPE i VALUE 99.
DATA j TYPE i VALUE 99.
* Run the async. function module the first time
START-OF-SELECTION.
SET BLANK LINES ON.
CALL FUNCTION 'SPTA_RFC_PING_AND_WAIT'
STARTING NEW TASK 'WAIT'
PERFORMING when_finished ON END OF TASK
EXPORTING
seconds = 1.
WRITE: ''.
* Run the async. function module and display the freshest data
AT USER-COMMAND.
ADD 3 TO i.
IF i > 70. i = 1. ENDIF.
ADD 1 TO j.
IF j > 6 . j = 1. ENDIF.
sy-lsind = 1.
FORMAT COLOR = j.
DO 40 TIMES.
WRITE (132) ' '.
ENDDO.
SKIP TO LINE 15.
ADD 1 TO j.
WRITE AT /i ' ' COLOR = j.
** WRITE AT /i ' Hello I''m still running ' COLOR = j.
WRITE AT /i sy-uzeit COLOR = j.
WRITE AT /i ' ' COLOR = j.
CALL FUNCTION 'SPTA_RFC_PING_AND_WAIT'
STARTING NEW TASK 'INFO'
PERFORMING when_finished ON END OF TASK
EXPORTING
seconds = 1.
* When the async. function module fini shed, this form will be called
FORM when_finished USING taskname.
RECEIVE RESULTS FROM FUNCTION 'Y_ENQUE_SLEEP'.
* Trigger an event to run the at user-command
SET USER-COMMAND 'BUMM'.
ENDFORM. "when_finished
No comments:
Post a Comment