P6: Write a program for sorting and merging of files.

IDENTIFICATION DIVISION.
        PROGRAM-ID. SORT-MERGE.
        ENVIRONMENT DIVISION.
        CONFIGURATION SECTION.
        INPUT-OUTPUT SECTION.
        FILE-CONTROL.
             SELECT IN-FILE1 ASSIGN TO DISK
             ORGANIZATION IS LINE SEQUENTIAL.
             SELECT IN-FILE2 ASSIGN TO DISK
             ORGANIZATION IS LINE SEQUENTIAL.
             SELECT OUT-FILE1 ASSIGN TO DISK
             ORGANIZATION IS LINE SEQUENTIAL.
             SELECT OUT-FILE2 ASSIGN TO DISK
             ORGANIZATION IS LINE SEQUENTIAL.
             SELECT OUT-FILE3 ASSIGN TO DISK
             ORGANIZATION IS LINE SEQUENTIAL.
             SELECT SORT-FILE ASSIGN TO DISK
             ORGANIZATION IS LINE SEQUENTIAL.
        DATA DIVISION.
        FILE SECTION.
        FD   IN-FILE1
               LABEL RECORDS ARE STANDARD
               VALUE OF FILE-ID IS "INP1.DAT".
        01   IN-RECORD.
               02 NAME         PIC     X(30).
               02 ROLL-NO      PIC     9(5).
               02 MARKS        PIC     9(3).
        FD   IN-FILE2
               LABEL RECORDS ARE STANDARD
               VALUE OF FILE-ID IS "INP2.DAT".
        01   IN-RECORD.
               02 NAME         PIC     X(30).
               02 ROLL-NO      PIC     9(5).
               02 MARKS        PIC     9(3).
        FD   OUT-FILE1
               LABEL RECORDS ARE STANDARD
               VALUE OF FILE-ID IS "OUT1.DAT".
        01   OUT-RECORD    PIC     X(40).
        FD   OUT-FILE2
               LABEL RECORDS ARE STANDARD
               VALUE OF FILE-ID IS "OUT2.DAT".
        01   OUT-RECORD    PIC     X(40).
        FD   OUT-FILE3
               LABEL RECORDS ARE STANDARD
               VALUE OF FILE-ID IS "OUT3.DAT".
        01   OUT-RECORD    PIC     X(40).
        SD   SORT-FILE.
        01   SORT-RECORD.
               02 SNAME        PIC     X(30).
               02 SROLL-NO     PIC     9(5).
               02 SMARKS       PIC     999.
        PROCEDURE DIVISION.
        MAIN-PARA.
            SORT SORT-FILE ON ASCENDING KEY SNAME USING
            IN-FILE1 GIVING OUT-FILE1.
            SORT SORT-FILE ON ASCENDING KEY SNAME USING
            IN-FILE2 GIVING OUT-FILE2.
            MERGE SORT-FILE ON ASCENDING KEY SNAME USING
            OUT-FILE1 OUT-FILE2 GIVING OUT-FILE3.
            STOP RUN.