|
 |
 |
 |
Welcome to Code400.com
|
Okay...We all like to get free stuff..Right?!?
Well thats what we are offering here....Free Stuff
- Free storage for your source code.
- Free access to code
samples. (site search)
- Free place to ask questions or just say what you want.
We are interested in what you have to say.
If you can’t find what your’e looking for on this site....
We will add it.
The small print says: We provide the source code on this site as only
a guide. We do not recommend that anyone run any of the code provided
on this site without first testing it.
If you choose to download source from this site directly onto
your production box without testing....Well, YOU are completely to
blame and we don’t want to hear about it.
Random QuoteKnow the true value of time; snatch, seize, and enjoy every moment of it. No idleness; no laziness; no procrastination; never put off till tomorrow what you can do today.
Lord Chesterfield
| |
 |
 |
|
Available zipcodes for download
ZipCode Download Center
In the following weeks I will add as many States as I can.
Thanks to all who have contributed to these files. Please
continue to send them and I will make additions as time allows.
- The files are in CSV format and may be opened with EXCEL
- Onced open then use save as function to save as type .CSV
- Then use Iseries Navigator and place the new .CSV file on the IFS
- Now create File on the Iseries
- Then use IBM command CPYFRMIMPF to copy data to Iseries
- Now the data is in a file on your Iseries
A R ZCR TEXT('ZIPCODE FILE')
A*
A ZIPCODE 5
A STATE 2
A CITY 35
A AREACODE 3
A TIMEZONE 1
A*
K STATE
K CITY
CPYFRMIMPF FROMSTMF('jamie/ALZIP.csv') TOFILE(JJFLIB/ZIPCODES) RCDDLM(*CRLF)
Alabama
California
Georgia
Illinois
Texas
|
| |