[HP3000-L] Quiz Explanation Requested

[Harrington, Don]

Joan;

Yep, that was it.

Thanks to all!

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.



-----Original Message-----
From: Joan Entwistle [mailto:Joan_Entwistle@TUFTS-HEALTH.COM]
Sent: Thursday, March 28, 2002 2:32 PM
To: HP3000-L@RAVEN.UTC.EDU
Subject: Re: [HP3000-L] Quiz Explanation Requested


It looks as if start date does not have century, but dt-date-days-k2 does,
so all the dates are greater than the start date.
SELECT IF DT-DAYS-DATE-K2 GE START-DATE



                    "Harrington, Don"
                    <don.harrington@B        To:     HP3000-L@RAVEN.UTC.EDU
                    OEING.COM>               cc:
                    Sent by: "HP-3000        Subject:     [HP3000-L] Quiz
Explanation
                    Systems                  Requested
                    Discussion"
                    <HP3000-L@RAVEN.U
                    TC.EDU>


                    03/28/2002 05:06
                    PM
                    Please respond to
                    "Harrington, Don"





Gang;

Why are these results the same:

The code is:

;FILE HOL002Z.SOURCE - REPORTS DATES IN THE MFG DAY HOLIDAY FILE

;         $History: hol002z.source $

ACCESS HOLIDAYS-FILE

DEFINE START-DATE DATE CENTURY EXCLUDED = &
          PARM PROMPT "ENTER START DATE (YYMMDD):"
DEFINE NEW-DATE DATE  CENTURY EXCLUDED = &
 REMOVECENTURY(DATE(DAYS(DT-DAYS-DATE-K2) + 364))
DEFINE MYDT CHAR*4 = ASC(NEW-DATE,6)
DEFINE MY-CHRON-SEQ NUM = DAYS(NEW-DATE)
DEFINE MY-DT-DAYS-DATE-K2 DATE = REMOVECENTURY(NEW-DATE)

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

SET REPORT LIMIT 5000

SORT ON MY-DT-DAYS-DATE-K2

REPORT  &
     MY-DT-DAYS-DATE-K2 &
     MY-CHRON-SEQ &
     MYDT

BUILD HOL002Z.EXE

Any help would be GREATLY appreciated.

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.

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *