Quiz Explanation Requested

[Darren Reely]

Don,

Perhaps the START-DATE parameter is getting its century set to 19 when
being compared to DT-DAYS-DATE-K2, which seems to contain a century.

What I don't understand is why MY-DT-DAYS-DATE-K2 has a couple of empty
entries.  Is that where the data conversion errors are occurring, I wonder?

Darren.


"Harrington, Don" wrote:
> 
> 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
> ?<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
> ?<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
> ?<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: 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.