hemanth.pesce

 Profile Answers by hemanth.pesce 

• Sep 29th, 2011

 

Move all the records to array table.
then compare with each other,then swap that two records.
like IF ARRAY(I) > ARRAY(J)
MOVE I TO WS-DATA
MOVE J TO I
MOVE WS-DATA TO J
ELSE
COMPUT I = I + 1
PERFOEM SAME PARA UPTO FS = 10

mannurusrinivasulareddy

• Oct 5th, 2011

 

Ws-rec is an occurs clause variable name.

Code
perform sort-para varying I from 1 by 1 until I > (no of records)


                          after J from I by 1 until J > (no of records)


 


sort-para,


         if ws-rec(I) > ws-rec(j)


                Move ws-rec(I) to ws-temp


                move ws-rec(J) to ws-rec(I)


                move temp      to ws-rec(J).