プログラム仕様書　BU10900P（配車修正入力　確認）

1. 概要

1.1 機能概要

検証済みの修正内容でセンターの運行指令マスターを更新する画面。BU10800P・BV10800P の「確認ＯＫなら実行キーを押して下さい。修正なら、ＰＦ５」の画面で待機する。

1. 実行キー：TSキューの検証後データをセンター（B09U：BU20900P）に送って更新を依頼し、結果のメッセージを表示する。印刷装置が使用可で更新が成功したら、指令書を印刷する。
2. PF5：入力可の項目を戻して BU08（自社便）／BV08（傭車便）に戻り、修正をやり直す。

flowchart LR
    BU08[BU08／BV08<br/>検証OK] --> BU09[BU09<br/>本プログラム<br/>MPBU070]
    BU09 <-- APPC B09U --> CIC1[(センター CIC1<br/>BU20900P<br/>VKUNKSH 更新)]
    BU09 -- 印刷 --> PRT[BV13／BV14<br/>指令書印刷]
    BU09 -- PF5 --> BU08
    BU09 -- 更新後の実行 --> BU07[BU07<br/>初期画面]

2. 画面仕様

画面レイアウト・項目は BU10700P と同じ（BU10700P_仕様書.md の 2章）。本プログラムは画面の値をチェックせず、メッセージ・エラーコードと、PF5 のときの属性だけを変える。

2.1 ファンクションキー

PF2・PF3・PF4・PF8・PF9・PF11・CLEAR の処理は BU10800P と同じ（BU10800P_仕様書.md の 4.7。待機するトランザクションは BU09）。

3. インターフェース

3.1 通信領域（COMMAREA：256バイト）

BU10800P と同じ項目を使う。COMM_PRI_FLG（印刷装置の状態）が '2' なら更新後に指令書を印刷し、COMM_YOS_FLG（'1'：自社）で自社用・傭車用の印刷を選ぶ。

3.2 TSキュー（520バイト）

BU10800P と同じ領域。本プログラムでは検証後データの部分を、センターへの送信データ（CEDPBU07 の配置。項目名は UNK で始まる）として使う。

3.3 センターへの更新依頼（B09U：BU20900P）

4. 処理仕様

4.1 処理の流れ

flowchart TD
    S([開始]) --> AID{押されたキー}
    AID -- CLEAR --> CLR[印刷終了の処理<br/>終了画面]
    AID -- PF5 --> PF5[修正に戻る 4.3]
    AID -- その他のPFキー --> PF[ファンクションキー処理]
    AID -- 実行 --> RCV[MPBU070 を受信<br/>TSキューを読む]
    RCV -- なし --> INI[初期画面<br/>エラーコード Q_ERR] --> W07([BU07 で待機])
    RCV -- あり --> DEL[TSキュー削除]
    DEL --> UPD[センターに更新依頼 4.2]
    UPD -- 通信エラー・更新エラー --> ERR[TSキュー保存<br/>エラー表示] --> W09([BU09 で待機])
    UPD -- 更新OK --> PRT{印刷装置 使用可<br/>入力結果 1・5}
    PRT -- はい --> P[指令書を印刷 4.4]
    PRT -- いいえ --> MSG
    P --> MSG[結果のメッセージ表示] --> W09B([BU09 で待機])

4.2 実行キー：センターへの更新依頼（INQUIRE_SUB_RTN）

1. 画面を受信し、TSキューを読む。
   • 読めなければ、画面をクリアして BU10700P と同じ初期画面（入力店所は入力不可、修正項目はすべて入力不可、メッセージ「指令書№を入力して実行キー」（反転）、エラーコード 'Q_ERR'、指令書NO にカーソル）を画面を消去して送信し、BU07 で待機する。
   • 読めたら削除する。
2. 入力結果（UNKNYUK）に画面の入力区分（TSキューの BU07053B）をセットし、センター（CIC1 の B09U）に接続して検証後データ（250バイト）を送信し、結果（169バイト）を受信する。終了データを送って会話を終える。
3. 通信エラーは BU10700P と同じ（回線混雑 ASYSB は画面を受信してやり直し、それ以外はエラーフラグ '7'・'8'・'9'）。メッセージは後半48桁に次をセットする。

4. 正常に受信したら、入力結果（DNKNYUK）でメッセージの前半22桁をセットする（後半は空白）。

