01 May 2014

Dynamic screen

Move data in dynamic screen.




*&---------------------------------------------------------------------*
*& Report  ZVK_OO_INTERFACES1_TEST
*&---------------------------------------------------------------------*
REPORT  zvk_oo_interfaces1_test NO STANDARD PAGE HEADING.

DATABEGIN OF itab OCCURS 5.

        INCLUDE STRUCTURE thlines.

DATAEND OF itab.

DATA TYPE VALUE 99.

DATA TYPE 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 TO i.

  IF 701ENDIF.

  ADD TO j.

  IF j > 1ENDIF.

  sy-lsind 1.

  FORMAT COLOR j.

  DO 40 TIMES.

    WRITE (132' '.

  ENDDO.

  SKIP TO LINE 15.

  ADD 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