Some interesting year 2000 work 
Author Message
 Some interesting year 2000 work

One of our analysts was having a problem with tests tht didn't work
after applying his year 2000 fix.  with some help with another analyst,
they searched the code for the string '1900'.  they found some
interesting code.  (Need I say tht this is real old code...)  Here is a
sample:

------------------------sample code-----------------------------
006827    /*      WS-CENTURY-CONSTANT           PIC 9(7) VALUE
1900000.        01161006                                            
006828                COMPUTE SAGE-XJULIAN = WS-DATE-IN +
1900000              02302008                                            
006829 ********************************MEMBER
PSNN39K0********************************                                            
- - -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
-  -  -  -  -  -  -  -  -  -  -   1 Line(s) not Displayed
006831    /*      WS-CENTURY-CONSTANT           PIC 9(7) VALUE
1900000.        00951000                                            
006832                COMPUTE SAGE-XJULIAN = WS-DATE-IN +
1900000              01822000                                            
006833 ********************************MEMBER
PSNN39S0********************************                                            
- - -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
-  -  -  -  -  -  -  -  -  -  -   3 Line(s) not Displayed
006837                COMPUTE SAGE-XJULIAN = WS-DATE-IN +
1900000              01922015                                            
006838 ********************************MEMBER
PSNN39T1********************************                                            
006839            DATE-WRITTEN. JULY
1988.                                    
00030000                                            
006840            IF  AUTH-PICK-DT >=
1990001                                
01830015                                            
006841                WS-DAY-HOLD = AUTH-PICK-DT -
1990000                    
01840015                                            
006842                IF  AUTH-PICK-DT >= 1989001
AND                        
01860015                                            
006843                ... AUTH-PICK-DT <=
1989365                            
01861015                                            
006844                    WS-DAY-HOLD = AUTH-PICK-DT -
1989000                
01870015                                            
006845                    IF  AUTH-PICK-DT >= 1988001
AND                    
01890015                                            
006846                    ... AUTH-PICK-DT <=
1988366                        
01891015                                            
006847                        WS-DAY-HOLD = AUTH-PICK-DT -
1988000             01900015                                            
006848            ELSE-IF  WS-DAY-HOLD >= 113 AND <=
119                      
02240013                                            
006849                WEEK OF STK-BIN-REC =
19                                
02290007                                            
006850            ELSE-IF  WS-DAY-HOLD >= 190 AND <=
196                      
02460013                                            
006851            ELSE-IF  WS-DAY-HOLD >= 197 AND <=
203                      
02480013                                            
-----------------------------end of sample--------------------------

I wonder how long this bug would have persisted had they not though to
do that search...?

--
*****************************************************************
* Steve Burns    The Boeing Co.    The Company doesn't let me   *
* PO Box 3707    Mail Stop 35-62     have much... but these     *
* (206) 662-5937 Seattle, WA 98124     opinons are all my own   *



Sat, 23 Sep 2000 03:00:00 GMT  
 
 [ 1 post ] 

 Relevant Pages 

1. YEAR 2000 full working demo software. Look inside

2. Is year 2000 a leap year??

3. Extensive cobol year 2000 methodology by TOPIC-2000

4. Cobol year 2000 solutions by TOPIC 2000

5. Year 2000 Newsgroup

6. OS/390 Release 2 Year 2000 discussion

7. Year 2000 IBM Asm370 Booming Job Market

8. Sr. Programmer/Analysts for Year 2000 project

9. Sr. Programmer/Analysts for Year 2000 project

10. Year 2000 course available

11. APL YEAR OF 2000 code remediation project

 

 
Powered by phpBB® Forum Software