hangshuo652/cobol-java-v3
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

feat: add benchmark-programs — 58 telecom COBOL test programs

Browse Source 
作为子目录纳入系统，与核心测试管道协同

Co-Authored-By: Claude <noreply@anthropic.com>
This commit is contained in:
NB-076
2026-06-25 09:53:21 +08:00
parent 50f9f0f52f
commit 94400d50d4
278 changed files with 44125 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
benchmark-programs/36-billing-calc/TA-DRIVER.cbl
+56
View File
@@ -0,0 +1,56 @@
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.