SORT A TABLE

I want to get rid of all the old "SORTT" (Wang Conversion to AcuCobol) and use AcuCobol SORT.

Here is the table I want to Sort.

Do I have to have a SD File ETC.?

or can I use something like this.

Try SORT SUMMARY-WS-ENTRY 

It Works!

Do you know if a item count can be added.

The table occurs 360 but only has 40 items in it.

When I sort it puts those items last.

On the old Wang sort I could put a item count in to only sort 40 of 360.

If not no big deal .

Thanks

If the table is defined with "occurs 1 to 360 times depending on z" then the number of records sorted can be changed by setting z to 40.

identification division.
program-id. sort1.

environment division.
configuration section.
special-names.
    alphabet ignore-case is 1 thru 65,
	'A' ALSO 'a', 'B' ALSO 'b', 'C' ALSO 'c',
	'D' ALSO 'd', 'E' ALSO 'e', 'F' ALSO 'f',
	'G' ALSO 'g', 'H' ALSO 'h', 'I' ALSO 'i',
	'J' ALSO 'j', 'K' ALSO 'k', 'L' ALSO 'l',
	'M' ALSO 'm', 'N' ALSO 'n', 'O' ALSO 'o',
	'P' ALSO 'p', 'Q' ALSO 'q', 'R' ALSO 'r',
	'S' ALSO 's', 'T' ALSO 't', 'U' ALSO 'u',
	'V' ALSO 'v', 'W' ALSO 'w', 'X' ALSO 'x',
	'Y' ALSO 'y', 'Z' ALSO 'z'.

data division.
working-storage section.
01 i pic 99.
01 record-count pic 99.
01 table-records occurs 1 to 10 times depending on record-count
	ascending key is table-record.
    03 table-record pic x(10).

procedure division.
main-logic.
    move 5 to record-count

    move "GGGGGGGGGG" to table-record(1)
    move "bbbbbbbbbb" to table-record(2)
    move "EEEEEEEEEE" to table-record(3)
    move "AAAAAAAAAA" to table-record(4)
    move "ffffffffff" to table-record(5)
    move "hhhhhhhhhh" to table-record(6)
    move "IIIIIIIIII" to table-record(7)
    move "dddddddddd" to table-record(8)
    move "jjjjjjjjjj" to table-record(9)
    move "CCCCCCCCCC" to table-record(10)

    display "before:"
    perform varying i from 1 by 1 until i > record-count
        display table-record(i)
    end-perform

    display "normal sort:"
    sort table-records on ascending key table-record
    perform varying i from 1 by 1 until i > record-count
        display table-record(i)
    end-perform

    display "collated sort:"
    sort table-records on ascending key table-record
	    sequence ignore-case
    perform varying i from 1 by 1 until i > record-count
        display table-record(i)
    end-perform

    accept omitted
    .

Try SORT SUMMARY-WS-ENTRY 

Ran into another problem. If I have 4 items in a table and they are numbered 1 thru 4 and I am sorting on a field where all the values are 0, the new sequence will be 2, 3, 4 than 1 instead of 1 thru 4 . Can you think of a solution? I have tried using the "WITH DUPLICATES IN ORDER" which didn't change anything. Thanks

DUPLICATES IN ORDER should work, but it appears to be broken for sorting a table.  I'll post an update to this thread when we can provide a fix for that.

Thanks!