Merge pull request #22 from tom-writes-code/revert-rtnparm

revert rtnparm change (for now!)
tom-writes-code · Apr 21, 2022 · cb8cc30 · cb8cc30
2 parents 9ca31cd + 60fd721
commit cb8cc30
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/rpgle/REPL_VARS.RPGLEINC b/rpgle/REPL_VARS.RPGLEINC
@@ -180,6 +180,6 @@ dcl-pr markVariableAsUsed;
   variableId like(t_variable.id) const;
 end-pr;
 
-dcl-pr toUpperCase varchar(512) rtnparm;
+dcl-pr toUpperCase varchar(512);
   lowerString varchar(512) const;
 end-pr;
diff --git a/rpgle/REPL_VARS.SQLRPGLE b/rpgle/REPL_VARS.SQLRPGLE
@@ -1367,11 +1367,11 @@ end-proc;
 //-----------------------------------------------------------------------
 
 dcl-proc toUpperCase export;
-  dcl-pi *n varchar(512) rtnparm;
+  dcl-pi *n varchar(512);
     lowerString varchar(512) const;
   end-pi;
   dcl-s upperString varchar(512);
-  exec sql SET :upperString = UPPER(:lowerString);
+  exec sql SET :upperString = UPPER(RTRIM(:lowerString));
   return upperString;
 end-proc;