18 lines
423 B
COBOL
18 lines
423 B
COBOL
identification division.
|
|
program-id. external1sub.
|
|
environment division.
|
|
configuration section.
|
|
special-names.
|
|
.
|
|
data division.
|
|
file section.
|
|
working-storage section.
|
|
01 wint external pic x(12).
|
|
LINKAGE SECTION.
|
|
procedure division.
|
|
accept wint update.
|
|
* display wint
|
|
* accept wint update
|
|
exit program.
|
|
|