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