313 lines
4.0 KiB
Plaintext
Executable File
313 lines
4.0 KiB
Plaintext
Executable File
/***************************************************************
|
|
/* 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
|
|
|
|
|