COBOL program for MERGE files

      ID DIVISION.
       PROGRAM-ID. MERGE1.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT INFILE1 ASSIGN TO DD1.
           SELECT INFILE2 ASSIGN TO DD2.
           SELECT OUTFILE ASSIGN TO DD3.
           SELECT WRKFILE ASSIGN TO DD4.
       DATA DIVISION.
       FILE SECTION.
       FD INFILE1.
       01 IN-REC1.
        02 ENO PIC 9(3).
        02 FILLER PIC X.
        02 ENAME PIC A(10).
        02 FILLER PIC X(66).
       FD INFILE2.
       01 IN-REC2.
        02 ENO1 PIC 9(3).
        02 FILLER PIC X.
        02 ENAME1 PIC A(10).
        02 FILLER PIC X(66).
       FD OUTFILE.
       01 OUT-REC.
        02 ENO2 PIC 9(3).
        02 FILLER PIC X.
        02 ENAME2 PIC A(10).
        02 FILLER PIC X(66).
       SD WRKFILE.
       01 WRKREC.
        02 ENO3 PIC 9(3).
        02 FILLER PIC X.
        02 ENAME3 PIC A(10).
        02 FILLER PIC X(66).
       WORKING-STORAGE SECTION.
       01 EOF PIC X(10) VALUE 'N'.
       PROCEDURE DIVISION.
           MERGE WRKFILE ON ASCENDING KEY ENO3 OF WRKREC USING INFILE1
           INFILE2 GIVING OUTFILE.
             STOP RUN.