IDENTIFICATION DIVISION. PROGRAM-ID. SRT. ENVIRONMENT DIVISION. FILE-CONTROL. SELECT IN-FILE ASSIGN TO \"INPUT.TXT\" ORGANIZATION IS LINE SEQUENTIAL. SELECT SORT-FILE ASSIGN TO SYSWORK. SELECT OUT-FILE ASSIGN TO \"SORT.TXT\" ORGANIZATION IS LINE SEQUENTIAL. DATA DIVISION. FILE SECTION. FD IN-FILE LABEL RECORDS ARE STANDARD. 01 IN-REC. 05 ROLLNO PIC 99. 05 NAME1 PIC X(10). SD SORT-FILE. 01 SORT-REC. 05 NO1 PIC 99. 05 PIC X(10). FD OUT-FILE LABEL RECORDS ARE STANDARD. 01 OUT-REC. 05 ROLLNO1 PIC 99. 05 NAME2 PIC X(10). WORKING-STORAGE SECTION. 01 EOF PIC X VALUE \'N\'. PROCEDURE DIVISION. BEGIN. SORT SORT-FILE ON ASCENDING KEY NO1 INPUT PROCEDURE PARA1 GIVING OUT-FILE STOP RUN. PARA1. OPEN INPUT IN-FILE PERFORM UNTIL EOF=\'Y\' READ IN-FILE AT END MOVE \'Y\' TO EOF NOT AT END MOVE IN-REC TO SORT-REC RELEASE SORT-REC END-READ END-PERFORM CLOSE IN-FILE. ************************************ OUTPUT ***************************** INPUT.TXT 01APURVA 04NILAY 03KETAN SORT.TXT 01APURVA 03KETAN 04NILAY