56 lines
2.0 KiB
COBOL
56 lines
2.0 KiB
COBOL
$set ans85 mf noosvs
|
|
************************************************************
|
|
* *
|
|
* (C) Micro Focus Ltd. 1989 *
|
|
* *
|
|
* DECLARE.CBL *
|
|
* *
|
|
* This program demonstrates how to use declaratives. *
|
|
* *
|
|
************************************************************
|
|
|
|
select input-file assign to file-name
|
|
organization sequential
|
|
file status is file-stat.
|
|
|
|
data division.
|
|
file section.
|
|
|
|
fd input-file.
|
|
01 input-rec pic x(80).
|
|
|
|
working-storage section.
|
|
01 file-stat.
|
|
03 f-stat-1 pic x.
|
|
03 f-stat-2 pic x.
|
|
03 f-stat-2-bin redefines f-stat-2
|
|
pic 9(2) comp-x.
|
|
01 stat-disp.
|
|
03 disp1 pic x.
|
|
03 filler pic x.
|
|
03 disp2 pic 9(3).
|
|
|
|
procedure division.
|
|
declaratives.
|
|
dec-laratives section.
|
|
use after standard error procedure on input-file.
|
|
move f-stat-1 to disp1
|
|
if f-stat-1 = "9"
|
|
move f-stat-2-bin to disp2
|
|
else
|
|
move f-stat-2 to disp2
|
|
end-if
|
|
display "file status :" at 1029
|
|
display stat-disp at 1049
|
|
stop run.
|
|
end declaratives.
|
|
|
|
main section.
|
|
sta-rt.
|
|
display spaces upon crt
|
|
display "enter a non-existant file name :" at 0810
|
|
accept file-name at 0849
|
|
open input input-file
|
|
display "Open worked. Try a different filename."
|
|
stop run.
|