Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

hi

Former Member
0 Kudos

Hi,

is it possible to do <b>time program</b> in abap.

thanks,

masood.

1 ACCEPTED SOLUTION

Former Member
0 Kudos

Hope this is your requirement.....

REPORT ZTEST_PROGRAM NO STANDARD PAGE HEADING.

DATA : wa(72) TYPE c.

*----


CLASS my DEFINITION.

PUBLIC SECTION.

METHODS : run_handler FOR EVENT finished OF cl_gui_timer.

ENDCLASS. "my DEFINITION

DATA timer TYPE REF TO cl_gui_timer.

DATA myh TYPE REF TO my.

----


  • CLASS my IMPLEMENTATION

----


*

----


CLASS my IMPLEMENTATION.

METHOD run_handler.

CALL METHOD timer->run.

PERFORM mylist.

ENDMETHOD. "run_handler

ENDCLASS. "my IMPLEMENTATION

*----


*----


Init

INITIALIZATION.

CREATE OBJECT timer.

CREATE OBJECT myh.

SET HANDLER myh->run_handler FOR ALL INSTANCES.

  • PARAMETERS : a TYPE c.

*----


End of selection

START-OF-SELECTION.

WRITE sy-uzeit TO wa.

WRITE wa.

timer->interval = '0.5'.

CALL METHOD timer->run.

*----


FORM mylist.

WRITE sy-uzeit TO wa.

MODIFY LINE 1 LINE VALUE FROM wa.

ENDFORM. "MYLIST

Regards,

Pavan

6 REPLIES 6

Former Member
0 Kudos

Hi Masood,

Could you please be more clear on what your requirement is??

Best Regards,

Ram.

0 Kudos

hi ram

im trying to do a program called time program which diplays time on the screen.

is it possible in abap or not.

Former Member
0 Kudos

Hope this is your requirement.....

REPORT ZTEST_PROGRAM NO STANDARD PAGE HEADING.

DATA : wa(72) TYPE c.

*----


CLASS my DEFINITION.

PUBLIC SECTION.

METHODS : run_handler FOR EVENT finished OF cl_gui_timer.

ENDCLASS. "my DEFINITION

DATA timer TYPE REF TO cl_gui_timer.

DATA myh TYPE REF TO my.

----


  • CLASS my IMPLEMENTATION

----


*

----


CLASS my IMPLEMENTATION.

METHOD run_handler.

CALL METHOD timer->run.

PERFORM mylist.

ENDMETHOD. "run_handler

ENDCLASS. "my IMPLEMENTATION

*----


*----


Init

INITIALIZATION.

CREATE OBJECT timer.

CREATE OBJECT myh.

SET HANDLER myh->run_handler FOR ALL INSTANCES.

  • PARAMETERS : a TYPE c.

*----


End of selection

START-OF-SELECTION.

WRITE sy-uzeit TO wa.

WRITE wa.

timer->interval = '0.5'.

CALL METHOD timer->run.

*----


FORM mylist.

WRITE sy-uzeit TO wa.

MODIFY LINE 1 LINE VALUE FROM wa.

ENDFORM. "MYLIST

Regards,

Pavan

former_member196299
Active Contributor
0 Kudos

hi ,

did u mean progress indicator in your program .

Regards ,

Ranjita

former_member196299
Active Contributor
0 Kudos

hi ,

did u mean progress indicator in your program .

Regards ,

Ranjita

Former Member
0 Kudos

Hi Masood,

You can use the system field sy-uzeit.

Regards,

Ravi Bhatnagar