QTP Help

[Harrington, Don]

Well, gang; I'm having a different problem, now.

Running PH 8.19 on an HP3000.

This code appears to do the update I want to a KSAM file:

ACCESS HOLIDAYS-FILE

DEFINE START-DATE DATE = &
          PARM PROMPT "ENTER START DATE (YYYYMMDD):"

SELECT IF DT-DAYS-DATE-K2 GE START-DATE

DEFINE NEW-DATE DATE  CENTURY EXCLUDED = &
 REMOVECENTURY(DATE(DAYS(DT-DAYS-DATE-K2) + 365))
DEFINE MYDT CHAR*4 = ASC(NEW-DATE,6)

OUTPUT HOLIDAYS-FILE ALIAS SUN  ADD ON ERROR REPORT  &
    IF DAYS-NAME = 'SUN'
ITEM DT-DAYS-DATE-K2 FINAL REMOVECENTURY(NEW-DATE)
ITEM CHRON-SEQ FINAL DAYS(NEW-DATE)
ITEM YR-MO FINAL MYDT[1:4]

(similar code for MON - SAT).  The output shows:

 ENTER START DATE (YYYYMMDD):20030101

 Records read:
   HOLIDAYS-FILE                        1,461

 Transactions processed:                  365

 Records processed:                     Added    Updated  Unchanged
Deleted
   SUN                                     52          0          0
0
   SAT                                     52          0          0
0
(93/200) Continue? 
   FRI                                     52          0          0
0
   THU                                     52          0          0
0
   WED                                     53          0          0
0
   TUE                                     52          0          0
0
   MON                                     52          0          0
0

 Finished.

When I run this:

ACCESS HOLIDAYS-FILE

DEFINE START-DATE DATE = &
          PARM PROMPT "ENTER START DATE (YYYYMMDD):"

SELECT IF DT-DAYS-DATE-K2 GE START-DATE

DEFINE NEW-DATE DATE  CENTURY EXCLUDED = &
 REMOVECENTURY(DATE(DAYS(DT-DAYS-DATE-K2) + 365))
DEFINE MYDT CHAR*4 = ASC(NEW-DATE,6)
DEFINE DAYS-DATE NUMERIC*8 = DAYS(NEW-DATE)

SUBFILE HOL002DA INCLUDE &
NEW-DATE, &
DAYS-DATE, &
MYDT

and do a QUIZ REPORT ALL on it, I get the dates from 1/1/04 to 12/30/04, as
I expect.  However, when I run this:

ACCESS HOLIDAYS-FILE

SORT ON DT-DAYS-DATE-K2

REPORT                                  &
DAYS-NAME HEADING "DAY"                 &
DAYS-FLAG HEADING "FLAG"                &
CHRON-SEQ HEADING "SEQ"                 &
MFG-DAY-SEQ HEADING "MFG"               &
YR-MO     HEADING  "YR/MO"              &
DT-DAYS-DATE-K2 HEADING  "DATE"

the last date is 12/21/03.

What am I missing?

TIA,
Don Harrington
Sr. Systems Analyst
Facilities Applications Support
Shared Services Group
The Boeing Company
P.O. Box 3707 M/C 2R-32  NEW!
Seattle, WA  98124-2207
(v) 206-544-5679  NEW!  (f) 206-544-5788  NEW! (p) 206-797-6360

The opinions expressed in this e-mail reflect those of the sender.  They do
not necessarily reflect the opinions of The Boeing Company unless
specifically stated otherwise.