Parameters passed not what is received

I'm having a problem with parameters on a submit job command built in my
RPG program.

The submitting program is building the following submit job command
string.  I have the program send the string to the job log as a CPF
message so I can have a copy of how it was formatted.  The submitting
program runs in batch normally.
sbmjob job(lo1800r) cmd(call lo1800r ('008' '123456789' 'CPW'
'EMAILBKNG'  'CPW Booking Error for 123456789' 'Booking encountered the
following error(s) for application 123456789.'))

Looks good so far.  When the job runs, however, I receive the following
error:
Message ID . . . . . . :   RNQ0115       Severity . . . . . . . :   99

Message type . . . . . :   Inquiry

Date sent  . . . . . . :   10/25/06      Time sent  . . . . . . :
10:02:45 


Message . . . . :   Length of varying length variable is out of range (C
G D 
  F).

Cause . . . . . :   The length of a varying length character or DBCS
variable
  is less than 0 or greater than its declared maximum length in RPG
procedure
  LO1800R in program RCHEVA1/LO1800R at statement 015100.             

Looking at a dump of the program the values used at line 151 are as
follows.  Note that PSUBLINE now contains additional information.  It
looks like it has picked up the beginning of field PPREMSGTXT.  Both of
these values are passed as parms.

PPREMSGTXT            CHAR(128)            'Booking encountered the
following error(s) for application 123456789.           '    
                        81                 '
'                                    
                      VALUE IN HEX
'C29696928995874085958396A495A38599858440A38885408696939396A689958740859
99996994D'X   
                        41
'A25D408696994081979793898381A389969540F1F2F3F4F5F6F7F8F94B4000000000000
000000000'X   
                        81
'00000000000000000000000000000000000000000000000000000000000000000000000
000000000'X   
                        121                '0000000000000000'X

PSUBLINE              CHAR(40) VARYING     'W Booking Error for
123456789  Booking e'                                            
                      VALUE IN HEX
'C3D7E640C296969289958740C5999996994086969940F1F2F3F4F5F6F7F8F94040C2969
692899587'X   
                        41                 '4085'X


Prototype from submitted program:
     d LO1800R         pr                  ExtPgm('LO1800R')

     d                                3a

     d                               15a   Const

     d                               10a   Const

     d                               10a   Const

     d                               40a   Varying Options(*VarSize)

     d                              128a   Varying

     d                                     Options(*Nopass :*Omit
:*VarSize) 
     d                              128a   Varying

     d                                     Options(*Nopass :*VarSize)




Field definitions in submitted program:
     d LO1800R         pi

     d  pBank                         3a

     d  pACFApp                      15a   Const

     d  pKeyKind                     10a   Const

     d  pKeyValue                    10a   Const

     d  pSubLine                     40a   Varying Options(*VarSize)

     d  pPreMsgTxt                  128a   Varying

     d                                     Options(*Nopass :*Omit
:*VarSize)
     d  pPostMsgTxt                 128a   Varying

     d                                     Options(*Nopass :*VarSize)


Field definitions in submitting program:
      // Call to e-mail program

     d SbmJob1         c                   'sbmjob job(lo1800r) cmd('

     d SbmJob2         c                   ')'

     d SbmJob3         c                   ' log(4 0 *msg)
logclpgm(*yes)'   
     d Call1           c                   'call lo1800r ('

     d CallCmd         s            384a

     d emKey1          c                   'CPW'

     d emKey2          c                   'EMAILBKNG'

     d emSubLine       c                   'CPW Booking Error for'

     d emSubject       s             40a   Varying

     d emPreMsgTxt     s            128a   Varying

     d emPreMsg        c                   'Booking encountered the -

     d                                     following error(s) for
application'
     d Qte             c                   x'7D'

     d QteSpcQte       c                   x'7D407D'


Submit:
            // Send error e-mail

            If Status = '02';

              emSubject = emSubLine + ' ' + %Char(pbAppNbr);

              emPreMsgTxt = emPreMsg + ' ' + %Char(pbAppNbr) + '.';



              CallCmd = Call1 + Qte + Bank + QteSpcQte +

                        %Char(pbAppNbr) + QteSpcQte + emKey1 + QteSpcQte
+
                        emKey2 + QteSpcQte + emSubject + QteSpcQte +

                        emPreMsgTxt + Qte + ')';



              SendEMail = SbmJob1 + %TrimR(CallCmd) + SbmJob2;

              SndPgmMsg(MsgID :MsgF :MsgDta@);

              PrcCmd(SendEMail);

            EndIf;


Any thoughts would be greatly appreciated.

Rick


Privileged and Confidential.  This e-mail, and any attachments there to, is 
intended only for use by the addressee(s) named herein and may contain 
privileged or confidential information.  If you have received this e-mail in 
error, please notify me immediately by a return e-mail and delete this e-mail.  
You are hereby notified that any dissemination, distribution or copying of this 
e-mail and/or any attachments thereto, is strictly prohibited.