tldm-universe/Ardent/UV/HS.SALES/D_CUSTOMER.u

/***************************************************************
/*     Copyright (c) 1996 by Ardent Software, Inc.             * 
/*                   All Rights Reserved                       *
/*        THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE          *
/*             OF Ardent Software, Inc.                        *
/* The copyright notice above does not evidence any actual or  *
/*          intended publication of source code.               *
/***************************************************************/
/*
/* Data for dictionary of HS.SALES/CUSTOMER demo file.
/* This file is in UniVerse 'loadfile' format.
/*
ADDR2	D Address line 2
	6
	
	Address line 2
	30T
	S
	
	

	
ORDERS	PH ASSOCIATION OF ORDER RELATED FIELDS
	PRODID DESCRIPTION SER_NUM BUY_DATE PAID_DATE LIST_PRICE PRICE DISCOUNT SVC_START SVC_END SVC_PRICE SVC_PAID_DATE

	
ZIP	D Zip code
	9
	P(5N)
	Zip
	5L
	S
	
	

	
LNAME	D Customer contact's last name
	3
	
	Last Name
	16T
	S
	
	

	
SAL	D Salutation
	1
	
	Salutation
	5T
	S
	
	

	
SER_NUM	D Serial number shipped
	12
	P(6N)
	Serial#
	6L
	M
	ORDERS
	

	
STATE	D State code
	8
	P(2A)
/}	MCU
	State
	2L
	S
	
	

	
DESCRIPTION	I Product description
	TRANS(PRODUCTS,PRODID,DESCRIPTION,"C")
	
	Product Description
	20T
	M
	ORDERS
	

	
CITY	D City name
	7
	
	City
	12T
	S
	
	

	
CUSTID	D Customer ID number
	0
	P(0N)
	Customer ID
	10R
	S
	
	INTEGER

	
SVC_START	D Service contract start date
	17
	D2/
	Service
/}	start date
	8R
	M
	ORDERS
	INTEGER

	
SVC_PAID_DATE	D Date service contract paid
	19
	D2/
	Service
/}	contract
/}	paid date
	8R
	M
	ORDERS
	INTEGER

	
FULLNAME	I Full name including salutation
	SAL:' ':FNAME:' ':LNAME
	
	Contact Name
	30T
	S
	
	

	
PRICE	D Purchase price
	13
	MD0,$
	Price
	7R
	M
	ORDERS
	

	
@ID	D Default record ID for INFORM.
	0
	
	CUSTOMER
	10L
	S
	
	

	
PAID_DATE	D Date paid
	15
	D2/
	Date paid
	8R
	M
	ORDERS
	INTEGER

	
COMPANY	D Company full name
	4
	
	Company Name
	20T
	S
	
	

	
PRODID	D Product ID
	11
	P(1A4N)
	Product
	5L
	M
	ORDERS
	

	
PHONE	D Telephone
	10
	P("("3N")"3N-4N)
	Telephone
	13R
	S
	
	

	
@	PH VISIBLE FIELDS VIA HYPERSTAR
	CUSTID SAL FNAME LNAME FULLNAME COMPANY ADDR1 ADDR2 FULLADDR CITY STATE STATENAME ZIP PHONE PRODID DESCRIPTION SER_NUM BUY_DATE PAID_DATE LIST_PRICE PRICE DISCOUNT SVC_START SVC_END SVC_PRICE SVC_PAID_DATE

	
STATENAME	I State full name
	TRANS(STATES,STATE,NAME,"C")
	
	State name
	14T
	S
	
	

	
LIST_PRICE	I List price
	TRANS(PRODUCTS,PRODID,LIST,"C")
	MD0,$
	List price
	7R
	M
	ORDERS
	

	
@REVISE	PHrase for REVISE default field list created Tue Dec  1 15:47:31 1992
	CUSTID @ID SAL FNAME LNAME COMPANY ADDR1 ADDR2 CITY STATE ZIP PHONE PRODID SER_NUM PRICE BUY_DATE PAID_DATE SVC_PRICE SVC_START SVC_END SVC_PAID_DATE

	
FULLADDR	I Both lines of address
	IF ADDR2 THEN ADDR1:@TM:ADDR2 ELSE ADDR1
	
	Street Address
	30T
	S
	
	

	
ADDR1	D First line of mailing address
	5
	
	Address line 1
	30T
	S
	
	

	
FNAME	D Customer contact's first name
	2
	
	First Name
	12T
	S
	
	

	
@HYPERFIELDS	PH VISIBLE FIELDS VIA HYPERSTAR
	CUSTID SAL FNAME LNAME FULLNAME COMPANY ADDR1 ADDR2 FULLADDR CITY STATE STATENAME ZIP PHONE PRODID DESCRIPTION SER_NUM BUY_DATE PAID_DATE LIST_PRICE PRICE DISCOUNT SVC_START SVC_END SVC_PRICE SVC_PAID_DATE

	
DISCOUNT	I Percent discount
	SUBR("*HS.DISCNT",LIST_PRICE,PRICE)
	MD1
	Discount
	6R
	M
	ORDERS
	

	
SVC_END	D Service contract end date
	18
	D2/
	Service
/}	end date
	8R
	M
	ORDERS
	INTEGER

	
@MODIFY	PHrase for REVISE default field list created Tue Dec  1 15:47:31 1992
	CUSTID @ID SAL FNAME LNAME COMPANY ADDR1 ADDR2 CITY STATE ZIP PHONE PRODID SER_NUM PRICE BUY_DATE PAID_DATE SVC_PRICE SVC_START SVC_END SVC_PAID_DATE

	
BUY_DATE	D Date of purchase
	14
	D2/
	Date Purchased
	8R
	M
	ORDERS
	INTEGER

	
SVC_PRICE	D Service contract price
	16
	MD0,$
	Service
/}	price
	7R
	M
	ORDERS
	INTEGER

	
@SELECT	PH
	CUSTID SAL FNAME LNAME FULLNAME COMPANY ADDR1 ADDR2 FULLADDR CITY STATE STATENAME ZIP PHONE PRODID DESCRIPTION SER_NUM BUY_DATE PAID_DATE LIST_PRICE PRICE DISCOUNT SVC_START SVC_END SVC_PRICE SVC_PAID_DATE