movea in Free Options?

I am trying to figure out how to get around the lack of options for
movea in free format.  I have tried creating arrays the same length as
the passed in field which was passed its data using movea so each 2500
filed was constructed in the same fashion as the arrays in this example.
Does anyone have a good way to load an array in free either from a
preformatted string or moving the array back into a string?

PSnd_Mail         B                   Export                   
D Snd_Mail        PI             5i 0                          
D  M_CC                       2500a   Value options(*nopass)   
D  M_BCC                      2500a   Value options(*nopass)   
D  M_Attachment               2500a   Value options(*nopass)   

D A_CC            s             50a   dim(50)   
D A_BCC           s             50a   dim(50)   
D A_Attachment    s             50a   dim(50)   

A_CC = M_CC;



Bruce Odum
bodum@xxxxxxxxxxxx
(423) 510-3821

4080 Jenkins Rd.
Chattanooga, TN 37421