Re: D-spec CCSID RNF3819

[Peter Dow <petercdow@xxxxxxxxx>]

Thanks Brian. I'll use that method, but it does seem like a bug.


On 2/9/2021 1:21 PM, Brian Parkins wrote:
> I get the same error with regular RPG IV code. Looks like a bug on the 
> DSPLY op-code.
>
> This worked for me:
>
>      D gNewPwd         s             10a ccsid(37) Inz('Password')
>
>      D UserId          S             10A   Inz(*User)
>      D Msg             S             40A
>
>                   Msg = 'New |' + gNewPwd + '|';
>                   Dsply Msg UserId;
>
> (Build the message in a separate expression.)
>
> HTH,
> Brian.
>
> On 09/02/2021 19:48, Peter Dow wrote:
> > I'm on v7r3, modifying an SQLRPGLE program with the following snippets:
> >
> > 0086.00 d gNewPwd         s             10a   ccsid(37)
> >
> > 0136.00           dsply ('New |' + gNewPwd + '|') 'PDOW';
> >
> > The compiler listing shows:
> >
> > *RNF7016 20        013600  Display length 64 greater than maximum 
> > allowed of 52;
> >                            specification is ignored.
> >
> > 0007.09          GNEWPWD           A(10) 008600D     012400M 
> > 012700M     013400
> > 0007.10                            CCSID(37) 013400 013600 
> > 013800      017800
> > 0007.11 028100
> >
> > Counting on my fingers and toes, I get 16 as the length to be 
> > displayed on that statement.  If I remove the CCSID(37), it's fine.
> >
> > Is this a compiler bug or am I missing something?
> >
> > --
> > *Peter Dow* /