NB-076
792 lines
28 KiB
COBOL
792 lines
28 KiB
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. Main02Matching1N.
|
|
*> ============================================================
|
|
*> 02-matching-1-N : 合同↔通话明细匹配 (Contract↔CDR 1:N)
|
|
*> Input : master.dat (合同文件: 按CONTRACT-ID排序)
|
|
*> detail.dat (通话明细: 按CONTRACT-ID排序)
|
|
*> Output: output.dat (合同关联的通话明细清单)
|
|
*> error.dat (未关联CDR/合同)
|
|
*> audit-report.txt (审计报告: 处理统计)
|
|
*> Coverage: MT-N002, MT-N004, MT-N005, MT-R001
|
|
*> contract validity period, CDR date range, dup detection
|
|
*> ============================================================
|
|
|
|
ENVIRONMENT DIVISION.
|
|
INPUT-OUTPUT SECTION.
|
|
FILE-CONTROL.
|
|
SELECT FILE-MASTER ASSIGN TO 'master.dat'
|
|
ORGANIZATION IS SEQUENTIAL
|
|
ACCESS MODE IS SEQUENTIAL
|
|
FILE STATUS IS WS-MASTER-STATUS.
|
|
SELECT FILE-DETAIL ASSIGN TO 'detail.dat'
|
|
ORGANIZATION IS SEQUENTIAL
|
|
ACCESS MODE IS SEQUENTIAL
|
|
FILE STATUS IS WS-DETAIL-STATUS.
|
|
SELECT FILE-OUT ASSIGN TO 'output.dat'
|
|
ORGANIZATION IS SEQUENTIAL
|
|
FILE STATUS IS WS-OUT-STATUS.
|
|
SELECT FILE-ERR ASSIGN TO 'error.dat'
|
|
ORGANIZATION IS SEQUENTIAL
|
|
FILE STATUS IS WS-ERR-STATUS.
|
|
SELECT AUDIT-FILE ASSIGN TO 'audit-report.txt'
|
|
ORGANIZATION IS LINE SEQUENTIAL
|
|
FILE STATUS IS WS-AUDIT-STATUS.
|
|
|
|
DATA DIVISION.
|
|
FILE SECTION.
|
|
FD FILE-MASTER.
|
|
01 MASTER-REC.
|
|
COPY "STD-REC.cpy".
|
|
|
|
FD FILE-DETAIL.
|
|
01 DETAIL-REC.
|
|
COPY "STD-REC.cpy".
|
|
|
|
FD FILE-OUT.
|
|
01 OUT-REC.
|
|
COPY "STD-REC.cpy".
|
|
|
|
FD FILE-ERR.
|
|
01 ERR-REC.
|
|
05 ERR-TYPE PIC X(10).
|
|
05 ERR-KEY PIC X(10).
|
|
05 ERR-DATA PIC X(20).
|
|
05 ERR-AMOUNT PIC 9(10).
|
|
05 ERR-FILLER PIC X(30).
|
|
|
|
FD AUDIT-FILE.
|
|
01 AUDIT-REC PIC X(120).
|
|
|
|
WORKING-STORAGE SECTION.
|
|
01 WS-TELECOM-CONTRACT.
|
|
COPY "telecom/TEL-BILLING.cpy".
|
|
01 WS-TELECOM-CDR.
|
|
COPY "telecom/TEL-CDR.cpy".
|
|
|
|
*> File status fields
|
|
01 WS-MASTER-STATUS PIC X(02).
|
|
01 WS-DETAIL-STATUS PIC X(02).
|
|
01 WS-OUT-STATUS PIC X(02).
|
|
01 WS-ERR-STATUS PIC X(02).
|
|
01 WS-AUDIT-STATUS PIC X(02).
|
|
|
|
*> EOF and status flags
|
|
01 WS-FLAGS.
|
|
05 WS-MASTER-EOF PIC X VALUE 'N'.
|
|
88 WS-MASTER-END VALUE 'Y' FALSE 'N'.
|
|
05 WS-DETAIL-EOF PIC X VALUE 'N'.
|
|
88 WS-DETAIL-END VALUE 'Y' FALSE 'N'.
|
|
05 WS-HAVE-MAST PIC X VALUE 'N'.
|
|
88 WS-HAVE-MAST-Y VALUE 'Y' FALSE 'N'.
|
|
|
|
*> Key area for contract matching
|
|
01 WS-KEY-AREA.
|
|
05 WS-MASTER-KEY PIC X(10).
|
|
05 WS-DETAIL-KEY PIC X(10).
|
|
05 WS-GROUP-KEY PIC X(10).
|
|
05 WS-PREV-DETL-KEY PIC X(10).
|
|
05 WS-PREV-MAST-KEY PIC X(10).
|
|
|
|
*> Counter accumulators
|
|
01 WS-COUNTERS.
|
|
05 WS-MATCH-COUNT PIC 9(05) VALUE 0.
|
|
05 WS-MAST-READ-COUNT PIC 9(05) VALUE 0.
|
|
05 WS-DETL-READ-COUNT PIC 9(05) VALUE 0.
|
|
05 WS-UNMATCH-MAST-COUNT PIC 9(05) VALUE 0.
|
|
05 WS-UNMATCH-DETL-COUNT PIC 9(05) VALUE 0.
|
|
05 WS-DUP-CDR-COUNT PIC 9(05) VALUE 0.
|
|
05 WS-ERROR-COUNT PIC 9(05) VALUE 0.
|
|
05 WS-WARN-COUNT PIC 9(05) VALUE 0.
|
|
05 WS-FATAL-COUNT PIC 9(05) VALUE 0.
|
|
05 WS-SEQ-ERR-COUNT PIC 9(05) VALUE 0.
|
|
05 WS-KEY-FMT-ERR-COUNT PIC 9(05) VALUE 0.
|
|
|
|
*> Hash totals for batch control
|
|
01 WS-HASH-TOTALS.
|
|
05 WS-INPUT-HASH-MAST PIC 9(15) VALUE 0.
|
|
05 WS-INPUT-HASH-DETL PIC 9(15) VALUE 0.
|
|
05 WS-OUTPUT-HASH PIC 9(15) VALUE 0.
|
|
05 WS-ERROR-HASH PIC 9(15) VALUE 0.
|
|
05 WS-HASH-DIFF PIC S9(15) VALUE 0.
|
|
|
|
*> Date and timestamp areas
|
|
01 WS-DATE-TIME.
|
|
05 WS-PROC-DATE PIC 9(08).
|
|
05 WS-PROC-TIME PIC 9(08).
|
|
05 WS-TIMESTAMP.
|
|
10 WS-TS-DATE PIC X(08).
|
|
10 WS-TS-SPACE PIC X VALUE ' '.
|
|
10 WS-TS-TIME PIC X(08).
|
|
|
|
*> Validation accumulators
|
|
01 WS-VALIDATION.
|
|
05 WS-PREV-CONTRACT-KEY PIC X(10).
|
|
05 WS-PREV-CDR-KEY PIC X(10).
|
|
05 WS-CDR-DUP-FLAG PIC X VALUE 'N'.
|
|
88 WS-CDR-DUP-FOUND VALUE 'Y' FALSE 'N'.
|
|
05 WS-VALID-KEY-CHARS PIC X(36) VALUE
|
|
'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789'.
|
|
05 WS-KEY-CHAR PIC X.
|
|
05 WS-CHAR-OK PIC X VALUE 'N'.
|
|
88 WS-CHAR-IS-OK VALUE 'Y' FALSE 'N'.
|
|
05 WS-IDX PIC 9(02).
|
|
05 WS-KEY-INVALID-FLAG PIC X VALUE 'N'.
|
|
88 WS-KEY-INVALID VALUE 'Y' FALSE 'N'.
|
|
05 WS-CDR-ID-SAVE PIC X(10).
|
|
05 WS-CDR-ID-PREV PIC X(10).
|
|
|
|
*> Contract validity date check
|
|
01 WS-CONTRACT-VALIDITY.
|
|
05 WS-CONTRACT-MONTH PIC 9(06).
|
|
05 WS-CURRENT-MONTH PIC 9(06).
|
|
05 WS-CONTRACT-ACTIVE PIC X VALUE 'Y'.
|
|
88 WS-CONTRACT-IS-ACTIVE VALUE 'Y' FALSE 'N'.
|
|
05 WS-CONTRACT-EXPIRED-COUNT PIC 9(05) VALUE 0.
|
|
|
|
*> CDR date range validation
|
|
01 WS-CDR-DATE-CHECK.
|
|
05 WS-CDR-MONTH PIC 9(06).
|
|
05 WS-CDR-DATE-FLAG PIC X VALUE 'Y'.
|
|
88 WS-CDR-DATE-OK VALUE 'Y' FALSE 'N'.
|
|
05 WS-CDR-OUTSIDE-COUNT PIC 9(05) VALUE 0.
|
|
|
|
*> Amount comparison area
|
|
01 WS-AMOUNT-AREAS.
|
|
05 WS-MAST-AMT-NUM PIC 9(10).
|
|
05 WS-DETL-AMT-NUM PIC 9(10).
|
|
05 WS-OUT-AMT-NUM PIC 9(10).
|
|
05 WS-ERR-AMT-NUM PIC 9(10).
|
|
|
|
*> Error message areas
|
|
01 WS-ERR-MSG PIC X(60).
|
|
01 WS-ERR-DETAIL PIC X(80).
|
|
|
|
*> Program phase tracking
|
|
01 WS-PGM-PHASE PIC X(20).
|
|
|
|
PROCEDURE DIVISION.
|
|
|
|
*> ============================================================
|
|
*> MAIN SECTION
|
|
*> ============================================================
|
|
MAIN SECTION.
|
|
MB-PROCESS.
|
|
*> Initialize and open files
|
|
PERFORM 1000-INITIALIZE
|
|
PERFORM 2000-OPEN-FILES
|
|
|
|
*> Read first master record
|
|
PERFORM 3100-READ-MASTER
|
|
|
|
*> MAIN MATCHING LOOP (original 1:N algorithm preserved)
|
|
PERFORM UNTIL WS-MASTER-END
|
|
IF NOT WS-HAVE-MAST-Y
|
|
EXIT PERFORM
|
|
END-IF
|
|
|
|
MOVE STD-KEY OF MASTER-REC TO WS-MASTER-KEY
|
|
ADD 1 TO WS-MAST-READ-COUNT
|
|
PERFORM 4000-VALIDATE-MASTER
|
|
|
|
*> Advance master to next record (original logic)
|
|
PERFORM 3100-READ-MASTER
|
|
|
|
*> Process all detail records matching this master (original inner loop)
|
|
PERFORM UNTIL WS-DETAIL-END
|
|
IF STD-KEY OF DETAIL-REC
|
|
NOT = WS-MASTER-KEY
|
|
EXIT PERFORM
|
|
END-IF
|
|
ADD 1 TO WS-DETL-READ-COUNT
|
|
PERFORM 4100-VALIDATE-DETAIL
|
|
|
|
*> Check for duplicate CDR within batch
|
|
PERFORM 4400-CHECK-DUP-CDR
|
|
|
|
*> Write output (original logic)
|
|
MOVE MASTER-REC TO OUT-REC
|
|
WRITE OUT-REC
|
|
ADD 1 TO WS-MATCH-COUNT
|
|
PERFORM 5100-ACCUMULATE-OUTPUT
|
|
|
|
PERFORM 3200-READ-DETAIL
|
|
END-PERFORM
|
|
|
|
*> If detail key advanced past master key, master is unmatched
|
|
IF STD-KEY OF DETAIL-REC > WS-MASTER-KEY
|
|
AND NOT WS-DETAIL-END
|
|
ADD 1 TO WS-UNMATCH-MAST-COUNT
|
|
PERFORM 5300-WRITE-MAST-UNMATCH
|
|
END-IF
|
|
END-PERFORM.
|
|
|
|
*> Drain remaining detail records (original logic)
|
|
PERFORM UNTIL WS-DETAIL-END
|
|
ADD 1 TO WS-UNMATCH-DETL-COUNT
|
|
ADD 1 TO WS-DETL-READ-COUNT
|
|
PERFORM 4100-VALIDATE-DETAIL
|
|
PERFORM 5400-WRITE-DETL-UNMATCH
|
|
PERFORM 3200-READ-DETAIL
|
|
END-PERFORM
|
|
|
|
*> Close files and write audit
|
|
CLOSE FILE-MASTER
|
|
CLOSE FILE-DETAIL
|
|
CLOSE FILE-OUT
|
|
CLOSE FILE-ERR
|
|
PERFORM 7000-AUDIT-TRAIL
|
|
PERFORM 8000-FINALIZE
|
|
|
|
DISPLAY '02-matching-1-N: PASS'
|
|
STOP RUN
|
|
.
|
|
|
|
*> ============================================================
|
|
*> 1000-INITIALIZE
|
|
*> ============================================================
|
|
1000-INITIALIZE.
|
|
MOVE FUNCTION CURRENT-DATE (1:8) TO WS-PROC-DATE
|
|
MOVE FUNCTION CURRENT-DATE (9:8) TO WS-PROC-TIME
|
|
MOVE FUNCTION CURRENT-DATE (1:8) TO WS-TS-DATE
|
|
MOVE FUNCTION CURRENT-DATE (9:8) TO WS-TS-TIME
|
|
|
|
DISPLAY "============================================"
|
|
DISPLAY "02-MATCHING-1-N Contract-CDR Matching"
|
|
DISPLAY "Version V2.00"
|
|
DISPLAY "Run date: " WS-PROC-DATE " " WS-PROC-TIME
|
|
DISPLAY "============================================"
|
|
|
|
INITIALIZE WS-COUNTERS
|
|
INITIALIZE WS-HASH-TOTALS
|
|
INITIALIZE WS-VALIDATION
|
|
INITIALIZE WS-CONTRACT-VALIDITY
|
|
INITIALIZE WS-CDR-DATE-CHECK
|
|
.
|
|
|
|
*> ============================================================
|
|
*> 2000-OPEN-FILES
|
|
*> ============================================================
|
|
2000-OPEN-FILES.
|
|
MOVE '2000-OPEN-FILES' TO WS-PGM-PHASE
|
|
DISPLAY "[" WS-TS-DATE " " WS-TS-TIME
|
|
"] 02-MATCHING: Opening files..."
|
|
|
|
OPEN INPUT FILE-MASTER
|
|
IF WS-MASTER-STATUS NOT = '00'
|
|
STRING "FATAL: Cannot open master.dat, status "
|
|
WS-MASTER-STATUS
|
|
INTO WS-ERR-MSG
|
|
END-STRING
|
|
PERFORM 6000-FATAL-ERROR
|
|
END-IF
|
|
|
|
OPEN INPUT FILE-DETAIL
|
|
IF WS-DETAIL-STATUS NOT = '00'
|
|
STRING "FATAL: Cannot open detail.dat, status "
|
|
WS-DETAIL-STATUS
|
|
INTO WS-ERR-MSG
|
|
END-STRING
|
|
PERFORM 6000-FATAL-ERROR
|
|
END-IF
|
|
|
|
OPEN OUTPUT FILE-OUT
|
|
IF WS-OUT-STATUS NOT = '00'
|
|
STRING "FATAL: Cannot open output.dat, status "
|
|
WS-OUT-STATUS
|
|
INTO WS-ERR-MSG
|
|
END-STRING
|
|
PERFORM 6000-FATAL-ERROR
|
|
END-IF
|
|
|
|
OPEN OUTPUT FILE-ERR
|
|
IF WS-ERR-STATUS NOT = '00'
|
|
STRING "FATAL: Cannot open error.dat, status "
|
|
WS-ERR-STATUS
|
|
INTO WS-ERR-MSG
|
|
END-STRING
|
|
PERFORM 6000-FATAL-ERROR
|
|
END-IF
|
|
|
|
OPEN OUTPUT AUDIT-FILE
|
|
IF WS-AUDIT-STATUS NOT = '00'
|
|
DISPLAY "WARNING: Cannot open audit-report.txt, "
|
|
"status " WS-AUDIT-STATUS
|
|
ADD 1 TO WS-WARN-COUNT
|
|
END-IF
|
|
|
|
PERFORM 7010-WRITE-AUDIT-HEADER
|
|
.
|
|
|
|
*> ============================================================
|
|
*> 3100-READ-MASTER — Read next master record (original helper)
|
|
*> ============================================================
|
|
3100-READ-MASTER.
|
|
READ FILE-MASTER
|
|
AT END
|
|
MOVE 'Y' TO WS-MASTER-EOF
|
|
MOVE 'N' TO WS-HAVE-MAST
|
|
NOT AT END
|
|
MOVE 'Y' TO WS-HAVE-MAST
|
|
END-READ
|
|
.
|
|
|
|
*> ============================================================
|
|
*> 3200-READ-DETAIL — Read next detail record
|
|
*> ============================================================
|
|
3200-READ-DETAIL.
|
|
READ FILE-DETAIL
|
|
AT END MOVE 'Y' TO WS-DETAIL-EOF
|
|
END-READ
|
|
.
|
|
|
|
*> ============================================================
|
|
*> 4000-VALIDATE-MASTER — Validate master record
|
|
*> ============================================================
|
|
4000-VALIDATE-MASTER.
|
|
*> Check key format
|
|
MOVE 'N' TO WS-KEY-INVALID-FLAG
|
|
PERFORM VARYING WS-IDX FROM 1 BY 1
|
|
UNTIL WS-IDX > 10 OR WS-KEY-INVALID
|
|
MOVE STD-KEY OF MASTER-REC(WS-IDX:1) TO WS-KEY-CHAR
|
|
MOVE 'N' TO WS-CHAR-OK
|
|
IF WS-KEY-CHAR >= 'A' AND WS-KEY-CHAR <= 'Z'
|
|
MOVE 'Y' TO WS-CHAR-OK
|
|
END-IF
|
|
IF WS-KEY-CHAR >= '0' AND WS-KEY-CHAR <= '9'
|
|
MOVE 'Y' TO WS-CHAR-OK
|
|
END-IF
|
|
IF WS-KEY-CHAR = '-'
|
|
MOVE 'Y' TO WS-CHAR-OK
|
|
END-IF
|
|
IF NOT WS-CHAR-IS-OK
|
|
MOVE 'Y' TO WS-KEY-INVALID-FLAG
|
|
END-IF
|
|
END-PERFORM
|
|
IF WS-KEY-INVALID
|
|
ADD 1 TO WS-KEY-FMT-ERR-COUNT
|
|
ADD 1 TO WS-WARN-COUNT
|
|
STRING "WARN: Invalid key format in master: "
|
|
STD-KEY OF MASTER-REC
|
|
INTO WS-ERR-MSG
|
|
END-STRING
|
|
PERFORM 6100-WARNING-ERROR
|
|
END-IF
|
|
|
|
*> Accumulate input hash total
|
|
MOVE STD-DATA-3 OF MASTER-REC TO WS-MAST-AMT-NUM
|
|
ADD WS-MAST-AMT-NUM TO WS-INPUT-HASH-MAST
|
|
|
|
*> Check contract validity period
|
|
MOVE STD-DATA-2 OF MASTER-REC TO WS-CONTRACT-MONTH
|
|
MOVE WS-PROC-DATE(1:6) TO WS-CURRENT-MONTH
|
|
IF WS-CONTRACT-MONTH > WS-CURRENT-MONTH
|
|
ADD 1 TO WS-CONTRACT-EXPIRED-COUNT
|
|
ADD 1 TO WS-WARN-COUNT
|
|
STRING "WARN: Contract period invalid key="
|
|
STD-KEY OF MASTER-REC
|
|
INTO WS-ERR-MSG
|
|
END-STRING
|
|
PERFORM 6100-WARNING-ERROR
|
|
END-IF
|
|
.
|
|
|
|
*> ============================================================
|
|
*> 4100-VALIDATE-DETAIL — Validate detail (CDR) record
|
|
*> ============================================================
|
|
4100-VALIDATE-DETAIL.
|
|
*> Check key format
|
|
MOVE 'N' TO WS-KEY-INVALID-FLAG
|
|
PERFORM VARYING WS-IDX FROM 1 BY 1
|
|
UNTIL WS-IDX > 10 OR WS-KEY-INVALID
|
|
MOVE STD-KEY OF DETAIL-REC(WS-IDX:1) TO WS-KEY-CHAR
|
|
MOVE 'N' TO WS-CHAR-OK
|
|
IF WS-KEY-CHAR >= 'A' AND WS-KEY-CHAR <= 'Z'
|
|
MOVE 'Y' TO WS-CHAR-OK
|
|
END-IF
|
|
IF WS-KEY-CHAR >= '0' AND WS-KEY-CHAR <= '9'
|
|
MOVE 'Y' TO WS-CHAR-OK
|
|
END-IF
|
|
IF WS-KEY-CHAR = '-'
|
|
MOVE 'Y' TO WS-CHAR-OK
|
|
END-IF
|
|
IF NOT WS-CHAR-IS-OK
|
|
MOVE 'Y' TO WS-KEY-INVALID-FLAG
|
|
END-IF
|
|
END-PERFORM
|
|
IF WS-KEY-INVALID
|
|
ADD 1 TO WS-KEY-FMT-ERR-COUNT
|
|
ADD 1 TO WS-WARN-COUNT
|
|
STRING "WARN: Invalid key format in detail: "
|
|
STD-KEY OF DETAIL-REC
|
|
INTO WS-ERR-MSG
|
|
END-STRING
|
|
PERFORM 6100-WARNING-ERROR
|
|
END-IF
|
|
|
|
*> Accumulate input hash from CDR duration/amount
|
|
MOVE STD-DATA-3 OF DETAIL-REC TO WS-DETL-AMT-NUM
|
|
ADD WS-DETL-AMT-NUM TO WS-INPUT-HASH-DETL
|
|
|
|
*> CDR date range validation
|
|
MOVE STD-DATA-2 OF DETAIL-REC TO WS-CDR-MONTH
|
|
MOVE WS-PROC-DATE(1:6) TO WS-CURRENT-MONTH
|
|
IF WS-CDR-MONTH > WS-CURRENT-MONTH
|
|
ADD 1 TO WS-CDR-OUTSIDE-COUNT
|
|
ADD 1 TO WS-WARN-COUNT
|
|
STRING "WARN: CDR date outside range key="
|
|
STD-KEY OF DETAIL-REC
|
|
INTO WS-ERR-MSG
|
|
END-STRING
|
|
PERFORM 6100-WARNING-ERROR
|
|
END-IF
|
|
.
|
|
|
|
*> ============================================================
|
|
*> 4400-CHECK-DUP-CDR — Check for duplicate CDR within batch
|
|
*> ============================================================
|
|
4400-CHECK-DUP-CDR.
|
|
*> STD-DATA-1 contains CDR-ID in TEL-CDR mapping
|
|
MOVE STD-DATA-1 OF DETAIL-REC(1:10) TO WS-CDR-ID-SAVE
|
|
IF WS-CDR-ID-SAVE = WS-CDR-ID-PREV
|
|
ADD 1 TO WS-DUP-CDR-COUNT
|
|
ADD 1 TO WS-WARN-COUNT
|
|
STRING "WARN: Duplicate CDR detected: "
|
|
WS-CDR-ID-SAVE
|
|
INTO WS-ERR-MSG
|
|
END-STRING
|
|
PERFORM 6100-WARNING-ERROR
|
|
END-IF
|
|
MOVE WS-CDR-ID-SAVE TO WS-CDR-ID-PREV
|
|
.
|
|
|
|
*> ============================================================
|
|
*> 5100-ACCUMULATE-OUTPUT — Accumulate output hash
|
|
*> ============================================================
|
|
5100-ACCUMULATE-OUTPUT.
|
|
MOVE STD-DATA-3 OF OUT-REC TO WS-OUT-AMT-NUM
|
|
ADD WS-OUT-AMT-NUM TO WS-OUTPUT-HASH
|
|
.
|
|
|
|
*> ============================================================
|
|
*> 5300-WRITE-MAST-UNMATCH — Write unmatched master to error
|
|
*> ============================================================
|
|
5300-WRITE-MAST-UNMATCH.
|
|
MOVE 'MAST-UNMTC' TO ERR-TYPE
|
|
MOVE STD-KEY OF MASTER-REC TO ERR-KEY
|
|
MOVE STD-DATA-1 OF MASTER-REC(1:20) TO ERR-DATA
|
|
MOVE STD-DATA-3 OF MASTER-REC TO WS-MAST-AMT-NUM
|
|
MOVE WS-MAST-AMT-NUM TO ERR-AMOUNT
|
|
WRITE ERR-REC
|
|
.
|
|
|
|
*> ============================================================
|
|
*> 5400-WRITE-DETL-UNMATCH — Write unmatched detail to error
|
|
*> ============================================================
|
|
5400-WRITE-DETL-UNMATCH.
|
|
MOVE 'DETL-UNMTC' TO ERR-TYPE
|
|
MOVE STD-KEY OF DETAIL-REC TO ERR-KEY
|
|
MOVE STD-DATA-1 OF DETAIL-REC(1:20) TO ERR-DATA
|
|
MOVE STD-DATA-3 OF DETAIL-REC TO WS-DETL-AMT-NUM
|
|
MOVE WS-DETL-AMT-NUM TO ERR-AMOUNT
|
|
WRITE ERR-REC
|
|
.
|
|
|
|
*> ============================================================
|
|
*> 6000-FATAL-ERROR — Fatal error, terminates program
|
|
*> ============================================================
|
|
6000-FATAL-ERROR.
|
|
ADD 1 TO WS-FATAL-COUNT
|
|
DISPLAY "FATAL [" WS-TS-DATE " " WS-TS-TIME "] "
|
|
WS-ERR-MSG
|
|
MOVE 16 TO RETURN-CODE
|
|
STOP RUN
|
|
.
|
|
|
|
*> ============================================================
|
|
*> 6100-WARNING-ERROR — Warning handler
|
|
*> ============================================================
|
|
6100-WARNING-ERROR.
|
|
ADD 1 TO WS-WARN-COUNT
|
|
DISPLAY "WARNING [" WS-TS-DATE " " WS-TS-TIME "] "
|
|
WS-ERR-MSG
|
|
.
|
|
|
|
*> ============================================================
|
|
*> 7000-AUDIT-TRAIL — Write audit summary report
|
|
*> ============================================================
|
|
7000-AUDIT-TRAIL.
|
|
MOVE '7000-AUDIT-TRAIL' TO WS-PGM-PHASE
|
|
DISPLAY "[" WS-TS-DATE " " WS-TS-TIME
|
|
"] 02-MATCHING: Writing audit report..."
|
|
|
|
PERFORM 7020-WRITE-AUDIT-SUMMARY
|
|
PERFORM 7030-WRITE-HASH-DETAIL
|
|
PERFORM 7040-WRITE-ERROR-SUMMARY
|
|
PERFORM 7060-WRITE-AUDIT-FOOTER
|
|
|
|
CLOSE AUDIT-FILE
|
|
.
|
|
|
|
*> ============================================================
|
|
*> 7010-WRITE-AUDIT-HEADER
|
|
*> ============================================================
|
|
7010-WRITE-AUDIT-HEADER.
|
|
MOVE SPACES TO AUDIT-REC
|
|
STRING "================================================"
|
|
INTO AUDIT-REC
|
|
END-STRING
|
|
WRITE AUDIT-REC
|
|
|
|
MOVE SPACES TO AUDIT-REC
|
|
STRING "02-MATCHING-1-N AUDIT REPORT"
|
|
INTO AUDIT-REC
|
|
END-STRING
|
|
WRITE AUDIT-REC
|
|
|
|
MOVE SPACES TO AUDIT-REC
|
|
STRING "Program Version: V2.00"
|
|
INTO AUDIT-REC
|
|
END-STRING
|
|
WRITE AUDIT-REC
|
|
|
|
MOVE SPACES TO AUDIT-REC
|
|
STRING "Run Date: " WS-PROC-DATE " Time: " WS-PROC-TIME
|
|
INTO AUDIT-REC
|
|
END-STRING
|
|
WRITE AUDIT-REC
|
|
|
|
MOVE SPACES TO AUDIT-REC
|
|
STRING "================================================"
|
|
INTO AUDIT-REC
|
|
END-STRING
|
|
WRITE AUDIT-REC
|
|
.
|
|
|
|
*> ============================================================
|
|
*> 7020-WRITE-AUDIT-SUMMARY
|
|
*> ============================================================
|
|
7020-WRITE-AUDIT-SUMMARY.
|
|
MOVE SPACES TO AUDIT-REC
|
|
STRING "RECORD COUNT SUMMARY:"
|
|
INTO AUDIT-REC
|
|
END-STRING
|
|
WRITE AUDIT-REC
|
|
|
|
MOVE SPACES TO AUDIT-REC
|
|
STRING " Master (contract) records : " WS-MAST-READ-COUNT
|
|
INTO AUDIT-REC
|
|
END-STRING
|
|
WRITE AUDIT-REC
|
|
|
|
MOVE SPACES TO AUDIT-REC
|
|
STRING " Detail (CDR) records : " WS-DETL-READ-COUNT
|
|
INTO AUDIT-REC
|
|
END-STRING
|
|
WRITE AUDIT-REC
|
|
|
|
MOVE SPACES TO AUDIT-REC
|
|
STRING " Matched (output) records : " WS-MATCH-COUNT
|
|
INTO AUDIT-REC
|
|
END-STRING
|
|
WRITE AUDIT-REC
|
|
|
|
MOVE SPACES TO AUDIT-REC
|
|
STRING " Unmatched contracts : "
|
|
WS-UNMATCH-MAST-COUNT
|
|
INTO AUDIT-REC
|
|
END-STRING
|
|
WRITE AUDIT-REC
|
|
|
|
MOVE SPACES TO AUDIT-REC
|
|
STRING " Unmatched CDRs : "
|
|
WS-UNMATCH-DETL-COUNT
|
|
INTO AUDIT-REC
|
|
END-STRING
|
|
WRITE AUDIT-REC
|
|
|
|
MOVE SPACES TO AUDIT-REC
|
|
STRING " Duplicate CDRs detected : " WS-DUP-CDR-COUNT
|
|
INTO AUDIT-REC
|
|
END-STRING
|
|
WRITE AUDIT-REC
|
|
|
|
MOVE SPACES TO AUDIT-REC
|
|
STRING " Avg CDRs per contract : N/A (no division)"
|
|
INTO AUDIT-REC
|
|
END-STRING
|
|
WRITE AUDIT-REC
|
|
.
|
|
|
|
*> ============================================================
|
|
*> 7030-WRITE-HASH-DETAIL
|
|
*> ============================================================
|
|
7030-WRITE-HASH-DETAIL.
|
|
MOVE SPACES TO AUDIT-REC
|
|
STRING " "
|
|
INTO AUDIT-REC
|
|
END-STRING
|
|
WRITE AUDIT-REC
|
|
|
|
MOVE SPACES TO AUDIT-REC
|
|
STRING "HASH TOTAL RECONCILIATION:"
|
|
INTO AUDIT-REC
|
|
END-STRING
|
|
WRITE AUDIT-REC
|
|
|
|
MOVE SPACES TO AUDIT-REC
|
|
STRING " Input hash (contract) : " WS-INPUT-HASH-MAST
|
|
INTO AUDIT-REC
|
|
END-STRING
|
|
WRITE AUDIT-REC
|
|
|
|
MOVE SPACES TO AUDIT-REC
|
|
STRING " Output hash : " WS-OUTPUT-HASH
|
|
INTO AUDIT-REC
|
|
END-STRING
|
|
WRITE AUDIT-REC
|
|
|
|
MOVE SPACES TO AUDIT-REC
|
|
STRING " Error hash : " WS-ERROR-HASH
|
|
INTO AUDIT-REC
|
|
END-STRING
|
|
WRITE AUDIT-REC
|
|
|
|
ADD WS-OUTPUT-HASH TO WS-ERROR-HASH
|
|
GIVING WS-HASH-DIFF
|
|
SUBTRACT WS-INPUT-HASH-MAST FROM WS-HASH-DIFF
|
|
IF WS-HASH-DIFF NOT = 0
|
|
MOVE SPACES TO AUDIT-REC
|
|
STRING " ** HASH MISMATCH ** Diff: " WS-HASH-DIFF
|
|
INTO AUDIT-REC
|
|
END-STRING
|
|
WRITE AUDIT-REC
|
|
ELSE
|
|
MOVE SPACES TO AUDIT-REC
|
|
STRING " Hash total: VERIFIED"
|
|
INTO AUDIT-REC
|
|
END-STRING
|
|
WRITE AUDIT-REC
|
|
END-IF
|
|
.
|
|
|
|
*> ============================================================
|
|
*> 7040-WRITE-ERROR-SUMMARY
|
|
*> ============================================================
|
|
7040-WRITE-ERROR-SUMMARY.
|
|
MOVE SPACES TO AUDIT-REC
|
|
STRING " "
|
|
INTO AUDIT-REC
|
|
END-STRING
|
|
WRITE AUDIT-REC
|
|
|
|
MOVE SPACES TO AUDIT-REC
|
|
STRING "ERROR SUMMARY:"
|
|
INTO AUDIT-REC
|
|
END-STRING
|
|
WRITE AUDIT-REC
|
|
|
|
MOVE SPACES TO AUDIT-REC
|
|
STRING " Key format errors : " WS-KEY-FMT-ERR-COUNT
|
|
INTO AUDIT-REC
|
|
END-STRING
|
|
WRITE AUDIT-REC
|
|
|
|
MOVE SPACES TO AUDIT-REC
|
|
STRING " Duplicate CDRs : " WS-DUP-CDR-COUNT
|
|
INTO AUDIT-REC
|
|
END-STRING
|
|
WRITE AUDIT-REC
|
|
|
|
MOVE SPACES TO AUDIT-REC
|
|
STRING " Expired contracts : "
|
|
WS-CONTRACT-EXPIRED-COUNT
|
|
INTO AUDIT-REC
|
|
END-STRING
|
|
WRITE AUDIT-REC
|
|
|
|
MOVE SPACES TO AUDIT-REC
|
|
STRING " CDR date outside rng : "
|
|
WS-CDR-OUTSIDE-COUNT
|
|
INTO AUDIT-REC
|
|
END-STRING
|
|
WRITE AUDIT-REC
|
|
|
|
MOVE SPACES TO AUDIT-REC
|
|
STRING " Warnings : " WS-WARN-COUNT
|
|
INTO AUDIT-REC
|
|
END-STRING
|
|
WRITE AUDIT-REC
|
|
|
|
MOVE SPACES TO AUDIT-REC
|
|
STRING " Fatal errors : " WS-FATAL-COUNT
|
|
INTO AUDIT-REC
|
|
END-STRING
|
|
WRITE AUDIT-REC
|
|
.
|
|
|
|
*> ============================================================
|
|
*> 7060-WRITE-AUDIT-FOOTER
|
|
*> ============================================================
|
|
7060-WRITE-AUDIT-FOOTER.
|
|
MOVE SPACES TO AUDIT-REC
|
|
STRING " "
|
|
INTO AUDIT-REC
|
|
END-STRING
|
|
WRITE AUDIT-REC
|
|
|
|
MOVE SPACES TO AUDIT-REC
|
|
STRING "================================================"
|
|
INTO AUDIT-REC
|
|
END-STRING
|
|
WRITE AUDIT-REC
|
|
|
|
MOVE SPACES TO AUDIT-REC
|
|
STRING "END OF AUDIT REPORT"
|
|
INTO AUDIT-REC
|
|
END-STRING
|
|
WRITE AUDIT-REC
|
|
|
|
MOVE SPACES TO AUDIT-REC
|
|
STRING "Generated: " WS-PROC-DATE " " WS-PROC-TIME
|
|
INTO AUDIT-REC
|
|
END-STRING
|
|
WRITE AUDIT-REC
|
|
.
|
|
|
|
*> ============================================================
|
|
*> 8000-FINALIZE — Display final summary
|
|
*> ============================================================
|
|
8000-FINALIZE.
|
|
MOVE '8000-FINALIZE' TO WS-PGM-PHASE
|
|
DISPLAY "============================================"
|
|
DISPLAY "02-MATCHING-1-N Processing Summary"
|
|
DISPLAY "============================================"
|
|
DISPLAY "Contract records read : " WS-MAST-READ-COUNT
|
|
DISPLAY "CDR records read : " WS-DETL-READ-COUNT
|
|
DISPLAY "Matched records : " WS-MATCH-COUNT
|
|
DISPLAY "Unmatched contracts : " WS-UNMATCH-MAST-COUNT
|
|
DISPLAY "Unmatched CDRs : " WS-UNMATCH-DETL-COUNT
|
|
DISPLAY "Duplicate CDRs : " WS-DUP-CDR-COUNT
|
|
DISPLAY "Expired contracts : "
|
|
WS-CONTRACT-EXPIRED-COUNT
|
|
DISPLAY "--------------------------------------------"
|
|
DISPLAY "Key format errors : " WS-KEY-FMT-ERR-COUNT
|
|
DISPLAY "Warnings : " WS-WARN-COUNT
|
|
DISPLAY "Fatal errors : " WS-FATAL-COUNT
|
|
DISPLAY "============================================"
|
|
|
|
ADD WS-OUTPUT-HASH TO WS-ERROR-HASH
|
|
GIVING WS-HASH-DIFF
|
|
SUBTRACT WS-INPUT-HASH-MAST FROM WS-HASH-DIFF
|
|
IF WS-HASH-DIFF NOT = 0
|
|
DISPLAY "WARNING: Hash total mismatch! Diff="
|
|
WS-HASH-DIFF
|
|
ELSE
|
|
DISPLAY "Hash totals: VERIFIED"
|
|
END-IF
|
|
DISPLAY "Audit report written to audit-report.txt"
|
|
DISPLAY "============================================"
|
|
.
|
|
|
|
END PROGRAM Main02Matching1N.
|