IDENTIFICATION DIVISION.
        PROGRAM-ID. SORTING.

       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 WORK-NAME PIC X(7).
            05 FILLER PIC X(4).

         FD SORTED-FILE
           VALUE OF FILE-ID IS "SORT1.OUT".
         01 OUT-REC PIC X(80).

        WORKING-STORAGE SECTION.

       PROCEDURE DIVISION.

           SORT WORK-FILE
                ON ASCENDING KEY WORK-NAME
                USING UNSORTED-FILE
                GIVING SORTED-FILE.

           STOP RUN.


/***********************************************************************************************
                INPUT FILE - SORT.INP
**********************************************************************************************/

            
prem     44
ramesh   29
hemang   55
dipesh   16
harshal  74
nitin    34
amit     35

/***********************************************************************************************
                OUT FILE - SORT1.OUT
***********************************************************************************************/

            
amit      35
dipesh    16
harshal   74
hemang    55
nitin     34
prem      44 
ramesh    29