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 |
|
Follow us on