ご質問の趣旨は「少ない桁から多い桁へのコピー」とは少し違うような気がします。
シフト文字を除去するコピーの方法のほうが正しい気がします。

　　　　　　　　　　　　　　　　　　　　　　　MOVEL(P)　MSG　　　　　　　　　　　　　　　　TEST_DS
　　　または
　　　　　　　　TEST_DS　=　MSG

　　　　の後に

　　　　　　　　　FIELD1　=　A_DS

　　でご希望の結果が得られると思います。せっかくDSを定義しているのに
　　　%SUBST　で演算するのは回りくどいように見えます。
　これでお試しください。

　INZ('　　　　　　　　　　　　')※34桁分　も不要です。