Program for Sequential File Creation & Rewriting
We have to write a program to create a Length file with just two fields: l (Length) and l-c (Length-Code). Add a few records. Change the record with l-c =1 as l-c=5. Use sequential file I-O.
identification division.
program- id.
environment division.
input-output section.
file-control.
select len- file assign to disk.
data division.
file section.
fd len- file
label records are standard
value of file- id is "len.dat".
01 len-rec.
02 l pic 9(2).
02 l-c pic 9(1).
working-storage section.
01 ans pic x value space.
01 eof pic x value space.
screen section.
01 cls-screen.
02 blank screen.
01 get-screen.
02 line 3 column 5 value "Length = ".
02 column plus 3 pic 9(2) to l auto bell.
02 line 5 column 5 value "Code = ".
02 column plus 3 pic 9 to l-c bell reverse-video.
procedure division.
p-1.
open output len-file.
perform g-w-para until ans = 'n' or 'N'.
close len- file.
open i-o len- file.
read len- file at end move 'y' to eof.
perform rewrite-para until eof = 'y'.
close len- file.
stop run.
g-w-para.
display cls-screen.
display get-screen.
accept get-screen.
write len-rec.
display (10 5) "Continue [y/n] :".
accept ans.
rewrite-para.
if l-c = 1
move 5 to l-c
rewrite len-rec.
read len- file at end move 'y' to eof.