IDENTIFICATION DIVISION.
           PROGRAM-ID. TBN01001T.
       ENVIRONMENT DIVISION.
           INPUT-OUTPUT SECTION.
               FILE-CONTROL.
                   SELECT F1 ASSIGN TO "C:\Users\Thomas\Documents\Visual Studio 2012\Projects\Readings\input.txt"
                       ORGANIZATION IS LINE SEQUENTIAL.

       DATA DIVISION.
           FILE SECTION.
               FD  F1
                   RECORD CONTAINS 12 CHARACTERS.
                   01  F1-TOTAL-REC PIC X(12).


           WORKING-STORAGE SECTION.
               77  F1-STATUS PIC X VALUE SPACES.

               01  F1-RECORD.
                   02  F1-NR    PIC 9(4).
                   02  F1-PRG   PIC X(8).
                   02  F1-PARAM PIC X(50).


       PROCEDURE DIVISION.
       A001 SECTION.
       A001-1.
           OPEN INPUT F1
               READ F1 INTO F1-RECORD
                   AT END MOVE "S" TO F1-STATUS
               END-READ

               PERFORM UNTIL F1-STATUS = "S"

                   EVALUATE F1-PRG
                       WHEN "TBN01002T"
                           CALL "TBN01002T"
                       WHEN OTHER
                           CONTINUE
                   END-EVALUATE

                   READ F1 INTO F1-RECORD
                       AT END MOVE "S" TO F1-STATUS
                   END-READ

               END-PERFORM
           CLOSE F1

           STOP RUN
           .