home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
viscobv6.zip
/
vac22os2
/
ibmcobol
/
samples
/
loan
/
helpdir
/
vbhelp.ipf
< prev
Wrap
Text File
|
1998-01-31
|
2KB
|
64 lines
.* -----------------------------------------------------------
.* VBHELP.IPF Help Source for Loan Sample
.* -----------------------------------------------------------
.*
:userdoc.
:title.Millennium Loan Sample Application
:docprof toc=12.
.* -----
:h1 res=100.Loan Help
.br
:artwork name='money.bmp' runin.&rbl.
This sample illustrates using the VisualAge COBOL Millennium
Language Extensions.
:p.
Use this application to determine the monthly payments, total interest and the year a loan is due.
Enter the following&colon.
:ul.
:li.
Amount you want to borrow (example&colon.10000)
:li.
Interest rate in per cents (example: 5)
:li.
Term for the loan in years (example: 10)
:eul.
:p.
Then click on the :hp2.Go Figure:ehp2. button.
:p.
:nt.
The year when the loan is due is determined using a
two digit data item with ACCEPT FROM DATE.
The term of the loan is then added to that year.
The VisualAge COBOL Millennium Language Extension
allows the date to be correct past the year 2000.
:ent.
.* -----
:h1 res=120.Go Figure Button Help
:p.
Click on the :hp2.Go Figure:ehp2. button to compute the information
for your loan.
.*
.* -----
:h1 res=110.Close Button Help
:p.
Click on the :hp2.Close:ehp2. button to close the window.
.* -----
:h1 res=130 hide.Message Help
:p.
Check that you have entered valid information for your loan.
Be sure that&colon.
:ul.
:li.
Amount you want to borrow is positive
:li.
Interest rate is between 1 and 25%
:li.
Term for the loan is between 1 and 30 years
:eul.
:p.
Enter valid loan information and click on
the :hp2.Go Figure:ehp2. button again.
.*
:euserdoc.