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: 

Showing clock: Is this possible : Points assured

Former Member
0 Kudos

hi all..

i need to show live running clock time on a screen in a module pool program. Is this possible. If yes please let me know how..

thanks in advance

Points assured.

1 ACCEPTED SOLUTION

Former Member
0 Kudos

hi

good

please refer the following links

hope it helps u

thanks

mrutyun^

4 REPLIES 4

Former Member
0 Kudos

hi

good

please refer the following links

hope it helps u

thanks

mrutyun^

0 Kudos

Thanks Mrutyunjaya for your reply..

but this talks about showing time on a report output. But i need that on a screen field in a dialog program.

Can you please explain how to do that

thanks

Former Member
0 Kudos

Hi All,

Now you may try for this code.

Here I am NOT USING ANY CLASS OBJECTS .

N.B. Create a PF status GAME with a button TIMER having a dynamic text.

Create a function module like 'zmart_timer' which

contains nothing as source code then use this code.

************************************

REPORT ZMART_REALTIMER_NEW .

data: v_flag,

v_times TYPE I,

TIMER(12) .

INITIALIZATION.

v_times = 1.

START-OF-SELECTION.

PERFORM start_timer.

AT USER-COMMAND.

IF SY-UCOMM = 'PLAY'.

v_times = 1.

CLEAR V_FLAG.

ENDIF.

perform sub_write.

PERFORM status_call.

FORM START_REFRESH USING TASKNAME.

SET USER-COMMAND '123'.

ENDFORM.

form sub_write.

SY-LSIND = 0.

CONCATENATE SY-UZEIT0(2) ':' SY-UZEIT2(2) ':' SY-UZEIT+4(2) INTO TIMER.

endform.

form start_timer .

SET PF-STATUS 'GAME'.

CALL FUNCTION 'ZMART_TIMER'

starting new task '*'

performing start_refresh on end of task.

WRITE:/21 'Created by Smart Varghese'.

endform. " start_timer

form status_call .

IF SY-UCOMM = 'BACK'.

LEAVE PROGRAM.

ENDIF.

IF V_FLAG = SPACE.

wait up to '.1' SECONDS.

CALL FUNCTION 'ZMART_TIMER'

starting new task '*'

performing start_refresh on end of task.

ENDIF.

endform. " status_call

********************************************

If found useful please reward points by clicking on the STAR right of the reply.

Message was edited by:

satish

0 Kudos

Thanks Satish for your reply..

but this talks about showing time on a report output. But i need that on a screen field in a dialog program.

Can you please explain how to do that

thanks