オフコンからデータを取り出すには?移行の前の固定長・パック10進・外字の変換と検算

オフコンからデータを取り出すには、何をそろえればよいですか?

固定長のレイアウト表、数字の形式(ゾーン10進とパック10進の別)、外字の対応表の3つです。3つがそろえば、ファイルを項目ごとに切り出して、CSV(UTF-8)に直せます。Access・オフコンの引越しを手伝うとき、Access引越しでは最初にこの3つがあるかを確かめます。

Impressの報道(2025年3月21日)によると、報道の対象の富士通系のASP型オフコンサービスは2031年3月末で提供を終えます。発表の原文は確かめられていません。保守の終わりを案内された会社は、プログラムより先にデータを取り出せるかを確かめると、計画を立てやすくなります。

3つのどれが欠けても、取り出したデータは使えません。

固定長のレイアウト表は、どこにありますか?

多くはオフコンの中のプログラムにあります。COBOLのCOPY句(項目の並びを書いた部品)やファイルの定義、紙の仕様書がレイアウト表の元になります。公開されているオフコンの移行サービスの例(2025年3月の報道)でも、移す対象にCOPY句やデータベースが挙がっています。

固定長のファイルには、カンマや改行がありません。1レコードが54バイトなら先頭から54バイトずつ切り、さらに「0〜6バイト目が伝票番号」のように項目へ分けます。境目を1バイトでも誤ると、後ろの項目がすべてずれます。

私が取り出すときは、まずファイルの大きさをレコード長で割ります。割り切れなければ、レイアウト表が古いか、改行や見出しの行が入っているかのどれかです。

ゾーン10進とパック10進は、どう読み分けますか?

ゾーン10進は1バイトに1桁、パック10進は1バイトに2桁を詰める形式です。レイアウト表やCOPY句にPACKED-DECIMAL(パック10進)の指定があるかで見分けます。

IBMのCOBOLの資料では、パック10進の符号は最後の半バイトに入り、正はC、負はDで作られます(符号なしはF)。ゾーン10進は、最後のバイトの上半分が符号です。「−12,345」をパック10進で書くと「12 34 5D」の3バイトです。ゾーン10進では「F1 F2 F3 F4 D5」の5バイトになります。

パック10進を文字として読むと、「12 34 5D」は制御文字と「4」「]」になり、数字には戻りません。Pythonでは、半バイトずつ取り出してつなげば読めます。

def unpack(b):
    nib = [v for x in b for v in (x >> 4, x & 0xF)]
    *digits, sign = nib
    n = int("".join(map(str, digits)))
    return -n if sign in (0xB, 0xD) else n

unpack(bytes.fromhex("12345D"))  # -12345

小数点の位置はファイルの中に入っていません。単価が「円」か「銭」までかは、レイアウト表の桁の指定で確かめます。

外字は、どう変換すればよいですか?

外字のコードと置き換える文字を1対1で並べた対応表を作り、変換のときに置き換えます。外字は会社ごとに作った文字なので、どの会社にも使える変換表はありません。

法務省の資料によると、富士通が開発した日本語処理の仕組みJEFでは、利用者定義文字(外字)の領域は80A1〜A0FEです。マスの数を計算すると3,102あり、どこに何の字を入れたかは会社ごとに違います。WindowsのShift_JIS(cp932)にも外字の領域があります。Pythonで確かめると、0xF040〜0xF9FCはUnicodeの私用領域の1,880字に対応します。

対応表は次の順に作ります。

1. ファイル全体から外字の領域のコードを拾い、使われているコードと回数の一覧を作る。
2. 一覧のコードを、オフコンの画面や帳票で1字ずつ見て、置き換える字を決める。
3. Unicodeにある字はその字に、ない字は近い字か「〓」にして、置き換えた数を記録に残す。

合成したファイルでは、対応表に1字を載せ忘れたため、正しく読んでも154字が〓のまま残りました。〓の数を数えておけば、載せ忘れに気づけます。

変換したデータが正しいかは、どう確かめますか?

件数、合計金額、「数量×単価=金額」の行の数、外字の残りの4つを、オフコンの集計表と突き合わせます。Access引越しで1,200件の固定長ファイルを合成しました(架空のデータ、返品53件)。読み方を4通り誤ってみると、どの誤りも4つのどれかに表れました。

• 符号Dを読み落とすと、件数は1,200件で合ったまま、合計金額が82,270,768円多くなりました。
• レコード長を55バイトと1バイト誤ると、読めた行は22件で、1,156件が読めませんでした。
• パック10進を文字として読むと、1,200件すべてが数字に戻りませんでした。
• 外字の対応表を使わないと、件数と合計は合っても、598字が〓のまま残りました。

見落としやすいのは符号の誤りです。件数も行の形も正しく見えるので、合計金額を突き合わせないと気づけません。私は、合計をプラスの行とマイナスの行に分けて比べます。

合成したファイルは、文字の項目をcp932で書いた簡略版です。実機のJEFやEBCDIC系の文字の表とは違うため、実物では文字の変換をその機種の表に合わせます。スクリプトはscripts/figs/offcon_extract.pyで、同じ結果を再現できます。

このサイトで相談するには?

Access引越しでは、オフコンのデータの取り出しから、移した先で同じ帳票を出すところまでを一緒に進めます。何をどう頼むか決まっていなくても大丈夫で、準備は要りません。御社のやり方に合わせて、進め方を一緒に考えます。無料で相談する