QUALIFIED

QUALIFIED キーワードは、データ構造のサブフィールドが、データ構造名の後にピリオドとサブフィールド名を続けて指定することによってアクセスされることを示します。データ構造には名前が必要です。

サブフィールドは任意の有効な名前が可能で、プログラム内の他の場所で使われている名前でもかまいません。 これを次の例で説明します。

  * In this example, FILE1 and FILE2 are the names of files.  FILE1 and FILE2 are
  * also subfields of qualified data structure FILESTATUS.  This is valid,
  * because the subfields FILE1 and FILE2 must be qualified by the data structure
  * name: FILESTATUS.FILE1 and FILESTATUS.FILE2.
 Ffile1     if   e             disk
 Ffile2     if   e             disk

 D fileStatus      ds                  qualified
 D   file1                         N
 D   file2                         N

 C                   open(e)   file1
 C                   eval      fileStatus.file1 = %error