＊LIKE DEFN を使用すれば、元のフィールドと同じ長さ、属性のフィールドを

新たに定義することができる。

元のフィールドの長さが将来変わる可能性があっても、＊LIKE DEFN で定義しておけば、

再コンパイルだけで対応できる。

0120.00      C                     MOVE JUCNO     HED001
0121.00      C           *LIKE     DEFN JUCNO     HED001