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