Sorting

       IDENTIFICATION DIVISION.
       PROGRAM-ID.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT FILE1 ASSIGN TO DISK
           ORGANIZATION IS LINE SEQUENTIAL.
           SELECT FILE2 ASSIGN TO DISK
           ORGANIZATION IS LINE SEQUENTIAL.
           SELECT WFILE ASSIGN TO DISK.
       DATA DIVISION.
       FILE SECTION.
       FD FILE1
           LABEL RECORDS ARE STANDARD
           VALUE OF FILE-ID "STUD.DAT".
       01 FILE1-REC.
           02 RNO PIC 9(5).
           02 SN PIC X(20).
           02 CL PIC X(5).
           02 MARKS PIC 9(3).
       FD FILE2
           LABEL RECORDS ARE STANDARD
           VALUE OF FILE-ID "STRSTD.DAT".
       01 FILE2-REC PIC X(33).
       SD WFILE.
       01 S-REC.
           02 SRNO PIC 9(5).
           02 SSN PIC X(20).
           02 SCL PIC X(5).
           02 SMARKS PIC 9(3).
       PROCEDURE DIVISION.
       MAIN-PARA.
           SORT WFILE ON ASCENDING KEY SRNO
                USING FILE1 GIVING FILE2.
           STOP RUN.