%TRIMR(string {: characters to trim})
1 つのパラメーターのみが指定された %TRIMR は、すべての後書きブランクを除去したうえで、 指定されたストリングを戻します。
2 つのパラメーターが指定された %TRIMR は、トリミング対象文字パラメーター で 末尾の文字を除去したうえで、指定されたストリングを戻します。
このストリングは、文字、図形、また は UCS-2 のどのデータでもかまいません。
トリミング対象文字 パラメーターを指定する場合には、 ストリング・パラメーターと同じタイプを指定する必要があります。
定義仕様書のキーワードのパラメーターとして指定する場合には、ストリング・ パラメーターは定数でなければなりません。
詳細については、ストリング命令または 組み込み関数を参照してください。
*..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)'
(C) Copyright IBM Corporation 1992, 2006. All Rights Reserved.