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
PROGRAM FOR MOVE CORRESPONDING: We have to write a simple program to demonstrate Move Corresponding. identification division.   program- id.   environment division.

PROGRAM FOR MULTIPLY VERB: We have to write a simple program to elaborate MULTIPLY verb. You can also use the edit characters in the program. Identification division. Pr

Example of constructing an arithmetic expression: An arithmetic expression may be proceeded by a + or - sign. These operations are known as unary + or unary - operators. Il

Format for COBOL Programs: The COBOL is a high-level language. Therefore, a COBOL program can be executed on a computer for which a COBOL compiler exists. The compiler transla

Data types available in COBOL are given below Alpha-numeric (X), numeric (9), alphabetic (A)

Name the divisions in a COBOL program are given below DENTIFICATION DIVISION DATA DIVISION ENVIRONMENT DIVISION PROCEDURE DIVISION.

PROGRAM TO DEMONSTRATE MERGE VERB: The two files for which a record having 2 fields viz. Account Number and Name are already available. Now Merge these two files and create a

DIVIDE VERB: The aim of the DIVIDE verb is to divide one number by the other and to store the result.  There are few forms of this verb. One of its forms is as shown below:

Record Description for the Variable-length Records: When the variable- length records consists of records of various lengths, each record type is to be explained at level 01 f

Buffers: The Modern computers are able of handling I-O operations independent of the CPU by means of the hardware termed as data channel. For illustration, if two buffers a