5. 印刷装置の状態が '2'（使用可）で、入力結果が 1 か 5 なら、指令書を印刷する（4.4）。
6. エラー（通信エラー、入力結果 4～8・A）なら、メッセージとエラーコード（通信エラーのコード）をセットし、TSキューを書き戻して（書き込めなければ CLEAR と同じ処理）画面のデータ部分を送信し、BU09 で待機する。PF5 で修正に戻れる。
7. OK なら、メッセージをセットして画面のデータ部分を送信し（カーソル指定）、BU09 で待機する。TSキューは書き戻さない。

4.3 PF5：修正に戻る

1. TSキューを読む。なければエラーコード 'Q ERR' をセットして 4 へ。あれば削除する。
2. 入力区分（画面の値）が 'R'（復活）なら、メッセージ「復活するなら実行キー　復活しないならＰＦ２で取消」（反転）を表示し、TSキューを書き戻して BU09 で待機する（修正には戻らない）。
3. それ以外は、照会時の入力区分（UNKINKB）によって入力可の項目を決める。

4. メッセージ「修正する項目を、入力してください。」（反転）を表示し、OKFLG を '2'（次の検証で全項目をチェックし直す）、入力年月日を処理日付にして TSキューに書く（書き込めなければ CLEAR と同じ処理）。画面のデータ部分を送信し（カーソル指定）、運行車区分が 02 なら BV08、それ以外は BU08 で待機する。

4.4 指令書の印刷

印刷情報（店所・端末ID・印刷装置・処理日付、キュー名「端末ID＋現在の分秒」）を作り、印刷データを TSキューに書いて、自社便は BV13、傭車便は BV14 を印刷装置で START する（TSキューの書込みエラーなら START しない）。

5. メッセージ一覧

6. 画面遷移

flowchart LR
    BU08[BU08／BV08] -- チェックOK --> BU09[BU09<br/>本プログラム]
    BU09 -- 実行（結果表示） --> BU09
    BU09 -- 実行（TSキューなし） --> BU07[BU07<br/>初期画面]
    BU09 -- PF5 自社便 --> BU08B[BU08]
    BU09 -- PF5 傭車便 --> BV08[BV08]
    BU09 -- PF2 --> BU07
    BU09 -- PF3 --> PREV[一つ前の画面]
    BU09 -- PF4 --> MAIN[メインメニュー]
    BU09 -- CLEAR --> END[ELEPHAN 終了]

7. 補足・留意事項

1. 更新後の実行キー：更新が OK だと TSキューを書き戻さないため、続けて実行キーを押すと TSキューがなく、初期画面にエラーコード 'Q_ERR' が表示される（エラーではなく次の指令書の入力待ち）。
2. 入力結果に入力区分を入れて送る：BU10800P・BV10800P は入力区分を変えた場合に入力結果を '9' にしているが、本プログラムは送信前に入力結果を画面の入力区分（'1'・'2'・'5'・'9'・'D'・'R' など）で上書きする。センター（BU20900P）はこの値で処理を分ける。
3. PF5 の入力可の項目の違い（BU10700P の照会OK 時との違い）
   • 照会時の入力区分が 5（到着入力済）の場合は属性を変えない（BU10700P は 1・2・5 で入力可にする）。
   • 自社便のフェリー会社は常に入力可（BU10700P は入力年月日 ＝ 処理日付のときだけ）。
   • 増便で運行車区分を入力可にする条件が「指令書ＮＯ の8桁目が 1」（BU10700P も同じ）。
4. 入力結果 0 と不明な値：入力結果 0（配車未入力です。）や表にない値はエラー扱いにしないため、TSキューを書き戻さない。PF5 で修正に戻れない。
5. 印刷の条件：指令書を印刷するのは入力結果が 1（修正ＯＫ）か 5（修正済、次の枝番無し）のときだけ。5 はメッセージ上はエラー扱い（TSキューを書き戻す）だが印刷は行う。
6. 通信エラーのメッセージ：通信エラーではメッセージの後半48桁だけをセットし、前半22桁は空白のまま。
7. 'R' は修正に戻れない：入力区分 R（減便からの復活）で確認画面に来た場合、PF5 では修正に戻れず、実行（復活）か PF2（取消）を選ぶ。