6/26/2009 5:34 PM | |
Posts: 19 Rating: (1) |
I have a request, can someone write example to determine min and max value from DB ? Data types: REAL. I will grateful for any responds. Regards Mat84 |
6/26/2009 5:57 PM | |
Joined: 1/4/2008 Last visit: 9/23/2024 Posts: 703 Rating: (96) |
Hello, I just copy here our PMs, don't have time to do it myself, but maybe it will help somebody...
|
6/26/2009 6:56 PM | |
Posts: 19 Rating: (1) |
ok, I find a solution, and it is work |
11/27/2013 9:43 AM | |
Posts: 10 Rating: (0) |
Hi, Can you post your code on? Thank you Bach |
2/4/2014 2:31 AM | |
Posts: 17 Rating: (0) |
Dear Sir, Could you please tell the solution as i am having the question |
2/4/2014 9:52 AM | |
Joined: 4/22/2010 Last visit: 5/3/2024 Posts: 5697 Rating: (715)
|
Hello, You can use bubble sort to sort your DB: Sample program for sorting a data block Then you know where the highest and lowest number is located. If you want to keep the original DB, Block move to a new DB first. Regards, Marcjan |
Problem solved? |
|
This contribution was helpful to1 thankful Users |
2/4/2014 11:40 PM | |
Posts: 17 Rating: (0) |
Thanks mate, it is working
|
10/6/2015 5:07 PM | |
Posts: 16 Rating: (0) |
Hi, This solution helped me a lot. But additionally i tried to define a limited area within the DB. So that, Max value to be obtained only within that area... i tried below... But Not working. Please suggest. i couldnt track the AR1 .i.e. position in DB. To end the Loop at Minimum position in the DB. Right now Loop runs till define #No_val to zero.. Using the same program Now im trying to define the area inside DB.. Wthin which the highest value is to be found. Like #No_Val is 800 and i want to see for the highest value only until 400 which i define in #Min_No_Val (Integer) I tried the below highlighted.... above the "LOOP loop"...which didnt work Please look into the highligheted area below. for quick reference //**************************** A #StIsMax L DB17.DBD4 (Max position) L 4.000000e+000 *R RND- T #No_val A #StIsMax L DB17.DBD8 (Min Position) L 4.000000e+000 *R RND- T #Min_No_Val //********** Searching procedure ********** OPN "HET_Y" LAR1 P#0.0 //***** Init vars with the first value ***** L DBD [AR1,P#0.0] T #rMin T #rMax L #No_val + -1 loop: T #i +AR1 P#4.0 //***** Max value ***** L #rMax L DBD [AR1,P#0.0] >R JC Max T #rMax TAR1 #dwPtrMax Max: NOP 0 //***** Min value ***** L #rMin L DBD [AR1,P#0.0] <R JC Min T #rMin TAR1 #dwPtrMin Min: NOP 0 //***** Loop if not finish ***** L #i L #Min_No_Val ==I JC Jump L #i LOOP loop Jump: NOP 0 //********** Write output ********** L #rMin T #Min L #rMax T #Max T "Max_within_limit".Temp[3] L #dwPtrMin SRD 3 T #MinAddr L #dwPtrMax SRD 3 T #MaxAddr ------------------------------------------------------------------------------------------ |
Last edited by: Min_Moderator at: 10/7/2015 2:34:54 PMNew subject after splitting |
|