PROGRAM FOR SCREEN SECTION WITH FILES:
identification division.
program- id.
environment division.
input-output section.
file-control.
select stu- file assign to disk
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 name pic x(20).
02 mark pic 9(3).
working-storage section.
01 ans pic x value space.
01 eof pic x value space.
01 fs pic x(2) value spaces.
screen section.
01 get-screen.
02 line 3 column 5 value "Name : ".
02 line 3 column 15 pic x(5)
to name auto bell reverse-video.
02 line 5 column 5 value "Mark : ".
02 line 5 column 15 pic 9(3) to mark bell blink.
02 line 7 column 5 value "Continue [y/n] : ".
02 column plus 3 pic x to ans bell blink.
01 b-screen.
02 blank screen.
01 put-screen.
02 line 3 column 25 value "Name : " highlight.
02 column plus 2 pic x(20) from name blink.
02 line 5 column 25 value "Mark : " blink.
02 column plus 2 pic 9(3) from mark underline.
procedure division.
p-1.
display b-screen.
open output stu-file.
display " File Staus Value ... Exhibit ... display..".
exhibit fs.
display fs.
display " Press a Key!".
accept ans.
perform g-w-para until ans = 'n'.
close stu-file.
move space to ans.
open input stu-file.
read stu- file at end move 'y' to eof.
perform disp-para until eof = 'y'.
close stu-file.
stop run.
g-w-para.
display b-screen.
display get-screen.
accept get-screen.
write stu-rec.
disp-para.
display (1 1) erase.
display put-screen.
display (15 5) "Press any Key ! ".
accept ans.
read stu- file at end move 'y' to eof.