EXTERNAL FD:
SHARING FILES BETWEEN SEVERAL PROGRAMS.
EVERY FD SHOULD BE EXTERNAL, SO IT CAN BE PUT INTO THE COPYBOOK.
EXAMPLE:
COPYBOOK CONTENT:
FILE SECTION.
FD EXTFL IS EXTERNAL.
01 FS-RECORD-INFO PIC X(80).
G963CRFL:
....
PROCEDURE DIVISION.
A000-MAIN-PARA.
OPEN INPUT EXTFL.
INITIALIZE WS-RECORD-INFO.
CALL 'G963CDFL' USING BY REFERENCE WS-RECORD-INFO.
DISPLAY WS-RECORD-INFO.
CLOSE EXTFL.
STOP RUN.
G963CDFL:
...
READ EXTFL NEXT RECORD
INTO WS-RECORD-INFO
END-READ.
DISPLAY WS-RECORD-INFO.
MOVE WS-RECORD-INFO TO LK-RECORD-INFO.
EXIT PROGRAM.
OUTCOME:
THIS IS THE EXTERNAL FILE TESTING.
THIS IS THE EXTERNAL FILE TESTING.
4:43 PM 2/20/2012