RE: Sort Sequence on a LF

[Buck Calabro <mcalabro@xxxxxxxxxxxx>]

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          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *