バッチ設計書（プログラム仕様書）【KS41000P】管理台帳の作成

1. 改訂履歴

2. プログラム概要

2.1 機能概要

顧客ＤＢ（顧客マスター）を読み込み、管理台帳を作成する。

2.2 処理概要

1. 顧客マスター（基本情報）を先頭から1件ずつ順次読み込む。
2. 請求・精算書ＮＯ．が 0 の顧客には、「登録顧客コード＋00000」の12桁を補完する。
3. 登録顧客コードをキーに、顧客マスター（運賃契約基本情報）と顧客マスター（委託料情報（１））をランダム読込する。
4. 3ファイルの内容を管理台帳レイアウトに編集し、1件出力する。
   • 委託料情報（１）あり：1500バイト
   • 委託料情報（１）なし：1200バイト
5. 運賃集約計算区分がスペース以外の顧客は、確認メッセージを表示する。
6. 終了時に入力件数・出力件数を表示する。

2.3 入出力概要図

flowchart LR
    CUSTM[("VKCUSTM<br/>顧客マスター（基本情報）")]
    CUNK1[("VKCUNK1<br/>顧客マスター（運賃契約基本情報）<br/>VSAM")]
    CUIT1[("VKCUIT1<br/>顧客マスター（委託料情報（１））<br/>VSAM")]
    PGM["KS41000P<br/>管理台帳の作成"]
    KANMS[("SQKANMS<br/>管理台帳<br/>可変長 1200／1500")]
    SYSOUT[/"SYSOUT（DISPLAY）<br/>件数・確認・エラーメッセージ"/]

    CUSTM -- "順次読込" --> PGM
    CUNK1 -- "キー読込（顧客コード）" --> PGM
    CUIT1 -- "キー読込（顧客コード）" --> PGM
    PGM -- "順次出力" --> KANMS
    PGM -.-> SYSOUT

3. 入出力ファイル一覧

※1 ソースコメントでは「運賃契約基本情報」、参考資料では「顧客マスター（運賃計算基本情報）」と記載。

4. 処理詳細

4.1 初期処理

4.2 主処理（顧客基本情報が終了するまで繰返し：EOF_SW＝'1' の間）

4.3 終了処理

4.4 処理フロー

flowchart TD
    START(["開始"]) --> ON["ON条件を設定<br/>VKCUSTM 終了／VKCUNK1・VKCUIT1 キーエラー"]
    ON --> OPEN["管理台帳（SQKANMS）をオープン"]
    OPEN --> READ1["顧客基本情報（VKCUSTM）を読込"]
    READ1 --> EOF{"顧客基本情報<br/>終了？"}
    EOF -- "No" --> CNT["入力件数 ＋1"]
    CNT --> SSNO{"請求・精算書ＮＯ．<br/>＝ 0？"}
    SSNO -- "Yes" --> SETNO["請求・精算書ＮＯ． ←<br/>登録顧客コード ＋ '00000'"]
    SSNO -- "No" --> KEY
    SETNO --> KEY["読込キー ← 登録顧客コード"]
    KEY --> RNK1["運賃契約基本情報（VKCUNK1）をキー読込"]
    RNK1 --> NK1{"該当あり？"}
    NK1 -- "No" --> CLR["運賃契約基本情報エリア ← スペース"]
    NK1 -- "Yes" --> RIT1
    CLR --> RIT1["委託料情報（１）（VKCUIT1）をキー読込"]
    RIT1 --> IT1{"該当あり？"}
    IT1 -- "Yes" --> E1500["レコード長 ← 1500<br/>1〜799：顧客基本情報 1〜799<br/>800：運賃集約計算区分<br/>801〜1200：スペース<br/>1201〜1500：委託料情報 8〜307"]
    IT1 -- "No" --> E1200["レコード長 ← 1200<br/>1〜799：顧客基本情報 1〜799<br/>800：運賃集約計算区分<br/>801〜1200：スペース"]
    E1500 --> SYU
    E1200 --> SYU{"運賃集約計算区分<br/>≠ スペース？"}
    SYU -- "Yes" --> MSG[/"確認メッセージ表示<br/>>> UNTIN SYUYAKU 顧客コード-区分"/]
    SYU -- "No" --> WRITE
    MSG --> WRITE["出力件数 ＋1<br/>管理台帳を出力"]
    WRITE --> READ2["次の顧客基本情報を読込"]
    READ2 --> EOF
    EOF -- "Yes" --> DISP[/"入力件数・出力件数を表示"/]
    DISP --> CLOSE["管理台帳をクローズ"]
    CLOSE --> FIN(["終了"])

キーエラー時の処理（ON KEY 条件）

flowchart TD
    K(["KEY条件発生<br/>VKCUNK1／VKCUIT1"]) --> SW["存在スイッチ ← '0'（該当なし）"]
    SW --> OC{"ONCODE ＝ 51？<br/>（該当キーなし）"}
    OC -- "Yes" --> CONT(["処理続行"])
    OC -- "No" --> ERR[/"エラーメッセージ表示<br/>VKCUNK1（VKCUIT1） READ ERROR PGM STOP-顧客コード"/]
    ERR --> STOP(["プログラム停止（STOP）"])

5. 出力編集仕様（管理台帳 SQKANMS ／ KANBASED）

5.1 ブロック単位の編集

5.2 出力エリアの構造

5.3 項目単位の対応表

付録A を参照。

6. メッセージ一覧（DISPLAY）

7. 変数一覧

7.1 本プログラムで参照するレイアウト項目

8. 留意事項（ソース解析で判明した事項）

付録A 出力項目対応表（管理台帳 KANBASED ← 編集元）

LV＝レベル番号。属性・桁・Byte は参考資料（現行解析資料）の定義による。