12-26-2007 4:54 AM
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.
12-26-2007 5:00 AM
12-26-2007 5:00 AM
12-26-2007 7:01 AM
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
12-26-2007 5:09 AM
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
12-26-2007 7:02 AM
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