				Wiki
	updated on 2004.06.23

9.43.新郵便番号のマスター

[ Previous ] [ HOME ] [ Upper ] [ Next ]

新郵便番号のマスターを探していたら、なんと、WEBで見付けました。You NET(または、直接的にhttp://www.postal.mpt.go.jp/newnumber/search.htm)にあります。このうち、私は全国版をダウンロードしました。（.exeになってしまったので、.lzhにしました。）さて、これを解凍して出来たファイルをAS/400にアップロードしました。解凍して得られる元のPCファイルはcsvファイルですので、「BASIC順次」でアップロード出来ます。

受取側のファイルのレイアウトは、こんな感じにしました。

 A*------------------------------------*                                 
 A          R MBZIPMR                                                    
 A*------------------------------------*                                 
 A            Z5X201         5S 0       COLHDG(' 全国地方公共団体 ' +    
 A                                       'CODE')                         
 A            Z5ZIP5         5A         COLHDG(' 現郵便番号 ')           
 A            Z5ZIP7         7A         COLHDG(' 新郵便番号 ')           
 A            Z5PTRK         8A         COLHDG(' 都道府県名 ' ' カナ ')  
 A            Z5CTYK        30A         COLHDG(' 市区町村名 ' ' カナ ')  
 A            Z5ARAK       100A         COLHDG(' 町域名 ' ' カナ ')      
 A            Z5PTRJ        10O         COLHDG(' 都道府県名 ' ' 漢字 ')  
 A            Z5CTYJ        30O         COLHDG(' 市区町村名 ' ' 漢字 ')  
 A            Z5ARAJ       100O         COLHDG(' 町域名 ' ' 漢字 ')      
 A            Z5FLG1         1S 0       COLHDG(' 一町域が２以上の〒 ')   
 A                                      TEXT('1= 該当  0= 該当せず ')    
 A            Z5FLG2         1S 0       COLHDG(' 小字毎に番地起番 ')     
 A                                      TEXT('1= 該当  0= 該当せず ')    
 A            Z5FLG3         1S 0       COLHDG(' 丁目を持つ町域表示 ')   
 A                                      TEXT('1= 該当  0= 該当せず ')    
 A            Z5FLG4         1S 0       COLHDG(' １〒で２以上の町域 ')   
 A                                      TEXT('1= 該当  0= 該当せず ')    
 A            Z5FLG5         1S 0       COLHDG(' 更新の表示 ')           
 A                                      TEXT('0= 変無 1= 新規追加 +      
 A                                      2= 変更 ')                       
 A            Z5FLG6         1S 0       COLHDG(' 変更理由 ')             
 A                                      TEXT('0= 無 1= 市政 +            
 A                                      1= 市政 .. 2= 住居表示 +         
 A                                      3= 区画整理  4= 郵政区調整 +     
 A                                      5= 訂正 +                        
 A                                      6= 廃止 ')

レコード件数は119,900件でした。それほど大きくないですよね。

zip01.gif (39121 バイト)

いやに長いフィールドが有りますよね。

 A            Z5ARAK       100A         COLHDG(' 町域名 ' ' カナ ')      
 A            Z5ARAJ       100O         COLHDG(' 町域名 ' ' 漢字 ')

これは、以下のようなものが有るからです。

zip02.gif (41406 バイト)

これを短くすると、転送するときにエラーが出てくるので、気になるのです。

これを利用すれば、変換も出来るかもしれませんね。でも、私の本当の目的は、郵便バーコードを生成するときに利用しようとしています。

いろいろ使ってみると、完璧に使いやすいマスターとは言えなかったです。でも、JISの全国地方公共団体コードの特定には、威力を発揮しました。このとき注意すべきは、郵便番号が同じでも、市区町村名が異なり、よって、全国地方公共団体コーが異なることがあるということ（郵便番号＋市町村名での比較）と、保土ヶ谷の「ヶ」が、このマスターでは「ケ」になっていることなどです。問題は、町域名ですね...

また、PCで言うならば、やっぱりこれが便利かもしれません。マイクロソフトのエクセルやアクセスのアドオンです。でも、精度のほどは分かりませんが、「只」です。

1999/10/05

[ Previous ] [ HOME ] [ Upper ] [ Next ]

You are at K's tips-n-kicks of AS/400

SEO		[PR] 爆速!無料ブログ無料ホームページ開設無料ライブ放送