COBOL program for SORT using INFILE

       ID DIVISION.
       PROGRAM-ID. SORT2.
       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 USING INFILE OUTPUT
           PROCEDURE IS PARA-100.
             STOP RUN.
       PARA-100.
           OPEN OUTPUT OUTFILE
           PERFORM UNTIL EOF='Y'
           RETURN WRKFILE
           AT END
           MOVE 'Y' TO EOF
           NOT AT END
           IF ENAME2='RATNESH'
           WRITE OUT-REC FROM WRKREC
           END-IF
           END-RETURN
           END-PERFORM.
       PARA-100-EXIT.
           EXIT.