Help for SCL

 Hello friends, I am sorting the data in a data block from smallest to largest, my code is working. However, I'm having a problem, I don't want the value "0" to be processed. So I want DB101.DBD 0 to be greater than Zero, if any value in DB101 Array is greater than zero, it will sort with zero at the end and write the smallest value to DB101.DBD0, but if all values ​​in DB101 are "0", only that time DB101.DBD0 value can be equal to zero. What changes do I need to make in the code for this? Could you help.

Hi,

you could use a second loop for moving 0 from beginning of array to end of array.

Frink

 Your code worked, thank you very much.

Prof. Frink

Hi,

you could use a second loop for moving 0 from beginning of array to end of array.

FOR i := (End - 1) To Start BY -1 Do

IF (DB101.Data[i] = 0) THEN

FOR j := i to (End - 1) Do

DB101.Data[j] := DB101.Data[j + 1];

DB101.Data[j + 1] := 0;

END_FOR;

END_IF;

END_FOR;

Regards,

Frink