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

I just wanted to share how FABULOUS [Geoff] is and you should keep him for sure! I have had the best service and training from him in the last few days that it has sold me on keeping AccuZIP @ my new job. I was new to this software and learning in “trial by fire” mode and he got me thru it without any burns! He is amazing and deserves a raise, bonus, employee of year- SOMETHING BIG. I have dealt with the mail industry for about 30 years and never received this level of support and so positive. I am forever grateful and will suggest him and this product if asked. I am being very serious about his knowledge, skill, and interpersonal skill(hard to find these days).

K.P., Colorado Springs, CO