IDENTIFICATION DIVISION.
       PROGRAM-ID. SORTVB3.
       AUTHOR. GROCER.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT INPUT-FILE
               ASSIGN TO "C:\MFCOBOL\SOURCEPG\NEWMSTR.DAT".
           SELECT SORT-FILE
               ASSIGN TO "C:\MFCOBOL\SOURCEPG\SORTFILE.DAT".
           SELECT OUTPUT-FILE
              ASSIGN TO "C:\MFCOBOL\SOURCEPG\SORTMST3.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  CODE-TO-CHANGE      PIC X.
           05  FILLER               PIC X(12).
       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.
           SORT SORT-FILE
               ON ASCENDING KEY SORT-NAME
               USING INPUT-FILE
               OUTPUT PROCEDURE B-100-SORT-ROUTINE.
           PERFORM C-100-TERMINATE.
           STOP RUN.
        A-100-INITIALIZE.
           OPEN OUTPUT OUTPUT-FILE.
        B-100-SORT-ROUTINE.
           RETURN SORT-FILE
               AT END
                   MOVE "NO " TO MORE-RECS.
           PERFORM B-200-CHANGE-RECORDS
               UNTIL MORE-RECS = "NO ".
        B-200-CHANGE-RECORDS.
           MOVE "2" TO CODE-TO-CHANGE.
           WRITE OUTPUT-REC FROM SORT-REC.
           RETURN SORT-FILE
               AT END
                   MOVE "NO " TO MORE-RECS.
       C-100-TERMINATE.
           CLOSE OUTPUT-FILE.