1 03/31/83  rtrim
 2 
 3 Syntax:  rtrim STRA STRB
 4 
 5 
 6 Syntax as active function:  [rtrim STRA STRB]
 7 
 8 
 9 Function:  returns a character string trimmed of specified characters
10 from the right.
11 
12 
13 Notes:  The rtrim active function finds the last character of STRA not
14 in STRB, trims characters from STRA following this character, and
15 returns the trimmed result.  Space characters are trimmed if STRB is
16 omitted.