NB-076
57 lines
2.1 KiB
COBOL
57 lines
2.1 KiB
COBOL
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.
|