1. Open AccuZIP6 5.0, any database, then select Commands… from the Edit menu.
2. Enter the code below in the command statement syntax area.
3. 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.
4. Click Run
Code: Select all
* 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)
6. 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.