|
I too, have started using qsort and bsearch but the following may work in limited situations D ds D MyArray 4a dim(20) D Code1 2a overlay(MyArray) D Code2 2a overlay(MyArray:*next) /free Code1(1)='AA'; Code1(2)='BB'; Code1(3)='CC'; Code2(1)='ZZ'; Code2(2)='YY'; Code2(3)='XX'; // At this time MyArray(1)='AAZZ', (2)='BBYY', (3)='CCXX' CurrNbrElem=3; result = %lookup('YY':Code2:1:CurrNbrElem); dsply result; for x=4 to %elem(MyArray); Code1(x)=*hival; Code2(x)=*hival; EndFor; sorta code2; // At this time MyArray(1)='CCXX', (2)='BBYY', (3)='AAZZ' sorta code1; // At this time MyArray(1)='AAZZ', (2)='BBYY', (3)='CCXX' Rob Berendt
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.