Actually in some products quite a lot. A product that I worked on in the past is used by several banks including people who regularly post here and on the VM list. Many of those banks used the product for various things including escrow accounts which are VERY long lived. In several cases that I know about the escrow accounts were set up before 1900 so when they were computerized, the date algorithms had to handle a non-leap year 00 year. Worked fine. Some of the escrow accounts go past 2100 and those are working fine also. For that same product the only Y2K issues were making sure that computer forms that only allowed two digits for years would be able to work. Hence a century windor for input only was implemented. Internal dates went from 1/1/1600 to a time VERY long in the future (year 10000 something). In fact, after discussion we even implemented the leap year calendar in the past by using negative dates. In most of the cases that users wanted that, only year matter, not necessarily month and day so things worked fine. Lloyd
>________________________________ > From: "Vernooij, CP (SPLXM) - KLM" <[email protected]> >To: [email protected] >Sent: Wednesday, February 12, 2014 9:40 AM >Subject: Re: Storage Obtain ..... > > >A similar one: >How to determine a leap year: >Q1:Is year a multiple of 4? >If yes: Q2: is year a multiple of 100? >If yes: Q3: is year a multiple of 400? >If yes: it is a leapyear. >(skipping the 'If No' branches). > >Q2 and Q3 will start making sense for the first time in the history of >computer programming in the year 2100. Until then Q1 would have been >sufficient. >How much power has been put into executing instructions to answer Q2 and >Q3? >If I only had a Euro for each program that has this code and will not >live until 2100... > >Kees. > >-----Original Message----- >From: IBM Mainframe Discussion List [mailto:[email protected]] On >Behalf Of Gerhard Postpischil >Sent: Wednesday, February 12, 2014 15:08 >To: [email protected] >Subject: Re: Storage Obtain ..... > >On 2/12/2014 8:50 AM, Jim Thomas wrote: > >>> XR R14,R14 >>> XR R15,R15 >>> L R1,=AL4(WORKAREA) >>> MVCL R0,R14 > >Minor quibble - when the from length is zero, the from register is never >referenced nor inspected, so the XR R14,R14 is extraneous. (If I had a >dollar for every time I've seen this, I could retire <g>). > >Gerhard Postpischil >Bradford, Vermont > >---------------------------------------------------------------------- >For IBM-MAIN subscribe / signoff / archive access instructions, send >email to [email protected] with the message: INFO IBM-MAIN >******************************************************** >For information, services and offers, please visit our web site: >http://www.klm.com/. This e-mail and any attachment may contain confidential >and privileged material intended for the addressee only. If you are not the >addressee, you are notified that no part of the e-mail or any attachment may >be disclosed, copied or distributed, and that any other action related to this >e-mail or attachment is strictly prohibited, and may be unlawful. If you have >received this e-mail by error, please notify the sender immediately by return >e-mail, and delete this message. > >Koninklijke Luchtvaart Maatschappij NV (KLM), its subsidiaries and/or its >employees shall not be liable for the incorrect or incomplete transmission of >this e-mail or any attachments, nor responsible for any delay in receipt. >Koninklijke Luchtvaart Maatschappij N.V. (also known as KLM Royal Dutch >Airlines) is registered in Amstelveen, The Netherlands, with registered number >33014286 >******************************************************** > > >---------------------------------------------------------------------- >For IBM-MAIN subscribe / signoff / archive access instructions, >send email to [email protected] with the message: INFO IBM-MAIN > > > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
