Re: Interest Calculating sample

["Leif Svalgaard" <leif@xxxxxxxx>]

From: Klein, Ron <ron.klein@brctsg.com>

> Hi All,
> I have a rather starneg request from the list members.
>
> Does anyone have any examples of a program that calculates the interest
> portion of a mortgage payment.  I have a program that calcs out the payment
> it self.  But, I need to be able to calc the interest to break it out and
> also to adjust the payments for a balloon payment.  I have done this in the
> past, but for the life of me i can't find any of my old examples.  And
after
> numerous searchs on the WEB and coming back with only online calculators I
> am hoping someone on this list has an application that they need to do the
> same.

You can hack the following COBOL program:

IDENTIFICATION DIVISION.
PROGRAM-ID. PAYMENT_COBOL.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 INTMO    PIC S9(3) COMP.
01 NPMTS    PIC S9(3) COMP.
LINKAGE SECTION.
01 INTYR    PIC S9(3) COMP.
01 NYEARS      PIC S9(8) COMP.
01 BAL      PIC S9(12)V99 COMP.
01 PMT      PIC S9(12V99 COMP.

PROCEDURE DIVISION USING INTYR
             NYEARS
             BAL
             PMT.

A00.
   COMPUTE INTMO = ((INTYR / 12.00) / 100.00).
   COMPUTE NPMTS = (NYEARS * 12).
   COMPUTE PMT = (BAL * (INTMO / (1.00 - ((1.00 + INTMO) ** (- NPMTS))))).
   EXIT PROGRAM.