IDENTIFICATION DIVISION.
       PROGRAM-ID. SORTVB2A.
       AUTHOR. GROCER.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT INPUT-FILE
               ASSIGN TO "C:\MFCOBOL\SOURCEPG\NEWMSTR.DAT".
           SELECT SELECT-FILE
               ASSIGN TO "C:\MFCOBOL\SOURCEPG\SELMSTR.DAT".
           SELECT SORT-FILE
               ASSIGN TO "C:\MFCOBOL\SOURCEPG\SORTFILE.DAT".
           SELECT OUTPUT-FILE
              ASSIGN TO "C:\MFCOBOL\SOURCEPG\SORTMS2A.DAT".
       DATA DIVISION.
       FILE SECTION.
       FD  INPUT-FILE
           DATA RECORD IS INPUT-REC.
       01  INPUT-REC.
           05  FILLER               PIC X(23).
           05  CODE-TO-SELECT       PIC X.
           05  FILLER               PIC X(12).
       FD  SELECT-FILE
           DATA RECORD IS SELECT-REC.
       01  SELECT-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).
       WORKING-STORAGE SECTION.
       01  INDICATORS.
           05  MORE-RECS            PIC XXX            VALUE "YES".
       PROCEDURE DIVISION.
       MAINLINE.
           PERFORM A-100-INITIALIZE.
           PERFORM B-100-PROCESS.
           PERFORM C-100-TERMINATE.
           STOP RUN.
        A-100-INITIALIZE.
           OPEN INPUT INPUT-FILE
                OUTPUT SELECT-FILE.
        B-100-PROCESS.
           READ INPUT-FILE
               AT END
                   MOVE "NO " TO MORE-RECS.
           PERFORM B-200-LOOP
               UNTIL MORE-RECS = "NO ".
        B-200-LOOP.
           IF CODE-TO-SELECT = "A"
               WRITE SELECT-REC FROM INPUT-REC.
           READ INPUT-FILE
               AT END
                   MOVE "NO " TO MORE-RECS.
       C-100-TERMINATE SECTION.
           CLOSE INPUT-FILE
                 SELECT-FILE.
           SORT SORT-FILE
                ASCENDING KEY SORT-NAME
                USING SELECT-FILE
                GIVING OUTPUT-FILE.