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")