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

作为子目录纳入系统，与核心测试管道协同 Co-Authored-By: Claude <noreply@anthropic.com>
2026-06-25 09:53:21 +08:00
parent 50f9f0f52f
commit 94400d50d4
278 changed files with 44125 additions and 0 deletions
@@ -0,0 +1,68 @@
+      *> ============================================================
+      *> test-cics-driver : 客户在线照会测试驱动 (CICS Test Driver)
+      *> Input : COMMAREA (模拟CICS通信区域)
+      *> Output: CALL結果 (在线照会处理)
+      *> Coverage: OL-N001~N004, OL-A001, OL-R001
+      *> ============================================================
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. TestCicsDriver.
+
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+       01 WS-COMMAREA.
+           05 WS-CA-USERID      PIC X(08).
+           05 WS-CA-FUNCTION    PIC X(04).
+           05 WS-CA-INPUT-DATA  PIC X(40).
+           05 WS-CA-RETURN-CODE PIC 9(02).
+           05 WS-CA-MESSAGE     PIC X(40).
+
+       01 WS-TEST-CASE          PIC 9(01) VALUE 1.
+       01 WS-INVOICE-REC.
+           COPY "telecom/TEL-INVOICE.cpy".
+
+       PROCEDURE DIVISION.
+       MAIN-PROCEDURE.
+
+           DISPLAY "=== CICS Driver - Test Suite ===".
+
+      *> Test 1: INQUIRY function
+           DISPLAY "Test 1: INQUIRY".
+           MOVE "USER001 " TO WS-CA-USERID.
+           MOVE "INQY"     TO WS-CA-FUNCTION.
+           MOVE "Customer account balance inquiry       "
+               TO WS-CA-INPUT-DATA.
+           CALL 'Main14OnlineCics' USING WS-COMMAREA.
+           DISPLAY "  RC=" WS-CA-RETURN-CODE
+                   " MSG=" WS-CA-MESSAGE.
+
+      *> Test 2: UPDATE function
+           DISPLAY "Test 2: UPDATE".
+           MOVE "USER002 " TO WS-CA-USERID.
+           MOVE "UPDT"     TO WS-CA-FUNCTION.
+           MOVE "Update customer address record         "
+               TO WS-CA-INPUT-DATA.
+           CALL 'Main14OnlineCics' USING WS-COMMAREA.
+           DISPLAY "  RC=" WS-CA-RETURN-CODE
+                   " MSG=" WS-CA-MESSAGE.
+
+      *> Test 3: DELETE function
+           DISPLAY "Test 3: DELETE".
+           MOVE "USER003 " TO WS-CA-USERID.
+           MOVE "DEL "     TO WS-CA-FUNCTION.
+           MOVE "Delete obsolete customer record        "
+               TO WS-CA-INPUT-DATA.
+           CALL 'Main14OnlineCics' USING WS-COMMAREA.
+           DISPLAY "  RC=" WS-CA-RETURN-CODE
+                   " MSG=" WS-CA-MESSAGE.
+
+      *> Test 4: UNKNOWN function
+           DISPLAY "Test 4: UNKNOWN function".
+           MOVE "USER004 " TO WS-CA-USERID.
+           MOVE "BAD!"     TO WS-CA-FUNCTION.
+           MOVE "This should return error code 99       "
+               TO WS-CA-INPUT-DATA.
+           CALL 'Main14OnlineCics' USING WS-COMMAREA.
+           DISPLAY "  RC=" WS-CA-RETURN-CODE
+                   " MSG=" WS-CA-MESSAGE.
+
+           STOP RUN.