* MSD.CLOCK.PERFECT
* 
* SCOTT REDMOND
* 06/27/94
*
* PURPOSE:  GENERATE PERFECT ATTENDENCE REPORT FOR PAYROLL
*
*---------------------------------------------------------------------*
*
OPEN 'CLOCKFILE' TO CLOCKFILE ELSE ABORT 201, 'CLOCKFILE'
OPEN 'CM' TO CM ELSE ABORT 201, 'CM'
OPEN 'PERFECT.WORK' TO PERFECT.WORK ELSE ABORT 201, 'PERFECT.WORK'
OPEN 'USER' TO USER ELSE ABORT 201, 'USER'
*
*
*----------------*
*
$INCLUDE GEN.COMMON
$INCLUDE USER
*
*----------------*
*
T=0
PERF=0
WT=0
OLD.WEEK=0
EOF=0
WEEK=0
PERFECT.SW=0
UTABLE=''
REPORT=0
*
CRT CS
HDG='PERFECT ATTENDENCE REPORT'
HDL=(80-(LEN(HDG))) / 2
CRT @(0,0):RV:STR(" ",80):ERV
CRT @(HDL,0):RV:HDG:ERV
CRT @(0,1):'MSD.CLOCK.PERFECT'
*
THIS.YEAR=OCONV(DATE(),'DY')
DAY=OCONV(DATE(),'DJ')
IF DAY <= 182 THEN 
  REPORT=1
END ELSE
  REPORT=2
END
*
100 *
CRT @(0,22):CL:RV:" ENTER REPORT YEAR ELSE <return> FOR CURRENT YEAR ":ERV
CRT @(23,5):CL:RV:" YEAR OF REPORT :":ERV:" ":THIS.YEAR
CRT @(40,5):
INPUT YEAR,5
IF YEAR=PF3 THEN GOTO 9000
IF NOT(NUM(YEAR)) THEN GOTO 100
IF YEAR='' THEN YEAR = THIS.YEAR
IF LEN(YEAR)=2 THEN
  YEAR=THIS.YEAR[1,2]:YEAR
END
CRT @(41,5):CL:YEAR
*
200 *     
CRT @(0,22):CL:RV:" ENTER THE REPORT NUMBER ":ERV
CRT @(23,8):CL:RV:" #1    01/01/":YEAR[3,2]:" thru 06/30/":YEAR[3,2]:" ":ERV
CRT @(23,10):CL:RV:" #2    07/01/":YEAR[3,2]:" thru 12/31/":YEAR[3,2]:" ":ERV 
CRT @(23,12):CL:RV:" SELECT REPORT # :":ERV:REPORT
CRT @(41,12):
INPUT IN.REPORT,4
IF IN.REPORT=PF3 THEN GOTO 9000
IF IN.REPORT='' THEN IN.REPORT=REPORT
IF IN.REPORT < 1 OR IN.REPORT > 2 THEN 
  CRT @(0,22):CL:RV:" SELECT REPORT #1 OR REPORT #2  <return> :":
  INPUT DUMMY
  GOTO 200
END
REPORT=IN.REPORT
CRT @(0,5):CR
CRT @(22,5):CL:RV:" PERFECT ATTENDENCE REPORT FOR ":YEAR:" ":ERV
IF REPORT=1 THEN
  NDG=" 01/01/":YEAR[3,2]:" thru 06/30/":YEAR[3,2]:" "
  NDL=(80-(LEN(NDG))) / 2
  CRT @(0,8):CL
  CRT @(NDL,8):RV:NDG:ERV 
  REPORT.ONE.DATE='01/01/':YEAR[3,2]
  REPORT.TWO.DATE='06/30/':YEAR[3,2]
  REPORT.ONE=ICONV(REPORT.ONE.DATE,'D')
  REPORT.TWO=ICONV(REPORT.TWO.DATE,'D')
END ELSE
  NDG=" 07/01/":YEAR[3,2]:" thru 12/31/":YEAR[3,2]:" "
  NDL=(80-(LEN(NDG))) / 2
  CRT @(0,8):CL
  CRT @(NDL,8):RV:NDG:ERV
  REPORT.ONE.DATE='07/01/':YEAR[3,2]
  REPORT.TWO.DATE='12/31/':YEAR[3,2]
  REPORT.ONE=ICONV(REPORT.ONE.DATE,'D')
  REPORT.TWO=ICONV(REPORT.TWO.DATE,'D')
END
*
CRT @(23,16):CL:"SEND REPORT TO THE PRINTER (Y/N) :":
INPUT PRINT.ANS,15
IF PRINT.ANS = 'Y' THEN
  PRINT.SW=1
  EXECUTE "EX PRINTER"
