使用PERFORM FORM1 IN PROGRAM ('ZMM001')等价于PERFORM FORM1(ZMM001).
使用FIELD-SYMBOLS使用其他程序的数据,
FIELD-SYMBOLS <F1> TYPE ANY.
DATA XX(50).
XX = '(ZMM002)G_DATA'. "程序ZMM001中G_DATA的数据
ASSIGN (XX) TO <F1>.
<F1> = 'SDFAS'. "这样就可以将主程序中ZMM001的变量G_DATA的值修改为SDFAS了。
image.png
image.png
网友评论