IDENTIFICATION DIVISION.
       PROGRAM-ID. TADRIVER.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 LK-STATUS            PIC S9(08) COMP.

       01 COMMONMEMORY GLOBAL EXTERNAL.
           03 CM-TARIFF-TABLE.
               05 CM-TP-ENTRY OCCURS 5 TIMES.
                   10 CTP-CODE      PIC X(03).
                   10 CTP-NAME      PIC X(08).
                   10 CTP-BASE-FEE  PIC 9(09) COMP.
                   10 CTP-UNIT-PRICE PIC 9(04) COMP.
                   10 CTP-FREE-SEC  PIC 9(09) COMP.
                   10 CTP-OVER-PRICE PIC 9(04) COMP.
                   10 CTP-ROAM-PRICE PIC 9(04) COMP.
                   10 CTP-SMS-PRICE PIC 9(04) COMP.
                   10 CTP-DATA-PRICE PIC 9(04) COMP.
           03 CM-TARIFF-COUNT  PIC 9(02) COMP.
           03 CM-TEST-COUNT    PIC 9(02) COMP.
           03 CM-TEST-DATA.
               05 CMT-ENTRY OCCURS 8 TIMES.
                   10 CMT-ID        PIC X(10).
                   10 CMT-CALLER    PIC X(11).
                   10 CMT-CALLEE    PIC X(11).
                   10 CMT-START     PIC X(14).
                   10 CMT-DURATION  PIC 9(09) COMP.
                   10 CMT-TYPE      PIC X(02).
                   10 CMT-ROAM      PIC X(01).
           03 CM-COMMIT-COUNT  PIC 9(04) COMP.
           03 CM-PROC-COUNT    PIC 9(08) COMP.

       PROCEDURE DIVISION.
       0000-DRIVER SECTION.
           DISPLAY "TA-DRIVER: Starting"

           CALL "TABEGIN" USING LK-STATUS
           IF LK-STATUS NOT = 0
               DISPLAY "ABORT: TABEGIN failed status=" LK-STATUS
               STOP RUN RETURNING 1
           END-IF

           DISPLAY "TA-DRIVER: BEGIN OK, tariff=" CM-TARIFF-COUNT
                   " cdrs=" CM-TEST-COUNT

           CALL "TAMAIN" USING LK-STATUS
           IF LK-STATUS NOT = 0
               DISPLAY "ABORT: TAMAIN failed status=" LK-STATUS
               STOP RUN RETURNING 1
           END-IF

           DISPLAY "TA-DRIVER: MAIN OK, total-proc=" CM-PROC-COUNT
           DISPLAY "TA-DRIVER: Normal end"
           STOP RUN RETURNING 0.

       END PROGRAM TADRIVER.