Re: Sorting A Table

Robert - you can't sort on the field declared as the index. You need to sort on the table itself (or a subfield of it).

The index is somewhat similar to the "hidden" index in an RPG table or a Multi-Occ DS.

In COBOL I always found them more trouble than they were worth.

You should be able to simply remove the "Indexed by" clause and index into the array any which way you want.


Jon Paris

www.Partner400.com
www.SystemiDeveloper.com

Robert Munday wrote:

I need to sort a table by one of its elements which should be easy enough. There are no experienced COBOL programmers in this shop and my only book example is non-iSeries. SEU is hanging up on my sort statement.

Here is what I have:

01 SL415-CB-Work-Table.
04 CB-Table-Ctr Pic 99 Value Zero.
04 CB-Work-Table-Entry
Occurs 50
Ascending Key Is CB-Past-Due
Indexed By CB-Index.
06 CB-Past-Due Pic X(3).
06 CB-SSN Pic X(9).
06 CB-Ln-Num Pic XX.
06 CB-Account-Status Pic XX.

The editor chokes on this:

Sort CB-Work-Table-Entry On Ascending Key CB-Index.

What to do? I'd buy an iSeries COBOL book but I'm outahere at the end of the month. I could also do this in SQL if I knew how.

Thanks,



Robert Munday
Munday Software Consultants
Montgomery, AL
on assignment in Columbia, SC

--
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list
To post a message email: COBOL400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.