Re: [Dynamic Variables?] -Reply

[Mark Kraft <kraftm@GUNET.GEORGETOWN.EDU>]

Thanks for everyone's help, however with an amazing stroke of luck, I
have solved the problem, how I don't know.  For those who would like to
know, below is the code that I used to do this, probably not the best
way, but t works.  Thanks again and Have a Nice Day

Mark Kraft

      let #start = 1
      let #space = INSTR($long_name,' ',1)

      TRIM_NAME:

      if #space <> 0
        let $part_1 = SUBSTR($long_name, #start, (#space - #start))
        if LENGTH($part_1) = 1
          let $prefix = SUBSTR($long_name,1,(#space - 1))
          let $long_name = $prefix || SUBSTR($long_name,(#space
                                                                    + 1),#length)

          let #start = #space
          let #space = INSTR($long_name,' ',1)

          if #space <> 0
            goto TRIM_NAME
          end-if
        end-if
      end-if