Hi All,

WebFOCUS 7.1 and 7.7 do not like the Y2K leap day if you use the MDY format. MDYY format is OK.

-* Y2KBUG - MDY format will not accept '022900'
TABLE FILE CAR
PRINT
 CAR
COMPUTE
 LEAP/MDY = '022900';
-* LEAP/MDY = '022800';
-* LEAP2/MDYY = '02292000';
END

WF 7.7 gives the message:

0 ERROR AT OR NEAR LINE      6  IN PROCEDURE Y2KBUG  FOCEXEC *
 (FOC177) INVALID DATE CONSTANT: 022900
 (FOC009) INCOMPLETE REQUEST STATEMENT
  BYPASSING TO END OF COMMAND

WF 7.1 gives the message:

0 ERROR AT OR NEAR LINE      6  IN PROCEDURE y2kbug  FOCEXEC *
 (FOC177) INVALID DATE CONSTANT: ;
 (FOC009) INCOMPLETE REQUEST STATEMENT
  BYPASSING TO END OF COMMAND

-James

This message has been edited. Last edited by: Kathleen Butler,

Very Interesting...

The following code..

APP PREPENDPATH IBISAMP
SET YRTHRESH = 50
-RUN
-? SET YRTHRESH &YRTHRSH
-? SET DEFCENT  &DEFCNT
-*
DEFINE FILE GGSALES
 LEAP_ALPHA1/A8MDYY = '02292000';
 LEAP_SMART1/MDYY = LEAP_ALPHA1;
 LEAP_ALPHA2/A6MDY = '022900';
 LEAP_SMART2/MDY = LEAP_ALPHA2;
END
-*
TABLE FILE GGSALES
"Year Threshhold = &YRTHRSH Default Century = &DEFCNT"
PRINT SEQ_NO
      LEAP_ALPHA1
      LEAP_SMART1
      LEAP_ALPHA2
      LEAP_SMART2
END 

Yields, in release 7.7.02..

PAGE 1 
 
Year Threshhold = 50 Default Century = 19 
 
Sequence# LEAP_ALPHA1 LEAP_SMART1 LEAP_ALPHA2 LEAP_SMART2 
1         02/29/2000  02/29/2000  02/29/00    02/29/00   

After Y2K, it's hard to believe that any business system or application still stores or references year values as two-digit numbers. And this post proves the point.

quote:

it's hard to believe that any business system or application still stores or references year values as two-digit numbers

More than likely the OP is working with/accepting an interface from another system, that is passing six digit dates.

If true, and he has no control over remediating the other system, he needs to 'play with the hand he is dealt'.

quote:

Year Threshhold = 50 Default Century = 19 ... 'play with the hand he is dealt'

AKA: Deal with it when it comes in / before it goes out.

Hi,

David, thanks for the date windowing suggestion. That got me around the problem.

The file I'm working with was created long ago -dinosaurs roamed the earth. Obviously I need to revise a few date fields.

-James