IBM Mainframe Forum

Hi Sir,
I have to bubble sort a single column in the table but need to swipe the remaining rows along with the column. How do i do that using a dsect.Please help me out.

Hello,

I am not familiar with your terminology. Show an example table and how it should be processed. You need show only a Small table . . .

A $32 Dekalb
B $24 Naperville
C $2 Elburn
D $5 Chicago
E $90 Ohio

Suppose this is the table where the rows must be arranged in descending order according to the dollar value given in each row.
Please explain using bubble sort here.

Hello,

You Do know how to code a bubble sort, right? There are examples many places if not.

For your request, I would "normalize" the amounts so they will all be aligned.
Then i would use the width of the amount as my sort key and work entries that were the full width of a table entry.

After the array is in order, do whatever is needed - print the new array, apply it to some process (not considered here), whatever.

Good luck

d

You have not bothered to tell us two very important things: are you "sorting" an array of pointers to table entries or are you "sorting" an array of table entries, and, are you sorting so the final product will be arranged in ascending order or descending order. I usually "sort" an array of pointers; it's slightly more efficient; exchanging two 4 byte pointers is faster than exchanging two large table entries.

In any event, you need a DSECT for your table entries, for example:In any event, you will wind up with 2 registers pointing to different table entries. Since you appear to be sorting based on a value, you write something like this for ascending order:There are other ways to do this, of course, but the example will work with all Assemblers.

Good luck.

Just for the H of it I did your homework assignment. Now, I'm not going to show any code, but I will discuss the method.

Input
I removed the $ in the second column, and to simplify the code I made all three columns fixed width.

Data area definitions -

Input

Intermediate storage
Since I didn't know how many input records I'd be reading, I defined them as a linked list: SENEXT points to the next entry. I also made column 2 packed decimal to simplify the compare in the sort code.

I also chose to "sort" an array of pointers.

The program reads the input data, allocates storage for each SENTRY, copies COL1 and COL3 in the input to SCOL1 and SCOL3, and converts the zoned decimal COL2 to the packed decimal SCOL2.

At the end of data, the program builds an array of pointers to each of the SENTRY DSECTs built in the input, and "sorts" the array of pointers.

After the sort, it converts each SENTRY to a print line:

Now I don't think you realized this, but this homework assignment (and the tasks in How to replace XDECI using PACK and CVB?) include

• Parsing data in input data.
• Sorting data.
• Simple data conversion.
• Printing data.

All of this is basic to the work Assembler programmers (as well as programmers in other languages) do regularly.