%trim used as a replace

[jamief]

  //-------------------------------------------------------------//
      //   Thanks again to the founding father of cool Sh|t on the   //
      //   iseries - Scott Klement                                   //
      //-------------------------------------------------------------//
     d String1         s             20a
     d String2         s             20a
     d String3         s             20a   inz('PRO#: 9999999')
     d String4         s             20a

      /free

          String1 = *all'$';
          %subst(string1:9:3) = 'TXT';
          // String1 =  '$$$$$$$$TXT$$$$$$$$$'

          String2 = %triml(String1:'$');
          // String2 is now 'TXT$$$$$$$$$'

          String2 = %trim(String1:'$');
          // String2 is now 'TXT'

          // in the below case you have a text field that
          // contains free form data.  You have been assigned
          // the task of pulling the order # (pro#) from this
          // text and chaining to a file with it.
          // Sure you could use %scan or %replace...but
          // your IT manager hates those bifs and they
          // have been outlawed from your system.
          // so we must use %trim

          String4 = %trim(String3:'PRO#: ');
          // String4 is now '9999999;


         *inlr = *on;

      /end-free