Re: 連番ファイルの最終連番確保処理について

LIMS008様、こんにちは

<質問事項と予想対策>
(1)V4、V7でうまく動作していたことを考えると、V9での
　タスク特性のロック方式の設定が気になる所ではあります。
　ロック方式によって、レコードロックがかかっていない
　状態で処理されたのかもしれません。
　バッチタスクデフォルトの[I=即時]以外は要確認です。

(2)リンクＱは照会、リンクＣは登録とわかりますが、
　DSは[降順]、ASは[昇順]という意味でしょうか？

(3)単純に、親タスクのリンクと、子タスクのリンクのみで、
　メインテーブルがないのであれば、１つのタスクで
　まとめて２つリンク定義しても良いのでは？

(4)連番ファイルのデータ構造は、連番がキー項目になっていて、
　常に最終の連番が追加登録された複数行のレコードということ
　でしょうか？

　その場合は、1レコードしかないデータ構造に変更して、
　そこに最終の連番が入るようにすると処理しやすいと思います。

　例えば、管理番号という項目を追加して、それをキーにします。
　管理番号は、常に[1]を代入及び位置付とします。
　そうすれば、管理番号[1]のレコードに対して、
　レコードロックがかかり、連番には最終の連番が入ります。

以下、そのときのサブプログラム例です。
タスクはバッチタスクを１つ作成し後置終了とします。

<レコードメイン>
セレクト　パラメータ P_連番
リンク書込 連番ファイル 管理番号で[昇順]
セレクト　管理番号　[代入][位置付の小大]に[1]を設定
セレクト　連番
リンク終了

<レコード後>
項目更新　P_連番　式[連番+1] 代入
項目更新　連番　　式[連番+1] 代入

(5)(4)によるデータ構造の変更を行わないで対応する方法として、
　サブプログラム内の連番ファイルのＤＢ設定をアクセスＷ、
　共有Ｒでテーブルロックをかければ、A端末が実行中は、
　B端末は必ずテーブルロックエラーとなり、バッチ処理の
　完了待ちになると思います。
　原因がわからず、緊急回避したい場合に有効です。