*---------------------------- * * PROGRAM: CLOCK.UPDATE.ACCT * BY: D.BELL * ON: 1/24/91 *-----------------------------* 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 " "; DONE=0 MAXPOS=21; MAXCOL=79 MODIFY=0 LAST.PERIOD=0 TODAY=DATE() JRNL='' CRT CS * PORT=OCONV('','U50BB') PORT=FIELD(PORT," ",1) BEGIN CASE CASE PORT='20'; ADDS=1 CASE PORT='3' ; ADDS=1 CASE PORT='16' ; ADDS=1 CASE 1 ; ADDS=0 END CASE * OPEN 'USER' TO USER.FILE ELSE ABORT OPEN 'PROJECT' TO PROJECT ELSE ABORT OPEN 'JOB' TO JOB.FILE ELSE ABORT OPEN 'CLOCKFILE' TO CLOCKFILE ELSE ABORT * HELP.TBL=''; GOSUB 4000 ;* LOAD PROJECT CODES INTO ARRAY EMP.TBL=''; GOSUB 4300 ;* BUILD EMPLOYEE INDEX LOOP SUPER=''; GOSUB 4500 ;* VERIFY SUPERVISOR ACCESS UNTIL SUPER # '' DO REPEAT IF SUPER = '/' THEN STOP * LOOP 1000 * USER INPUT CRT CS COL=0; POS=0 CRT @(POS,COL):"CLOCK.UPDATE.ACCT" CRT @(0,POS+22):"Enter the Employee Number ":CL TSTRING="Employee # :" TLEN=LEN(TSTRING) CRT @(COL+5,POS+4):TSTRING:" ________" CRT @(COL+5+TLEN,POS+4): INPUT EMP IF EMP='OFF' THEN STOP IF EMP='' OR EMP='/' THEN CRT @(0,POS+22):"Thank You - Goodbye!":CL: DONE=1 RQM GO 1999 END LOCATE(EMP,EMP.TBL,1;EINDX) THEN USER=EMP.TBL<2,EINDX> END ELSE USER=EMP END READ UREC FROM USER.FILE,USER THEN TSTRING="User ID # :":USER CRT @(COL+5,POS+2):TSTRING TSTRING="User Name :":UREC<1>:" ":UREC<2> CRT @(COL+5,POS+3):TSTRING TSTRING="Employee #:":UREC<6> CRT @(COL+5,POS+4):TSTRING GOSUB 2000 END ELSE CRT @(0,POS+22):BEEP:"INVALID USER CODE - Try Again!":CL RQM GO 1000 END 1999 * UNTIL DONE DO REPEAT STOP * 2000 * TIMECARD HEADER POS=6; COL=0 CRT @(COL,POS):CR GOSUB 2225 TSTRING="##"'L#3':" DATE"'L#9':" IN/OUT"'L#9':" HOURS"'L#9':"PROJECT"'L#7' CRT @(COL+2,POS):TSTRING CRT @(COL+42,POS):TSTRING * GOSUB 2200 * Z=0; ZCT=0; ZPOS=0; MAX=15; SW=0; POS=6; COL=2 ZRAY='' IRAY='' * * ZRAY<1>=DATES ; MV * ZRAY<2>=TIMES ; MV * ZRAY<3>=PRJCTS; MV * FOR D=SDATE TO EDATE STEP -1 DKEY=USER:"|":D READ DREC FROM CLOCKFILE,DKEY THEN ZCT=DCOUNT(DREC<1>,VM) FOR Z=ZCT TO 1 STEP -1 ZRAY=INSERT(ZRAY,1,1;D) ZRAY=INSERT(ZRAY,2,1;DREC<1,Z>) ZRAY=INSERT(ZRAY,3,1;DREC<2,Z>) NEXT Z END NEXT D CALL CLOCK.CALC(ZRAY) * TOT.HRS=0 ZCT=DCOUNT(ZRAY<1>,VM) FOR Z=1 TO ZCT IF ZRAY<4,Z> > 0 AND ZRAY<4,Z> # '?' THEN TOT.HRS=TOT.HRS+ZRAY<4,Z> END NEXT Z CRT @(58,4):OCONV(TOT.HRS,'MTS') * Z=1 LOOP UNTIL Z > ZCT DO IF ZCT>0 THEN FOR Z=1 TO ZCT DATE=D ZPOS=ZPOS+1 IF INT(ZPOS/MAX) THEN SW=SW+1 IF REM(SW,2) THEN COL=42 END ELSE COL=1 GOSUB 2100 IF ANS='B' THEN GO 2000 END ZPOS=1 END IF ZRAY<3,Z>='OFF' THEN ZTIME=OCONV(ZRAY<2,Z>,"MTH") ZTIME=OCONV(ZTIME,"MCL") ZDATE=ZRAY<1,Z> ZHOURS=OCONV(ZRAY<4,Z>,'MT') TSTRING=Z'L#3':OCONV(ZDATE,"D2/")'L#9':ZTIME'L#9':ZHOURS'L#9':ZRAY<3,Z>'L#7' IF Z > 1 THEN IF ZDATE # ZRAY<1,Z-1> THEN IF ZPOS > 1 THEN CRT @(COL,POS+ZPOS):STR(" ",37) END ZPOS=ZPOS+1 IF ZPOS >= MAX THEN Z=Z-1 GO 2099 END END END CRT @(COL,POS+ZPOS):TSTRING END ELSE ZTIME=OCONV(ZRAY<2,Z>,"MTH") ZTIME=OCONV(ZTIME,"MCL") ZDATE=ZRAY<1,Z> TSTRING=Z'L#3':OCONV(ZDATE,"D2/")'L#9':ZTIME'L#9':SPACE(9):ZRAY<3,Z>'L#7' IF Z > 1 THEN IF ZDATE # ZRAY<1,Z-1> THEN IF ZPOS > 1 THEN CRT @(COL,POS+ZPOS):STR(" ",37) END ZPOS=ZPOS+1 IF ZPOS >= MAX THEN Z=Z-1 GO 2099 END END END CRT @(COL,POS+ZPOS):TSTRING END 2099 * NEXT Z FOR Y=ZPOS+1 TO MAX-1 TSTRING=SPACE(37) CRT @(COL,POS+Y):TSTRING NEXT Y END REPEAT * GOSUB 2100 IF ANS='B' THEN GO 2000 COL=0; POS=6 CRT @(COL,POS):CR PRJCT=''; INDX='' RETURN * 2100 * LOOP CRT @(0,22):RV:"Enter # to Adjust, A(add), N(next), B(back), P(period) else RETURN ":ERV:CL: INPUT ANS: BEGIN CASE CASE ANS='P' CRT @(0,22):CL:"Enter a date in the requested period (mm/dd/yy)": INPUT TODAY IF TODAY='' THEN TODAY=DATE() END ELSE TODAY=ICONV(TODAY,'D') END ANS='B' CASE ANS='/' OR ANS='' GO 2199 CASE ANS > 0 AND ANS <= ZCT MODIFY=1 IRAY<1>=ZRAY<1,ANS> IRAY<2>=ZRAY<2,ANS> IRAY<3>=ZRAY<3,ANS> GOSUB 5000 ANS='B' CASE ANS='A' GOSUB 5000 Z=Z-(ZPOS+(MAX*6)) IF Z < 0 THEN Z=0 SW=0 ANS='B' CASE ANS='B' Z=Z-(ZPOS+(MAX*6)) IF Z < 0 THEN Z=0 SW=0 CASE ANS='N' ZPOS=ZPOS-1 IF Z > ZCT THEN CRT @(0,22):"End of list!":CL RQM ANS='' END CASE 1 CRT @(0,22):BEEP:"INVALID ENTRY - Try Again!":CL: RQM ANS='' END CASE UNTIL ANS # '' DO REPEAT 2199 * COL=2; POS=6 MODIFY=0 RETURN * 2200 * CALC DATES EDATE=0; SDATE=0 PRDAYS=14; PRDATE=ICONV('12/23/90','D') SDATE=TODAY-PRDATE IF SDATE <= PRDAYS THEN EDATE=PRDATE END ELSE EDATE=PRDATE+(INT(SDATE/PRDAYS)*PRDAYS) END SDATE=EDATE+PRDAYS-1 CRT @(52,2):RV:" CURRENT PAY PERIOD ":ERV CRT @(51,3):OCONV(EDATE,'D2/'):" thru ":OCONV(SDATE,'D2/') RETURN ** 2225 * DRAW BOX IF ADDS THEN FOR X=POS TO 21 IF X=POS THEN TSTRING1="#" TCOL=COL; TPOS=X; GOSUB 2275 TSTRING1="L" TCOL=COL+39; GOSUB 2275 TSTRING1="D" TCOL=COL+79; GOSUB 2275 END ELSE IF X=21 THEN TSTRING1="B":STR("<",38):"M":STR("<",39):"F" TCOL=COL; TPOS=X; GOSUB 2275 END ELSE TSTRING1=">" TCOL=COL; TPOS=X; GOSUB 2275 TCOL=COL+39; GOSUB 2275 TCOL=COL+79; GOSUB 2275 END END NEXT X END ELSE FOR X=POS TO 21 IF X=POS THEN TSTRING1="|" TCOL=COL; TPOS=X; GOSUB 2285 TSTRING1="|" TCOL=COL+39; GOSUB 2285 TSTRING1="|" TCOL=COL+79; GOSUB 2285 END ELSE IF X=21 THEN TSTRING1=STR("~",80) TCOL=COL; TPOS=X; GOSUB 2285 END ELSE TSTRING1="|" TCOL=COL; TPOS=X; GOSUB 2285 TCOL=COL+39; GOSUB 2285 TCOL=COL+79; GOSUB 2285 END END NEXT X END RETURN 2275 * PRINT GRAPHICS CRT CHAR(27):CHAR(72):CHAR(2) CRT @(TCOL,TPOS):TSTRING1: CRT CHAR(27):CHAR(72):CHAR(3) RETURN 2285 * PRINT LINE CRT @(TCOL,TPOS):TSTRING1: RETURN * 3000 * HELP HEADER POS=6; COL=0 CRT @(COL,POS):CR GOSUB 2225 TSTRING="PROJECT"'L#9':"DESCRIPTION"'L#27' CRT @(COL+2,POS):TSTRING CRT @(COL+42,POS):TSTRING * X=0;XX=0; MAX=14; SW=0; COL=2 XCT=DCOUNT(HELP.TBL<1>,VM) LOOP X=X+1 XX=XX+1 TSTRING=HELP.TBL<1,X>'L#9':HELP.TBL<2,X>[1,27]'L#27' CRT @(COL,POS+XX):TSTRING IF INT(XX/MAX) THEN SW=SW+1 IF REM(SW,2) THEN COL=42 END ELSE COL=2 GOSUB 3100 END XX=0 END UNTIL PRJCT # '' DO REPEAT IF PRJCT='/' THEN PRJCT='' RETURN * 3100 * CRT @(0,22):RV:"Enter Project #, N(next page), B(back page)":ERV:CL: INPUT ANS2: IF ANS2='' OR ANS2='/' THEN PRJCT='/' GO 3199 END IF ANS2='B' THEN X=X-(XX+(MAX*3)) IF X < 0 THEN X=0 SW=0 END ELSE IF ANS2='N' THEN IF X > XCT THEN CRT @(0,22):"End of list!":CL RQM *X=X-(MAX*2) GO 3100 END END ELSE LOCATE(ANS2,HELP.TBL,1;INDX) THEN PRJCT=ANS2 END ELSE CRT @(0,22):RV:BEEP:"INVALID PROJECT CODE - Try Again!":ERV:CL: END END END 3199 * RETURN * 4000 * LOAD PROJECT TABLE IF HELP.TBL # '' ELSE SELECT PROJECT LOOP READNEXT ID ELSE ID='EOF' UNTIL ID='EOF' DO READ PREC FROM PROJECT,ID THEN LOCATE(ID,HELP.TBL,1;INDX;'AR') ELSE HELP.TBL=INSERT(HELP.TBL,1,INDX;ID) HELP.TBL=INSERT(HELP.TBL,2,INDX;PREC<1>) END END REPEAT END RETURN * 4300 * IF EMP.TBL = '' THEN SELECT USER.FILE LOOP READNEXT ID ELSE ID='EOF' UNTIL ID='EOF' DO READ EREC FROM USER.FILE,ID THEN IF EREC<6> # '' THEN LOCATE(EREC<6>,EMP.TBL,1;INDX;'AR') ELSE EMP.TBL=INSERT(EMP.TBL,1,INDX;EREC<6>) EMP.TBL=INSERT(EMP.TBL,2,INDX;ID) END END END REPEAT END RETURN * 4500 * SUPERVISOR ACCESS GOSUB 5525 ;* DRAW BOX CRT @(0,22):"Enter your Access Code":CL TCOL=COL+22; TPOS=POS+2 CRT @(TCOL,TPOS): INPUT SUPER IF SUPER='/' ELSE READ UREC FROM USER.FILE,SUPER THEN TSTRING="Supervsr #:":SUPER CRT @(TCOL,TPOS+2):TSTRING TSTRING="User Name :":UREC<1>:" ":UREC<2> CRT @(TCOL,TPOS+3):TSTRING TSTRING="Employee #:":UREC<7> CRT @(TCOL,TPOS+4):TSTRING CRT @(0,22):"Enter TODAY's Password": ECHO OFF INPUT ANY ECHO ON TDY=OCONV(DATE(),'DW') BEGIN CASE CASE TDY=7 ; ANS='SNDY' CASE TDY=1 ; ANS='MNDY' CASE TDY=2 ; ANS='TSDY' CASE TDY=3 ; ANS='WDNSDY' CASE TDY=4 ; ANS='THRSDY' CASE TDY=5 ; ANS='FRDY' CASE TDY=6 ; ANS='STRDY' END CASE IF ANY=ANS ELSE CRT @(0,22):BEEP:"INVALID PASSWORD - SEE YOUR SUPERVISOR INSTRUCTIONS":CL: RQM SUPER='' END END ELSE FOR G=1 TO 6 CRT @(TCOL,TPOS+G):BEEP:" INVALID USER CODE " RQM NEXT G SUPER='' END END RETURN * 5000 * GOSUB 5525 GOSUB 5600 * 5100 * IF MODIFY THEN GO 5200 TSTRING1='DATE ________' TCOL=COL+22; TPOS=POS+2 CRT @(0,22):RV:"Enter Date of adjustment (mm/dd/yy)":ERV:CL CRT @(TCOL,TPOS):TSTRING1 DATA.IO=OCONV(IRAY<1>,'D2/') INPUT @(TCOL+5,TPOS):DATA.IO IF DATA.IO='/' THEN GO 5400 IF DATA.IO='<' THEN GO 5400 IRAY<1>=ICONV(DATA.IO,'D') IF NUM(IRAY<1>) AND IRAY<1>#'' ELSE CRT @(0,22):CL:BEEP:"INVALID DATE - TRY AGAIN!" RQM GO 5100 END IF IRAY<1> < EDATE OR IRAY<1> > SDATE THEN CRT @(0,22):CL:BEEP:"That Date is NOT in this PAY PERIOD!" RQM GO 5100 END CRT @(TCOL+16,TPOS):OCONV(OCONV(IRAY<1>,'DWA'),'MCT'):" ":OCONV(IRAY<1>,'D2/') 5200 * TSTRING1='TIME _____' TCOL=COL+22; TPOS=POS+4 CRT @(0,22):RV:"Enter the Time of the Adjustment (hh.mm), D(delete)":ERV:CL CRT @(TCOL,TPOS):TSTRING1 DATA.IO=OCONV(IRAY<2>,'MTS') INPUT @(TCOL+5,TPOS):DATA.IO IF DATA.IO='D' THEN GOSUB 8000; GO 5400 IF DATA.IO='<' THEN GO 5100 IF DATA.IO='/' OR DATA.IO='' THEN GO 5400 IRAY<2>=ICONV(DATA.IO,'MT') IF IRAY<2>#'' ELSE CRT @(0,22):CL:BEEP:"INVALID TIME - TRY AGAIN": RQM GO 5200 END CRT @(TCOL+16,TPOS):OCONV(OCONV(IRAY<2>,'MTHS'),'MCL') 5300 * TSTRING1='PROJECT ______' TCOL=COL+22; TPOS=POS+6 CRT @(TCOL,TPOS):TSTRING1 CRT @(0,22):RV:"Enter the Project #, 'OFF', ?(help)":ERV:CL DATA.IO=OCONV(IRAY<3>,'G0-1') INPUT @(TCOL+8,TPOS):DATA.IO IF DATA.IO='<' THEN GO 5200 IF DATA.IO='?' THEN PRJCT='' GOSUB 3000 GOSUB 5525 GOSUB 5600 DATA.IO=PRJCT END IF DATA.IO='/' OR DATA.IO='' THEN GO 5400 LOCATE(DATA.IO,HELP.TBL,1;INDX) THEN TSTRING=HELP.TBL<2,INDX> TLEN=LEN(TSTRING) CRT @(TCOL+16,TPOS):TSTRING'L#21' END ELSE IF DATA.IO ='OUT' THEN DATA.IO ='OFF' IF DATA.IO ='OFF' ELSE CRT @(0,22):RV:BEEP:"INVALID PROJECT CODE - Try Again!":ERV:CL RQM GO 5300 END END IRAY<3>=DATA.IO IF DATA.IO='OFF' THEN GO 5390 5350 * TSTRING1='JOB __' TCOL=COL+22; TPOS=POS+8 CRT @(0,22):RV:"Enter the Job Code (default is 00)":ERV:CL CRT @(TCOL,TPOS):TSTRING1 DATA.IO=OCONV(IRAY<3>,'G1-1') INPUT @(TCOL+4,TPOS):DATA.IO IF DATA.IO='<' THEN GO 5300 IF DATA.IO='/' OR DATA.IO='' THEN GO 5400 READ ANY FROM JOB.FILE,DATA.IO THEN JOB=DATA.IO END ELSE CRT @(0,22):BEEP:'INVALID JOB CODE! TRY AGAIN': INPUT ANY GO 5350 END 5390 * * CRT @(0,22):BEEP:RV:'Is This Correct? (Y/N) ':ERV:CL: INPUT ANY IF ANY='Y' THEN IF MODIFY THEN GOSUB 7000 END ELSE GOSUB 6000 END END ELSE IRAY='' END 5400 * RETURN 5525 * 1/2 DRAW BOX COL=0; POS=6 IF ADDS THEN FOR X=POS TO 15 IF X=POS THEN TSTRING1="#":STR("<",39):"D" TCOL=COL+19; TPOS=X; GOSUB 2275 END ELSE IF X=15 THEN TSTRING1="B":STR("<",39):"F" TCOL=COL+19; TPOS=X; GOSUB 2275 END ELSE TSTRING1=">" TCOL=COL+19; TPOS=X; GOSUB 2275 TSTRING1=STR(" ",39) TCOL=COL+20; GOSUB 2285 TSTRING1=">" TCOL=COL+59; GOSUB 2275 END END NEXT X END ELSE FOR X=POS TO 15 IF X=15 OR X=POS THEN TSTRING1=RV:STR(" ",42):ERV TCOL=COL+19; TPOS=X; GOSUB 2285 END ELSE TSTRING1=RV:" ":ERV:STR(" ",40):RV:" ":ERV TCOL=COL+19; TPOS=X; GOSUB 2285 END NEXT X END RETURN * 5600 * IF IRAY='' THEN TSTRING1='DATE ________' END ELSE TSTRING1='DATE ':OCONV(IRAY<1>,'D2/') END TCOL=COL+22; TPOS=POS+2 CRT @(TCOL,TPOS):TSTRING1 * IF IRAY='' THEN TSTRING1='TIME _____' END ELSE TSTRING1='TIME ':OCONV(IRAY<2>,'MTS') END TCOL=COL+22; TPOS=POS+4 CRT @(TCOL,TPOS):TSTRING1 * IF IRAY='' THEN TSTRING1='PROJECT ______' END ELSE TSTRING1='PROJECT ':OCONV(IRAY<3>,'G0-1')'L#6' END TCOL=COL+22; TPOS=POS+6 CRT @(TCOL,TPOS):TSTRING1 * IF IRAY='' THEN TSTRING1='JOB __' END ELSE TSTRING1='JOB ':OCONV(IRAY<3>,'G1-1')'L#2' END TCOL=COL+22; TPOS=POS+8 CRT @(TCOL,TPOS):TSTRING1 RETURN ** 6000 * HANDLE TIME DATA **---------------------------------------* ** THIS PORTION OF LOGIC BUILDS THE TIMECLOCK ENTRIES ** ** CLOCKFILE RECORD LAYOUT AS FOLLOWS: ** <0> USER|DATE ** <1> TIME MV ** <2> PROJECT MV ** **---------------------------------------* *CRT @(0,22):CL:"AT 6000": *INPUT ANY CLKKEY=USER:"|":IRAY<1> TIME=IRAY<2> PRJCT=IRAY<3> READ CLKREC FROM CLOCKFILE,CLKKEY THEN LOCATE(TIME,CLKREC,1;LAST;'AR') THEN IF CLKREC<2,LAST>='OFF' THEN LAST=LAST+1 END IF PRJCT='OFF' THEN LAST=LAST+1 END END IF PRJCT='OFF' THEN JRNL=SUPER:AM:DATE():AM:TIME():AM:"ADD":AM:"ADD":AM:TIME:AM:PRJCT CLKREC=INSERT(CLKREC,1,LAST;TIME) CLKREC=INSERT(CLKREC,2,LAST;PRJCT) CRT @(0,22):UREC<1>:" is now OFF THE CLOCK!":CL: RQM END ELSE IF JOB='00' THEN JRNL=SUPER:AM:DATE():AM:TIME():AM:"ADD":AM:"ADD":AM:TIME:AM:PRJCT CLKREC=INSERT(CLKREC,1,LAST;TIME) CLKREC=INSERT(CLKREC,2,LAST;PRJCT:"-":JOB) CRT @(0,22):UREC<1>:"'s record has been adjusted!":CL: RQM END ELSE IF NUM(JOB[2,1]) OR JOB[2,1]=0 THEN JRNL=SUPER:AM:DATE():AM:TIME():AM:"ADD":AM:"ADD":AM:TIME:AM:PRJCT CLKREC=INSERT(CLKREC,1,LAST;TIME:VM:TIME+(JOB[2,1]*3600)) CLKREC=INSERT(CLKREC,2,LAST;PRJCT:"-":JOB:VM:'OFF') CRT @(0,22):UREC<1>:"'s record has been adjusted!":CL: RQM END END END END ELSE JRNL=SUPER:AM:DATE():AM:TIME():AM:"ADD":AM:"ADD":AM:TIME:AM:PRJCT CLKREC='' IF JOB='00' THEN CLKREC=TIME CLKREC<2>=PRJCT:'-':JOB CRT @(0,22):UREC<1>:"'s record has been adusted!":CL: RQM END ELSE IF NUM(JOB[2,1]) OR JOB[2,1]=0 THEN CLKREC=TIME:VM:TIME+(JOB[2,1]*3600) CLKREC<2>=PRJCT:"-":JOB:VM:'OFF' CRT @(0,22):UREC<1>:"'s record has been adjusted!":CL: RQM END END END GOSUB 9000 6999 * RETURN * 7000 * *CRT @(0,22):CL:"AT 7000": *INPUT ANY CLKKEY=USER:"|":IRAY<1> TIME=IRAY<2> PRJCT=IRAY<3> READ CLKREC FROM CLOCKFILE,CLKKEY THEN JRNL=SUPER:AM:DATE():AM:TIME():AM:CLKREC<1,ANS>:AM:CLKREC<2,ANS>:AM:TIME:AM:PRJCT CDONE=0 CNT=DCOUNT(CLKREC<1>,VM) FOR C=1 TO CNT UNTIL CDONE IF CLKREC<1,C>=ZRAY<2,ANS> THEN IF CLKREC<2,C>=ZRAY<3,ANS> THEN CLKREC=DELETE(CLKREC,1,C) CLKREC=DELETE(CLKREC,2,C) CDONE=1 END END NEXT C LOCATE(TIME,CLKREC,1;LAST;'AR') THEN IF CLKREC<2,LAST>='OFF' THEN LAST=LAST+1 END IF PRJCT='OFF' THEN LAST=LAST+1 END END IF PRJCT='OFF' THEN CLKREC=INSERT(CLKREC,1,LAST;TIME) CLKREC=INSERT(CLKREC,2,LAST;PRJCT) CRT @(0,22):UREC<1>:" is now OFF THE CLOCK!":CL: RQM END ELSE CLKREC=INSERT(CLKREC,1,LAST;TIME) CLKREC=INSERT(CLKREC,2,LAST;PRJCT:"-":JOB) CRT @(0,22):UREC<1>:"'s record has been adjusted!":CL: RQM END END ELSE CLKREC='' CLKREC=TIME CLKREC<2>=PRJCT:'-':JOB CRT @(0,22):UREC<1>:"'s record has been adusted!":CL: RQM END GOSUB 9000 7999 * RETURN * 8000 * CRT @(0,22):BEEP:"Are you Sure??":CL: INPUT ANY IF ANY='Y' OR ANY='y' THEN CLKKEY=USER:"|":IRAY<1> TIME=IRAY<2> PRJCT=IRAY<3> READ CLKREC FROM CLOCKFILE,CLKKEY THEN JRNL=SUPER:AM:DATE():AM:TIME():AM:CLKREC<1,ANS>:AM:CLKREC<2,ANS>:AM:"DEL":AM:"DEL" CDONE=0 CNT=DCOUNT(CLKREC<1>,VM) FOR C=1 TO CNT UNTIL CDONE IF CLKREC<1,C>=ZRAY<2,ANS> THEN IF CLKREC<2,C>=ZRAY<3,ANS> THEN CLKREC=DELETE(CLKREC,1,C) CLKREC=DELETE(CLKREC,2,C) CDONE=1 END END NEXT C GOSUB 9000 END END RETURN * 9000 * TIMECLOCK JOURNAL * THIS JOURNAL RECORD IS WRITTEN TO PROVIDE AN AUDIT TRAIL FOR SUPERVISOR * ADJUSTMENTS TO THE TIMECLOCK RECORD. * *CRT @(0,22):CL:"AT 9000": *INPUT ANY FOR J=1 TO 7 CLKREC=INSERT(CLKREC,J+2,1;JRNL) NEXT J WRITE CLKREC ON CLOCKFILE,CLKKEY JRNL='' RETURN 9999 * END OF PROCESS STOP