Re: Sorting a MODS

If you go to www.think400.dk/downloads.htm you will find a service program named XVSRTQ. This program allows you to sort a MODS anyway that you want using a single or mulitple keys. It's a free download and uses QSORT to do the sorting.

Hope it helps.
-------------- Original message ----------------------
From: "Emily Smith" <esmith@xxxxxxxxxxxxxxxxxxxx>

Hi guys. Normally I would google something like this before submitting to the
list, but we're having internet issues here.
In my program, I am reading two files. Then, using fields from both files, I am
populating a MODS. After I have populated the
MODS I need to sort it by the first three fields. I'm sure I've done something
like this before probably more than once, but I am drawing a blank. Any
suggestions are appreciated. Here is the relevant portion of my code...

Dloosebucket ds 45 occurs (9999)
D key1 1 4 0
D key2 5 9 0
D key3 10 34
D lamount 35 45 2

Read primaryf ;
Dow Not %eof ;

Setll (cuskey) secondf ;
Reade (cuskey) secondf ;

Dow Not %Eof(secondfr) ;
// Here I am populating the MODS and this is working fine
Reade (cuskey) Secondf ;
Enddo ;

Read Primaryf ;
Enddo ;

//Here I'd like to sort the MODS


CONFIDENTIALITY NOTICE: This email message is private,
confidential property of the sender, and the materials
may be privileged communications intended solely for
the receipt, use, benefit, and information of the intended
recipient indicated above. If you are not the intended
recipient, you are hereby notified that any review,
disclosure,distribution, copying or taking of any
other action in reference to the contents of this message
is strictly prohibited, and may result in legal liability
on your part. If you have received this message in error,
please notify the sender immediately and delete this
message from your system. We believe that this email
and any attachments are free of any virus or other defect
that might affect any computer system that it is received
and opened in, however, it is the responsibility of the
recipient to ensure that it is virus free and the sender
accepts no responsibility for any loss or damage.
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.