• Subject: Re: Sort Sequence on a LF
  • From: Carol Bastien <cabastien@xxxxxxxx>
  • Date: Sat, 31 Jul 1999 20:04:14 -0700
  • Organization: @Home Network

Have you tried the 'alternate sort sequence' for logical file?

Buck Calabro wrote:

> I don't think there's a particular sort sequence that will help, but you
> might look at creating a new logical file with a series of one-character
> keys.  Instead of:
> A      DATA  10A
> A    K DATA
>
> Try
> A      DATA  10A
> A      DATA1  1A SST(DATA 1 1)
> A      DATA2  1A SST(DATA 2 1)
> A      DATA3  1A SST(DATA 3 1)
> A      DATA4  1A SST(DATA 4 1)
> A      DATA5  1A SST(DATA 5 1)
> A      DATA6  1A SST(DATA 6 1)
> A      DATA7  1A SST(DATA 7 1)
> A      DATA8  1A SST(DATA 8 1)
> A      DATA9  1A SST(DATA 9 1)
> A      DATA10 1A SST(DATA 10 1)
> A    K DATA1
> A    K DATA2
> A    K DATA3
> A    K DATA4
> A    K DATA5
> A    K DATA6
> A    K DATA7
> A    K DATA8
> A    K DATA9
> A    K DATA10
>
> Ugly, but if you need it that way...
>
> Buck Calabro
> Billing Concepts Albany, NY
> mailto:mcalabro@commsoft.net
>
> > -----Original Message-----
> > From: JFinney@Omnia.co.za
> > Sent: Tuesday, July 13, 1999 3:11 AM
> > To:   RPG400-L@midrange.com
> > Subject:      Sort Sequence on a LF
> >
> > Hi All
> >
> > I posted this question I'm about to ask on the NG but had no answer
> > (perhaps a silly question but it's got me !)
> >
> > My pgm is reading through a LF and the data within the character field
> > (which is the key) is automatically being sorted :
> >
> > a, A, 1, 10, 200, 21, etc . . .
> >
> > Question : How can I change this sort sequence to sort :
> >
> > *blanks, a, A,1, 10, 21, 200 ?
> >
> > For those of you who use Lotus123, I seem to remember the Russian sort
> > sequence being the one which produces the result
> > I would like on the AS/400. Is there a sort sequence which would provide
> > this result and, if so, how do I implement it ?
> >
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> * This is the RPG/400 Discussion Mailing List!  To submit a new         *
> * message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
> * from this list send email to MAJORDOMO@midrange.com and specify       *
> * 'unsubscribe RPG400-L' in the body of your message.  Questions should *
> * be directed to the list owner / operator: david@midrange.com          *
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *



+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---END



This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].