*> ============================================================
      *> 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.