That's why I always line up the '+' under the '=' and do one element per line.
workBookName = 'FinancialProjections_'
+ %trim(glb_tradename)
+ '_'
+ %editc(nMarketingPeriod : 'X')
+ '_'
+ %trimr(getProjTypeName(glb_projType))
+ '_'
+ %char(%timestamp())
+ '.xls';
Roger Harman
COMMON Certified Application Developer - ILE RPG on IBM i on Power
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxx> on behalf of Therrien, Paul <ptherrien@xxxxxxxxxxx>
Sent: Tuesday, June 5, 2018 2:56 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: NEVER MIND! %TRIMR on return value from Proc not compatible
I just noticed the double '+' before the %trimr().
Time to go home!
------
I have a procedure that returns a character value.
I attempt to use %trimr() on the returned value.
The compiler says: RNF7421 Operands are not compatible with the type of operator.
The compiler shows the error is on the %trimr(getProjTypeName(glb_projType))
Code:
workBookName = 'FinancialProjections_' +
%trim(glb_tradename) + '_' +
%editc(nMarketingPeriod : 'X') + '_' +
+ %trimr(getProjTypeName(glb_projType)) +
'_' + %char(%timestamp()) + '.xls';
dcl-proc getProjTypeName;
dcl-pi getProjTypeName char(12) ;
in_projectionType like(glb_projtype);
end-pi;
if in_projectionType = aProjtype_WEB;
return 'WEB_ONLY';
else;
return 'Non_Web';
endif;
end-proc getProjTypeName;
We are at V7R3.
I am feeling a bit dull right now.
Paul
+++++ This email and related attachments may contain confidential information intended exclusively for the addressee. Unauthorized use, disclosure or distribution of this material is prohibited. If you received this message in error, please advise the sender and delete all copies of it. Content is provided by the individual sender and does not necessarily reflect the views of the Company. Though sender believes this transmission to be virus-free, it is the recipient's responsibility to ensure that it is.
midrange.com
