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).
PROCEDURE DIVISION statements for the indexed files: All the statements which are available for a relative file are also available for an indexed file. READ STTATEMENT :
WRITE STATEMENT: The WRITE Statement verb releases a record in an output file. The syntax for the WRITE statement can be unlike depending on the output device and the medium us
Can we declare a redefine clause as below? A Redefines B, PIC X(4)
, (Comma) : A comma, whenever used in a picture, is considered as an insertion character and inserted wherever it become visible. There can be more than one comma in the pictu
REDEFINES CLAUSE: At times it may be found that two or more storage regions defined in the DATA DIVISION are not in use concurrently. In such situations only one storage regio
OPEN statement: We know that the processing of a file should start with the execution of an OPEN statement. The file can be opened in any one of the 4 open modes - INPUT, OUTP
SPECIAL-NAMES: This paragraph is used to associate some hardware names to the user-specified mnemonic names. This paragraph is elective in all compilers. The format of this pa
Illustration of indexed tables: Index items defined through the INDEXED phrase of the OCCURS clause are one type of indexes. There can be other type of index items that are de
Group Item as Operand in the Relational Condition: Whenever an operand of a relational condition is the group item, the item is then considered to be an alphanumeric field. Th
Structure of a COBOL Program: Every COBOL program should have the 4 divisions in the order in which they are specified below: 1. Identification division 2. Environment D
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