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).
, (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
PROGRAM FOR RENAMES CLAUSE: identification division. program- id. environment division. data division. working-storage section. 01 emp. 02 empdet.
ROUNDED OPTION: Let us consider the DATA DIVISION entries which are as shown below: Now, subsequent to the execution of the statement ADD A B GIVING C, the C will hold
NESTED IF STATEMENT: The then and else statement of an IF statement can hold other IF statements. The involved IF statements in their turn may also hold other IF statements
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
Rules for constructing an Arithmetic Expression: The rules for constructing an arithmetic expression are as shown below: (i) When an arithmetic expression specifies a calcu
Direct Organization: Besides the relative or indexed organization, also a direct access file can be designed to have what is termed as direct organization. In this organizati
INDEXED TABLES: The OCCURS clause that is used to define tables can optionally have an INDEXED phrase. This phrase involves the names of data items which are to be used as sub
Edit Characters for Numeric Data: The characters below can be used in the PICTURE clause to indicate the editing. Z * $ - + CR DB . , B O /
Valid and Invalid Word - Cobol words: Valid Word Invalid Word & Reason emp-sal -pay ( it starts with a hyphen) TOTAL MARK (blank space em
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: +1-415-670-9521
Phone: +1-415-670-9521
Email: [email protected]
All rights reserved! Copyrights ©2019-2020 ExpertsMind IT Educational Pvt Ltd