IMSDB-PCBマスク

PCBはProgramCommunicationBlockの略です。PCBマスクは、DL / I呼び出しで使用される2番目のパラメーターです。リンケージセクションで宣言されています。以下にPCBマスクの構文を示します-

01 PCB-NAME.
   05 DBD-NAME         PIC X(8).
   05 SEG-LEVEL        PIC XX.
   05 STATUS-CODE      PIC XX.
   05 PROC-OPTIONS     PIC X(4).
   05 RESERVED-DLI     PIC S9(5).
   05 SEG-NAME         PIC X(8).
   05 LENGTH-FB-KEY    PIC S9(5).
   05 NUMB-SENS-SEGS   PIC S9(5).
   05 KEY-FB-AREA      PIC X(n).

注意すべき重要なポイントは次のとおりです-

DL / Iは、データベースごとに、プログラム通信ブロックと呼ばれるストレージ領域を維持します。これは、アプリケーションプログラム内でアクセスされるデータベースに関する情報を格納します。
ENTRYステートメントは、リンケージセクションのPCBマスクとプログラムのPSB内のPCBの間に接続を作成します。DL / I呼び出しで使用されるPCBマスクは、操作に使用するデータベースを指示します。
これは、COBOLREADステートメントでのファイル名またはCOBOL書き込みステートメントでのレコード名の指定に類似していると見なすことができます。SELECT、ASSIGN、OPEN、またはCLOSEステートメントは必要ありません。
各DL / I呼び出しの後、DL / IはステータスコードをPCBに格納し、プログラムはそのコードを使用して、呼び出しが成功したか失敗したかを判別できます。

PCB名

注意点-

PCB名は、PCBフィールドの構造全体を参照する領域の名前です。
PCB名はプログラムステートメントで使用されます。
PCB名はPCBのフィールドではありません。

DBD名

注意点-

DBD名には文字データが含まれています。長さは8バイトです。
PCBの最初のフィールドは、処理されているデータベースの名前であり、特定のデータベースに関連付けられたデータベース記述のライブラリーからのDBD名を提供します。

セグメントレベル

注意点-

セグメントレベルは、セグメント階層レベルインジケータと呼ばれます。文字データが含まれ、長さは2バイトです。
セグメントレベルフィールドには、処理されたセグメントのレベルが格納されます。セグメントが正常に取得されると、取得されたセグメントのレベル番号がここに保存されます。
セグメントレベルフィールドの値が15を超えることはありません。これは、DL / Iデータベースで許可されるレベルの最大数であるためです。