Already have an account? Get multiple benefits of using own account!
Login in your account..!
Remember me
Don't have an account? Create your account in less than a minutes,
Forgot password? how can I recover my password now!
Enter right registered email to receive password!
OCCURS - INDEXED BY PROGRAM:
identification division.
program- id. searching.
environment division.
data division.
working-storage section.
01 table1.
02 data1 occurs 10 times indexed by a1.
03 name pic x(25).
03 sal pic 9(6).
01 n pic 9 value 0.
01 tot pic 9(2) value 0.
01 i pic 9 value 0.
procedure division.
p-1.
display(1 1) erase.
display(5 5) "Enter Data .....".
display(7 5) "Enter No.of Records : ".
accept n.
perform init-para varying i from 1 by 1 until i > n.
perform get-para varying i from 1 by 1
until i > n.
set a1 to 1.
p-2.
search data1 at end go to p-3
when sal (a1) > 1000
add 1 to tot.
set a1 up by 1
go to p-2.
p-3.
display(20 5) "Total Records > 1000 [sal] = " tot.
stop run.
get-para.
display(3 5) "Name : ".
accept name (i).
display(5 5) "Salary : ".
accept sal (i).
init-para.
move spaces to name(i).
move 0 to sal(i).
Illustration of if- else statement: IF OK-BALANCE NEXT SENTENCE ELSE MOVE 2 BALANCE-CODE In this illustration, the OK-BALANCE is a condition name. No action is specific if
TO WRITE A QUADRATIC EQN ROOTS ARE COMPLEX IN COBOL PROGRAM
Block Size: The normal practice is to group a number of consecutive records to form that is termed as a block or a physical record. The number of records in a block is frequen
Picture Clause: The picture clause explains the general characteristics of an elementary data item. These characteristics are elaborated below: Class: In COBOL the
Example of Move corresponding: Consider the DATA DIVISION entries shown below. Suppose it is needed that the data stored in the 4 fields of the PAY_REC should be
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
Minus sign - edit characters for numeric data: The minus sign can appear either at the leftmost or rightmost location of the picture. If an item is negative, a minus sign will
Illustration of the abbreviation: A few illustration of the abbreviation are given below: Illustration: The compound condition AMOUNT GREATER THAN 499 AND AMOUNT L
START STATEMENT: The START statement places the files to the initial logical record whose record key satisfies the condition specified by the KEY phrase. The access mode shoul
PROCEDURE DIVISION statements for the relative files: The statements OPEN, CLOSE, READ, WRITE and REWRITE that are available for sequential files are also available for the re
Get guaranteed satisfaction & time on delivery in every assignment order you paid with us! We ensure premium quality solution document along with free turntin report!
whatsapp: +91-977-207-8620
Phone: +91-977-207-8620
Email: [email protected]
All rights reserved! Copyrights ©2019-2020 ExpertsMind IT Educational Pvt Ltd