in a indexed file what is procedure for read the records
from 12 to 18. please give the code example

Answer Posted / santhosh vayathuri

use fallowing code

file-control
organization is indexed.
access mode is dynamic
record key is eno


procedure division

move 12 to eno


perform readpara until fnd = yes

stop run.

readpara.
read file1
if eno = 18
move 'yes' to fnd
end-if.

Is This Answer Correct ?    2 Yes 1 No



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

input= ,,,, mainframe training ,,, hyderabad .... location.... output1=$ mainframe training in hyderabad location$ output2=**** mainframe training in hyderabad location ****. In this pgn when we give input considering the spaces the output is displayed in this format.Like in the place of ,,,, $ should be displayed likewise.So please helpmeout.

1783


Are you comfortable in cobol or jcl?

643


How to print 10 to 1 if the input have only 10 digit number?

811


What is the difference between comp and comp-3?

704


How do define dynamic array in cobol.

671






how do you reference the variable block file formats from cobol programs

686


How do you reference the fixed block file formats from cobol programs

705


how do you reference the rrds file formats from cobol programs

800


How to get the last record in vsam file in cluster? And how can you get the ksds file records into cobol program?

710


1.give the details about WHEN OTHER. 2. how many form are available in evaluate.

1614


What is difference between static and dynamic call in cobol?

777


What is redefines clause in COBOL?

851


What are various search techniques in cobol? Explain.

650


Write a program to enter and display the names of students in a class using the occurs clause.

654


how do you reference the variable unblock file formats from cobol programs

748