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

Visual COBOL では、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 句は Visual COBOL ではサポートされません。