RE: Y2K Question: Sorting files when using

Yeah  but  you are just messing up  something that is already a mess.

Some time someone is going to have to  work  on that  systems.

Long time ago  they  use to put  patches  in machine  language into card
decks to repair programs. It got So bad So convoluted. It  became simple
trash!   Return to square -one- 


At 01:40 PM 7/20/98 -0500, you wrote:
>
>You can use alternate collating sequence to sort the first digit of the   
>year according to the window your application is using.  Create a table   
>to sort digits appropriately for your window (e.g., 4, 5, 6, 7, 8, 9, 0,   
>1, 2, 3).  Then use the table in the logical file DDS:
>                                            ALTSEQ(y2k-table)
>                R RECFMT                    PFILE(physical-file-name)
>...
>                  DATYMD          S
>                  DATY               I      SST( DATYMD 1 1 )   
>                  
>
>                                            TEXT( '1ST digit of year' )
>...
>                K DATY
>                K DATYMD                    NOALTSEQ
>
>Field DATYMD is packed-decimal in the physical file  It is mapped to   
>zoned-decimal here to allow it to be used with the SST keyword.  NOALTSEQ   
>is specified for key fields other than DATY so they will be sorted   
>normally.
>
> -----Original Message-----
>From: Mani Veluthakkal
>Sent: Friday, July 17, 1998 17:46
>To: brian; Midrange (E-mail)
>Subject: Y2K Question: Sorting files when using w
>
>Original Subject:
>Y2K Question: Sorting files when using windowing technique.
>
>+---
>| This is the Midrange System Mailing List!
>| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
>| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
>| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
>| Questions should be directed to the list owner/operator: david@midrange.com
>+---
>


Glenn
___________________________________________________
Glenn Ericson,          Phoenix Consulting                      
P O Box 701164   East Elmhurst NY 11370-3164 USA                            
Phone 718 898 9805       Fax 718 446 1150
AS/400 & Year 2000- - Solutions Specialists
 © 1998 copyright,  all rights reserved
____________________________________________________


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