Non-Subscriber vs Subscribers Qualifying for In-County Rates

If you are worried about going over the 50% threshold of Subscribers vs Non-Subscribers for In-County rates, this command can be run on a validated list to monitor your percentages for each mailing.

You would need the subscribe_ logical-type field that is populated with T or F for each record, and make sure to run address validation in AccuZIP6 with the County Code (FIPS) and County name boxes selected.

When you run the command, enter the 5-digit zip that you are mailing from, and you will get a popup with the following message:

Check your mailing's incounty subscriber vs non-subscriber percentage

cValue=INPUTBOX("Enter the 5 digit ZIP of where you are mailing out of","5-Digit ZIP Code?","") comalias=alias() on error com_message=message() alter table alias() add column Countynm c(30) replace all Countynm with "" use (addbs(xDefFldr)+"dmm\_uszips.dbf") in 0 order uszip replace Countynm with _uszips.Countynm for seek(cValue,'_uszips') cName=allt(_uszips.Countynm) use in iif(used('_uszips'),select('_uszips'),0) count for (subscribe_)= .T. and allt(countynm_)==allt(countynm) to cSubscribe count for (subscribe_)= .F. and allt(countynm_)==allt(countynm) to cNonSubscribe cRatio= (cNonSubscribe) / (cSubscribe) *100 cRatio= round(cRatio,2) =messagebox("County ZIP \| County Name = " +cValue+" \| "+cName+CHR(10)+CHR(10)+; "Subscribers in the list that are 'IN-COUNTY' = " + transform(cSubscribe)+chr(10)+chr(10) +; "NON-Subscribers in the list that are 'IN-COUNTY' = " + transform(cNonSubscribe)+chr(10)+chr(10)+; "Ratio of Non-Subscribers vs Subscribers at 'IN-COUNTY' rates = " + transform(cRatio)+"%"+chr(10)+chr(10)+"-----------------------------------------------------------------------------"+chr(10)+chr(10)+"NOTE: Ratio of Subscribers vs Non-Subscribers should not exceed 50%" ,"Non-Subscriber vs Subscriber Ratio")

cValue=INPUTBOX("Enter the 5 digit ZIP of where you are mailing out of","5-Digit ZIP Code?","")

comalias=alias()
on error com_message=message()
alter table alias() add column Countynm c(30)
replace all Countynm with ""

use (addbs(xDefFldr)+"dmm\_uszips.dbf") in 0 order uszip
replace Countynm with _uszips.Countynm for seek(cValue,'_uszips')
cName=allt(_uszips.Countynm)

use in iif(used('_uszips'),select('_uszips'),0)

count for (subscribe_)= .T. and allt(countynm_)==allt(countynm) to cSubscribe
count for (subscribe_)= .F. and allt(countynm_)==allt(countynm) to cNonSubscribe

cRatio= (cNonSubscribe) / (cSubscribe) *100
cRatio= round(cRatio,2)

=messagebox("County ZIP | County Name = " +cValue+" | "+cName+CHR(10)+CHR(10)+;
"Subscribers in the list that are 'IN-COUNTY' = " + transform(cSubscribe)+chr(10)+chr(10) +;
"NON-Subscribers in the list that are 'IN-COUNTY' = " + transform(cNonSubscribe)+chr(10)+chr(10)+;
"Ratio of Non-Subscribers vs Subscribers at 'IN-COUNTY' rates = " + transform(cRatio)+"%"+chr(10)+chr(10)+"-----------------------------------------------------------------------------"+chr(10)+chr(10)+"NOTE: Ratio of Subscribers vs Non-Subscribers should not exceed 50%" ,"Non-Subscriber vs Subscriber Ratio")

« Back to Commands

New to the
Mailing
Industry?
More Info

Professional Services
More Info

As a member of the NPOA board now, an additional word of appreciation for the long time support of our printers’ association. We cant do it without the support of our vendors, and AccuZIP has been GREAT!

B.K., Tampa, FL