| Cevela about COBOL | COBOL language - Home - Site Map - About Cevela - MX COBOL <prev next> |
68-1
object-computer.
sequence Abc-1.
special-names.
alphabet Abc-1 Char-1 thru Char-2 .
Char-3 ...
file-control.
select File-1
assign Dev-1.
file section.
sd File-1.
1 Rec-1.
2 Dat-2 data-spec*
2 Dat-3 data-spec*
2 ..
procedure division.
..
sort File-1
key-spec*
ascending Dat-2 ...
descending Dat-3 ...
[duplicates]
[sequence Abc-1]
input-spec*
/ input procedure Proc-2
/ using File-2 ...
output-spec*
/ output procedure Proc-3
/ giving File-3 ...
..
Proc-2.
.. release Rec-1 ..
Proc-3.
.. return File-1 ..
|
68-1
sort File-1
key-spec*
ascending Dat-2 ...
descending Dat-3 ...
[duplicates]
[sequence Abc-1]
input-spec*
/ input procedure Proc-2
/ using File-2 ...
output-spec*
/ output procedure Proc-3
/ giving File-3 ...
|
68-1
release Rec-1 [from Dat-2]
Lit-2
|
68-1
return File-1 [into Dat-2]
end
imperative-statements-3*
[not end 85-1
imperative-statements-4*]
end-of-statement*
end-return
.
|