NB-076
69 lines
2.5 KiB
COBOL
69 lines
2.5 KiB
COBOL
*> ============================================================
|
|
*> 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.
|