If you need to value all items in a group level at the same thing place the value clause on the top level item instead of each one.
A leap year is any year which is equally divisable by 4 and if equally divisable by 100 is also equally divisable by 400.
To test for one use code similar to the code in my program on the page listed below.
For information on the COBOL program I wrote for personal use please see lhgreq.htm.
Lila Godel's Web Site
Brought To You By Hamilton Services, Inc.