Re: RPGMail/JavaMail Issues

[Mike <koldark@xxxxxxxxx>]

I ended up writing a parser for addresses separated by a semi-colon. Here is
the code for others with the same delema. It seems to work for what I need.
Of course this is in a loop that then address the addresses.

    P*--------------------------------------------------
    P* Procedure name: ParseEmailAddresses
    P* Purpose:        When a program passes multiple email addresses, this
    P*                          program will break them apart.
    P* Returns:        Array of Email Addresses
    P* Parameter:      ToParse => List of email addresses to parse
seperated
    P*                          by a semi-colon.
    P*--------------------------------------------------
    P ParseEmailAddresses...
    P                 B
    D ParseEmailAddresses...
    D                 PI         32700A
    D  toParse                   32767A   CONST

    D* Local fields
    D x               S              5P 0 Inz(1)
    D b               S              5P 0 Inz(0)
    D e               S              5P 0 Inz(0)
    D dim             S              3P 0 Inz(0)
    D retField        DS
    D  email                       100A   DIM(327)

     /free

       b = x;

       dow x < %len(toParse);

         if %subst(toParse:x) = ' ';
           leave;
         endif;

         if %subst(toParse:x:1) = ';';
           dim += 1;
           email(dim) = %trim(%subst(toParse:b:(x - b)));
           b = x + 1;
         endif;

         x += 1;

       enddo;

       dim += 1;
       email(dim) = %trim(%subst(toParse:b:(x - b)));

       return retField;

     /end-free
    P ParseEmailAddresses...
    P                 E