<html>
  <head>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
  </head>
  <body text="#000000" bgcolor="#FFFFFF">
    <font face="Arial">I just changed the top 4 lines of the code to
      show alpha.<br>
      It has always worked well every time I have needed it.<br>
      <br>
      @keyc::declare junk(6,*):<br>
      ::dim dat(10)(6,*):<br>
::dat("1")="Happy";dat("2")="Able";dat("3")="Doggy";dat("4")="Jump";dat("5")="Baby":<br>
::dat("6")="Cat";dat("7")="Ezra";dat("8")="Poppy";dat("9")="Menu";dat("10")="System":<br>
      <br>
    </font><br>
    <div class="moz-cite-prefix">On 6/5/2018 12:59 PM, Richard D.
      Williams wrote:<br>
    </div>
    <blockquote type="cite"
      cite="mid:a7189bd0-84e7-6ab7-1c5a-555c6d21eb04@appgrp.net">
      <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
      <div class="moz-cite-prefix">I've never tried this technique.  I
        assume it works with alpha-numeric data as well.<br>
        <br>
        I will experiment with this.<br>
        <br>
        Thanks,<br>
        <br>
        Richard<br>
        <br>
        <br>
        On 6/5/2018 10:50 AM, Bill Randall wrote:<br>
      </div>
      <blockquote type="cite"
        cite="mid:cae18e6c-7218-b396-3a4c-124428992847@fptech.com">
        <meta http-equiv="Content-Type" content="text/html;
          charset=utf-8">
        <font face="Arial">This is a sample of how I have always sorted
          arrays in filePro if needed.<br>
          <br>
          @keyc::declare junk(2,.0):<br>
          ::dim dat(10)(2,.0):<br>
::dat("1")="6";dat("2")="1";dat("3")="4";dat("4")="8";dat("5")="2":<br>
::dat("6")="3";dat("7")="5";dat("8")="10";dat("9")="7";dat("10")="9":<br>
          ::zx(2,.0)="1":<br>
          ::ct(2,.0)="1":<br>
          loop:::<br>
          :dat(zx) gt dat(zx+ct):gosub swap:<br>
          :junk ne "" and ct+zx lt "10":ct=ct+"1" ; goto loop:<br>
          :zx ne "9":zx=zx+"1" ; ct="1" ; goto loop:<br>
          ::x=listbox (dat,"1","10"):<br>
          ::end:<br>
          swap:::<br>
          ::junk=dat(zx+ct);dat(zx+ct)=dat(zx);dat(zx)=junk:<br>
          ::return:<br>
          <br>
          <br>
        </font><br>
        <div class="moz-cite-prefix">On 6/5/2018 11:26 AM, Richard D.
          Williams via Filepro-list wrote:<br>
        </div>
        <blockquote type="cite"
          cite="mid:fcc827e9-9f09-98a3-5814-9bfb6b730281@appgrp.net">Dave,
          <br>
          <br>
          I don't know of any function in FP that will sort an array. <br>
          <br>
          What I do is write the array data out to a temporary file that
          has an index built in the correct order, <br>
          clear the array, reach back into the temporary file, and fill
          the array again. <br>
          <br>
          You can use the tty as a unique identifier for each instance.
          <br>
          <br>
          Hope this helps, <br>
          <br>
          Richard <br>
          <br>
          <br>
          On 6/5/2018 9:28 AM, davidrottkamp via Filepro-list wrote: <br>
          <blockquote type="cite">Hi <br>
            <br>
            Is there a way to sort an array made inside filepro <br>
            <br>
            version <br>
            <br>
            linux <br>
            <br>
            <br>
          </blockquote>
          <br>
          _______________________________________________ <br>
          Filepro-list mailing list <br>
          <a class="moz-txt-link-abbreviated"
            href="mailto:Filepro-list@lists.celestial.com"
            moz-do-not-send="true">Filepro-list@lists.celestial.com</a>
          <br>
          Subscribe/Unsubscribe/Subscription Changes <br>
          <a class="moz-txt-link-freetext"
            href="http://mailman.celestial.com/mailman/listinfo/filepro-list"
            moz-do-not-send="true">http://mailman.celestial.com/mailman/listinfo/filepro-list</a>
          <br>
          <br>
        </blockquote>
        <br>
        <div id="DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2"><br>
          <table style="border-top: 1px solid #D3D4DE;">
            <tbody>
              <tr>
                <td style="width: 55px; padding-top: 13px;"><a
href="https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=emailclient&utm_term=icon"
                    target="_blank" moz-do-not-send="true"><img
src="https://ipmcdn.avast.com/images/icons/icon-envelope-tick-round-orange-animated-no-repeat-v1.gif"
                      alt="" style="width: 46px; height: 29px;"
                      moz-do-not-send="true" height="29" width="46"></a></td>
                <td style="width: 470px; padding-top: 12px; color:
                  #41424e; font-size: 13px; font-family: Arial,
                  Helvetica, sans-serif; line-height: 18px;">Virus-free.
                  <a
href="https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=emailclient&utm_term=link"
                    target="_blank" style="color: #4453ea;"
                    moz-do-not-send="true">www.avast.com</a> </td>
              </tr>
            </tbody>
          </table>
          <a href="#DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2" width="1"
            height="1" moz-do-not-send="true"> </a></div>
      </blockquote>
      <br>
    </blockquote>
    <br>
  </body>
</html>