PROGRAM FOR INDEXED SEQUENTIAL FILE CREATION:
We have to write a program to create an Indexed Sequential File in a dynamic mode for Student particulars. Suppose just 3 fields: rno(Roll Number), cl (Class) and m(Mark). Read the file and display the records.
identification division.
program- id.
environment division.
input-output section.
file-control.
select stu- file assign to disk
organization is indexed
access mode is dynamic
record key is rno
file status is fs.
data division.
file section.
fd stu- file
label records are standard
value of file- id is 'stu.dat'.
01 stu-rec.
02 rno pic 9(3).
02 cl pic x(4).
02 m pic 9(3).
working-storage section.
01 ans pic x value space.
01 a-rno pic 9(3) value 0.
01 fs pic x(2) value spaces.
procedure division.
p-1.
open i-o stu-file.
if fs = "30"
open output stu-file
close stu-file
open i-o stu-file.
perform g-w-para until ans = 'n'.
go to p-2.
g-w-para.
display(1 1) erase.
display "Enter Data :".
accept rno.
accept cl.
accept m.
write stu-rec invalid key
display "Record Exists!".
display "Continue [y/n] : ".
accept ans.
p-2.
display(1 1) erase.
display(3 5) "Give Roll No : ".
accept a-rno.
move a-rno to rno.
read stu- file key is rno
invalid key
display(10 5) "No Record Found"
go to c-para.
display(5 5) "Rno = " rno.
display(7 5) "Class = " cl.
display(9 5) "Mark = " m.
c-para.
display(20 5) "Continue [y/n]: ".
accept ans.
if ans = 'y' or 'Y' go to p-2.
close stu-file.
stop run.