ISO2002 

PROPERTY 句

機能

PROPERTY 句はこのデータ項目がオブジェクトの属性であることおよび状況に応じてGETメソッドとSETメソッドのどちらか一方または両方を生成すべきことを指定する。

一般形式

構文規則

  1. PROPERTY句を指定できる場所は、ファクトリ定義またはオブジェクト定義の作業場所節だけである。

  2. OCCURS句の下位に属するデータ項目にはPROPERTY句を指定してはならない。

  3. PROPERTY句を指定できる対象は、参照の一意性を保つために名前を修飾する必要のない、基本データ項目だけである。

  4. 記述項の左辺のデータ名はスーパークラスに定義されている属性名と同じであってはならない。

注： スーパークラス内に属性名を定義できる。その方法は２通りある。ひとつは、PROPERTY指定を記述したひとつまたは一組のメソッドを定義することである。もうひとつは、PROPERTY句を指定したデータ記述項を記述することである。

一般規則

  1. GET指定を書かないと、PROPERTY句は該当のデータ項目を含むファクトリまたはオブジェクトに関するメソッドを定義する働きをする。

    その記述項の左辺の字類が指標、オブジェクト、ポインターのいずれかである場合、そのメソッドは暗黙的に下記のように定義される。

     METHOD-ID. GET PROPERTY data-name. 
 DATA DIVISION. 
 LINKAGE SECTION. 
 01 LS-data-name data-description. 
 PROCEDURE DIVISION RETURNING LS-data-name. 
 par-name. 
     SET LS-data-name TO data-name 
     EXIT METHOD. 
 END METHOD.

    その記述項の左辺の項類が英数字編集、国別編集、数字編集のいずれかである場合、そのメソッドは暗黙的に下記のように定義される。

     METHOD-ID. GET PROPERTY data-name. 
 DATA DIVISION. 
 LINKAGE SECTION. 
 01 LS-data-name data-description. 
 PROCEDURE DIVISION RETURNING LS-data-name. 
 par-name. 
     MOVE data-name TO LS-data-name (1:). 
     EXIT METHOD. 
 END METHOD.

    注： その記述項の左辺が編集されている場合、受取り側の項目全体を部分参照したときに、そのデータに編集規則が再び適用されることはない。

    そうでない場合、このメソッドの暗黙的な定義は下記のようになる。

     METHOD-ID. GET PROPERTY data-name.
 DATA DIVISION.
 LINKAGE SECTION.
 01 LS-data-name data-description.
 PROCEDURE DIVISION RETURNING LS-data-name.
 par-name.
     MOVE data-name TO LS-data-name
     EXIT METHOD.
 END METHOD.

    ここで、LSデータ名のデータ記述には、その記述項の左辺およびその下位のデータ項目が含まれる。ただし、下記のものは例外である。

    • INDEXED BY指定
    • PROPERTY句
    • VALUE句
    • その記述項の左辺のデータ記述内のREDEFINES句

  2. SET指定を書かないと、PROPERTY句は該当のデータ項目を含むファクトリまたはオブジェクトに関するメソッドを定義する働きをする。

    その記述項の左辺の字類が指標、オブジェクト、ポインターのいずれかである場合、そのメソッドは暗黙的に下記のように定義される。

     METHOD-ID. SET PROPERTY data-name.
 DATA DIVISION.
 LINKAGE SECTION.
 01 LS-data-name data-description.
 PROCEDURE DIVISION USING LS-data-name.
 par-name.
     SET data-name TO LS-data-name
     EXIT METHOD.
 END METHOD.

    その記述項の左辺の項類が英数字編集、国別編集、数字編集のいずれかである場合、そのメソッドは暗黙的に下記のように定義される。

     METHOD-ID. SET PROPERTY data-name.
 DATA DIVISION.
 LINKAGE SECTION.
 01 LS-data-name data-description.
 PROCEDURE DIVISION USING LS-data-name.
 par-name.
     MOVE LS-data-name TO data-name (1:).
     EXIT METHOD.
 END METHOD.

    注： その記述項の左辺が編集されている場合、受取り側の項目全体を部分参照したときに、そのデータに編集規則が再び適用されることはない。

    そうでない場合、このメソッドの暗黙的な定義は下記のようになる。

     METHOD-ID. SET PROPERTY data-name.
 DATA DIVISION.
 LINKAGE SECTION.
 01 LS-data-name data-description.
 PROCEDURE DIVISION USING LS-data-name.
 par-name.
     MOVE LS-data-name TO data-name
     EXIT METHOD.
 END METHOD.

    ここで、LSデータ名のデータ記述には、その記述項の左辺およびその下位のデータ項目が含まれる。ただし、下記のものは例外である。

    • INDEXED BY指定
    • PROPERTY句
    • VALUE句
    • その記述項の左辺のデータ記述内のREDEFINES句