41 lines
1.1 KiB
COBOL
41 lines
1.1 KiB
COBOL
identification division.
|
|
program-id. external1.
|
|
environment division.
|
|
configuration section.
|
|
special-names.
|
|
.
|
|
INPUT-OUTPUT SECTION.
|
|
FILE-CONTROL.
|
|
SELECT ARQ ASSIGN TO "Raw.dat"
|
|
ORGANIZATION IS LINE SEQUENTIAL
|
|
ACCESS MODE IS SEQUENTIAL
|
|
FILE STATUS IS FS.
|
|
|
|
data division.
|
|
file section.
|
|
|
|
FD ARQ external
|
|
LABEL RECORD IS STANDARD.
|
|
01 REG-ARQ.
|
|
03 P-IND PIC 9(03).
|
|
03 DESCRIPTION PIC X(60) VALUE "aaaaaaaaab".
|
|
|
|
working-storage section.
|
|
01 wint external pic x(12).
|
|
77 fs pic 99.
|
|
screen section.
|
|
|
|
procedure division.
|
|
accept wint.
|
|
* display wint
|
|
display "call external1sub (1st time)"
|
|
call "external1sub"
|
|
display "back in main"
|
|
accept wint update
|
|
display "call external1sub (2nd time)"
|
|
call "external1sub"
|
|
display "back in main"
|
|
accept wint update
|
|
stop run.
|
|
|