%trim and %trimr Not Working on a 32767A Field

Just as the subject says. I am wring a subproceedure that can take in any
length of field. I am trying to trim down the field to the proper size, but
it isn't. Here is the code:

    P SendBatchEmail  B                   EXPORT
    D SendBatchEmail  PI
    D  fromAddress                 100A   CONST
    D                                     OPTIONS(*VARSIZE)
    D  toAddress                 32767A   CONST
    D                                     OPTIONS(*VARSIZE)
    D  ccAddress                 32767A   CONST
    D                                     OPTIONS(*VARSIZE)
    D  bccAddress                32767A   CONST
    D                                     OPTIONS(*VARSIZE)
    D  subject                   32767A   CONST
    D                                     OPTIONS(*VARSIZE)
    D  body                      32767A   CONST
    D                                     OPTIONS(*VARSIZE)

     /free

       cmd = 'SBMJOB CMD(CALL PGM(BATCHEMAIL) ' +
             'PARM(''' + %trim(fromAddress) + ''' ''' +
                         %trim(toAddress) + ''' ''' +
                         %trim(ccAddress) + ''' ''' +
                         %trim(bccAddress) + ''' ''' +
                         %trim(subject) + ''' ''' +
                         %trim(body) + ''') JOB(SNDEMAIL)';

       ExecClCmd(cmd);

     /end-free
    P SendBatchEmail  E

After the assignment to cmd, it contains "SBMJOB CMD(CALL PGM(BATCHEMAIL)
PARM('me@xxxxxxxxxxxxxxxxxx' 'me@xxxxxxxxxxxxxxxxxx
..." A ton of spaces and no ending quote mark. Any ideas? I am sure I am
doing something stupid, I just can't see it.