.TITLE	PHONES ... Template for PHONES database
.IDENT	/060682/
;
;
;			Preamble
;
.MCALL	FORM				; Extract FORM macro from library
FORM	PHONES,ENTRIES=50.,BLOCK=-2	; Setup for database definitions
.ENABL	LC				; Allow LC field names
;
;
;			Field Definitions
;
;
FIELD	10.,01.	.ASC.,<...............>		00.,<TITLE>
FIELD	10.,02.	.ASC.,<...............>		00.,<COMPANY>
FIELD	15.,05.	.ASC.,<..........>		00.,<PHONE(W)>
FIELD	15.,06.	.ASC.,<..........>		00.,<PHONE(H)>
FIELD	58.,01.	.ALP.,<....................>	41.,<SURNAME>
FIELD	76.,02	.ALP.,<..>			41.,<INITIAL>
FIELD	76.,03.	.ASC.,<..>			41.,<CLASS>
FIELD	58.,05.	.ASC.,<....................>	41.,<STREET>
FIELD	58.,06.	.ASC.,<....................>	41.,<SUBURB>
FIELD	74.,07.	.NUM.,<DDDD>			41.,<POSTCODE>
FIELD	18.,10.	.ASC.,<............................................................>,00.,<COMMENT>
FIELD	18.,11.	.ASC.,<............................................................>,00.,<!COMML2>
FIELD	04.,18.	.NUM.,<DDDD>			00.,<cn>,PROTECT=1
FIELD	13.,18.	.NUM.,<DDDD>			10.,<rn>,PROTECT=1
FIELD	22.,18.	.ASC.,<..>			19.,<st>,PROTECT=1
FIELD	44.,18.	.DAT.,<XX-XX-XX>		41.,<cd>,PROTECT=1
FIELD	57.,18.	.DAT.,<XX-XX-XX>		54.,<ed>,PROTECT=1
FIELD	70.,18.	.DAT.,<XX-XX-XX>		67.,<dd>,PROTECT=1
FORMEND
;
;				Key Declaraions
;
KEY	15.,01.	.ASC.,<...............>		00.,<TITLE>
KEY	15.,02.	.ASC.,<...............>		00.,<COMPANY>
KEY	10.,03.	.ALP.,<....................>	00.,<SURNAME>
KEY	28.,04.	.ASC.,<..>			00.,<CLASS>
KEY	26.,06.	.NUM.,<DDDD>			00.,<cn>
KEY	26.,07.	.NUM.,<DDDD>			00.,<rn>
KEY	28.,08.	.ASC.,<..>			00.,<st>
KEYEND
.END