SUBROUTINE CLOCK.CALC(ZRAY)
*---------------------------*
* CLOCK.CALC
* BY D.BELL
* 3/22/91
*
* THIS SUBROUTINE CALCULATES HOURS WORKED BY PASSING AN ARRAY CALLED
* ZRAY.
* ZRAY<1>=DATE
* ZRAY<2>=TIMES
* ZRAY<3>=PROJECTS
*---------------------------*
CS=@(-1) ; CR=@(-3) ; CL=@(-4) ; RV=@(-13) ; ERV=@(-14)
VM=CHAR(253) ; SVM=CHAR(252) ; AM=CHAR(254) ; BEEP=CHAR(7)
PF1='<' ; PF2='P' ; PF3='/'
PROMPT " "
HR.TOT=0
TOT.HOURS=0
ARAY=''
*
ZCT=DCOUNT(ZRAY<1>,VM)
ZDATE=0
FOR Z=1 TO ZCT
 IF Z > 1 AND ZRAY<1,Z> # ZDATE THEN
  GOSUB 1000
  ARAY<1>=ZRAY<1,Z>
  ARAY<2>=ZRAY<2,Z>
  ARAY<3>=ZRAY<3,Z>
  ARAY<4>=Z
 END ELSE
  ARAY=INSERT(ARAY,1,-1;ZRAY<1,Z>)
  ARAY=INSERT(ARAY,2,-1;ZRAY<2,Z>)
  ARAY=INSERT(ARAY,3,-1;ZRAY<3,Z>)
  ARAY=INSERT(ARAY,4,-1;Z)
 END
 ZDATE=ZRAY<1,Z>
NEXT Z
GOSUB 1000
GO 9999
1000 *
ACT=DCOUNT(ARAY<1>,VM)
FOR A=1 TO ACT
 NEW.DATE=ARAY<1,A>
 TIME=ARAY<2,A>
 PRJCT=ARAY<3,A>
 IF NEW.DATE # DATE() THEN                
  IF REM(ACT,2) THEN
   CRT @(0,22):BEEP:"TIMECARD is in an ambiguous state - unable to process!":
   RQM
   TOT.HOURS=0
   ZRAY<4,Z>='?'
   GO 100
  END
 END
 IF REM(A,2) THEN
  IF PRJCT='OFF' THEN
   CRT @(0,22):BEEP:"The TIMECARD is in an ambiguous state - Unable to process!":
   RQM
   TOT.HOURS=0
   ONTIME='UNKNOWN'
   ZRAY<4,ARAY<4,A>>='?'
  END ELSE
   ONTIME=TIME
  END
 END ELSE
  IF PRJCT # 'OFF' THEN
   CRT @(0,22):BEEP:"The TIMECARD is in an ambiguous state - Unable to process!":
   RQM
   TOT.HOURS=0
   OFFTIME='UNKNOWN'
  END ELSE
   OFFTIME=TIME
  END
  IF OFFTIME='UNKNOWN' OR ONTIME='UNKNOWN' THEN
   ZRAY<4,ARAY<4,A>>='?'
  END ELSE
   IF ONTIME > OFFTIME THEN
     OFFTIME=OFFTIME+86400
   END
   HOURS=OFFTIME-ONTIME
   ZRAY<4,ARAY<4,A>>=HOURS
  END
 END
NEXT A
100
RETURN
9999
RETURN