Subject: | |
From: | |
Reply To: | Hamilton, Allison |
Date: | Thu, 28 Mar 2002 17:13:06 -0500 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
What version? If you are on a version that has the QTP Tracer (8.2x and
above, I think) you might want to run the code through QTP turning on DCE
and DEFINE tracing. It will tell you on which DEFINE operation they are
occuring . It would help if you have an earlier version to see the same
report showing the value for
DT-DAYS-DATE-K2, since it is likely the cause of the problems.
-----Original Message-----
From: Harrington, Don [mailto:[log in to unmask]]
Sent: Thursday, March 28, 2002 5:06 PM
To: HP3000-L (E-mail); PowerHouse-L (E-mail)
Subject: Quiz Explanation Requested
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.
= = = = = = = = = = = = = = = = = = = = = = = = = = = =
Mailing list: [log in to unmask]
Subscribe: "subscribe" in message body to [log in to unmask]
Unsubscribe: "unsubscribe" in message body to
[log in to unmask]
http://lists.swau.edu/mailman/listinfo/powerh-l
This list is closed, thus to post to the list you must be a subscriber.
This message may contain privileged and/or confidential information. If you
have received this e-mail in error or are not the intended recipient, you
may not use, copy, disseminate or distribute it; do not open any
attachments, delete it immediately from your system and notify the sender
promptly by e-mail that you have done so. Thank you.
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
|
|