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

I Just wanted to let you know we are in the Postal Fort Worth Texas Division and I received a call from someone in their office today wanting to ask me some questions. He asked if I understood about the changes with the move update starting for this month, then he asked me what software we were using. I explained to him that we have been using AccuZIP Software for the last 20 years and I thought you were the #1 in the United States. I told him that you were the only software displayed in the Postal Section of the Smithsonian Institute. He asked me if I had to manually change the updated addresses and I told him no that the Software did it for us and I could print a report showing the old address and the new address. He told me out of 32,000 names that were updated only 3 were wrong and he just wanted to call me to see what Software we were using. Thanks for such good software and support from your company over the past 20 years.

C.K., Wichita Falls, TX