*
* USER FILE LAYOUT
*
* KEY = # (FOUR DIGIT CODE)
*
*
EQU UR$FNAME             TO 01
EQU UR$LNAME             TO 02
EQU UR$PHONE             TO 03
EQU UR$PASSWORD          TO 04
EQU UR$DEPT              TO 05
*
EQU UR$TYPE.CODE         TO 09  ;* F-FULL TIME, P-PART TIME, M-MANAGER
EQU UR$STATUS            TO 10  ;* A-ACTIVE, I-INACTIVE
EQU UR$VACATION.AVAIL    TO 11  ;* VACATION HOURS AVAIABLE
EQU UR$PERSONAL.AVAIL    TO 12  ;* PERSONAL HOURS AVAILABLE
*
EQU UR$REGULAR.HOURS     TO 13  ;* REG HOURS WORKED LAST
EQU UR$OT.HOURS          TO 14  ;* OT HOURS WORKED
EQU UR$HOLIDAY.HOURS     TO 15  ;* MISC HOURS WORKED
EQU UR$VACATION.HOURS    TO 16  ;* VACATION HOURS USED
EQU UR$SICK.HOURS        TO 17  ;* SICK HOURS USED
EQU UR$FUNERAL.HOURS     TO 18
EQU UR$WORKMANS.HOURS    TO 19  ;* WORKMANS COMP HOURS
EQU UR$PERSONAL.HOURS    TO 20
EQU UR$JURY.DUTY.HOURS   TO 21
EQU UR$BONUS.HOURS       TO 22
EQU UR$OTHER.HOURS       TO 23
EQU UR$TOTAL.HOURS       TO 24  ;* TOTAL HOURS IN LAST PAY PERIOD
*
*----- hours for next period processing---*
EQU UR$NEXT.REG          TO 25  ;* REG HOURS WORKED LAST
EQU UR$NEXT.OT           TO 26  ;* OT HOURS WORKED
EQU UR$NEXT.HOLIDAY      TO 27  ;* HOLIDAY HOURS    
EQU UR$NEXT.VACATION     TO 28  ;* VACATION HOURS USED
EQU UR$NEXT.SICK         TO 29  ;* SICK HOURS USED
EQU UR$NEXT.FUNERAL      TO 30
EQU UR$NEXT.WORKMANS     TO 31  ;* WORKMANS COMP HOURS
EQU UR$NEXT.PERSONAL     TO 32
EQU UR$NEXT.JURY         TO 33
EQU UR$NEXT.BONUS        TO 34
EQU UR$NEXT.OTHER        TO 35
EQU UR$NEXT.TOTAL        TO 36  ;* TOTAL HOURS IN LAST PAY PERIOD
*
EQU UR$LAST.PAY.DATE     TO 37  ;* LAST PAY PERIOD PROCESSED
EQU UR$NEXT.PAY.DATE     TO 38  ;* NEXT PAY PERIOD TO PROCESS
EQU UR$LAST.UPDATE       TO 39  ;* LAST MANUAL UPDATE
EQU UR$LAST.UPDATE.OPER  TO 40  ;* LAST MANUAL UPDATE OPERATOR
EQU UR$HIRE.DATE         TO 41
EQU UR$CALC.FACTOR       TO 42  ;* CHANGED TO # VACATION DAYS/YEAR 
EQU UR$CLOCK.SYSTEM      TO 43
EQU UR$USER              TO 44
EQU UR$OFF.PROBATION     TO 45  ;* date user is off probation (hire +90)
EQU UR$BILL.BILL         TO 46  ;* BILLABLE HOURS WORKED
EQU UR$BILL.SERVICE      TO 47  ;* HOURS WORKED SERVICE CONTRACTS
EQU UR$BILL.FREE         TO 48  ;* HOURS WORKED - FREE
EQU UR$BILL.CLIENT       TO 49  ;* CLIENT (MV)   BILLABLE HOURS
EQU UR$BILL.CLIENT.HRS   TO 50  ;* MV HOURS CORRESPOND WITH BILL.CLIENT
EQU UR$SERVICE.CLIENT.HRS TO 51 ;* MV HOURS CORRESPOND WITH BILL.CLIENT
EQU UR$FREE.CLIENT.HRS    TO 52 ;* MV HOURS CORRESPOND WITH BILL.CLIENT
EQU UR$INTERNAL.CALC      TO 53
EQU UR$PERSONAL.BEGIN     TO 54 ;* DATE PERSONAL TIME BEGINS ACCRUAL
*
EQU UR$SICK.CONV          TO 55 ;* SICK AVAIL CONV 05/31/95 TO PERSONAL
EQU UR$PERSONAL.CONV      TO 56 ;* NEW PERSONAL CONV (SICK TO PER HOURS)
*-------- perfect attendence attributes ---------------------*
*
* HOURS WORKED + VACATION + HOLIDAY + FUNERAL
*
EQU UR$PERFECT.WEEK.ONE   TO 57 ;* HOURS FOR PERFECT ATTND: WEEK ONE
EQU UR$PERFECT.WEEK.TWO   TO 58 ;* HOURS  ''     ''    ''   WEEK TWO
*
*
EQU UR$JOB.CODE.DEFAULT   TO 90 ;* DEFAULT FOR CLOCK-ON JOB