In Enterprise Developer, use the TYPEDEF clause to define your base data structure, and then use the USAGE clause to create data structures of the same type.
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.
The result of the display statement is blue.
The SAME AS clause used in RM/COBOL is not supported in Enterprise Developer.