home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Shareware - Software Farm 2
/
wosw_2.zip
/
wosw_2
/
DATABASE
/
BULKST10.ZIP
/
MAILSORT.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1993-06-15
|
13KB
|
147 lines
[1] Run mail sort program
[2] Change postal rates
[3] Instructions and setup
[4] Exit
Enter choice:
mailsyst
Enter 3/5 presort rate:
9.999
Enter basic rate:
9.999
Hit "x" to exit, any other key to run mailsort
Mailsort will sort your mailing list by five-digit ZIP Code in proper order
for third class (bulk) mailing.
This program is current with the postal regulations as of June 14, 1993.
Please send $20 to:
Vinitsky Consulting
c/o Y.M.T.
2728 West Pratt
Chicago, Illinois 60645
to be notified of upgrades.
Hit any key for next screen.
Mailsort needs to be setup. When you run the setup, you will be asked
for the following: 1) the name of your mailing list, 2) the name of a
long field in your record, 3) the current 3/5 presort rate, and
4) the current basic rate.
When the postage rates change, it is not necessary to run the entire setup.
A menu option allows you to change just the postage.
IMPORTANT: The zip code field in the database must be called ZIP_CODE.
The sort routine will add a field called ORDER to your database, make
sure there is not a field by that name already. Also, no zip code
fields can be blank. (This limitation will be addressed in future
versions.)
Hit "X" to exit, any other key to run set-up.
Please enter the following information:
Mailing list name:
EXAMPLE: FILENAME or FILENAME.EXT if on this directory,
\DIRECTORY\FILENAME or \DIRECTORY\FIELNAME.EXT if on a
different directory.
Long field in record:
Enter 3/5 presort rate:
9.999
Enter basic rate:
9.999
use &mlist
mailext
mailext
order
mailing
mailext
Enter maximum number of pieces per sack:
minimum is 125.
Please be patient . . .
zipsum
mailing
mailzip
appe from &mlist
MAIL SUMMARY REPORT
STATE
COUNT
# OF SACKS
ZIP CODE
STATE
COUNT
# OF SACKS
00001
99999-9999
replace &mfield with 'Use ' + str(mnum,2) + ' sack(s)'
replace &mfield with 'Use "D" tag'
find &mzip
replace &mfield with 'Use ' + str(mnum,2) + ' sack(s)'
replace &mfield with 'Use "D" tag'
find &mzip5
replace &mfield with 'Use "D" tag'
find &mzip5
replace &mfield with 'Use "3" tag'
find &mzip5
find &mzip5
replace &mfield with 'BEGIN STATE SACK HERE'
replace &mfield with 'Use ' + str(mnum,2) + ' sack(s)'
replace &mfield with 'BEGIN STATE SACK HERE'
replace &mfield with 'Use ' + str(mnum,2) + ' sack(s)'
replace &mfield with 'Use "D" tag'
find &mzip
replace &mfield with 'Use "D" tag'
find &mzip
replace &mfield with 'Use "3" tag'
find &mzip5
find &mzip5
replace &mfield with 'Use "S" tag'
find &mzip
replace &mfield with 'BEGIN MIXED STATES SACK HERE'
replace &mfield with 'Use ' + str(mnum,2) + ' sack(s)'
Mixed States
replace &mfield with 'Use "D" tag'
find &mzip
replace &mfield with 'Use "D" tag'
find &mzip
replace &mfield with 'Use "3" tag'
find &mzip5
find &mzip5
replace &mfield with 'Use "S" tag'
find &mzip
find &mzip
replace &mfield with 'Use "MS" tag'
find &mzip
COUNT
POSTAGE
TOTAL
3/5 presort rate:
#,###,###.##
Basic rate:
#,###,###.##
TOTAL
#,###,###.##
Total sacks in mailing: F
sort to &mlist on order
MCHOICE
MAILSYST
MFIVE
MBASIC
BASIC
MFIELD
FIELD
MLIST
SMAILEXT
FIELD_NAMEFIELD_TYPEFIELD_LEN
FIELD_DEC
MAILING
NOSACK
ACOUNT
BCOUNT
ZIPSUM
MAILZIP
ZIP_CODE
STATE
MCOUNT
COUNT
MTEST1
MTEST2
ORDER
WHILE
MZIP5
XCOUNT
D:\FOXPRO25\BULKSORT\
MAILSORT.FXP
D:\FOXPRO25\BULKSORT\MAILSORT.PRG