/*REXX*/
/* Trim left or right characters from a string
   Mark McDonald                                                 */
/*---------------------------------------------------------------*/
/* Removes Rightmost n characters                                */
/* T = XTRIMR("one--",2)   returns "one"                         */
/*---------------------------------------------------------------*/
  XTRIMR:  PROCEDURE
    PARSE ARG X, N
    IF LENGTH(X) - 1 >= N THEN
      XR = LEFT(X,LENGTH(X) - N)
    ELSE
      XR = X
  RETURN (XR)
/*---------------------------------------------------------------*/
/* Removes Leftmost n characters                                 */
/* T = XTRIML("--ONE",2)   returns "ONE"                         */
/*---------------------------------------------------------------*/
  XTRIML:  PROCEDURE
    PARSE ARG X, N
    IF LENGTH(X) - 1 >= N THEN
      XR = RIGHT(X,LENGTH(X) - N)
    ELSE
      XR = X
  RETURN (XR)
/*---------------------------------------------------------------*/