2 E 3 F
DCL 1 X 2 Y 3 V 3 W 2 Z 3 P
求A*X 结果是: C*V
D*W F*P
4.8.3结构和结构的赋值
将一个结构的某些元素的数据赋给另一结构内,同名的元素(用BY NAME 的赋值语句)
例: DCL 1 A 2 B 2 C 3 D 3 E 2 F 2 G
DCL 1 X 2 C 3 D 3 W 2 F 2 Z
3 P
若 X=A BY NAME;
则 X.C.D=A.C.D
X.F=A.F
4.8.4数组与结构的表达式
例: DCL 1 A 2B 2C
DCL X(2)
DCL Y(2) LIKE A
为求 Y=X+A
计算结果是: Y(1).B=X(1)+A.B
Y(2).B=X(2)+A.B
Y(1).C=X(1)+A.C
Y(2).C=X(2)+A.C
本文来自CSDN博客，转载请标明出处：
http://blog.csdn.net/shenghuiping2001/archive/2009/05/06/4155294.aspx