END ELSE
  PRINT.SW = 0
END
*
CLEARFILE PERFECT.WORK
*
*----- time table ----------------------------------------------*
CRT @(0,11):CR:
* <1>=sunday   - first day of week
* <2>=saturday - last day of week
*
ATT.ONE=0 ; ATT.TWO=0 ; TIME.TABLE=''
FOR GG = REPORT.ONE TO REPORT.TWO
  IF OCONV(GG,'DWA')='SUNDAY' THEN 
    ATT.ONE=ATT.ONE+1
    TIME.TABLE<1,ATT.ONE>=GG
  END  
  IF OCONV(GG,'DWA')='SATURDAY' THEN
    ATT.TWO=ATT.TWO+1
    TIME.TABLE<2,ATT.TWO>=GG
  END
NEXT GG
*
SELECT CLOCKFILE
LOOP
  READNEXT CKEY ELSE EOF=1
UNTIL EOF DO
  T=T+1
  IF REM(T,100)=0 THEN GOSUB 5000 ;* refresh totals
  CDATE=OCONV(CKEY,'G1|1')
  CUSER=OCONV(CKEY,'G0|1')
  IF CDATE >= REPORT.ONE AND CDATE <= REPORT.TWO THEN
    READ USER.REC FROM USER,CUSER ELSE GO 4999
    GOSUB 2000 ; *  ELIMINATION PROCESS
    IF ELIM.SW THEN GO 3555
    GOSUB 3000
    3555 *
    GOSUB 4000
  4999 *
REPEAT
GOSUB 5000
9000 *
STOP
*
2000 *--- elimination process -------------------------------*
ELIM.SW=0
IF USER.REC<UR$CLOCK.SYSTEM> # 'C' THEN ELIM.SW=1
IF USER.REC<UR$HIRE.DATE> >= REPORT.ONE THEN ELIM.SW=1
RETURN
*
3000 *--- calculate clock totals -----------------------------*
    CU.KEY=CUSER:"*":USER.REC<1>:".":USER.REC<2>
    READ OUT.REC FROM PERFECT.WORK,CU.KEY ELSE OUT.REC=''
    LOCATE(CDATE,TIME.TABLE,1;POSITION;"AR") ELSE NULL
    IF CDATE=TIME.TABLE<1,POSITION> ELSE POSITION=POSITION-1
    IF CDATE <= TIME.TABLE<2,POSITION> THEN
      READ CLOCK.REC FROM CLOCKFILE,CKEY THEN
        PERIOD=TIME.TABLE<3,POSITION>
        *----- initialize totals with each user, each day -----*
        OUT.TIME=0       ; IN.TIME=0     ; DAILY.TIME=0 
        VAC.TOTAL=0      ; SICK.TOTAL=0  ; HOLIDAY.TOTAL=0 
        FUNERAL.TOTAL=0  ; JURY.TOTAL=0  ; WORKMANS.TOTAL=0  
        PERSONAL.TOTAL=0 ; BONUS.TOTAL=0 ; OTHER.TOTAL=0
        *
        TIMCT=DCOUNT(CLOCK.REC<1>,VM)
        FOR TIM = 1 TO TIMCT     ;* calc daily time
          IF CLOCK.REC<2,TIM>='OFF' THEN
            OUT.TIME=CLOCK.REC<1,TIM>
            DAILY.TIME=DAILY.TIME+(OUT.TIME-IN.TIME)
          END ELSE
            JOB=''
            JOB=OCONV(CLOCK.REC<2,TIM>,'G1-1')
            JOB.TWO=JOB[2,2]'L%3'
            IF JOB[1,1]='V' THEN                    ;* compute vacation
              VAC.TOTAL=VAC.TOTAL+JOB.TWO
            END
            IF JOB[1,1]='S' THEN                    ;* compute sick
              SICK.TOTAL=SICK.TOTAL+JOB.TWO
            END
            IF JOB[1,1]='H' THEN                    ;* compute holiday
              HOLIDAY.TOTAL=HOLIDAY.TOTAL+JOB.TWO
            END
            IF JOB[1,1]='P' THEN                    ;* personal    
              PERSONAL.TOTAL=PERSONAL.TOTAL+JOB.TWO
            END
            IF JOB[1,1]='F' THEN                    ;* funeral     
              FUNERAL.TOTAL=FUNERAL.TOTAL+JOB.TWO
            END
            IF JOB[1,1]='W' THEN                    ;* workmans comp.
              WORKMANS.TOTAL=WORKMANS.TOTAL+JOB.TWO
            END
            IF JOB[1,1]='B' THEN                    ;* bonus day   
              BONUS.TOTAL=BONUS.TOTAL+JOB.TWO
            END
            IF JOB[1,1]='J' THEN                    ;* jury duty   
              JURY.TOTAL=JURY.TOTAL+JOB.TWO
            END
            IN.TIME=CLOCK.REC<1,TIM>
          END
        NEXT TIM      
        DAILY.TIME =(DAILY.TIME/60)/60   ;* convert seconds to hours
        DAILY.HOURS=INT(DAILY.TIME)
        DAILY.DECI =OCONV(DAILY.TIME,'G1.1')[1,3]
        TWO.DECI   =DAILY.DECI[1,2]'L%2'
        EXTRA.DECI =DAILY.DECI[3,1]
        IF EXTRA.DECI >= 5 THEN 
          IF TWO.DECI=99 THEN 
            TWO.DECI='00'
            DAILY.HOURS=DAILY.HOURS+1
          END ELSE
            TWO.DECI=TWO.DECI+1'R%2'
          END
        END ELSE
          IF TWO.DECI=99 THEN 
            TWO.DECI='00'
            DAILY.HOURS=DAILY.HOURS+1
          END
        END
      END
      OTHER.TOTAL      =SICK.TOTAL+PERSONAL.TOTAL+WORKMANS.TOTAL
      OUTPUT.HOURS     =DAILY.HOURS:TWO.DECI
      OUTPUT.HOURS     =OUTPUT.HOURS
      GOOD.HOURS       =(OUTPUT.HOURS-OTHER.TOTAL)'R%4'
      OUT.REC<POSITION,1>=(OUT.REC<POSITION,1>+GOOD.HOURS)'R%4'
      OUT.REC<POSITION,2>=OCONV(TIME.TABLE<1,POSITION>,'D2/')
      WRITE OUT.REC ON PERFECT.WORK,CU.KEY
      WT=WT+1
    END
  END
