Re: converting to *FREE

[Booth Martin <booth@xxxxxxxxxxxx>]

Sometimes a rewrtre to newer solutions is the right answer? Replace 
qsort with sql's order by.  That looks like they are sorting OrderItm by 
due date.  Order by due date is a pretty well understood SQL activity.

On 11/6/2019 1:51 PM, Steve Jones wrote:
> I have been converting our programs to be all free when making a change to
> them.  Today I came across this bit of code that I am struggling to convert.
> The SortIt PR is what is confusing me the most.
>
> Any help would be greatly appreciated!!
>
> Thanks
>
>
>       D SortIt          Pr                  ExtProc('qsort')
>       D   DataStart                     *   Value
>       D   Elements                    10U 0 Value
>       D   Size                        10U 0 Value
>       D   CompFunc                      *   Value ProcPtr
>
>       D myOrderItm      Ds                  qualified
>       D                                     Based(OrderItm)
>       D   Aordtype                     2A
>       D   Aorder                       7A
>       D   Aduedte                      7S 0
>       D   Aquantity                   10S 3
>
>       D Items           Ds                  likeds(myOrderItm)
>       D                                     dim(100)
>
>       D SortItems       Pr            10I 0
>       D  Elem1                              likeds(myOrderItm)
>       D  Elem2                              likeds(myOrderItm)
>
>       P SortItems       B
>       D SortItems       PI            10I 0
>       D   elem1                             likeds(myOrderItm)
>       D   elem2                             likeds(myOrderItm)
>
>        /FREE
>         Select;
>         when Elem1.Aduedte < Elem2.Aduedte;
>           return -1;
>         when Elem1.Aduedte > Elem2.Aduedte;
>           return 1;
>         When Elem1.Aordtype < Elem2.Aordtype;
>           Return -1;
>         When Elem1.Aordtype > Elem2.Aordtype;
>           Return 1;
>         other;
>           return 0;
>         Endsl;
>
>        /END-FREE
>       P                 E