	     EJECT('FILE LAYOUTS')
BRANDS	     FILE,PRE(BRA),RECLAIM
BY_BRAND       KEY(BRA:BRAND),NOCASE,OPT
BYFCC	       KEY(BRA:FCCID),DUP,NOCASE,OPT
BYUL	       KEY(BRA:ULNUMBER),DUP,NOCASE,OPT
RECORD	       RECORD
BRAND		 STRING(15)			 !Brand:
SERVCENTERNO	 STRING(18)			 !Service Center Number:
PHONE		 STRING(@p(###)###-####p)
ADDRESS1	 STRING(35)			 !ADDDRESS
ADDRESS2	 STRING(35)
ADDRESS3	 STRING(35)
A		 STRING(15)			 !A
AMINOR		 STRING(@N6.2)			 !AMINOR
AINTER		 STRING(@N6.2)			 !AINTER
AMAJOR		 STRING(@N6.2)			 !AMAJOR
B		 STRING(15)			 !B
BMINOR		 STRING(@N6.2)			 !BMINOR
BINTER		 STRING(@N6.2)			 !BINTER
BMAJOR		 STRING(@N6.2)			 !BMAJOR
C		 STRING(15)			 !C
CMINOR		 STRING(@N6.2)			 !CMINOR
CINTER		 STRING(@N6.2)			 !CINTER
CMAJOR		 STRING(@N6.2)			 !CMAJOR
D		 STRING(15)			 !D
DMINOR		 STRING(@N6.2)			 !DMINOR
DINTER		 STRING(@N6.2)			 !DINTER
DMAJOR		 STRING(@N6.2)			 !DMAJOR
E		 STRING(15)			 !E
EMINOR		 STRING(@N6.2)			 !EMINOR
EINTER		 STRING(@N6.2)			 !EINTER
EMAJOR		 STRING(@N6.2)			 !EMAJOR
F		 STRING(15)			 !F
FMINOR		 STRING(@N6.2)			 !FMINOR
FINTER		 STRING(@N6.2)			 !FINTER
FMAJOR		 STRING(@N6.2)			 !FMAJOR
G		 STRING(15)			 !G
GMINOR		 STRING(@N6.2)			 !GMINOR
GINTER		 STRING(@N6.2)			 !GINTER
GMAJOR		 STRING(@N6.2)			 !GMAJOR
H		 STRING(15)			 !H
HMINOR		 STRING(@N6.2)			 !HMINOR
HINTER		 STRING(@N6.2)			 !HINTER
HMAJOR		 STRING(@N6.2)			 !HMAJOR
I		 STRING(15)			 !I
IMINOR		 STRING(@N6.2)			 !IMINOR
IINTER		 STRING(@N6.2)			 !IINTER
IMAJOR		 STRING(@N6.2)			 !IMAJOR
J		 STRING(15)			 !J
JMINOR		 STRING(@N6.2)			 !JMINOR
JINTER		 STRING(@N6.2)			 !JINTER
JMAJOR		 STRING(@N6.2)			 !JMAJOR
K		 STRING(15)			 !K
KMINOR		 STRING(@N6.2)			 !KMINOR
KINTER		 STRING(@N6.2)			 !KINTER
KMAJOR		 STRING(@N6.2)			 !KMAJOR
L		 STRING(15)			 !L
LMINOR		 STRING(@N6.2)			 !LMINOR
LINTER		 STRING(@N6.2)			 !LINTER
LMAJOR		 STRING(@N6.2)			 !LMAJOR
M		 STRING(15)			 !M
MMINOR		 STRING(@N6.2)			 !MMINOR
MINTER		 STRING(@N6.2)			 !MINTER
MMAJOR		 STRING(@N6.2)			 !MMAJOR
N		 STRING(15)			 !N
NMINOR		 STRING(@N6.2)			 !NMINOR
NINTER		 STRING(@N6.2)			 !NINTER
NMAJOR		 STRING(@N6.2)			 !NMAJOR
O		 STRING(15)			 !O
OMINOR		 STRING(@N6.2)			 !OMINOR
OINTER		 STRING(@N6.2)			 !OINTER
OMAJOR		 STRING(@N6.2)			 !OMAJOR
P		 STRING(15)			 !P
PMINOR		 STRING(@N6.2)			 !PMINOR
PINTER		 STRING(@N6.2)			 !PINTER
PMAJOR		 STRING(@N6.2)			 !PMAJOR
Q		 STRING(15)			 !Q
QMINOR		 STRING(@N6.2)			 !QMINOR
QINTER		 STRING(@N6.2)			 !QINTER
QMAJOR		 STRING(@N6.2)			 !QMAJOR
R		 STRING(15)			 !R
RMINOR		 STRING(@N6.2)			 !RMINOR
RINTER		 STRING(@N6.2)			 !RINTER
RMAJOR		 STRING(@N6.2)			 !RMAJOR
S		 STRING(15)			 !S
SMINOR		 STRING(@N6.2)			 !SMINOR
SINTER		 STRING(@N6.2)			 !SINTER
SMAJOR		 STRING(@N6.2)			 !SMAJOR
T		 STRING(15)			 !T
TMINOR		 STRING(@N6.2)			 !TMINOR
TINTER		 STRING(@N6.2)			 !TINTER
TMAJOR		 STRING(@N6.2)			 !TMAJOR
U		 STRING(15)			 !U
UMINOR		 STRING(@N6.2)			 !UMINOR
UINTER		 STRING(@N6.2)			 !UINTER
UMAJOR		 STRING(@N6.2)			 !UMAJOR
V		 STRING(15)			 !V
VMINOR		 STRING(@N6.2)			 !VMINOR
VINTER		 STRING(@N6.2)			 !VINTER
VMAJOR		 STRING(@N6.2)			 !VMAJOR
W		 STRING(15)			 !W
WMINOR		 STRING(@N6.2)			 !WMINOR
WINTER		 STRING(@N6.2)			 !WINTER
WMAJOR		 STRING(@N6.2)			 !WMAJOR
X		 STRING(15)			 !X
XMINOR		 STRING(@N6.2)			 !XMINOR
XINTER		 STRING(@N6.2)			 !XINTER
XMAJOR		 STRING(@N6.2)			 !XMAJOR
Y		 STRING(15)			 !Y
YMINOR		 STRING(@N6.2)			 !YMINOR
YINTER		 STRING(@N6.2)			 !YINTER
YMAJOR		 STRING(@N6.2)			 !YMAJOR
Z		 STRING(15)			 !Z
ZMINOR		 STRING(@N6.2)			 !ZMINOR
ZINTER		 STRING(@N6.2)			 !ZINTER
ZMAJOR		 STRING(@N6.2)			 !ZMAJOR
AA		 STRING(15)			 !AA
AAMINOR		 STRING(@N6.2)			 !AAMINOR
AAINTER		 STRING(@N6.2)			 !AAINTER
AAMAJOR		 STRING(@N6.2)			 !AAMAJOR
BB		 STRING(15)			 !BB
BBMINOR		 STRING(@N6.2)			 !BBMINOR
BBINTER		 STRING(@N6.2)			 !BBINTER
BBMAJOR		 STRING(@N6.2)			 !BBMAJOR
CC		 STRING(15)			 !CC
CCMINOR		 STRING(@N6.2)			 !CCMINOR
CCINTER		 STRING(@N6.2)			 !CCINTER
CCMAJOR		 STRING(@N6.2)			 !CCMAJOR
DD		 STRING(15)			 !DD
DDMINOR		 STRING(@N6.2)			 !DDMINOR
DDINTER		 STRING(@N6.2)			 !DDINTER
DDMAJOR		 STRING(@N6.2)			 !DDMAJOR
EE		 STRING(15)			 !EE
EEMINOR		 STRING(@N6.2)			 !EEMINOR
EEINTER		 STRING(@N6.2)			 !EEINTER
EEMAJOR		 STRING(@N6.2)			 !EEMAJOR
FF		 STRING(15)			 !FF
FFMINOR		 STRING(@N6.2)			 !FFMINOR
FFINTER		 STRING(@N6.2)			 !FFINTER
FFMAJOR		 STRING(@N6.2)			 !FFMAJOR
GG		 STRING(15)			 !GG
GGMINOR		 STRING(@N6.2)			 !GGMINOR
GGINTER		 STRING(@N6.2)			 !GGINTER
GGMAJOR		 STRING(@N6.2)			 !GGMAJOR
HH		 STRING(15)			 !HH
HHMINOR		 STRING(@N6.2)			 !HHMINOR
HHINTER		 STRING(@N6.2)			 !HHINTER
HHMAJOR		 STRING(@N6.2)			 !HHMAJOR
II		 STRING(15)			 !II
IIMINOR		 STRING(@N6.2)			 !IIMINOR
IIINTER		 STRING(@N6.2)			 !IIINTER
IIMAJOR		 STRING(@N6.2)			 !IIMAJOR
JJ		 STRING(15)			 !JJ
JJMINOR		 STRING(@N6.2)			 !JJMINOR
JJINTER		 STRING(@N6.2)			 !JJINTER
JJMAJOR		 STRING(@N6.2)			 !JJMAJOR
KK		 STRING(15)			 !KK
KKMINOR		 STRING(@N6.2)			 !KKMINOR
KKINTER		 STRING(@N6.2)			 !KKINTER
KKMAJOR		 STRING(@N6.2)			 !KKMAJOR
LL		 STRING(15)			 !LL
LLMINOR		 STRING(@N6.2)			 !LLMINOR
LLINTER		 STRING(@N6.2)			 !LLINTER
LLMAJOR		 STRING(@N6.2)			 !LLMAJOR
MM		 STRING(15)			 !MM
MMMINOR		 STRING(@N6.2)			 !MMMINOR
MMINTER		 STRING(@N6.2)			 !MMINTER
MMMAJOR		 STRING(@N6.2)			 !MMMAJOR
NN		 STRING(15)			 !NN
NNMINOR		 STRING(@N6.2)			 !NNMINOR
NNINTER		 STRING(@N6.2)			 !NNINTER
NNMAJOR		 STRING(@N6.2)			 !NNMAJOR
ULNUMBER	 STRING(4)
FCCID		 STRING(3)
MANUF		 STRING(25)
BRANDS		 STRING(45)
BRANDS2		 STRING(45)
	     . .

CITIES	     FILE,PRE(CIT),RECLAIM
BY_ZIP	       KEY(CIT:ZIP),NOCASE,OPT
BY_CITY	       KEY(CIT:CITY,CIT:STATE),DUP,NOCASE,OPT
RECORD	       RECORD
CITY		 STRING(20)			 !CITY
ZIP		 STRING(@N05)			 !ZIP
STATE		 STRING(2)
	     . .

CLAIM	     FILE,PRE(NAR),CREATE,RECLAIM
BY_BRAND       KEY(NAR:BRAND,NAR:NAME),DUP,NOCASE,OPT
BY_PROMISED    KEY(NAR:PROMISED),DUP,NOCASE,OPT
BY_NAME	       KEY(NAR:NAME,NAR:BRAND),DUP,NOCASE,OPT
BY_PAID_DATE   KEY(NAR:PAID,NAR:DATEPAID),DUP,NOCASE,OPT
BY_STATUS      KEY(NAR:PAID,NAR:STATUS,NAR:STATUS_DATE),DUP,NOCASE,OPT
BY_CLAIM_NO    KEY(NAR:CLAIM_NO),NOCASE,OPT
BY_MODEL       KEY(NAR:MODEL,NAR:NAME),DUP,NOCASE,OPT
BY_MODEL1      KEY(NAR:MODEL),DUP,NOCASE
BY_SERIAL      KEY(NAR:SERIAL,NAR:NAME),DUP,NOCASE,OPT
BY_SERIAL1     KEY(NAR:SERIAL),DUP,NOCASE,OPT
BY_DEALER      KEY(NAR:DEALER,NAR:NAME),DUP,NOCASE
BY_PAID	       KEY(NAR:PAID,NAR:DATEREQ),DUP,NOCASE,OPT
BY_PAID_BRAN   KEY(NAR:PAID,NAR:BRAND,NAR:MODEL),DUP,NOCASE,OPT
BY_PAID_NAME   KEY(NAR:PAID,NAR:NAME),DUP,NOCASE,OPT
BY_SCALL       KEY(NAR:SERVICE_CALL,NAR:NAME),DUP,NOCASE,OPT
BY_PAID_INV    KEY(NAR:PAID,NAR:CLAIM_NO),DUP,NOCASE,OPT
BY_PAID_DLR    KEY(NAR:PAID,NAR:DEALER),DUP,NOCASE,OPT
BY_DEALER1     KEY(NAR:DEALER),DUP,NOCASE,OPT
BY_BRAND1      KEY(NAR:BRAND),DUP,NOCASE,OPT
BY_ZIP	       KEY(NAR:ZIP),DUP,NOCASE,OPT
BY_PAID_MODL   KEY(NAR:PAID,NAR:MODEL),DUP,NOCASE,OPT
BY_TECH	       KEY(NAR:PAID,NAR:TECH,NAR:NAME),DUP,NOCASE,OPT
BY_CERTIFICA   KEY(NAR:CERTIFICATE),DUP,NOCASE,OPT
NOTES_BIG      MEMO(1500)
RECORD	       RECORD
BALANCE		 DECIMAL(8,2)
BILLED		 LONG
BRAND		 STRING(15)
CALLED		 LONG
CERTIFICATE	 STRING(15)
CHASSIS		 STRING(15)
CLAIM_NO	 STRING(9)
CLAIM_SENT	 LONG
COMPLAINT	 STRING(70)			 !CUSTOMER COMPLAINT:
CONTACT		 STRING(30)
CUST_CODE	 STRING(4)			 !CUSTOMER CODE:
DATEPAID	 LONG				 !DATE INVOICE PAID
DATEPUR		 LONG				 !DATE PURCHASED
DATEREQ		 LONG				 !DATE SERVICE REQUIRED
DATESERV	 LONG				 !DATE SERVICE PERFORMED
DEALER		 STRING(20)
DEPOSIT		 DECIMAL(8,2)
DESCR1		 STRING(25)
DESCR2		 STRING(25)
DESCR3		 STRING(25)
DESCR4		 STRING(25)
DESCR5		 STRING(25)
DESCR6		 STRING(25)
DESCR7		 STRING(25)
DESCR8		 STRING(25)
DESCR9		 STRING(25)
DIRECT1		 STRING(70)			 !driving directions
DIRECT2		 STRING(70)
DIRECT3		 STRING(70)
DIRECT4		 STRING(70)
DIRECT5		 STRING(70)
DOCKET		 STRING(15)
EACH1		 DECIMAL(7,2)
EACH2		 DECIMAL(7,2)
EACH3		 DECIMAL(7,2)
EACH4		 DECIMAL(7,2)
EACH5		 DECIMAL(7,2)
EACH6		 DECIMAL(7,2)
EACH7		 DECIMAL(7,2)
EACH8		 DECIMAL(7,2)
EACH9		 DECIMAL(7,2)
ESTIMATE_YN	 STRING(1)
ESTIMATE_APP	 LONG
ESTIMATE_LO	 STRING(@n_7.2)
ESTIMATE_HI	 STRING(@N_7.2)
EXT1		 STRING(@N-_9.2B)
EXT2		 STRING(@N-_9.2B)
EXT3		 STRING(@N-_9.2B)
EXT4		 STRING(@N-_9.2B)
EXT5		 STRING(@N-_9.2B)
EXT6		 STRING(@N-_9.2B)
EXT7		 STRING(@N-_9.2B)
EXT8		 STRING(@N-_9.2B)
EXT9		 STRING(@N-_9.2B)
EXT1TAX		 STRING(@N-_9.2B)		 !NON TAXABLE EXT1
EXT2TAX		 STRING(@N-_9.2B)
EXT3TAX		 STRING(@N-_9.2B)
EXT4TAX		 STRING(@N-_9.2B)
EXT5TAX		 STRING(@N-_9.2B)
EXT6TAX		 STRING(@N-_9.2B)
EXT7TAX		 STRING(@N-_9.2B)
EXT8TAX		 STRING(@N-_9.2B)
EXT9TAX		 STRING(@N-_9.2B)
EXTENDED_EFF	 LONG				 !extended warranty effective
EXTENDED_EXP	 LONG				 !extended warranty expires
FREIGHT		 STRING(@n-8.2)
LABOR		 STRING(@N-8.2)
LOCATION	 STRING(10)
MODEL		 STRING(15)
NAME		 STRING(25)
NOTES		 STRING(70)			 !NOTES:
NOTESPRINT	 STRING(50)
ON_HAND		 DECIMAL(7,2)
OTHER		 STRING(@N-8.2)
PAID		 STRING(1)			 !Paid?
PART1		 STRING(15)
PART2		 STRING(15)
PART3		 STRING(15)
PART4		 STRING(15)
PART5		 STRING(15)
PART6		 STRING(15)
PART7		 STRING(15)
PART8		 STRING(15)
PART9		 STRING(15)
PARTS		 DECIMAL(8,2)
PARTSTAXABLE	 STRING(@N-_9.2)		 !PARTS TAXABLE
PHONE		 STRING(@P(<<<)<<<-<<<<P)	 !PHONE:
PICKED_UP	 STRING(25)			 !name of person that picked up
PO_NUMBER	 STRING(15)
POSTCARD	 LONG
PRINT_INV_NO	 STRING(1)
PROMISED	 LONG
PUDEL		 STRING(@n7.2)
PURCH_ORD_NO	 STRING(10)
QTY1		 STRING(@N2b)
QTY2		 STRING(@N2b)
QTY3		 STRING(@N2b)
QTY4		 STRING(@N2B)
QTY5		 STRING(@N2B)
QTY6		 STRING(@N2B)
QTY7		 STRING(@N2B)
QTY8		 STRING(@N2B)
QTY9		 STRING(@N2B)
REDO		 STRING(1)
REF1		 STRING(8)
REF2		 STRING(8)
REF3		 STRING(8)
REF4		 STRING(8)
REF5		 STRING(8)
REF6		 STRING(8)
REF7		 STRING(8)
REF8		 STRING(8)
REF9		 STRING(8)
REPCODE		 STRING(4)			 !REPAIR CODE
SAFE		 STRING(@n7.2)
SCALL		 STRING(@n-8.2)
SERVICE_CALL	 GROUP
SERV_CALL	   STRING(1)
PAID_		   STRING(1)
		 .
SERIAL		 STRING(15)
SERV1		 STRING(45)			 !SERV1
SERV2		 STRING(45)			 !SERV2
SERV3		 STRING(45)			 !SERV3
STATUS		 STRING(20)			 !15
STATUS_DATE	 LONG
STICKER_NO	 STRING(12)			 !STICKER#
TAX		 STRING(@N-_9.2)
TAX_1		 STRING(1)
TAX_2		 STRING(1)
TAX_3		 STRING(1)
TAX_4		 STRING(1)
TAX_5		 STRING(1)
TAX_6		 STRING(1)
TAX_7		 STRING(1)
TAX_8		 STRING(1)
TAX_9		 STRING(1)
TAX_FREIGHT	 STRING(1)
TAX_LABOR	 STRING(1)
TAX_OTHER	 STRING(1)
TAX_PCT		 STRING(@N7.5)
TAX_PUDEL	 STRING(1)
TAX_SAFE	 STRING(1)
TAX_SCALL	 STRING(1)
TECH		 STRING(15)
TECH_PHONE	 STRING(15)
TECH_DOCKET	 STRING(15)
TECH_CASH	 DECIMAL(6,2)
TECH_CHECK	 DECIMAL(6,2)
TECH_CREDIT	 DECIMAL(6,2)
TECH_NOTES	 STRING(40)
TOTAL		 DECIMAL(8,2)
TOTAL_PAYMNT	 DECIMAL(8,2)
TRANSMITTER	 STRING(1)
TYPE		 STRING(20)
WARRANTY	 STRING(5)
ZIP		 STRING(@N05)			 !ZIP
	     . .
	     GROUP,OVER(NAR:NOTES_BIG)
NAR_MEMO_ROW   STRING(75),DIM(20)
	     .

CUSTOMER     FILE,PRE(CUS),RECLAIM
BY_CUSTOMER    KEY(CUS:CUSTOMER),NOCASE,OPT
BY_PHONE       KEY(CUS:PHONE),DUP,NOCASE,OPT
BY_WORK_PHN    KEY(CUS:WORK_PHONE),DUP,NOCASE,OPT
RECORD	       RECORD
CUSTOMER	 STRING(25)			 !Customer
ADDRESS		 STRING(25)			 !Address
CITY		 STRING(20)			 !City
ST		 STRING(2)			 !State
ZIP		 STRING(@N05)			 !Zipcode
PHONE		 STRING(@P###-####P)		 !Phone
WORK_PHONE	 STRING(@P###-#### EXT ####P)	 !WORK PHONE NUMBER
AREA_PHONE	 STRING(@P(###)P)
AREA_BUSINES	 STRING(@P(###)P)
PHONE_DESCR	 STRING(15)
WORK_DESCR	 STRING(15)
	     . .

DEALER	     FILE,PRE(DEA),RECLAIM
BY_DEALER      KEY(DEA:DEALER),NOCASE,OPT
BY_COMPANY     KEY(DEA:COMPANY),NOCASE,OPT
RECORD	       RECORD
DEALER		 STRING(20)			 !Dealer Name
DLRADDRESS	 STRING(20)			 !Dealer Address
COMPANY		 STRING(30)
CO_ADDRESS1	 STRING(30)
CO_ADDRESS2	 STRING(30)
CO_ADDRESS3	 STRING(30)
CO_ADDRESS4	 STRING(30)
CO_PHONE	 STRING(@P###-###-####P)
CO_FAX		 STRING(@P###-###-####P)
	     . .

HISTORY	     FILE,PRE(HIS),RECLAIM
BY_MODEL       KEY(HIS:MODEL,HIS:BRAND,HIS:COMPLAINT),DUP,NOCASE,OPT
BY_BRAND       KEY(HIS:BRAND,HIS:MODEL),DUP,NOCASE,OPT
BY_COMPLAINT   KEY(HIS:COMPLAINT,HIS:MODEL,HIS:BRAND),DUP,NOCASE,OPT
SAVE_HIST      KEY(HIS:MODEL,HIS:BRAND,HIS:COMPLAINT,HIS:SERV1),DUP,NOCASE,OPT
RECORD	       RECORD
MODEL		 STRING(15)
BRAND		 STRING(15)
COMPLAINT	 STRING(70)
SERV1		 STRING(45)
SERV2		 STRING(45)
SERV3		 STRING(45)
	     . .

INVOICE	     FILE,PRE(INV),RECLAIM
RECORD	       RECORD
INVOICE		 DECIMAL(9,0)
CERTIFICATE	 DECIMAL(15,0)
	     . .

MODELS	     FILE,PRE(MOD),RECLAIM
BY_CUSTOMER    KEY(MOD:CUSTOMER,MOD:BRAND,MOD:MODEL,MOD:SERIAL),DUP,NOCASE,OPT
RECORD	       RECORD
BRAND		 STRING(15)			 !BRAND PURCHASED
CHASSIS		 STRING(15)
CUSTOMER	 STRING(25)			 !PURCHASER'S NAME
DEALER		 STRING(20)
LASTIN		 LONG				 !DATE LAST IN SHOP
MODEL		 STRING(15)
PURCHASED	 LONG
SERIAL		 STRING(15)
TYPE		 STRING(25)
	     . .

ORDERS	     FILE,PRE(ORD),RECLAIM
BY_VENDOR      KEY(ORD:VENDOR,ORD:DATE),DUP,NOCASE
BY_PONUMB      KEY(ORD:PO_NUMBER),NOCASE,OPT
BY_DATE	       KEY(ORD:DATE),DUP,NOCASE,OPT
BY_CUSTOMER    KEY(ORD:CUSTOMER,ORD:DATE),DUP,NOCASE,OPT
BY_PARTNO      KEY(ORD:PRINT_ITEM,ORD:PARTNO,ORD:DATE),DUP,NOCASE,OPT
BY_INVOICE     KEY(ORD:VENDOR,ORD:INVOICE_NO),DUP,NOCASE
RECORD	       RECORD
VENDOR		 STRING(20)
PO_NUMBER	 STRING(@n_10)
DATE		 LONG
QTY		 STRING(@N3)
PARTNO		 STRING(15)
EACH		 DECIMAL(6,2)
CUSTOMER	 STRING(25)
CONFIRM		 STRING(10)
BALANCE		 DECIMAL(6,2)
APPLIED		 DECIMAL(6,2)
INVOICE_NO	 STRING(15)
APPLIED_DESC	 STRING(15)
PAID		 STRING(1)
FREIGHT		 DECIMAL(6,2)
TAX		 DECIMAL(5,2)
DATE_SENT	 LONG				 !date returned for credit.
RA_NUMBER	 STRING(15)
HOW_SENT	 STRING(15)
PRINT_ITEM	 STRING(1)
	     . .

PARTS	     FILE,PRE(PAR),RECLAIM
BY_PART_NO     KEY(PAR:PARTNO),NOCASE,OPT
BY_DESCRIPT    KEY(PAR:DESCRIPTION,PAR:PARTNO),DUP,NOCASE,OPT
BY_VENDOR      KEY(PAR:VENDOR,PAR:PARTNO),DUP,NOCASE
BY_PART_VEND   KEY(PAR:PARTNO,PAR:VENDOR),DUP,NOCASE
RECORD	       RECORD
DESCRIPTION	 STRING(25)			 !Description
DUD		 DECIMAL(7,2)
EACH		 DECIMAL(7,2)			 !Each
PARTNO		 STRING(15)			 !Part Number
PERCENT		 DECIMAL(2,0)
PRICE		 DECIMAL(7,2)
SHIPPING	 DECIMAL(6,2)
VENDOR		 STRING(20)
TAXABLE		 STRING(1)
	     . .

PAYMENTS     FILE,PRE(PAY),RECLAIM
BY_DATE	       KEY(PAY:DATE),DUP,NOCASE,OPT
BY_CLAIM       KEY(PAY:CLAIM_NO,PAY:DATE),DUP,NOCASE,OPT
BY_DESCRIPT    KEY(PAY:DESCRIPTION),DUP,NOCASE,OPT
BY_CUSTOMER    KEY(PAY:CUSTOMER),DUP,NOCASE,OPT
BY_DEPOSITED   KEY(PAY:DEPOSITED,PAY:DESCRIPTION),DUP,NOCASE
BY_CHECKNO     KEY(PAY:CHECK_NO),DUP,NOCASE,OPT
DEPOSIT_DATE   KEY(PAY:DATE_DEPOSIT),DUP,NOCASE,OPT
DEP_DATE_NAM   KEY(PAY:DATE_DEPOSIT,PAY:DESCRIPTION),DUP,NOCASE,OPT
BY_CERTIFICA   KEY(PAY:CERTIFICATE),DUP,NOCASE,OPT
RECORD	       RECORD
CASH		 DECIMAL(7,2)
CERTIFICATE	 DECIMAL(15,0)
CHECK		 DECIMAL(7,2)
CHECK_NO	 STRING(15)
CLAIM_NO	 STRING(9)
CREDIT		 DECIMAL(7,2)
CUSTOMER	 STRING(25)			 !CUSTOMER
DATE		 LONG
DATE_DEPOSIT	 LONG
DESCRIPTION	 STRING(25)
DEPOSITED	 STRING(1)
	     . .

REPCODE	     FILE,PRE(REP),RECLAIM
BY_REPCODE     KEY(REP:REPCODE),NOCASE,OPT
BY_DESCRIPT    KEY(REP:DESCRIPTION),DUP,NOCASE,OPT
BY_SYMCODE     KEY(REP:SYMCODE),NOCASE,OPT
BY_SYM_DESCR   KEY(REP:SYM_DESCRIP),DUP,NOCASE,OPT
BY_STATUS      KEY(REP:STATUS),NOCASE,OPT
BY_TECH	       KEY(REP:TECHNICIAN),NOCASE,OPT
RECORD	       RECORD
REPCODE		 STRING(4)			 !repair code
DESCRIPTION	 STRING(40)			 !description
SYMCODE		 STRING(4)			 !SYMPTOM CODE
SYM_DESCRIP	 STRING(40)			 !DESCRIPTION OF SYMPTOM
TECHNICIAN	 STRING(15)
TECH_PHONE	 STRING(15)
STATUS		 STRING(20)
	     . .

SETUP	     FILE,PRE(SET),RECLAIM
WARR_CERT      MEMO(1560)
RECORD	       RECORD
ADDRESS		 STRING(25)			 !ADDRESS FOR COMPANY
AREACODE	 STRING(@p(<<<)p)
BANK_ACCOUNT	 STRING(15)
BANK_CITY	 STRING(25)
CITY_STA_ZIP	 STRING(25)			 !CITY,STATE,ZIP
COPIES_SCALL	 DECIMAL(1,0)
CPI_5_BEGIN	 STRING(30)
CPI_5_END	 STRING(30)
CPI_10		 STRING(30)
CPI_17		 STRING(30)
COPIES_PAPER	 DECIMAL(1,0)
CHECKIFPAID	 STRING(1)
CRED_CARDS	 STRING(50)
EXTRAFIELD1	 STRING(8)
DEALSTATE1	 STRING(70)			 !dealer statement not line
DEALSTATE2	 STRING(70)
DEALSTATE3	 STRING(70)
EXTRAFIELD2	 STRING(8)
FAX		 STRING(@p(###)###-####p)
FEDERAL_ID	 STRING(12)
INVLINE1	 STRING(75)			 !Invoice line 1
INVLINE2	 STRING(75)			 !invoice line 2
INVLINE3	 STRING(75)			 !invoice line 3
INVLINE4	 STRING(75)			 !INVOICE LINE 4
INVLINE5	 STRING(75)
INVLINE6	 STRING(75)
INVLINE7	 STRING(75)
LABEL_COMPAN	 STRING(1)			 !print company name at bottom
NESDA_ADV	 STRING(1)			 !ADVANCE NESDA PRINTER
NUMBER_LABEL	 STRING(1)
PART_STATUS	 STRING(20)
PARTPCT		 DECIMAL(3,0)
PCARD1		 STRING(55)
PCARD2		 STRING(55)
PCARD3		 STRING(55)
PCARD4		 STRING(55)
PCARD5		 STRING(55)
PCARD6		 STRING(55)
PHONE		 STRING(25)			 !BUSINESS PHONE
PRINT_ADV	 STRING(1)			 !Advance Printer
PRINT_DTREQD	 STRING(1)
PRINT_INV_NO	 STRING(1)
PRINT_PRICE	 STRING(1)
PRT_FED_ID	 STRING(1)
PRT_SIGNATUR	 STRING(1)
PRT_CRED_CAR	 STRING(1)
SAFETY		 STRING(@n7.2)
SAFETYCERT	 STRING(1)
STATUS		 STRING(20)
STRING		 STRING(7)
TAX_PCT		 STRING(@N7.5)
STATEMENT1	 STRING(70)
STATEMENT2	 STRING(70)
STATEMENT3	 STRING(70)
TAX_LABOR	 STRING(1)
TAX_OTHER	 STRING(1)
TAX_FREIGHT	 STRING(1)
TAX_SCALL	 STRING(1)
TAX_PUDEL	 STRING(1)
TAX_SAFE	 STRING(1)
TECH		 STRING(15)
YOUR_BANK	 STRING(25)
ZIPCODE		 DECIMAL(5,0)
P_PAPER		 STRING(4)
P_LABEL		 STRING(4)
P_NESDA		 STRING(4)
P_NARDA		 STRING(4)
P_CARDFRONT	 STRING(4)
P_CARDBACK	 STRING(4)
P_SERVCALL	 STRING(4)
P_CHECKLABEL	 STRING(4)
P_ADDRESSLBL	 STRING(4)
P_READYLETTR	 STRING(4)
P_LIGHTNING	 STRING(4)
P_READYSTICK	 STRING(4)
	     . .
	     GROUP,OVER(SET:WARR_CERT)
SET_MEMO_ROW   STRING(78),DIM(20)
	     .

TAX	     FILE,PRE(TAX),RECLAIM
BY_PCT	       KEY(TAX:TAX_PCT),NOCASE,OPT
RECORD	       RECORD
TAX_PCT		 STRING(@N7.5)			 !TAX %
	     . .

TYPE	     FILE,PRE(TYP),RECLAIM
BY_TYPE	       KEY(TYP:TYPE),NOCASE,OPT
RECORD	       RECORD
TYPE		 STRING(25)
	     . .

VENDORS	     FILE,PRE(VEN),RECLAIM
BY_VENDOR      KEY(VEN:VENDOR_YN,VEN:VENDOR),NOCASE,OPT
BY_NAME	       KEY(VEN:VENDOR),DUP,NOCASE,OPT
RECORD	       RECORD
VENDOR		 STRING(20)
ADDRESS		 STRING(20)
ADDRESS2	 STRING(20)
CITY		 STRING(30)
PHONE		 STRING(@p(###)###-####p)
PHONE_2		 STRING(@P(###)###-####P)
FAX		 STRING(@p(###)###-####p)
ACCOUNT_NO	 STRING(12)
NOTES		 STRING(70)
VENDOR_YN	 STRING(1)
DESCRIPTION	 STRING(20)			 !PHONE #2 DESCRIPTION
	     . .

WARDATA	     FILE,PRE(WRD),RECLAIM
BY_SERIAL      KEY(WRD:SERIAL),DUP,NOCASE
BY_CUSTOMER    KEY(WRD:CUSTOMER,WRD:DATE),DUP,NOCASE
BY_CERTIFICA   KEY(WRD:CERTIFICATE),DUP,NOCASE
BY_EXPIRES     KEY(WRD:DATE_EXPIRES),DUP,NOCASE
RECORD	       RECORD
AUTH_NUMBER	 STRING(15)
BALANCE		 DECIMAL(6,2)
BRAND		 STRING(15)
CERTIFICATE	 STRING(15)
COMPANY		 STRING(30)
COST		 DECIMAL(6,2)
CUSTOMER	 STRING(25)
DATE		 LONG
DATE_ACCEPTE	 LONG
DATE_BEGINS	 LONG
DATE_EXPIRES	 LONG
DATE_PURCH	 LONG
MODEL		 STRING(15)
PAID		 DECIMAL(6,2)
RENEWAL_FEE	 DECIMAL(6,2)
SERIAL		 STRING(15)
SOLD_BY		 STRING(20)
SPECIAL_HAND	 STRING(60)
TERM		 STRING(@n_3)
TYPE		 STRING(25)
TYPE_SERVICE	 STRING(8)
WARRANTY	 STRING(5)
	     . .

WARRANTY     FILE,PRE(WAR),RECLAIM
BY_NAME	       KEY(WAR:NAME),DUP,NOCASE,OPT
BY_COIN	       KEY(WAR:COIN_DATE),NOCASE,OPT
RECORD	       RECORD
NAME		 STRING(25)
CURRENCY	 DECIMAL(7,2)			 !used for deposit slip item
COIN		 DECIMAL(7,2)			 !used for deposit slip
COIN_DATE	 LONG
	     . .
