24 lines
635 B
Plaintext
Executable File
24 lines
635 B
Plaintext
Executable File
SUBROUTINE TTIME
|
|
****************************************
|
|
* This subroutine returns the number of
|
|
* hours worked by a given employee.
|
|
* It is called from dictionary item
|
|
* TTIME in CLOCKFILE.
|
|
****************************************
|
|
$INCLUDE ACCESS.COMMON
|
|
$INCLUDE GEN.COM2
|
|
OPEN FILENAME$ TO CLOCKFILE ELSE ABORT 201,FILENAME$
|
|
READ REC FROM CLOCKFILE,ID$ THEN
|
|
REC.CNT=DCOUNT(REC,VM)
|
|
IF REM(REC.CNT,2) THEN REC.CNT=REC.CNT-1
|
|
TTIME=0
|
|
FOR X=1 TO REC.CNT STEP 2
|
|
TTIME=TTIME+(REC<1,X+1>-REC<1,X>)
|
|
NEXT X
|
|
TTIME=INT(TTIME/60)
|
|
HOURS=INT(TTIME/60)
|
|
MINUTES=REM(TTIME,60)'R%2'
|
|
CURRENT$=HOURS:":":MINUTES
|
|
END
|
|
RETURN CURRENT$
|