Weed out unwanted routes from EDDM List
Instructions:
Look at your Excel file or text file of the ZIP's and routes you need to mail. Note the beginning ZIP and the ending ZIP in that range.
Build your EDDM list in AccuZIP6 (Select menu > Create Simplified/EDDM Address list) by entering this range (such as 15212-25019). Keep that list open.
Now use File menu > Open List. Open the text or excel file containing your ZIP Codes and routes. Assign the field named ZIP to the 5-digit ZIP Codes. Assign CRRT to the carrier routes. Import this list.
If you need to add a leading zero to the ZIP Code, run this command:
|
Delete blank records with this command:
| DELETE FOR EMPTY(zip) PACK |
With 5-digit ZIP Codes in ZIP and 4-character carrier routes in CRRT, pull down the File menu to Save Database As, and name it zipsroutes.dbf. Put it someplace where you'll be able to find it, like your desktop. Close that database, so only the EDDM list is currently open.
Run the following command. The command will have you browse to select the database of ZIP Codes and routes that you want to keep. Once you've selected this, the command will compare the EDDM list and your ZIP/Carrier Route list, mark the matches, then delete and pack anything that is not marked, leaving you with only the ZIP Codes and routes you wish to mail.
| com_db = GETFILE('dbf', 'EDDM Routes Table:', 'Open', 0, 'Open') USE ("&com_db") IN 0 ALIAS "zipsroutes" cDbf=DBF() cAlias=ALIAS() SET SAFETY OFF SELECT("zipsroutes") ***CLEAN zipsandroutes*** *Replace all crrt with SUBSTR(zip,7),zip with LEFT(zip,5) *DELETE FOR EMPTY(zip) *PACK ***This section marks the routes we want to keep in each ZIP*** INDEX ON LEFT(zip,5)+ALLT(crrt) TAG mytag SELECT(cAlias) REPLACE x with "X" for SEEK(LEFT(zip,5)+ALLT(crrt),"zipsroutes") ***This section deletes the un-marked routes*** DELETE FOR EMPTY(x) PACK |
