%TRIMR (Trim Trailing Characters)

%TRIMR(string {: characters to trim})

%TRIMR with only one parameter returns the given string with any trailing blanks removed.

%TRIMR with two parameters returns the given string with any trailing characters that are in the characters to trim parameter removed.

The string can be character, graphic, or UCS-2 data.

If the characters to trim parameter is specified, it must be the same type as the string parameter.

When specified as a parameter for a definition specification keyword, the string parameter must be a constant.

For more information, see String Operations or Built-in Functions.

 *..1....+....2....+....3....+....4....+....5....+....6....+....7...+....
D*Name++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++++
D Location        S             16A   varying
D FirstName       S             10A   inz ('Chris')
D LastName        S             10A   inz ('Smith')
D Name            S             20A   varying

 * LOCATION will have the value '  Toronto, Ontario'.
 /FREE
     Location = %trim ('  Toronto, Ontario  ');
 
     // Name will have the value 'Chris Smith:'.
     Name = %trimr (FirstName) + ' ' + %trimr (LastName) + ':';
 /END-FREE

     string = '(' + %trimr('$******5.27***      ' : '$*') + ')';     
     // string is now '($******5.27***      )'     
     //     
     // Nothing has been trimmed from the right-hand side because     
     // the right-most character is a blank, and a blank does not     
     // appear in the 'characters to trim' parameter            

     string = '(' + %trimr('$******5.27***      ' : '$ *') + ')';     
     // string is now '($******5.27)'