GRDLIN (グリッド・ライン) キーワード

これは、レコード・レベル・キーワードで、ライン構造の形、位置、および属性を定義するのに使用します。このキーワードは、ラインが消去されるか、表示されるか、または処理されないかどうかを定義します。

キーワードの形式は次のとおりです。

GRDLIN((*POS([*DS3] [*DS4]
start line | &start-line-field
start column | &start-column-field
length | &length-field
[(*TYPE type of line
[repeat | &repeat-field]
[interval rule | &interval-field])]
[(*COLOR color of line | &color-field)]
[(*LINTYP type of line | &lintyp-field)]
[(*CONTROL | &control-field)]

*POS パラメーターは必須パラメーターです。このパラメーターは、表示サイズおよび GRDLIN キーワードの条件付けを許可します。 *DS3 または *DS4 を *POS パラメーターを使用してコーディングするとき、使用中の画面サイズに応じて 2 つの異なる開始行、開始桁、および長さの値をとります。 DSPSIZ キーワードは、ファイル・レベルでコード化する必要があります。

フィールド名が指定される場合、フィールドはレコード様式内でデータ・タイプ S、使用目的 P、長さ 3、および小数点桁 0 の桁数でなければなりません。

タイプ・パラメーターは必須パラメーターです。タイプ・パラメーターの有効な値は以下のとおりです。

値: 意味
UPPER: 上位文字境界線上の横線
LOWER: 下位文字境界線上の横線
RIGHT: 右文字境界線上の縦線
LEFT: 左文字境界線上の縦線

反復パラメーターは、線が繰り返される回数を指定します。間隔パラメーターは、反復される線の間の文字スペースの数を指定します。

タイプ・パラメーターのデフォルトは、upper です。反復値も間隔値もコード化されていない場合、単一グリッド・ラインが描かれます。反復および間隔のデフォルトは 1 です。

フィールド名が指定される場合、フィールドはレコード様式内に存在しなければならず、データ・タイプ S、使用目的 P、および 3 より長い長さとして定義されなければなりません。

*COLOR および *LINTYP パラメーターは、ボックスの色および属性を定義します。 P フィールドは、実行時の属性を定義または変更するのに使用されます。

*COLOR および *LINTYP パラメーターの詳細については、GRDATR (グリッド属性) キーワードを参照してください。

NONE は GRDLIN キーワードで定義される場合、GRDATR キーワードで設定される色が使用されます。

P フィールドが COLOR または LINTYP パラメーターのどちらかに指定される場合、フィールドはレコード様式内に存在しなければなりません。フィールドはデータ・タイプ A、使用目的 P、および 1 の長さとして定義されます。

*CONTROL パラメーターは、この GRDLIN が表示され、画面から消去、または無視 (キーワードをオフに任意指定するのと同様) されようとしているかどうかを指定します。フィールドはレコード様式内に存在し、データ・タイプ S、使用目的 P、および 1 の桁数として定義されなければなりません。P フィールドが 0 に設定される場合は、グリッド・ラインが表示されます。 P フィールドが 1 に設定される場合、GRDLIN キーワードは処理されません。 P フィールドが -1 に設定される場合、現在表示されているグリッド・ラインのレコードが消去されます。 P フィールドが定義された値以外の値に設定される場合、省略時値 0 が使用されます。

グリッド・ライン・サポートには、DBCS 装置が必須です。この装置は、日本語 DOS を呼び出す能力があります。

このキーワードについては、オプション標識を使用することができます。

例

次の例は、GRDLIN キーワードの指定方法を示しています。

|...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
     A                                      DSPSIZ(*DS3 *DS4)
     A                                      GDRATR((*COLOR WHT) (*LINTYP SLD))
     A          R GRDREC1                   GRDRCD
     A                                      DSPMOD(*DS4)
     A                                      GRDLIN((*POS (*DS3 2 1 80) +
     A                                      (*DS4 2 1 132)) (*TYPE LOWER))
     A                                      GRDLIN((*POS (*DS3 4 6 20) +
     A                                      (*DS4 4 6 22)) (*TYPE RIGHT 4 15) +
     A                                      (*COLOR RED)  (*LINTYP DBL) +
     A                                      (*CONTROL &CNTL1));
     A
     A                                      GRDLIN((*POS (8 1 &LEN1); +
     A                                      (*TYPE LOWER 3 6) +
     A                                      (*COLOR &CLR1); (*LINTYP &LNTP1); +
     A                                      (*CONTROL &CNTL2));
     A            CNTL1          1S 0P
     A            CNTL2          1S 0P
     A            LEN1           3S 0P
     A            LNTP1          1A  P
     A            CLR1           1S 0P
     A

GRDREC1 レコードが作成されるときは、以下のとおりです。

レコードが 24 x 80 の表示で作成されるか、DSPMOD がオフにされる場合、以下のようになります。
1. 横線は、行 2 および桁 1 で始まる下部の文字の端に描かれます。横線の桁数は 80 桁です。グリッドの線は、色が白で、ファイル・レベルの GRDATR キーワードによって定義される実線タイプです。
2. P フィールド CNTL1 の値が 0 に等しい場合、4 つの縦線が桁 6、21、36、および 51 の文字の右境界線に描かれます。各線は 20 行の長さです。グリッド・ラインは二重線を使用し、赤くなります。P フィールド CNTL1 の値が -1 の場合、ボックスは消去されます。P フィールド CNTL1 の値が 1 の場合、GRDLIN キーワードによる処理はなされません。
3. P フィールド CNTL2 の値が 0 に等しい場合、3 つの横線が行 8、14、および 20 の下部の文字の境界線で描かれます。線の長さは、P フィールド LEN1 の値から実行時に決定されます。P フィールドの値が表示幅より大きくなる場合、値は表示幅に切り捨てられます。色と線の値は P フィールド CLR1 および LNTP1 から実行時に決定されます。 P フィールド CNTL2 の値が 1 の場合、GRDLIN キーワードによる処理はなされません。
レコードが 27 x 132 の表示で作成され、かつ DSPMOD がオンにされる場合、以下のようになります。
1. 横線は、行 2 および桁 1 で始まる下部の文字の端に描かれます。横線の桁数は 132 桁です。グリッドの線は、色が白で、ファイル・レベルの GRDATR キーワードによって定義される実線タイプです。
2. P フィールド CNTL1 の値が 0 に等しい場合、4 つの縦線が桁 6、21、36、および 51 の文字の右境界線に描かれます。各線は 22 行の長さです。グリッド・ラインは二重線を使用し、赤くなります。P フィールド CNTL1 の値が -1 の場合、ボックスは消去されます。P フィールド CNTL1 の値が 1 の場合、GRDLIN キーワードによる処理はなされません。
3. P フィールド CNTL2 の値が 0 に等しい場合、3 つの横線が行 8、14、および 20 の下部の文字の境界線で描かれます。線の長さは、P フィールド LEN1 の値から実行時に決定されます。P フィールドの値が表示幅より大きくなる場合、値は表示幅に切り捨てられます。色と線の値は P フィールド CLR1 および LNTP1 から実行時に決定されます。 P フィールド CNTL1 の値が -1 の場合、ボックスは消去されます。P フィールド CNTL2 の値が 1 の場合、GRDLIN キーワードによる処理はなされません。