RE: movea in Free Options?

["Jon Paris" <Jon.Paris@xxxxxxxxxxxxxx>]

 >> I am trying to figure out how to get around the lack of options for
movea in free format.

First of all why use movea in the first place?  Why not just pass the arrays
as parms?

If you do then this should work just fine.

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

Even if you don't want to do this, then the alternative would be to use
this:

     D A_CC            s             50a   dim(50) based(pA_CC)
     D A_BCC           s             50a   dim(50) based(pA_BCC)
     D A_Attachment    s             50a   dim(50) based(pA_Attachment)

      /Free
        If %Parms > 0;
          pA_CC = %Addr(M_CC);
          If %Parms > 1;
            pA_BCC = %Addr(M_BCC);
            If %Parms > 2;
              pA_Attachment = %Addr(M_Attachment);
            EndIf;
          EndIf;
        EndIf;

You certainly don't need to copy any data - you can access it directly.

Jon Paris
Partner400
www.Partner400.com