* ==== TYPE: MT03 MATCHING(N:1) ====
      * FEATURE: N master files, 1 transaction file
      * BRANCHES: 6, DECISIONS: 3
       IDENTIFICATION DIVISION.
       PROGRAM-ID. MT03.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT FILE-M ASSIGN TO 'FILEM.DAT'.
           SELECT FILE-T ASSIGN TO 'FILET.DAT'.
       DATA DIVISION.
       FILE SECTION.
       FD FILE-M.
       01 REC-M PIC X(80).
       FD FILE-T.
       01 REC-T PIC X(80).
       WORKING-STORAGE SECTION.
       01 WS-KEY-M PIC X(10).
       01 WS-KEY-T PIC X(10).
       01 WS-M-EOF PIC X VALUE 'N'.
       01 WS-T-EOF PIC X VALUE 'N'.
       01 WS-COUNT   PIC 9(4) VALUE 0.
       PROCEDURE DIVISION.
       MAIN-PROCEDURE.
           OPEN INPUT FILE-M FILE-T.
           READ FILE-M INTO REC-M
               AT END MOVE 'Y' TO WS-M-EOF.
           READ FILE-T INTO REC-T
               AT END MOVE 'Y' TO WS-T-EOF.
           PERFORM UNTIL WS-M-EOF = 'Y' OR WS-T-EOF = 'Y'
               IF WS-KEY-M = WS-KEY-T
                   ADD 1 TO WS-COUNT
                   DISPLAY 'MATCHED: ' REC-M(1:50)
                   READ FILE-M AT END MOVE 'Y' TO WS-M-EOF
               ELSE IF WS-KEY-M < WS-KEY-T
                   READ FILE-M AT END MOVE 'Y' TO WS-M-EOF
               ELSE
                   DISPLAY 'TRAN ONLY: ' REC-T(1:50)
                   READ FILE-T AT END MOVE 'Y' TO WS-T-EOF
               END-IF
           END-PERFORM.
           DISPLAY 'TOTAL MATCHED: ' WS-COUNT.
           CLOSE FILE-M FILE-T.
           STOP RUN.