DNbr              s              7s 0
     DTheString        s             50
     DTheShorter       s             50    inz('TEST STRING')
      *-------------------------------------------------------------------------
     C                   do        1000000       Nbr
     C                   evalr     TheString=%trim(TheShorter)
     C                   enddo
     C                   return