QUIZ/QTP Differences?
Hamilton, Allison
Allison.Hamilton@Cognos.COM
Fri, 12 Apr 2002 15:49:40 -0400
I just tried a little sampler of this and it works for me, now, I am on
OpenVMS using 8.30... I also tried it under 8.20D7 and 8.10C1 and they all
produced the same results
Here's what I tried:
PDL
element dt-days-date-k2 date size 6 format mmddyy
element chron-seq numeric size 6 default datatype integer
file days2 org sequential create
record days2
item dt-days-date-k2
item chron-seq
QUIZ
def xx date = 20010104
def new-date date = date(days(xx)+365)
define my-chron-seq num = days (new-date)
report all
I get:
XX NEW-DATE MY-CHRON-SEQ
2001/01/04 2002/01/04 37259
QTP
access skills (any data file will do here)
def xx date = 20010104
def new-date date = date(days(xx)+365)
define my-chron-seq num = days (new-date)
output days2 add at final
item dt-days-date-k2 final removecentury(new-date)
item chron-seq final days(new-date)
go
QUIZ
access days2
report all
go
2002/04/12 D2
PAGE 1
Dt Days Chron
Date K2 Seq
01/04/02 37,259
Try this, and if it works then there may be something that's perhaps messing
with your default date format between your QUIZ and QTP runs ???
It the above simple test doesn't work - you have a simple test case to log a
bug with!
-----Original Message-----
From: Harrington, Don [mailto:don.harrington@boeing.com]
Sent: Friday, April 12, 2002 3:13 PM
To: 'Hamilton, Allison'; HP3000-L (E-mail); PowerHouse-L (E-mail)
Subject: RE: QUIZ/QTP Differences?
Here's the definition of the file:
INPUT OUTPUT
HOLIDAYS-FILE TYPE SCALE SCALE DEC PICTURE
* DAYS-NAME CHAR X(4)
DAYS-FLAG CHAR X(4)
.DAYS-FLAG-1 CHAR X(1)
.DAYS-FLAG-2 CHAR X(1)
* CHRON-SEQ NUM 0 0 0 ^^^^^^
* MFG-DAY-SEQ NUM 0 0 0 ^^^^
* YR-MO CHAR X(4)
* DT-DAYS-DATE-K2 DATE MM/DD/YY
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.
-----Original Message-----
From: Hamilton, Allison [mailto:Allison.Hamilton@Cognos.COM]
Sent: Friday, April 12, 2002 10:51 AM
To: 'Harrington, Don'; HP3000-L (E-mail); PowerHouse-L (E-mail)
Subject: RE: QUIZ/QTP Differences?
What's the definition of chron-seq in the file?
-----Original Message-----
From: Harrington, Don [mailto:don.harrington@boeing.com]
Sent: Friday, April 12, 2002 1:28 PM
To: HP3000-L (E-mail); PowerHouse-L (E-mail)
Subject: QUIZ/QTP Differences?
Gang;
This QUIZ report
;FILE HOL002Z.SOURCE - REPORTS DATES IN THE MFG DAY HOLIDAY FILE
; $History: hol002z.source $
ACCESS HOLIDAYS-FILE
DEFINE START-DATE DATE = &
PARM PROMPT "ENTER START DATE (YYYYMMDD):"
DEFINE NEW-DATE DATE = &
DATE(DAYS(DT-DAYS-DATE-K2) + 365)
;DEFINE NEW-DATE DATE CENTURY EXCLUDED = &
; REMOVECENTURY(DATE(DAYS(DT-DAYS-DATE-K2) + 365))
DEFINE MYDT CHAR*4 = ASC(REMOVECENTURY(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 &
DT-DAYS-DATE-K2 &
MY-DT-DAYS-DATE-K2 &
MY-CHRON-SEQ &
MYDT
BUILD HOL002Z.EXE
produces this output:
> EXE HOL002Z.EXE
ENTER START DATE (YYYYMMDD):20030101
04/12/02 SHARED SERVICES GROUP FACILITIES PAGE
1
DATE MY-DT-DAYS-DATE-K2 MY-CHRON-SEQ MYDT
01/01/03 01/01/04 37986 0401
01/02/03 01/02/04 37987 0401
01/03/03 01/03/04 37988 0401
01/04/03 01/04/04 37989 0401
01/05/03 01/05/04 37990 0401
01/06/03 01/06/04 37991 0401
01/07/03 01/07/04 37992 0401
01/08/03 01/08/04 37993 0401
01/09/03 01/09/04 37994 0401
01/10/03 01/10/04 37995 0401
01/11/03 01/11/04 37996 0401
01/12/03 01/12/04 37997 0401
01/13/03 01/13/04 37998 0401
01/14/03 01/14/04 37999 0401
01/15/03 01/15/04 38000 0401
01/16/03 01/16/04 38001 0401
01/17/03 01/17/04 38002 0401
01/18/03 01/18/04 38003 0401
01/19/03 01/19/04 38004 0401
This QTP process (a partial listing)
;FILE HOL002P.SOURCE - CREATES DATES IN THE MFG DAY HOLIDAY FILE
; $History: hol002p.source $
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 NEW-DATE DATE = &
DATE(DAYS(DT-DAYS-DATE-K2) + 365)
DEFINE MYDT CHAR*4 = ASC(REMOVECENTURY(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]
produces this output to a KSAMXL file:
04/12/02 SHARED SERVICES GROUP FACILITIES
PAGE
1
DAY FLAG SEQ MFG YR/MO DATE
WED X 1461 11,284 0401 01/01/04
THU 1462 11,285 0401 01/02/04
FRI 1463 11,286 0401 01/03/04
SAT X 1464 11,286 0401 01/04/04
SUN X 1465 11,286 0401 01/05/04
MON 1466 11,287 0401 01/06/04
TUE 1467 11,288 0401 01/07/04
WED 1468 11,289 0401 01/08/04
THU 1469 11,290 0401 01/09/04
FRI 1470 11,291 0401 01/10/04
SAT X 1471 11,291 0401 01/11/04
SUN X 1472 11,291 0401 01/12/04
MON 1473 11,292 0401 01/13/04
TUE 1474 11,293 0401 01/14/04
WED 1475 11,294 0401 01/15/04
THU 1476 11,295 0401 01/16/04
FRI 1477 11,296 0401 01/17/04
SAT X 1478 11,296 0401 01/18/04
SUN X 1479 11,296 0401 01/19/04
MON 1480 11,297 0401 01/20/04
Why the difference in the SEQ/MY-CHRON-SEQ fields?
This is on an HP3000 under MPE/iX 7.0, PowerHouse 8.19.C3.
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: powerh-l@lists.swau.edu
Subscribe: "subscribe" in message body to powerh-l-request@lists.swau.edu
Unsubscribe: "unsubscribe" in message body to
powerh-l-request@lists.swau.edu
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.
= = = = = = = = = = = = = = = = = = = = = = = = = = = =
Mailing list: powerh-l@lists.swau.edu
Subscribe: "subscribe" in message body to powerh-l-request@lists.swau.edu
Unsubscribe: "unsubscribe" in message body to
powerh-l-request@lists.swau.edu
http://lists.swau.edu/mailman/listinfo/powerh-l
This list is closed, thus to post to the list you must be a subscriber.
= = = = = = = = = = = = = = = = = = = = = = = = = = = =
Mailing list: powerh-l@lists.swau.edu
Subscribe: "subscribe" in message body to powerh-l-request@lists.swau.edu
Unsubscribe: "unsubscribe" in message body to
powerh-l-request@lists.swau.edu
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.