Guild Companies, Inc.  
 
Midrange Guru - Tech Tips
OS/400 Edition
Volume 2, Number 23 - March 27, 2002

Does This Date Fit IBM's Window?

Hey, Ted:

Is there a way to dynamically program for IBM's date window, that is, to see if a date is less than 1940 or greater than 2039, without hard coding 1940 or 2039?

-- Tim

The low and high values for six-digit dates fit IBM's window, so compare to them. (See below for the code.)














D WindowBegin     s               d   datfmt(*mdy) inz(*loval) 
D WindowEnd       s               d   datfmt(*mdy) inz(*hival) 
D DateToTest      s               d   datfmt(*iso)             
D Status          s             16a                            
     
C                   select                                     
C                   when      DateToTest < WindowBegin        
C                   eval      Status = 'Too early'             
C                   when      DateToTest > WindowEnd          
C                   eval      Status = 'Too late'              
C                   other                                      
C                   eval      Status = 'Within window'         
C                   endsl  

-- Ted

Sponsored By
BUSINESS COMPUTER DESIGN INT'L

See why WebSmart beat out 26 other vendors and was
Voted the BEST iSeries -- AS/400
e-Business / e-Commerce tool in the marketplace.

Free Download of the New Version. Build your own, or use / customize the 70+ Free templates and e-Commerce applications. Develop professional state-of-the-art applications in a day not months, all while using your existing skill set. Extend legacy applications.

Forget complex, expensive products that take months and months to learn, or bare bone products with minimal tools & features that make you do the work manually without HTML editing, restrict the look of your web apps, and restrict growth. Restrictions like no IFS, email or Graphics functions, session ids, persistent CGI handling and more.

WebSmart is a proven, state-of-the-art tool that is easy-to-use, requires little or no Web or iSeries400 programming, is packed with features to automate the work for you, and best of all it’s affordably priced.

Quickly deploy elegant, robust and secure B2B, B2C and browser based apps. Including: Inquiries, reporting, maintenance, wireless (XML, WML. . . ), ordering, product catalogs, shopping carts, EIS. . . .

State-of-the-art, portable PC-based design tool. Develop anywhere: Work, on the road & home and enjoy the freedom of choice.

Simply email objects to yourself or others. Unlimited end-users and unlimited developer seats. Automatically produces dynamic HTML CGI programs written in ILE/RPG. 128 bit AES encryption. Utilizes iSeries400 database and security features for scalability and reliability.

Ask for BCD’s 15-point opinion e-mail on why WebSmart is better than WebSphere TM, 1. Ability to run on smaller iSeries -- AS/400’s without having to upgrade hardware. 2. Significantly faster apps. . . .

WebSmart users include: Affinity Ins., Airways Freight, Arrow Environmental, Behr Process, Broward County Schools, Calvin Klein, D.J. Powers, Formica Corp., Goodyear, Hoshizaki America, Kauai Electric, Legacy Partners, Midwest Trophy, MSU, Oregon Dept., of Veterans Affairs, State of California, Testor Corp., Weigh-Tronix. . .

Also try CATAPULT, voted best e-mail / Automated Report Distribution Tool. FREE Downloads: WebSmart or CATAPULT

Visit http://www.BCDsoftware.com or call 630-986-0800, e-mail sales@bcdsoftware.com Trust BCD, Winner of 18 Industry Awards 20,000+ product installations - 9,000 World-wide customers.

THIS ISSUE
SPONSORED BY:
COMMON
Business Computer Design Int'l
BACK ISSUES
TABLE OF CONTENTS
Query Management and File Updates
Does This Date Fit IBM's Window?
Reader Feedback and Insights: Passive FTP and Data Area QTMFTPPASV
  Newsletters | Subscribe | Advertise | About Us | Contact | Search | Home  
  Last Updated: 3/27/02
Copyright © 1996-2008 Guild Companies, Inc. All Rights Reserved.