4000 *--- calculate project totals --------------------------*
SELECT CMS.SUPPORT.TRANS.FILE
*
T=0
TWK=0
*
100 READNEXT SKEY ELSE GO 999
READ SREC FROM CMS.SUPPORT.TRANS.FILE,SKEY ELSE GO 100
IF REM(T,50)=0 THEN
 CRT @(0,10):CR:"SUPPORT RECORDS READ:   ":T
 CRT @(0,11):"WORK RECORDS WRITTEN:   ":TWK
END
T=T+1
*
LOCATE(CDATE,TIME.TABLE,1;POSITION;"AR") ELSE NULL
IF CDATE=TIME.TABLE<1,POSITION> ELSE POSITION=POSITION-1
IF CDATE <= TIME.TABLE<2,POSITION> THEN
CT=DCOUNT(SREC<SS$ACTION.DATE>,VM)
FOR X = 1 TO CT
 IF SREC<SS$ACTION.CODE,X>=30 THEN
  IF SREC<SS$ACTION.DATE,X> >= REPORT.ONE AND SREC<SS$ACTION.DATE,X> <= REPORT.TWO THEN
   IF USERS # '' THEN
    IF USERS # SREC<SS$ACTION.OPERATOR,X> THEN GO 1225
   END
   WKREC=''
   WKREC<1>=SREC<SS$CLIENT>
   WKREC<2>=SREC<SS$ACTION.DATE,X>
   WKREC<3>=SREC<SS$ACTION.CODE,X>
   WKREC<4>=SREC<SS$ACTION.TIME,X>
   WKREC<5>=SREC<SS$ACTION.OPERATOR,X>
   WKREC<6>=SREC<SS$ACTION.MINUTES,X>
   WKREC<7>=SREC<SS$ACTION.TASK,X>
   WKREC<8>=SREC<SS$ACTION.BILL.CODE,X>
   IF WKREC<8>='1' THEN WKREC<8>='Bl' ELSE
    IF WKREC<8>='2' THEN WKREC<8>='SC' ELSE
     IF WKREC<8>='3' THEN WKREC<8>='Fr'
    END
   END
   WKREC<9>=SREC<SS$ACTION.COMMENT,X>
   TASK=WKREC<7>
   LOCATE(TASK,SREC,SS$TASK.NUMBER;FND) THEN
    DESC=SREC<SS$TASK.DESCRIPTION,FND>
   END ELSE
    DESC='TASK DESCRIPTION NOT FOUND!'
   END
   WKREC<10>=DESC
   WKREC<11>=SKEY
   TWK=TWK+1
   WRITE WKREC ON WORKFILE,TWK
  END
 END
1225 *
NEXT X
5000 *--- refresh totals ------------------------------------*
CRT @(NDL,14):CL:"ITEMS PROCESSED     :":T'L,'
CRT @(NDL,15):CL:"ITEMS FOUND         :":WT'L,'
RETURN