データ構造の定義で SAME AS 句は使用できない

Enterprise Developer と RM/COBOL では、既存のデータ構造を再利用する方法が異なります。

Enterprise Developer では、TYPEDEF 句を使用してベースのデータ構造を定義し、USAGE 句を使用して同じタイプのデータ構造を作成します。

data division.
working-storage section.
01 atype is typedef.
   03 var1 pic x(10) value "brown".
   03 var2 pic x(10) value "blue".
   03 var3 pic x(10) value SPACE.
01 a1 usage atype.
procedure division.
display var2 of a1.

この display 文の結果は blue です。

RM/COBOL で使用される SAME AS 句は Enterprise Developer ではサポートされません。