既存システムを、次の一歩へ。

デモ（架空のサンプル）お客様の案件・実際のデータではありません。受注金額の割引計算を例にしています。

1. STEP 1 / 元のプログラム

   ORDCALC.cbl（抜粋）

   受注数量・単価・顧客ランクから金額と状態を決める、よくある形のプログラムです。

   001100     MOVE ZERO TO WS-DISC-RATE.
   001200     IF IN-QTY >= 100
   001300         MOVE 0.05 TO WS-DISC-RATE
   001400     END-IF.
   001500     IF IN-CUST-RANK = 'A'
   001600         ADD 0.02 TO WS-DISC-RATE
   001700     END-IF.
   001800     COMPUTE OUT-AMOUNT ROUNDED =
   001900         IN-QTY * IN-UNIT-PRICE * (1 - WS-DISC-RATE).
   002000     IF OUT-AMOUNT > IN-CREDIT-LIMIT
   002100         MOVE '9' TO OUT-STATUS
   002200     ELSE
   002300         MOVE '0' TO OUT-STATUS
   002400     END-IF.

   横にスクロールすると全体を表示できます

2. STEP 2 / 整理した業務ルール

   4つのルールと、1つの未確認

   AIが草案を作り、エンジニアが根拠の行と照らして確定します。分からない点は推測で埋めません。

   4つのルールと、1つの未確認

   ID	ルール	根拠（行）
   R-01	数量が100以上なら5%割引	001200–001400
   R-02	顧客ランクAは2%を追加（最大7%）	001500–001700
   R-03	金額は1円未満を四捨五入	001800–001900
   R-04	与信限度額を超えたら「保留」（状態 9）	002000–002400
   U-01	保留になった後の承認・通知はこのプログラムにない	要確認：お客様と決定

3. STEP 3 / Excel 設計書

   設計書_ORDCALC.xlsx

   画面・処理・データの仕様を、お客様が編集できる形で納品します。各行に根拠を残します。

   • 概要
   • 入出力項目
   • 処理条件
   • 未確認事項

   設計書_ORDCALC.xlsx

   No	項目	条件・計算	根拠
   1	割引率	数量 ≥ 100 → 5%	R-01
   2	割引率	顧客ランク A → +2%	R-02
   3	受注金額	数量 × 単価 ×（1 − 割引率）、四捨五入	R-03
   4	状態	金額 > 与信限度額 → 9（保留）、それ以外 0	R-04

4. STEP 4 / 検証結果

   旧と新に同じ入力を流して比較

   移行後のプログラム（例：Java）と元のCOBOLに同じデータを入れ、結果が一致するかを確かめます。差分は原因を記録します。

   旧と新に同じ入力を流して比較

   NoNo	入力入力	旧（COBOL）旧	新（Java）新	判定判定
   T1	数量 99・単価 1,000・ランク B	99,000	99,000	一致
   T2	数量 100・単価 1,000・ランク B	95,000	95,000	一致
   T3	数量 100・単価 1,000・ランク A	93,000	93,000	一致
   T4	数量 150・単価 333・ランク A（端数）	46,454	46,454	一致
   T5	T2 と同じ・与信限度 50,000	状態 9	状態 9	一致

   旧＝元のCOBOL、新＝移行後のプログラム（例：Java）

   5件中5件 一致未確認 1件（U-01）はお客様と決定