I have used this clipper program for many years, code which consists of a main prg (a basic timeclock)
called "clock" and various other linked "module()" files including
errorsys, getsys, clockin, clockout, lib, & hr_rece which was written for me in clipper 5.2.
Using the original code without making any changes, I receive errors every time I try to recompile
using "rmake /b clock".
I receive an error (undefined sysmbol after library search: Symbol 'Clipwate' First Reference Main.Obj
warning wrt0022: .exe may not execute properly--undefined symbol.
I'm not a programmer nor the originator of this code, however, if I wanted to make minor
changes to existing code, it will never recompile as is unless the 'Clipwate' issue is resolved.
Please help!
The original code was compiled in clipper 5.2 using RTLink FI using the standard libraries
(clipper,extend,terminal,dbfntx).
After exhaustive google searching, I'm unable to locate any external lib or ch files that reference
"ClipWate"
Any comments, help would be appreciated.
Thanks in advance!
********************************Top portion of clock.prg
#include "common.ch"
#include "inkey.ch"
static Static1, Static2:= .F., Static3, Static4, Static5, Static6, ;
Static7, Static8, Static9, Static10
static Static11:= ""
********************************
procedure CLOCK
do while (.T.)
in_out:= Space(1)
Scroll(0, 0, 24, 80, 0)
@ 1, 1 to 5, 32 double
clear gets
do while (.T.)
@ 2, 3 say " Time Clock "
@ 3, 4 say " Please Enter I or O "
@ 4, 5 say "To Clock IN or Clock Out"
nkey:= InKey(1)
if (nkey = 73 .OR. nkey = 79 .OR. nkey = 105 .OR. nkey = 111)
exit
elseif (nkey == 27)
return
else
clipwate(1000)
loop
endif
enddo
if (nkey = 73 .OR. nkey = 105)
in_out:= "I"
else
in_out:= "O"
endif
if (in_out = "i" .OR. in_out = "I" .OR. in_out = "O" .OR. ;
in_out = "o")
select 11
use dbmast shared
if (storecls != "1")
in_status:= "X"
else
in_status:= "I"
endif
select 11
use empmast shared index emast
select 12
use empmsg shared index emsg
select 13
use egenmsg shared
select 14
use ehr shared index ehr, ehrlog
if (in_out = "I" .OR. in_out = "i")
clockin()
close databases
return
else
clockout()
close databases
return
endif
else
tone(300, 5)
endif
loop
enddo
return
and so on............
********************************clock.prg
called "clock" and various other linked "module()" files including
errorsys, getsys, clockin, clockout, lib, & hr_rece which was written for me in clipper 5.2.
Using the original code without making any changes, I receive errors every time I try to recompile
using "rmake /b clock".
I receive an error (undefined sysmbol after library search: Symbol 'Clipwate' First Reference Main.Obj
warning wrt0022: .exe may not execute properly--undefined symbol.
I'm not a programmer nor the originator of this code, however, if I wanted to make minor
changes to existing code, it will never recompile as is unless the 'Clipwate' issue is resolved.
Please help!
The original code was compiled in clipper 5.2 using RTLink FI using the standard libraries
(clipper,extend,terminal,dbfntx).
After exhaustive google searching, I'm unable to locate any external lib or ch files that reference
"ClipWate"
Any comments, help would be appreciated.
Thanks in advance!
********************************Top portion of clock.prg
#include "common.ch"
#include "inkey.ch"
static Static1, Static2:= .F., Static3, Static4, Static5, Static6, ;
Static7, Static8, Static9, Static10
static Static11:= ""
********************************
procedure CLOCK
do while (.T.)
in_out:= Space(1)
Scroll(0, 0, 24, 80, 0)
@ 1, 1 to 5, 32 double
clear gets
do while (.T.)
@ 2, 3 say " Time Clock "
@ 3, 4 say " Please Enter I or O "
@ 4, 5 say "To Clock IN or Clock Out"
nkey:= InKey(1)
if (nkey = 73 .OR. nkey = 79 .OR. nkey = 105 .OR. nkey = 111)
exit
elseif (nkey == 27)
return
else
clipwate(1000)
loop
endif
enddo
if (nkey = 73 .OR. nkey = 105)
in_out:= "I"
else
in_out:= "O"
endif
if (in_out = "i" .OR. in_out = "I" .OR. in_out = "O" .OR. ;
in_out = "o")
select 11
use dbmast shared
if (storecls != "1")
in_status:= "X"
else
in_status:= "I"
endif
select 11
use empmast shared index emast
select 12
use empmsg shared index emsg
select 13
use egenmsg shared
select 14
use ehr shared index ehr, ehrlog
if (in_out = "I" .OR. in_out = "i")
clockin()
close databases
return
else
clockout()
close databases
return
endif
else
tone(300, 5)
endif
loop
enddo
return
and so on............
********************************clock.prg