Re: Removing blanks from a varning length field.

[dlclark@xxxxxxxxxxxxxxxx]

"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> wrote on 11/20/2019 
04:58:35 AM:
> ----When I debug I get N1 = 64 which is incorrect which ideally should 
have
> been 48 as per current decrypted value


        Based on your dumped data, change this statement:

eval outrec = %trimr(record);

        ...to this:

eval outrec = %trimr(%trimr(record):x'10');



> RCDLEN = 500 is incorrect then what should be correct length  on fly so
> that  i can set it  as per exact decrypted value of record field which
> should not  contain any garbage value in it?


Åcommand = 'CRTPF FILE(RISHI/TESTFILE) RCDLEN(' + %char(N1) + ')';


Sincerely,

Dave Clark