IDENTIFICATION DIVISION.
       PROGRAM-ID. SORTVB1.
       AUTHOR. GROCER.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT INPUT-FILE
               ASSIGN TO "C:\PCOBWIN\SORT\NEWMSTR.DAT".
           SELECT SORT-FILE
               ASSIGN TO "C:\PCOBWIN\SORT\SORTFILE.DAT".
           SELECT OUTPUT-FILE
              ASSIGN TO "C:\PCOBWIN\SORT\SORTMSTR.DAT".
       DATA DIVISION.
       FILE SECTION.
       FD  INPUT-FILE
           DATA RECORD IS INPUT-REC.
       01  INPUT-REC                PIC X(36).
       SD  SORT-FILE
           DATA RECORD IS SORT-REC.
       01  SORT-REC.
           05  FILLER               PIC XXX.
           05  SORT-NAME            PIC X(20).
           05  FILLER               PIC X(13).
       FD  OUTPUT-FILE
           DATA RECORD IS OUTPUT-REC.
       01  OUTPUT-REC               PIC X(36).
       PROCEDURE DIVISION.
       MAINLINE.
           SORT SORT-FILE
               ON ASCENDING KEY SORT-NAME
               USING INPUT-FILE
               GIVING OUTPUT-FILE.
           STOP RUN.