COBOL program for SORT the file

       ID DIVISION.
       PROGRAM-ID. SORT1.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT INFILE ASSIGN TO DD1.
           SELECT OUTFILE ASSIGN TO DD2.
           SELECT WRKFILE ASSIGN TO DD3.
       DATA DIVISION.
       FILE SECTION.
       FD INFILE.
       01 IN-REC.
        02 ENO PIC 9(3).
        02 FILLER PIC X.
        02 ENAME PIC A(10).
        02 FILLER PIC X(66).
       FD OUTFILE.
       01 OUT-REC.
        02 ENO1 PIC 9(3).
        02 FILLER PIC X.
        02 ENAME1 PIC A(10).
        02 FILLER PIC X(66).
       SD WRKFILE.
       01 WRKREC.
        02 ENO2 PIC 9(3).
        02 FILLER PIC X.
        02 ENAME2 PIC A(10).
        02 FILLER PIC X(66).
       WORKING-STORAGE SECTION.
       01 EOF PIC X(10) VALUE 'N'.
       PROCEDURE DIVISION.
           SORT WRKFILE ON ASCENDING KEY ENO2 OF WRKREC INPUT PROCEDURE
           IS PARA-100 GIVING OUTFILE.
             STOP RUN.
       PARA-100.
           OPEN INPUT INFILE
           PERFORM UNTIL EOF='Y'
           READ INFILE
           AT END
           MOVE 'Y' TO EOF
           NOT AT END
           IF ENAME='RATNESH'
           RELEASE WRKREC FROM IN-REC
           END-IF
           END-READ
           END-PERFORM.
       PARA-100-EXIT.
           EXIT.