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
B (Blank Insertion) : The occurrence of a B anyplace in the picture will insert a space character in the edited data. There can be more than one B in the picture. Examples:

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:

Example of Level numbers - cobol programming: To explain the hierarchical structure introduced above, the concept of the level number is employed in COBOL. The most broad

Write a COBOL IF sentence to use the values of numeric variables EXAM and COURSEWORK , both assumed to be with format PIC 999 and in the range 0 to 100 and to move the value:

REWRITE STATEMENT: The REWRITE statement has the format for a relative file as shown below, REWRITE record-name  [ FORM identifier ]

RELATIONAL CONDITION:   We know that a relational condition specifies a comparison between two operands and has the form.     Operand-1    relational-operator   operand-2

Object-Computer - Configuration section: The computer name specifies a specific computer on which the object program is to be executed. The MEMORY SIZE is used to show the

Literals: The actual values can too appear in a program. These values are termed as literals. For illustration, the statement MOVE 0 TO TOTAL indicates that the value zero wil

RULES FOR INDEXED TABLES: The rules of indexing a table with an INDEXED phrase are as shown below: (1) If indexing is completed for any one level of a table, then indexing

Example of read statement: Illustration: READ OLD-MASTER AT END MOVE ZERO TO END-OF-RECORDS. As a result of this statement, generally the next record from the OLD-MAST