Add SCF and Zone information to your database

Follow these instructions to make the command work:

Open AccuZIP6 5.0, any database, then select Commands… from the Edit menu.
Enter the code below in the command statement syntax area.
Change the 3-digit ZIP Code at the beginning of the command to the STARTING ZIP Code point from where the Zones will be calculated.
Click Run

* Get start 3-digit zipcode cZip3="980" cZip3=LEFT(cZip3,3) * Suppress Messages ON ERROR com_Mesg=MESSAGE() * Add SCF column; Add Zone column ALTER TABLE (ALIAS()) ADD COLUMN scf C(3) ALTER TABLE (ALIAS()) ADD COLUMN zone C(3) * Add SCF number REPLACE ALL scf WITH substr(GetLineValue(ADDBS(xDefFldr)+"iPresort\DMM\AZL002C.txt",INT(VAL(LEFT(zip,3))),67,.T.,.T.),9,3) * Get Zone Chart line ps5ZoneChartData=GetValue(addbs(xdeffldr)+"iPresort\DMM\azformat2.txt",cZip3,1,1,1,1,"","",1,1,1) ps5ZoneChartData=" "+substr(ps5ZoneChartData,4) * Add Zone number REPLACE all zone WITH SUBSTR(ps5ZoneChartData,val(left(zip,3))*2,1)

* Get start 3-digit zipcode
cZip3="980"
cZip3=LEFT(cZip3,3)

* Suppress Messages
ON ERROR com_Mesg=MESSAGE()

* Add SCF column; Add Zone column
ALTER TABLE (ALIAS()) ADD COLUMN scf C(3)
ALTER TABLE (ALIAS()) ADD COLUMN zone C(3)

* Add SCF number
REPLACE ALL scf WITH substr(GetLineValue(ADDBS(xDefFldr)+"iPresort\DMM\AZL002C.txt",INT(VAL(LEFT(zip,3))),67,.T.,.T.),9,3)

* Get Zone Chart line
ps5ZoneChartData=GetValue(addbs(xdeffldr)+"iPresort\DMM\azformat2.txt",cZip3,1,1,1,1,"","",1,1,1)
ps5ZoneChartData=" "+substr(ps5ZoneChartData,4)

* Add Zone number
REPLACE all zone WITH SUBSTR(ps5ZoneChartData,val(left(zip,3))*2,1)

When the command is completed, close the Command window.
Pull down the View menu to List View Default to see the newly-added fields, then scroll to the right in your database until you see the zone and SCF fields.

« Back to Commands

New to the
Mailing
Industry?
More Info

Professional Services
More Info

We love the database and how simple it is for us to make simple codes as our business always has since 1955...We are grateful to you and your staff that take client service so seriously.

K.W., Hobe Sound, FL