Getting Ready for Year 2000
This paper was prepared by Robelle Solutions Technology Inc. with assistance
from other HP 3000 software vendors listed. Our hope is that you will find the
information provided helpful as you prepare for January 1, 2000.
You have dates with 2 digit years that will not be able to sort or compare
properly when they start including dates from the next century. You have
checked, and your software tools are 'Year 2000 compliant'. Now you can
Basically, you need to change every program and every file on your system
that references these 2 digit years and convert them into 4 digit years.
This is a very large project!
Now before you update your resume and decide to switch professions,
some of the major HP 3000 tool vendors have joined together to help make this
project easier. How? By offering special discounts and
a step-by-step guide to help you use the right tool for the task at hand.
- Determine what applications are currently being used
- Determine what data files each application uses
- Determine which files have 2 digit years
- Determine which programs access these files
- Create a development environment for making application changes
- Correct any invalid dates
- Expand the 2 digit years into 4 digit years in the data files
- Convert the programs to handle the new files with wider year fields
- Test the programs
- Test the applications
- Update the production application
Determine what applications are currently being used
Check with your users and other staff to determine which applications like
Payroll, Accounts Payable, G/L etc. are still being used.
Determine what data files each application uses
This would include IMAGE databases, KSAM and flat files.
Hopefully you have current documentation that itemizes each of the files
that every process in the application uses. Use Doc/3000
to keep all this information in one place and to perform impact analysis.
Use D-Day 2000 to determine the cost and length of the
Year 2000 project for each application.
Determine which files have 2 digit years
Look at the program source files, scanning them for the following strings
"DATE", "DT", "YY", "YEAR", "DAT". Use MPEX,
Magnet to scan filesets quickly. Also check all the
file layouts for non-standard date field names. Look at all 6 character
fields as possible dates. Look at a few records of every data file and
dataset looking for date fields. Use Qedit
for non-binary files and
Query for short datasets. For binary files and long
datasets use Suprtool.
Determine which programs access these files
Once you've isolated the files and dataset names, scan all your program
source files to see which programs reference these files. Again
use Doc/3000, Magnet
or MPEX to scan filesets.
Don't forget to check all production job streams as well.
Check how each date field is being used in this file. Is there any
manipulation that would need to change? Are there any temporary variables that
need new date handling routines? Use SmartDate. If you
have multiple versions of the same program source you will need to determine
which is the most current version. Use Compare to find the
Create a development environment for making application changes
A project of this size will take a while and require testing as the changes
are being made. A copy of all the source, data and programs should be made
either on another cpu or another account. Normal development and use of the
files will not be affected until the project is complete.
Use VCS/3000 for version control of the source files and
audit trails of changes.
Correct any invalid dates
You will need to find and fix and invalid dates,
e.g. '970644', 'NEVER', '******'. Some sites prefer to do this after
expanding the data files.
DBGeneral (available 3rd quarter '97) or
Expand the 2 digit years into 4 digit years in the data files
Use Adager or
DBGeneral (available 3rd quarter '97) for data and structural changes to databases.
Use Ksamutil for structural changes to KSAM files.
Use Suprtool for data changes to databases, KSAM or flatfiles.
Convert the programs to handle the new files with wider year fields
Check the length of file is adjusted so that the date fields and any temporary
fields used for dates are also expanded. Use Qedit to
edit your source files, job streams and 'use' files. Use MPEX to mass recompile your
If you need new date handling routines, use SmartDate.
Test the programs
Make sure your test data has both 20th and 21st century dates. Check compares
and sorted lists.
Test the applications
Check that programs work together, i.e. does program A output a data file
that program B reads. Check all files created by one application system
and used by other application systems.
Update the production application
When you're completely satisfied with the programs, convert all the
production data files and datasets. Then copy all the source and program
files back into the production environment.
Use VCS/3000 to distribute the changed versions into the
- For more information about the products mentioned in this paper, please
consult the list below. The companies are listed in alphabetical order
for your convenience. For information on HP's Query
and Ksamutil, please consult
your local HP representative.
- Adager: Provider of Adager
P.O. Box 2358
Sun Valley, Idaho 83353
Ph: (800) 533-7346 or (208) 726-9100
Fax:(800) 247-7346 or (208) 726-8191
- Bradmark: Provider of DBGeneral
4265 San Felipe, Suite 800
Houston, Texas 77027
Ph: (800) 621-2808 or (713) 621-2808
Fax: (713) 621-1639
- Diamond Optimum Systems, Inc.: Provider of Doc/3000,
D-Day 2000, VCS/3000
22801 Ventura Blvd., Ste. 105
Woodland Hills, California 91364
Ph: (800) 362-8271 or (818) 224-2010
Fax: (818) 224-2009
- Lund Performance Solutions: Provider of Magnet
240 Second Ave. S.W.
Albany, Oregon 97321
Ph: (541) 926-3800
Fax: (541) 926-7723
- Robelle Solutions Technology Inc.: Provider of Suprtool, Qedit, SmartDate, and Compare
Suite 201, 15399-102A Ave.
Surrey, B.C., Canada V3R 7J1
Ph: (888) 762-3553 or (604) 582-1700
Fax: (604) 582-1799
- VESOFT Inc.: Provider of MPEX
1135 South Beverly Dr.
Los Angeles, California 90035
Ph: (310) 282-0420
Fax: (310) 785-9566