William,
Well, I was fishing for manuals & only came up with the native mode
version, but how does this look?
The sample code for the key array:
numkeys=1;
keys[1]=1; {key begins}
keys[2]=20; {key length}
keys[3]=0; {byte data}
keys[4]=0; {ascending order}
So, Taking a wild SWAG... in your example
try
K[2,2]=1
RAT
Rich Trapp <mailto:[log in to unmask]>
Consulting for Agilent Technologies, Loveland, Colorado.
Managed Business Solutions <http://www.mbsnav.com/>
200 South College Avenue
Fort Collins, Colorado 80524-2811
970.679.2221 (voice)
970.669.3071 (fax)
-----Original Message-----
From: William L. Brandt [mailto:[log in to unmask]]
Sent: Tuesday, December 04, 2001 3:41 PM
To: [log in to unmask]
Subject: understanding the SORT Option
We are using BASIC/3000 - I'll bet we are one of the last.
Does anybody know what the "options" are in the OPT argument? We have always
used 0 and gotten a smallest->highest key sort - anyone know what you use to
get a highest->lowest sort?
The person who initially wrote our system in 1978 included some SPL code
that I believe was in the Interact CSL (BASSORT)
I don't know SPL but in looking at the code I determined that the 2nd to
last argument is the Options, and the same argument becomes the 3rd
arguiment in the call to SORTINITIAL within BASSORT.
So, what's the magic number to get a top down sort?
TIA
Bill Brandt
2080 I$="STNSRTI;",O$="STNSRTO;"
2090 MAT K=ZER
2100 K[1,1]=6,K[1,2]=5
2110 REM: K[2,1]=0,K[2,2]=0
2120 CALL BASSORT(I$,O$,FNI(1),K[*,*],FNI(0),E)
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
2130 IF E=0 THEN 2200
2140 PRINT "SORT ERROR#";E
2150 GOTO 9020
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|