Hi, Don
Probably defalt century for Quiz 19 and QTP is 20?
Quiz date looks like start with 1900,1,1 365*100 ~=~ 36500 + Continous
Days for 2000 like 2003 ~=~ 36500 + 3x(365) and QTP side is just
3x(365)
Peter Chong
Sr. ERP Analyst, S&C
www.exmlsoft.com
"Harrington, Don" <[log in to unmask]> wrote in message news:<[log in to unmask]>...
> 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 *
|
