Rational Developer for System z
COBOL for Windows バージョン 7.5 プログラミング・ガイド


データ項目とグループ項目の使用

連データ項目は、階層データ構造の一部となることができます。 従属データ項目を持たないデータ項目は、基本項目 と呼ばれます。 1 つ以上の従属データ項目で構成されるデータ項目をグループ項目と呼びます。

レコードは、基本項目またはグループ項目のどちらでも構いません。 グループ項目は、英数字グループ項目または国別グループ項目のいずれでも構いません。

例えば、以下の Customer-Record英数字グループ項目であり、それぞれが基本データ項目を含んでいる 2 つの従属英数字グループ項目 (Customer-NamePart-Order) で構成されています。 これらのグループ項目は暗黙的に USAGE DISPLAY を持ちます。 以下に示すように、PROCEDURE DIVISIONMOVE ステートメントで、 グループ項目全体またはグループ項目の一部を参照できます。

Data Division.
File Section.
FD  Customer-File
    Record Contains 45 Characters.
01  Customer-Record.
    05  Customer-Name.
        10 Last-Name        Pic x(17).
        10 Filler           Pic x.
        10 Initials         Pic xx.
    05  Part-Order.
        10 Part-Name        Pic x(15).
        10 Part-Color       Pic x(10).
Working-Storage Section.
01  Orig-Customer-Name.
    05  Surname             Pic x(17).
    05  Initials            Pic x(3).
01  Inventory-Part-Name     Pic x(15).
. . .
Procedure Division.
    Move Customer-Name to Orig-Customer-Name
    Move Part-Name to Inventory-Part-Name
    . . .

代わりに、以下に示すように DATA DIVISION の宣言を変更することにより、Customer-Record を、2 つの従属国別グループ項目で構成される国別グループ項目として定義できます。 国別グループ項目の振る舞いは、ほとんどの操作でカテゴリー国別の基本データ項目と同じです。 GROUP-USAGE NATIONAL 文節は、グループ項目およびその従属グループ項目が国別グループであることを示します。国別グループ内の従属基本項目は、明示的または暗黙的に USAGE NATIONAL として記述されている必要があります。

Data Division.
File Section.
FD  Customer-File
    Record Contains 90 Characters.
01  Customer-Record         Group-Usage National.
    05  Customer-Name.
        10 Last-Name        Pic n(17).
        10 Filler           Pic n.
        10 Initials         Pic nn.
    05  Part-Order.
        10 Part-Name        Pic n(15).
        10 Part-Color       Pic n(10).
Working-Storage Section.
01  Orig-Customer-Name      Group-Usage National.
    05  Surname             Pic n(17).
    05  Initials            Pic n(3).
01  Inventory-Part-Name     Pic n(15)  Usage National.
. . .
Procedure Division.
    Move Customer-Name to Orig-Customer-Name
    Move Part-Name to Inventory-Part-Name
    . . .

上記の例のグループ項目は、グループ・レベルで USAGE NATIONAL 文節を指定することもできます。 グループ・レベルの USAGE 文節は、グループ内のそれぞれの基本データ項目に適用されます (ですから、これは便利な省略表現と言えます)。ただし、USAGE NATIONAL 文節を指定しているグループは、グループ内の基本項目の表記にもかかわらず、国別グループではありません。 この USAGE 文節を指定しているグループは英数字グループであり、多数の操作 (移動や比較など) において USAGE DISPLAY の基本データ項目と同様の振る舞いをします (ただし、データの編集や変換は行われません)。

関連概念
Unicode および言語文字のエンコード
国別グループ

関連タスク
COBOL での国別データ (Unicode) の使用
国別グループの使用

関連参照
FILE SECTION 記入項目
国別データの保管
グループ項目のクラスおよびカテゴリー (「COBOL for Windows 言語解説書」)
PICTURE 文節 (「COBOL for Windows 言語解説書」)
MOVE ステートメント (「COBOL for Windows 言語解説書」)
USAGE 文節 (「COBOL for Windows 言語解説書」)


ご利用条件 | フィードバック

Copyright IBM Corporation 1996, 2008.
このインフォメーション・センターでは Eclipse テクノロジーが採用されています。(http://www.eclipse.org)