home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #1
/
monster.zip
/
monster
/
BUSINESS
/
QTC24_1.ZIP
/
QTC24_1.EXE
/
QTCFILE.CPY
< prev
next >
Wrap
Text File
|
1993-10-18
|
14KB
|
443 lines
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! QuickTrax TimeCard! !
! ─────────────────── !
! Version Sv2.4C !
! Update: 9/16/93 !
! !
! Copyright 1993 by Discovery Graphix, All Rights Reserved !
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
EJECT('FILE LAYOUTS')
SPOOLST FILE,PRE(SPL),CREATE,RECLAIM ! LIST OF SPOOLED FILES
RECORD RECORD
SPNAME STRING(12)
DATE LONG
. .
QTIME FILE,PRE(QTI),NAME(MEM:QTIFILE)
EMP_KEY KEY(QTI:EMPNAME,QTI:EMP,QTI:DATE,QTI:ATIME),DUP,NOCASE,OPT
ACCT_IDX INDEX(QTI:ACCOUNT,QTI:EMPNAME,QTI:EMP,QTI:DATE,QTI:ATIME),NOCASE,OPT
ABS_IDX INDEX(QTI:ABS_CODE,QTI:EMPNAME,QTI:EMP,QTI:DATE,QTI:ATIME),NOCASE,OPT
DEPT_IDX INDEX(QTI:DEPT,QTI:EMPNAME,QTI:EMP,QTI:DATE,QTI:ATIME),NOCASE,OPT
DATE_IDX INDEX(QTI:DATE,QTI:ATIME,QTI:EMPNAME,QTI:EMP),NOCASE,OPT
RECORD RECORD
EMP STRING(9) !EMP#
EMPNAME GROUP !Employee Name
LAST STRING(14)
MID STRING(12)
FIRST STRING(12)
.
DEPT STRING(6) !DEPT CODE
DATE LONG !Date of punch
ATIME LONG !Actual time
TCODE STRING(1) !Time code
ABS_CODE STRING(5) !ABSence Code
ACCOUNT STRING(9) !Account Code
MARK_FIELD STRING(1)
DONE_FLG BYTE
. .
TIMETRX FILE,NAME(MEM:TRXFILE),PRE(TRX) ! EMPLOYEE SCHEDULE FILE
NAME_KEY KEY(TRX:EMPNAME,TRX:EMP,TRX:DATE,TRX:START),DUP,NOCASE,OPT
DATE_KEY KEY(TRX:DATE,TRX:EMPNAME,TRX:START),DUP,NOCASE,OPT
CODE_IDX INDEX(TRX:EMPNAME,TRX:ABS_CODE),NOCASE,OPT
ACCT_IDX INDEX(TRX:ACCOUNT,TRX:EMPNAME,TRX:DATE),NOCASE,OPT
DEPT_IDX INDEX(TRX:DEPT,TRX:EMPNAME,TRX:DATE,TRX:START),NOCASE,OPT
RECORD RECORD
EMPNAME GROUP ! NAME GROUP
LAST STRING(14) ! LAST NAME
MID STRING(12) ! MIDDLE
FIRST STRING(12) ! FIRST NAME
.
EMP STRING(9) ! EMP #
DEPT STRING(6) ! DEPT CODE
DATE LONG ! WORK DATE
START LONG ! START
ENDTIME LONG ! END
HOURS LONG ! HOURS FOR CODE
ABS_CODE STRING(5) ! WORK CODE
ACCOUNT STRING(9) ! Account Code
TRANS_FLG BYTE ! TRANSACTION FLAG
D_WRAP BYTE ! DATE WRAP FLAG
COMMENTS STRING(25) ! COMMENTS
MARK_FIELD STRING(1) ! MARK FIELD
. .
QTCSET FILE,PRE(QTS),NAME(MEM:QTSFILE)
RECORD RECORD
REG_DATE LONG ! DATE
REG_NUM STRING(8) !Registration number
CO_NAME STRING(40) !Company name
ADDRESS STRING(40) ! ADDRESS
ADDRESS2 STRING(40) ! ADDRESS
CO_CSZ STRING(40) ! CITY/STATE/ZIP
PGNAME1 STRING(60) ! PROGRAM 1
PARM1 STRING(30) ! CALLING PARM'S 1
OPTN1 STRING(15) ! MENU OPTION 1
DESC1 STRING(45) ! DESCRIPTION
PGNAME2 STRING(60) ! PROGRAM 2
PARM2 STRING(30) ! CALLING PARM'S 2
OPTN2 STRING(15) ! MENU OPTION 2
DESC2 STRING(45) ! DESCRIPTION
LASTPNTR STRING(1) !Last printer used
PNTRA STRING(20) !Printer A
PORTA STRING(4) !Port A
PNTRB STRING(20) !Printer B
PORTB STRING(4) !Port B
PNTRC STRING(20) !Printer C
PORTC STRING(4) !Port C
PNTRD STRING(20) !Printer D
PORTD STRING(4) !Port D
USR1_LBL STRING(15) !User Label 1
USR2_LBL STRING(15) !User label 2
USR3_LBL STRING(15)
USR4_LBL STRING(15) !User label 4
NOBEEP STRING(1) !To beep or not to beep
MODE STRING(1) !Operation Mode
METHOD STRING(1) !Accounting Method
CLOSE_FLG STRING(1) ! USE AUTO CLOSE
ACCT_MENU STRING(1) !TC Account Flag
ACCT_CODE STRING(9) !Default Account Code
ABS_CODE STRING(5) !Default Work Code
BEN1 STRING(5) !Global ABS Benefit #1
BEN1_DESC STRING(25) !Benefit #1 Description
BEN2 STRING(5) !Global ABS Benefit #2
BEN2_DESC STRING(25) !Benefit #2 Description
BEN3 STRING(5) !Global ABS Benefit #3
BEN3_DESC STRING(25) !Benefit #3 Description
BEN4 STRING(5) !Global ABS Benefit #4
BEN4_DESC STRING(25) !Benefit #4 Description
T_TOL LONG !HOUR TOLERANCE
H_TOL LONG !HALF TOLERANCE
MESG_DAYS SHORT !Days to hold messages
BC_HOLD BYTE !BAR CODE DELAY
QTC_FLG STRING(1) !QTC! FLAG
QTC_PATH STRING(60) !Path for QTC Program
QRC_PATH STRING(60) !Path for QRC files
QTI_NAME STRING(8) !Current QTI file
QTI_PATH STRING(60) !Path for QTI files
TRX_NAME STRING(8) !Current TRX file
TRX_PATH STRING(60) !Path for TRX files
DATA_PATH STRING(60) !Current data path
TICKLE STRING(1) ! TICKLER FLAG
SH_TERMS STRING(1) ! SHOW TERMS
F_FEED STRING(1) !Form Feed Y/N
P_LN BYTE !Page Length
TIMEOUT BYTE !Printer Delay
DBREAKS LONG ! BREAK TIME
SPOOL STRING(1) ! SPOOLER
CBACK STRING(1) ! BACKUP FLAG
TRANS STRING(1) ! AUTO TRANS FLAG
. .
QTCOMM FILE,PRE(QTC),NAME(MEM:QTCFILE),RECLAIM
EMP_KEY KEY(QTC:M_DATE),DUP,NOCASE,OPT
MESG MEMO(336) !Message field
RECORD RECORD
EMP STRING(9) !EMP#
TO_EMP STRING(9) !EMP# TO SEND TO
FROM STRING(38) !Message from
MESG_TO STRING(38) !Message to
M_TYPE STRING(1) !Message type S/R
M_DATE LONG !Message Date
M_TIME LONG !Message time
SUBJECT STRING(30) !Message subject
MARK_FIELD STRING(1)
. .
GROUP,OVER(QTC:MESG)
QTC_MEMO_ROW STRING(48),DIM(7)
.
QTODO FILE,PRE(QTO),NAME(MEM:QTOFILE),RECLAIM
EMP_KEY KEY(QTO:EMP,QTO:DATE,QTO:WHAT),DUP,NOCASE,OPT
RECORD RECORD
EMP STRING(9) !EMP#
DATE LONG !Date of reminder
WHAT STRING(40) !What to remind
MARK_FIELD STRING(1)
. .
MESYS FILE,PRE(MES),NAME(MEM:MESFILE),RECLAIM
CALL_KEY KEY(MES:CALL_NUM),NOCASE,OPT
RECORD RECORD
CALL_NUM BYTE !Screen call #
CALLER STRING(25) !Screen name
MES_GRP GROUP !Message Lines
M_LINE1 STRING(72)
M_LINE2 STRING(72)
.
. .
DBFILES FILE,PRE(DBF),NAME(MEM:DBFFILE),RECLAIM !DATABASES
NAME_KEY KEY(DBF:FILNAME),NOCASE,OPT
RECORD RECORD
DBTYPE STRING(3) !TRX/QTI
FILNAME STRING(8) !FILE SET NAME
FILDESC STRING(25) !FILE DESCRIPTION
DIRNAME STRING(40) !DIRECTORY NAME
PASSWORD STRING(8) !FILE ACCESS
FILSIZE LONG !FILE SIZE
FILDATE LONG !FILE DATE
. .
CODES FILE,PRE(COD),NAME(MEM:CODFILE),RECLAIM !
ABS_KEY KEY(COD:ABS_CODE),NOCASE,OPT
EEO_KEY KEY(COD:EEO_CODE),NOCASE,OPT
DEPT_KEY KEY(COD:DEPT_CODE),NOCASE,OPT
RECORD RECORD
ABS_CODE STRING(5) ! ABSENCE CODE
ABS_DESC STRING(25) ! DESCRIPTION
EEO_CODE SHORT ! EEO CODES
EEO_DESC STRING(25) ! DESCRIPTION
DEPT_CODE STRING(6) ! DEPARTMENT
DEPT_DESC STRING(25) ! DESCRIPTION
. .
CODES1 FILE,PRE(CM1),NAME(MEM:CM1FILE),RECLAIM !
M1_CODE KEY(CM1:MISC1),NOCASE,OPT
M2_CODE KEY(CM1:MISC2),NOCASE,OPT
RECORD RECORD
MISC1 STRING(6) ! USER DEFINED #1
MISC1_DESC STRING(25) ! DESCRIPTION
MISC2 STRING(6) ! USER DEFINED #2
MISC2_DESC STRING(25) ! DESCRIPTION
. .
CODES2 FILE,PRE(CM2),NAME(MEM:CM2FILE),RECLAIM !
EVENT_KEY KEY(CM2:EVENT_CODE),NOCASE,OPT
ACCT_KEY KEY(CM2:ACCT_CODE),NOCASE,OPT
RECORD RECORD
EVENT_CODE STRING(10) ! EVENT CODE
EVENT_DESC STRING(25) ! EVENT DESCRIPTION
ACCT_CODE STRING(9) ! EVENT CODE
ACCT_DESC STRING(25) ! EVENT DESCRIPTION
. .
EMPWIN FILE,NAME(MEM:EMPFILE),PRE(EMP),RECLAIM ! EMPLOYEE DATA FILE
BY_NAME KEY(EMP:EMPNAME,EMP:EMP),NOCASE,OPT
EMP_KEY KEY(EMP:EMP),NOCASE,OPT
USER_KEY KEY(EMP:USERID),NOCASE,OPT
BDT_IDX INDEX(EMP:BDT),NOCASE,OPT
MISC1_IDX INDEX(EMP:MISC1,EMP:EMPNAME),NOCASE,OPT
MISC2_IDX INDEX(EMP:MISC2,EMP:EMPNAME),NOCASE,OPT
EEO_IDX INDEX(EMP:EEO,EMP:EMPNAME),NOCASE,OPT
DEPT_IDX INDEX(EMP:DEPT,EMP:EMPNAME),NOCASE,OPT
SDT_IDX INDEX(EMP:SDT,EMP:EMPNAME),NOCASE,OPT
SAL_IDX INDEX(EMP:SALARY,EMP:EMPNAME),NOCASE,OPT
RECORD RECORD
EMPNAME GROUP ! EMPLOYEE NAME
LAST STRING(14) ! LAST NAME
MID STRING(12) ! MIDDLE
FIRST STRING(12) ! FIRST NAME
.
STREET STRING(25) ! STREET ADDRESS
CITY STRING(15) ! CITY
STATE STRING(2) ! STATE
ZIP STRING(10) ! ZIP CODE
HTEL STRING(@P(###)###-####P) ! HOME PHONE
WTEL STRING(@P(###)###-####P) ! WORK PHONE
VTEL STRING(@P(###)###-####P) ! VOICE MAIL NUMBER
VMAIL STRING(5) ! VOICE MAIL BOX#
EXT STRING(5) ! WORK EXTENSION
EMP STRING(9) ! EMPLOYEE NUMBER
DEPT STRING(6) ! DEPT CODE
SALARY DECIMAL(11,4) ! PAY RATE
EXMPT STRING(1) ! Y/N
STATUS STRING(7) ! STATUS
ACCT_CODE STRING(9) ! USER DEFAULT
BDT GROUP ! BIRTHDATE
B_MTH SHORT ! MONTH
B_DAY SHORT ! DAY
B_YR SHORT ! YEAR
.
SCH SHORT ! SCHOOL
SSNO STRING(@P###-##-####P) ! SOCIAL SECURITY#
EMNAME STRING(20) ! EMER NAME
EMTEL STRING(@P(###)###-####P) ! EMER PHONE
EMTEL2 STRING(@P(###)###-####P) ! EMER PHONE
EMSTREET STRING(25) ! EMER STREET
EMC_S_Z STRING(25) ! EMER CITY,STATE,ZIP
HDT LONG ! Hire Date
SDT LONG ! SENIORITY DATE
EEO SHORT ! EEO CODE
TIT STRING(12) ! TITLE
SEX STRING(1) ! SEX(M/F)
ETHID STRING(1) ! ETHNIC ID(WBAHI)
MARR STRING(1) ! MARRIED
HNDCP STRING(1) ! HANDICAPPED
VVET STRING(1) ! VIET NAM VET
MIL STRING(1) ! MILITARY
DVET STRING(1) ! DISABLED VET
I_9VER STRING(1) ! US CITIZEN
CTZN STRING(8) ! CITIZENSHIP
MISC1 STRING(6) ! USER DEFINED #1
MISC2 STRING(6) ! USER DEFINED #2
USERID STRING(10) !Log On ID
PSWD STRING(10) !Password
USERLEVEL BYTE !Level
USERTYPE STRING(1) !Q/T/B
MARK_FIELD STRING(1) ! MARK FIELD
. .
DEFPRINT FILE,PRE(DEF),NAME(MEM:DEFFILE),RECLAIM
REPORT_KEY KEY(DEF:REP_NUM,DEF:REPORT),NOCASE,OPT
RECORD RECORD
REPORT STRING(12) ! REPORT NAME
REP_NAME STRING(40) ! REPORT DESCRIPTION
REP_NUM BYTE ! REPORT NUMBER
USERLEVEL BYTE !PASS LEVEL
QUAL STRING(7) ! DRAFT OR LETTER
CPI STRING(6) ! PRINT SIZE
BOX STRING(1) ! BOX FLAG
ENH STRING(1) ! ENHANCED FLAG
ITA STRING(1) ! ITALIC FLAG
P_LN BYTE ! PAGE LENGTH
LASTPNTR STRING(30) ! LAST PRINTER USED
LPT STRING(4) ! LPT
NAME STRING(1) ! BAR CODE DEFAULTS
PNTR_NUM SHORT
BAR_TYPE SHORT
HEIGHT SHORT
CHKSUM SHORT
PASSES SHORT
DENSITY SHORT
BC_LPI SHORT
BC_CPI SHORT
RATIO SHORT
. .
PRINTERS FILE,PRE(PRI),NAME(MEM:PRIFILE)
PNTR_KEY KEY(PRI:ID),NOCASE,OPT
RECORD RECORD
ID STRING(20) !Printer ID
SETUPL BYTE !length
SETUPX STRING(40) !hex
FINISHUPL BYTE
FINISHUPX STRING(40) !hex
PICAL BYTE
PICAX STRING(15)
ELITEL BYTE
ELITEX STRING(15)
COND_BEGL BYTE
COND_BEGX STRING(15)
COND_ENDL BYTE
COND_ENDX STRING(15)
DBW_BEGL BYTE
DBW_BEGX STRING(15)
DBW_ENDL BYTE
DBW_ENDX STRING(15)
SUPER_BEGL BYTE
SUPER_BEGX STRING(15)
SUPER_ENDL BYTE
SUPER_ENDX STRING(15)
SUB_BEGL BYTE
SUB_BEGX STRING(15)
SUB_ENDL BYTE
SUB_ENDX STRING(15)
ENH_BEGL BYTE
ENH_BEGX STRING(15)
ENH_ENDL BYTE
ENH_ENDX STRING(15)
EMP_BEGL BYTE
EMP_BEGX STRING(15)
EMP_ENDL BYTE
EMP_ENDX STRING(15)
ITA_BEGL BYTE
ITA_BEGX STRING(15)
ITA_ENDL BYTE
ITA_ENDX STRING(15)
UND_BEGL BYTE
UND_BEGX STRING(15)
UND_ENDL BYTE
UND_ENDX STRING(15)
UTLL BYTE
UTLX STRING(15)
NLQL BYTE
NLQX STRING(15)
HSDL BYTE
HSDX STRING(15)
CHR1L BYTE
CHR1X STRING(20)
CHR2L BYTE
CHR2X STRING(20)
CHR3L BYTE
CHR3X STRING(20)
CHR4L BYTE
CHR4X STRING(20)
USR1_LBL STRING(10)
USR1_BEGL BYTE
USR1_BEGX STRING(20)
USR1_ENDL BYTE
USR1_ENDX STRING(20)
USR2_LBL STRING(10)
USR2_BEGL BYTE
USR2_BEGX STRING(20)
USR2_ENDL BYTE
USR2_ENDX STRING(20)
USR3_LBL STRING(10)
USR3_BEGL BYTE
USR3_BEGX STRING(20)
USR3_ENDL BYTE
USR3_ENDX STRING(20)
USR4_LBL STRING(10)
USR4_BEGL BYTE
USR4_BEGX STRING(20)
USR4_ENDL BYTE
USR4_ENDX STRING(20)
. .
PRTCODE FILE,PRE(TOK),NAME(MEM:TOKFILE)
RECORD RECORD
SETUP STRING(2)
FINISHUP STRING(2)
PICA STRING(2)
ELITE STRING(2)
COND_BEG STRING(2)
COND_END STRING(2)
DBW_BEG STRING(2)
DBW_END STRING(2)
SUPER_BEG STRING(2)
SUPER_END STRING(2)
SUB_BEG STRING(2)
SUB_END STRING(2)
ENH_BEG STRING(2)
ENH_END STRING(2)
EMP_BEG STRING(2)
EMP_END STRING(2)
ITA_BEG STRING(2)
ITA_END STRING(2)
UTL STRING(2)
NLQ STRING(2)
HSD STRING(2)
UND_BEG STRING(2)
UND_END STRING(2)
CHR1 STRING(2)
CHR2 STRING(2)
CHR3 STRING(2)
CHR4 STRING(2)
USR1_BEG STRING(2)
USR1_END STRING(2)
USR2_BEG STRING(2)
USR2_END STRING(2)
USR3_BEG STRING(2)
USR3_END STRING(2)
USR4_BEG STRING(2)
USR4_END STRING(2)
. .
USER FILE,PRE(USR),RECLAIM
IDKEY KEY(USR:USERID),NOCASE,OPT
NAME_KEY KEY(USR:EMPNAME,USR:EMP),DUP,NOCASE,OPT
RECORD RECORD
USERID STRING(10) !Log On ID
PSWD STRING(10) !Password
USERLEVEL BYTE !Level
EMP STRING(9) !EMP#
EMPNAME GROUP !Employee
LAST STRING(14)
MID STRING(12)
FIRST STRING(12)
.
. .