Re: Parameters passed not what is received

[Peter Levy <plevy@xxxxxxxxxxxx>]

The error you're getting is because pSubLine is declared as "varying" 
and the first two bytes of the parameter do not have a valid binary 
length. The string begins with "CPW" but in the dump it shows that it 
actually begins with "W", so clearly the first two characters were 
mistaken for the length. The binary of EBCDIC letters "CP" converts to 
50135 decimal, which is a lot larger than the 40 bytes you've declared 
it as and that's why you're getting the error. This would work fine if 
you had one ILE RPG program calling another because the compiler would 
catch the error and possibly perform a conversion, but with a straight 
CALL command there is no checking or converting.

What surprises is the very next parameter is also declared as "varying", 
but it doesn't exhibit the same behavior in the dump that the first 
parameter did, which is very strange.

Rick.Chevalier@xxxxxxxxxxxxxxx wrote:
> 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.
>