プログラム仕様書　BK10030 回送到着入力　－　BK21500P（① センター照会）

1. 概要

1.1 機能概要

DDP 側の回送到着入力（BK11500P）で、DDP の回送マスターに回送票が見つからなかったときに呼ばれる。

1. DDP から回送入力票ＮＯを受け取る。
2. センターの回送マスター（VKKAISO）を読む。
3. 取消済みかどうか、入力区分が対象（店所間回送・域内）かどうかを判定する。
4. 回送マスターの内容とエラーコードを編集して DDP に返す。

sequenceDiagram
    participant DDP as BK11500P（DDP・BK15）
    participant CEN as BK21500P（センター・B15K）
    participant VK as VKKAISO（センター回送マスター）
    DDP->>CEN: ALLOCATE / CONNECT PROCESS（B15K）
    DDP->>CEN: SEND 49バイト（回送入力票ＮＯ）INVITE WAIT
    CEN->>CEN: RECEIVE 49バイト
    CEN->>VK: READ（キー：回送入力票ＮＯ）
    VK-->>CEN: 回送マスター
    CEN->>DDP: SEND 89バイト（エラーコード＋回送内容）INVITE WAIT
    DDP->>CEN: SEND 1バイト LAST WAIT
    CEN->>CEN: RECEIVE（終了の確認）
    CEN->>CEN: RETURN
    DDP->>DDP: FREE

2. インターフェース

2.1 受信データ（IN_DATA：49バイト）

レイアウトは DPCEB02K（回送・航空・域内入力（ＤＤＰ～センター））。

2.2 送信データ（OUT_DATA：89バイト）

レイアウトは CEDPB15K（回送・航空・域内照会到着（ＤＤ～セン））。項目名はレコードフォーマットの名称。

2.3 参照ファイル：VKKAISO（センター回送マスター、KAISOHBN）

3. 処理仕様

3.1 処理の流れ

flowchart TD
    S([B15K 起動]) --> H[CICS エラー時の分岐先を登録]
    H --> R1[DDP から 49バイト受信]
    R1 --> CLR[送信エリアをクリア<br/>エラーフラグ '0'・コード '0000']
    CLR --> RD{VKKAISO を読む}
    RD -- 正常 --> DL{削除区分 = 9}
    DL -- はい --> E9[コード '0009']
    DL -- いいえ --> KB{入力区分 = 1 または 3}
    KB -- いいえ --> E3[コード '0003']
    KB -- はい --> OK[コード '0000' のまま]
    E9 --> SET[回送マスターの内容を<br/>送信エリアにセット 3.2]
    E3 --> SET
    OK --> SET
    RD -- 該当なし --> E1[コード '0001']
    RD -- その他エラー --> E2[コード '0002']
    SET --> SND[DDP に 89バイト送信<br/>INVITE WAIT]
    E1 --> SND
    E2 --> SND
    SND --> R2[DDP からの終了を受信]
    R2 --> RET([RETURN])

3.2 処理内容

1. CICS コマンドがエラーになったときの分岐先（エラー処理 3.4）を登録する。
2. DDP から受信データ（49バイト）を受け取る。
3. 送信エリアをクリアし、エラーフラグ ＝ '0'、エラーコード ＝ '0000' にする。
4. 回送入力票ＮＯ（WBK2KSNO）をキーに、センター回送マスター（VKKAISO）を 170バイトで読む。
5. 読めた場合：
   1. 削除区分（VSKJSJKB）＝ 9 なら、エラーコード ＝ '0009'（取消済み）。
   2. そうでなければ、入力区分（VSKJNYUK）が 1 または 3 以外なら、エラーコード ＝ '0003'（入力区分エラー）。
   3. エラーコードにかかわらず、回送マスターの内容を送信エリアにセットする（2.2）。
   4. 走行粁は次のとおり計算する。

6. 読めなかった場合：該当なしならエラーコード ＝ '0001'、それ以外のエラーなら '0002'（エラーフラグはどちらも '0'）。送信エリアの回送内容は空のまま。
7. 送信データ（89バイト）を DDP に送信し、応答を待つ（INVITE WAIT）。
8. DDP からの最後のデータ（会話の終了）を受信する。
9. 終了する（RETURN）。

3.3 エラーコード一覧

3.4 エラー処理（CICS ERROR 条件）

受信・送信などの CICS コマンドでエラーが起きた場合（回送マスターの読込みは RESP で判定するため対象外）：

1. 送信エリアをクリアする。
2. エラーフラグ ＝ '2'、エラーコード ＝ 'BU02' にする。
3. 3.2 の手順 7（送信）から処理を続ける。

4. 補足・留意事項

1. 取消済み・入力区分エラーでも内容を返す：エラーコードが '0009'・'0003' の場合も、回送マスターの内容を送信エリアにセットして返す。DDP 側（BK11500P）はエラーコードだけを見て、内容は使わない。
2. 走行粁の桁あふれ：走行粁（UB02SKOM）は3桁の数値項目。1,000km 以上になると上位の桁が失われ、正しい値が返らない。
3. 送信時のエラーでループするおそれ：エラー処理の後は送信（手順 7）に戻る。送信そのものがエラーの場合は、再びエラー処理に入り、送信を繰り返すおそれがある。
4. 受信データで使うのは回送入力票ＮＯだけ：入力区分・指令書ＮＯは受け取るが使わない。
5. 航空会社区分・積卸区分：送信データにセットしているが、DDP 側（BK11500P）では使っていない。
6. 使っていない領域：VKEY2（VKUNKSH 用のキー）、UB02SRNO は使っていない。