RE: Sort Sequence on a LF

[Joel Fritz <JFritz@xxxxxxxxxxxxxxxx>]

This brings up the question: What is the vilest primary key you've ever
seen?

I offer a comparatively tame example, a product code composed of three
fields--two byte character, 3 position numeric (usually zoned), and 3 byte
character.

> -----Original Message-----
> From: Rob Berendt [mailto:rob@dekko.com]
> Sent: Tuesday, July 13, 1999 11:44 AM
> To: RPG400-L@midrange.com
> Subject: Re: Sort Sequence on a LF
> 
> 
> Or use the ALTSEQ keyword in DDS and find/create a suitable 
> translation table.  This method is often used when you want 
> to sort irregardless of alphabetic case.  I wish the alpha 
> search fields people have created in files would die the 
> grisly death they deserve.
> 
> 
> 
> 
> dbale@genfast.com on 07/13/99 01:18:38 PM
> Please respond to RPG400-L@midrange.com@Internet
> To:   RPG400-L@midrange.com@Internet
> cc:    
> Fax to:       
> Subject:      Re: Sort Sequence on a LF
> 
> 
> 
> John,
> 
> >>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 ?<<
> 
> I think the only way you're going to get your desired results is to
> right-justify the data in the character field; if you do 
> this, you will be able
> to use the normal sort sequence to get the results you're looking for.
> 
> BTW, store it right-justified, and you'll still be able to 
> display/print it left
> justified using the BIFs in RPG IV.
> 
> - Dan Bale
> 
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
> * * * * * *
> * 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 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          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *