|
*MDY is a two digit year format. Try *USA. -----Original Message----- From: Rich Dotson [mailto:rich_dotson@hotmail.com] Sent: Friday, July 02, 1999 8:27 AM To: RPG400-L@midrange.com Subject: TEST (D) question Hi Everyone, I am having problems with the following code: D DateIn S 8 0 INZ(*Zeros) D DateMDY S D DATFMT(*USA) D DateYMD S D DATFMT(*ISO) D Days S 5 0 INZ(*Zeros) D DateAlpha S 8 ... C Move DateIn DateAlpha C *MDY0 Test (D) DateAlpha 99 C If *In99 C Except ErrorDtl C Iter C EndIf C Move DateIn DateMDY C AddDur Days:*Days DateMDY C Move DateMDY DateIn Here is an exerpt from the dump that is produced: Procedure Name . . . . . . . . . . . . : AGEDATA Program Name . . . . . . . . . . . . . : AGEDATA Library . . . . . . . . . . . . . . : RDOTSON Module Name. . . . . . . . . . . . . . : AGEDATA Program Status . . . . . . . . . . . . : 00112 Date, Time or Timestamp value is not valid (C G D F). Previous Status . . . . . . . . . . . : 00112 Date, Time or Timestamp value is not valid (C G D F). Statement in Error . . . . . . . . . . : 00000245 ... DATEALPHA CHAR(8) '02292013' ' DATEFORMAT CHAR(4) '*MDY' ' DATEIN PACKED(8,0) 02292013. ' DATEMDY DATE(10) '10/05/1999' ' DATEYMD DATE(10) '0001-01-01' ' DAYS PACKED(5,0) 00357. ' I get an error when the program tries to move DATEIN to DATEMDY. My question is this: Why wasn't *IN99 set on by the TEST(D) command since 02292013 is an invalid date? This error also occurs if DATEIN is a negative value (do ask). I also tried the following lines with the same result: C *MDY0 Test (DE) DateAlpha C If %Error Can someone explain what I am missing? Thanks, Rich Dotson RT3 Consulting Services, Inc. 216-556-1710 _______________________________________________________________ Get Free Email and Do More On The Web. Visit http://www.msn.com * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * This is the RPG/400 Discussion Mailing List! To submit a new * * message, send your mail to "RPG400-L@midrange.com". To unsubscribe * * from this list send email to MAJORDOMO@midrange.com and specify * * 'unsubscribe RPG400-L' in the body of your message. Questions should * * be directed to the list owner / operator: david@midrange.com * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * This is the RPG/400 Discussion Mailing List! To submit a new * * message, send your mail to "RPG400-L@midrange.com". To unsubscribe * * from this list send email to MAJORDOMO@midrange.com and specify * * 'unsubscribe RPG400-L' in the body of your message. Questions should * * be directed to the list owner / operator: david@midrange.com * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
