これは、レコード・レベル・キーワードで、ライン構造の形、位置、および属性を定義するのに使用します。 このキーワードは、ラインが消去されるか、表示されるか、または処理されないかどうかを定義します。
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 です。 反復値も間隔値もコード化されていない場合、単一グリッド・ラインが描かれます。反復および間隔のデフォルトは 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