Program using occurs clause, COBOL Programming

PROGRAM USING OCCURS CLAUSE:

We have to write a simple program to demonstrate Occurs Clause. Get the employee details for 3 persons and compute the total salary.

identification division.

  program- id. emp-occurs.

  environment division.

  data division.

  working-storage section.

  01  emp-rec.

    02 emp-det occurs 3 times.

      05 emp-name  pic x(20).

      05 emp-sal   pic 9(5)v9(2).

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

  01 head-2.

    02  f  pic x(15) Value spaces.

    02  f  pic x(20) value "NAME".

    02  f  pic x(15) Value spaces.

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

    02  f pic x(20) value spaces.

01 head-3.

  02  f pic x(15) value spaces.

  02  e-name pic x(20).

  02  f  pic x(15) Value spaces.

  02  e-sal   pic z(5).z(2).

  02  f  pic x(22) Value spaces.

01   i  pic 9 value 1.

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

01   e-tot-sal pic z(6).z(2).

procedure division.

para-1.

  display(1 1) erase.

  display(3 5) "Enter Data for 3 Employees...".

  perform get-para 3 times.

  display head-1.

  display head-2.

  display head-1.

  move 1 to i.

  perform disp-para until i > 3.

  display head-1.

  move tot-sal to e-tot-sal.

  display "Total Salary = " e-tot-sal.

  display " ".

  stop run.

get-para.

  display(1 1) erase.

  display(5 5) "Name :  ".

  accept emp-name(i).

  display(10 5) "Salary : ".

  accept emp-sal(i).

  add 1 to i.

disp-para.

  move  emp-name(i) to e-name.

  move  emp-sal(i)  to e-sal.

  compute tot-sal = tot-sal + emp-sal(i).

  display head-3.

  add 1 to i.

Posted Date: 10/18/2012 2:05:20 AM | Location : United States







Related Discussions:- Program using occurs clause, Assignment Help, Ask Question on Program using occurs clause, Get Answer, Expert's Help, Program using occurs clause Discussions

Write discussion on Program using occurs clause
Your posts are moderated
Related Questions
PERFORM WITH TIMES OPTION: The format of a PERFORM TIMES statement is as shown below: Illustration:   A)  Perform the para-2 5 times. In this situation the specifie

PERFORM STATEMENT:   The PERFORM statement can be used to execute the group of consecutive statements written elsewhere in the program. We refer to this group of statements a

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.

SEQUENTIAL FILES WITH THE VARIABLE-LENGTH RECORDS: The Magnetic - tape or disk files can hold variable-length records. In this situation the file can have records with various

RELATIVE FILES: The Files that are stored on a direct access storage medium like magnetic disk are frequently known as direct access files. The COBOL supports three different

PROGRAM FOR SIMPLE PERFORM: We have to write a program to elaborate simple PERFORM statement Identification division. Program- id.  Perf1. Environment division. Da

Illustration of the abbreviation: A few illustration of the abbreviation are given below: Illustration: The compound condition  AMOUNT GREATER THAN 499 AND AMOUNT L

MULTIPLY VERB:   The Multiply Verb causes one or more multiplicands to be multiplied by the multiplier and to store the products. The form of the MULTIPLY verb is as shown be

PROGRAM FOR PERFORM - THRU: We have to write a program to elaborate PERFORM ...THRU statement Identification division. Program- id.  Perfthru. Environment division.

NEGATED SIMPLE CONDITION: Any of the easy condition explained can be preceded by the logical operator NOT. The consequence of placing the operator NOT before an easy condition