Skip to content

Commit

Permalink
Minor for 8.texi
Browse files Browse the repository at this point in the history
git-svn-id: svn+ssh://svn.code.sf.net/p/gnucobol/code/external-doc@5184 ed166372-6744-4ac0-a67f-bb1ae9efa102
  • Loading branch information
vbcoen committed Jan 16, 2024
1 parent b986b83 commit 07831a3
Show file tree
Hide file tree
Showing 9 changed files with 6 additions and 8 deletions.
14 changes: 6 additions & 8 deletions guide/8.texi
Original file line number Diff line number Diff line change
Expand Up @@ -372,8 +372,8 @@ Here is an example of a program using this function. Given a total amount of 100
>>SOURCE FREE
IDENTIFICATION DIVISION.
PROGRAM-ID. PANNUITY.
*> Given a total amount of 100,000 USD and an annual interest of 5%
*> the program calculates monthly payment for a duration of 1 year,2 years
*> Given a total amount of 100,000 and an annual interest of 5%
*> the program calculates monthly payment for a duration of 1 year, 2 years
*> ...up to 10 years.
DATA DIVISION.
WORKING-STORAGE SECTION.
Expand Down Expand Up @@ -408,8 +408,7 @@ GOBACK.
Other additional documentation:

@item
When the value of Interest-Rate is zero, the value returned by the function is the
approximation of:
When the value of Interest-Rate is zero, the value returned by the function is the approximation of:
(1 / Number-Periods)
When the value of Interest-Rate is not zero, the value of the function is the approximation of:
(Interest-Rate / (1 - (1 + Interest-Rate) ** (- (Number-Periods))))
Expand Down Expand Up @@ -1685,8 +1684,8 @@ Example of function in use :
IDENTIFICATION DIVISION.
PROGRAM-ID. PPresValue.
*> The sample: you pay for a machine 1500 USD
*> You rent the machine at 350 USD per year per 5 years (= 1750)
*> the program calculates (NET)PRESENT VALUE of 1750
*> You rent the machine at 350 USD per year per 5 years (= 1750).
*> The program calculates (NET)PRESENT VALUE of 1750
*> when the discount rate is 1%, 2% up to 10%.
DATA DIVISION.
WORKING-STORAGE SECTION.
Expand Down Expand Up @@ -1728,11 +1727,10 @@ GOBACK.
This is a case where passing parameters to the intrinsic function PRESENT-VALUE would need the ability to indicate "ALL" and then write the statement as:

@item

FUNCTION PRESENT-VALUE (DiscountRate PaymentAmount(ALL) )

@item
GnuCOBOL does not have this feature (ALL parameter) which has NOT YET been implemented.
GnuCOBOL does not have this feature (ALL parameter) i.,e has NOT YET been implemented.
@end enumerate
@comment *********************************************************************
@comment ** 8.1.77 RANDOM **
Expand Down
Binary file modified guide/PDFs/gnucobpg-a4.pdf
Binary file not shown.
Binary file modified guide/PDFs/gnucobpg-letter.pdf
Binary file not shown.
Binary file modified guide/PDFs/gnucobpr-a4.pdf
Binary file not shown.
Binary file modified guide/PDFs/gnucobpr-letter.pdf
Binary file not shown.
Binary file modified guide/PDFs/gnucobqr-a4.pdf
Binary file not shown.
Binary file modified guide/PDFs/gnucobqr-letter.pdf
Binary file not shown.
Binary file modified guide/PDFs/gnucobsp-a4.pdf
Binary file not shown.
Binary file modified guide/PDFs/gnucobsp-letter.pdf
Binary file not shown.

0 comments on commit 07831a3

Please sign in to comment.