如何用EVAL代替MOVEA?

Question

在free-format里，怎么用EVAL才能实现MOVEA同样的功能？

Answer 1

没有直接的替代：

可以用数据结构代用：
   D text            S           1000A   inz('1234567890')  
    D myds            ds                                    
    d  ssss                          1a   dim(100)           
    C                   eval      myds = text               
    c                   eval      *inlr = *on