文字列の右端からブランクを削除

次のリクエストは、MOVIES データソースを使用して、DIRSLASH フィールドを作成し、DIRECTOR フィールドの末尾にスラッシュ (/) を追加した値を格納します。次に、TRIMDIR フィールドを作成し、DIRECTOR フィールドから末尾のブランクを削除した後、末尾にスラッシュ (/) を追加した値を格納します。

TABLE FILE MOVIES
PRINT DIRECTOR NOPRINT AND
COMPUTE
DIRSLASH/A18 = DIRECTOR|'/';
TRIMDIR/A17V = RTRIM(DIRECTOR)|'/';
WHERE DIRECTOR CONTAINS 'BR'
ON TABLE SET PAGE NOPAGE
END

出力結果のスラッシュ (/) の位置から分かるように、DIRECTOR フィールドには末尾のブランクが表示されていますが、TRIMDIR フィールドではブランクが削除されています。

  DIRSLASH            TRIMDIR
  --------            -------
  ABRAHAMS J.      /  ABRAHAMS J./
  BROOKS R.        /  BROOKS R./
  BROOKS J.L.      /  BROOKS J.L./