Program to find interest on bank deposits, COBOL Programming

PROGRAM TO FIND INTEREST ON BANK DEPOSITS:

We have to write a program to find interest on deposits. The criteria is given below :

960_PROGRAM TO FIND INTEREST ON BANK DEPOSITS.png

identification division.

program- id.

environment division.

input-output section.

file-control.

  select bankfile assign to disk

  organization is line sequential.

data division.

file section.

fd bankfile  

  label records are standard

  value of file- id is "bank.dat".

01 bankrec.

  02 dno   pic 9(5).

  02 dname pic x(21).

  02 p     pic 9(4)v9(2).

  02 n     pic 9(2).

working-storage section.

01   ans pic x value space.

01   tot pic 9(6)v9(2) value 0.

01   int pic 9(6)v9(2) value 0.

01   key- in pic x value space.

01 r pic 9(2) value 0.

01 head-1 pic x(80) value all '-'.

01 head-2.

02  f pic x(8) value "Deps No".

    02  f pic x(3) value spaces.

    02  f pic x(10) value "Deps Name".

    02  f pic x(5) value spaces.

    02  f pic x(8) value "Deposit".

    02  f pic x(5) value spaces.

    02  f pic  x(8) value "Period".

    02  f pic x(5) value spaces.

    02  f pic x(5) value "Rate".

    02  f pic x(5) value spaces.

    02  f pic x(8) value "Interest".

    02  f pic x(10) value "  Nett".

  01  head-3.

    02  e-dno  pic z(5).

    02  e-dname pic x(26).

    02  e-p  pic  z(4).z(2).

  02  f pic x(5) value spaces.

  02  e-n  pic z(2).

  02  f pic x(5) value spaces.

  02  e-r pic z(2).

  02  f pic x(3) value spaces.

  02  e-int  pic z(4).z(2).

  02  f pic x(3) value spaces.

  02  e-tot pic z(6).z(2).

procedure division.

p-1.

  open output bankfile.

  perform g-w-para until ans = 'N' or 'n'.

  close bankfile.

  open input bankfile.

  display(1 1) erase.

  display head-1.

  display head-2.

  display head-1.

read-para.

  read bankfile at end go to close-para.

  if ( p not < 5000 and n not < 3 )

    move 10 to r

    compute tot = p * (1 +  r / 100) ** n.

  if ( p not < 5000 and n < 3)

    move 8 to r

    compute tot = p * (1 +  r / 100) ** n.

  if ( p < 5000)

    move 7 to r    

    compute tot = p * (1 + r / 100) ** n.

  move tot to e-tot.

  compute int = tot - p.

  move int to e- int.

  move dno to e-dno.

  move dname to e-dname.

  move p to e-p.

  move n to e-n.

  move r to e-r.

  display head-3.

  go to read-para.

close-para.

  display head-1.

  close bankfile.

  stop run.

g-w-para.

  display(1 1) erase.  

  display(3 5) "Dep No : ".

  accept dno.

  display(5 5) "Dep Name : ".

  accept dname.

  display(7 5) "Amount : ".

  accept p.

  display(9 5) "Years : ".

  accept n.

  write bankrec.

  display(15 5) "Add more [y/n] : ".

  accept ans.

Posted Date: 10/18/2012 2:07:59 AM | Location : United States







Related Discussions:- Program to find interest on bank deposits, Assignment Help, Ask Question on Program to find interest on bank deposits, Get Answer, Expert's Help, Program to find interest on bank deposits Discussions

Write discussion on Program to find interest on bank deposits
Your posts are moderated
Related Questions
RULES OF MOVE VERB:  The Data movement is managed by the rules which are as shown below: (a) The contents of the identifier - 1 or the value of the literal - 1 is moved to

Example of Open statement: Illustration: The OPEN INPUT TRANSACTION, OLD-MASTER OUTPUT NEW-MASTER. The illustration represents that there are two input files named the

calculate simple interest

Configuration Section: This section holds an overall specification of the computer used for the purpose of the compilation and execution of the program. There are in all 3 par

Non numeric: The nonnumeric literal is used in normal to output messages or headings. The Characters which are enclosed between " " constitute nonnumeric literal. The maximum

Direct Organization: Besides the relative or indexed organization, also a direct access file can be designed to have what is termed as direct organization.  In this organizati

Example of Class condition: Let the BASIC-PAY be a data name in the card record defined with picture 9(5) V99. By reading the card we can test the value of the BASIC-PAY to ma

Figurative Constants: The Figurative constants have several fixed names and the compiler recognizes these names and it sets up the equivalent values in the object program.

LABEL RECORD CLAUSE: This clause specifies whether or not the standard header and trailer labels must be present in the magnetic-tape files. VALUE OF CLAUSE: The VAL

Rules of read statements: The next record is identified according to the rules as shown below: (i) Whenever the READ NEXT statement is the initial statement to be executed