EXTERNAL FD

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