*********************
INPUT FILE - SORT.INP
*********************
PREM06
AMIT01
VISHAL46
SANJAY24

*********************                
CODE FILE - SORT.CBL
*********************

       IDENTIFICATION DIVISION.
        PROGRAM-ID. SORT1.

       ENVIRONMENT DIVISION.

        CONFIGURATION SECTION.
         SOURCE-COMPUTER. IBM-PC.
         OBJECT-COMPUTER. IBM-PC.

        INPUT-OUTPUT SECTION.
         FILE-CONTROL.

           SELECT UNSORTED-FILE ASSIGN TO DISK
           ORGANIZATION IS LINE SEQUENTIAL.

           SELECT WORK-FILE ASSIGN TO SYSWORK.

           SELECT SORTED-FILE ASSIGN TO DISK
           ORGANIZATION IS LINE SEQUENTIAL.

       DATA DIVISION.

        FILE SECTION.

         FD UNSORTED-FILE
           VALUE OF FILE-ID IS "SORT.INP".
         01 IN-REC.
            05 IN-NAME PIC X(7).
            05 FILLER PIC XX.
            05 IN-AGE PIC 99.


         SD WORK-FILE.
         01 WORK-REC.
            05 FILLER PIC X(9).
            05 WORK-AGE PIC 99.

         FD SORTED-FILE
           VALUE OF FILE-ID IS "SORT.OUT".

         01 OUT-REC PIC X(80).


        WORKING-STORAGE SECTION.

       PROCEDURE DIVISION.

           SORT WORK-FILE
                ON DESCENDING KEY WORK-AGE
                USING UNSORTED-FILE
                GIVING SORTED-FILE.

           STOP RUN.

*********************
OUPUT FILE - SORT.OUT
*********************
AMIT     01
PREM     06
SANJAY   24
VISHAL     46