Without having Powerhouse manuals handy, I would check that the definition
of the chron-seq item is large enough (double integer).
"Harrington, Don"
<don.harrington@B To: [log in to unmask]
OEING.COM> cc:
Sent by: "HP-3000 Subject: [HP3000-L] QUIZ/QTP Differences?
Systems
Discussion"
<[log in to unmask]
TC.EDU>
04/12/2002 01:28
PM
Please respond to
"Harrington, Don"
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.
* 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 *
|
