Subject: | |
From: | |
Reply To: | Harrington, Don |
Date: | Thu, 28 Mar 2002 14:06:04 -0800 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
Gang;
Why are these results the same:
> EXE HOL002Z.EXE
ENTER START DATE (YYMMDD):01/01/03
03/28/02 ISDS FACILITIES SYSTEMS PAGE
1
MY-DT-DAYS-DATE-K2 MY-CHRON-SEQ MYDT
0 0002
0 0002
01/01/00 1 0001
01/01/00 1 0001
01/02/00 2 0001
01/02/00 2 0001
01/03/00 3 0001
01/03/00 3 0001
01/04/00 4 0001
01/04/00 4 0001
01/05/00 5 0001
01/05/00 5 0001
01/06/00 6 0001
01/06/00 6 0001
01/07/00 7 0001
01/07/00 7 0001
01/08/00 8 0001
01/08/00 8 0001
01/09/00 9 0001
?<User Break>
Do you wish to continue?N
*W* Execution halted at your request.
Records selected: 21
Records sorted: 21
Records reported: 20
Lines printed: 21
Pages printed: 1
** Data conversion errors: 4
> EXE HOL002Z.EXE
ENTER START DATE (YYMMDD):010103
03/28/02 ISDS FACILITIES SYSTEMS PAGE
1
MY-DT-DAYS-DATE-K2 MY-CHRON-SEQ MYDT
0 0002
0 0002
01/01/00 1 0001
01/01/00 1 0001
01/02/00 2 0001
01/02/00 2 0001
01/03/00 3 0001
01/03/00 3 0001
01/04/00 4 0001
01/04/00 4 0001
01/05/00 5 0001
01/05/00 5 0001
01/06/00 6 0001
01/06/00 6 0001
01/07/00 7 0001
01/07/00 7 0001
01/08/00 8 0001
01/08/00 8 0001
01/09/00 9 0001
?<User Break>
Do you wish to continue?N
*W* Execution halted at your request.
Records selected: 21
Records sorted: 21
Records reported: 20
Lines printed: 21
Pages printed: 1
** Data conversion errors: 4
> EXE HOL002Z.EXE
ENTER START DATE (YYMMDD):030101
03/28/02 ISDS FACILITIES SYSTEMS PAGE
1
MY-DT-DAYS-DATE-K2 MY-CHRON-SEQ MYDT
0 0002
0 0002
01/01/00 1 0001
01/01/00 1 0001
01/02/00 2 0001
01/02/00 2 0001
01/03/00 3 0001
01/03/00 3 0001
01/04/00 4 0001
01/04/00 4 0001
01/05/00 5 0001
01/05/00 5 0001
01/06/00 6 0001
01/06/00 6 0001
01/07/00 7 0001
01/07/00 7 0001
01/08/00 8 0001
01/08/00 8 0001
01/09/00 9 0001
?<User Break>
Do you wish to continue?N
*W* Execution halted at your request.
Records selected: 21
Records sorted: 21
Records reported: 20
Lines printed: 21
Pages printed: 1
** Data conversion errors: 4
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 *
|
|
|