Skip to Content
0
Former Member
May 10, 2008 at 04:42 AM

small report with timer

24 Views

dis is a program which displays time and displays a report.

REPORT ZST3PRO36_PM no standard page heading.

data : wa type zst3_emp_attend,

itab type table of zst3_emp_attend.

select * from zst3_emp_attend into corresponding fields of table itab up to 18 rows.

GET TIME.

WRITE: /01 'Application server time:', sy-uzeit.

uline.

CALL FUNCTION 'zpraveen'

STARTING NEW TASK 'pr'

PERFORMING start_refresh ON END OF TASK.

AT USER-COMMAND.

IF sy-ucomm = 'REFR'.

sy-lsind = sy-lsind - 1.

GET TIME.

WRITE: /01 'Application server time:', sy-uzeit.

uline.

loop at itab into wa.

write :/ wa-slno,

wa-eid,

wa-ename,

wa-edate,

wa-eastatus.

endloop.

CALL FUNCTION 'zpraveen'

STARTING NEW TASK 'IF'

PERFORMING start_refresh ON END OF TASK.

ENDIF.

FORM start_refresh USING taskname.

SET USER-COMMAND 'REFR'.

paul.