feat: Phase 2 complete — 13 Phases of COBOL type classification and test benchmark
P0.6: gcov infrastructure P1: extract_structure output expansion (11 new feature fields) P2: Confusion group rule engine (8 pairs + contradiction + backtrack) P3: 4-factor confidence calculation + quality gate update P4: 33+2 COBOL program type test samples (22 files, 7 categories) P5: parametrized/ test data generation engine P6: japanese_data.py lookup tables P7-10: Type-specific test suites (~159 parametrized tests) P11: Full classification pipeline (classify_program) + orchestrator integration P12: Documentation (module-interfaces, test-plan v3.0, coverage-matrix) Architecture decisions: - classification_pipeline/ merged to hina/pipeline/ - parametrized/ as independent module - japanese_data.py as root-level file - hina/__all__ only exports classify_program() Co-Authored-By: Claude <noreply@anthropic.com>
This commit is contained in:
hangshuo652
@@ -0,0 +1,43 @@
|
||||
* ==== TYPE: MT01 MATCHING(1:1) ====
|
||||
* FEATURE: 2 input files, IF KEY = compare, 3-way IF
|
||||
* BRANCHES: 4, DECISIONS: 2
|
||||
IDENTIFICATION DIVISION.
|
||||
PROGRAM-ID. MT01.
|
||||
ENVIRONMENT DIVISION.
|
||||
INPUT-OUTPUT SECTION.
|
||||
FILE-CONTROL.
|
||||
SELECT FILE-A ASSIGN TO 'FILEA.DAT'.
|
||||
SELECT FILE-B ASSIGN TO 'FILEB.DAT'.
|
||||
DATA DIVISION.
|
||||
FILE SECTION.
|
||||
FD FILE-A.
|
||||
01 REC-A PIC X(80).
|
||||
FD FILE-B.
|
||||
01 REC-B PIC X(80).
|
||||
WORKING-STORAGE SECTION.
|
||||
01 WS-KEY-A PIC X(10).
|
||||
01 WS-KEY-B PIC X(10).
|
||||
01 WS-EOF-A PIC X VALUE 'N'.
|
||||
01 WS-EOF-B PIC X VALUE 'N'.
|
||||
PROCEDURE DIVISION.
|
||||
MAIN-PROCEDURE.
|
||||
OPEN INPUT FILE-A FILE-B.
|
||||
READ FILE-A INTO REC-A
|
||||
AT END MOVE 'Y' TO WS-EOF-A.
|
||||
READ FILE-B INTO REC-B
|
||||
AT END MOVE 'Y' TO WS-EOF-B.
|
||||
PERFORM UNTIL WS-EOF-A = 'Y' OR WS-EOF-B = 'Y'
|
||||
IF WS-KEY-A = WS-KEY-B
|
||||
DISPLAY 'MATCH: ' REC-A(1:50)
|
||||
READ FILE-A AT END MOVE 'Y' TO WS-EOF-A
|
||||
READ FILE-B AT END MOVE 'Y' TO WS-EOF-B
|
||||
ELSE IF WS-KEY-A < WS-KEY-B
|
||||
DISPLAY 'UNMATCH-A: ' REC-A(1:50)
|
||||
READ FILE-A AT END MOVE 'Y' TO WS-EOF-A
|
||||
ELSE
|
||||
DISPLAY 'UNMATCH-B: ' REC-B(1:50)
|
||||
READ FILE-B AT END MOVE 'Y' TO WS-EOF-B
|
||||
END-IF
|
||||
END-PERFORM.
|
||||
CLOSE FILE-A FILE-B.
|
||||
STOP RUN.
|
||||
@@ -0,0 +1,44 @@
|
||||
* ==== TYPE: MT02 MATCHING(1:N) ====
|
||||
* FEATURE: 1 master file, N transaction files
|
||||
* BRANCHES: 6, DECISIONS: 3
|
||||
IDENTIFICATION DIVISION.
|
||||
PROGRAM-ID. MT02.
|
||||
ENVIRONMENT DIVISION.
|
||||
INPUT-OUTPUT SECTION.
|
||||
FILE-CONTROL.
|
||||
SELECT MASTER-FILE ASSIGN TO 'MASTER.DAT'.
|
||||
SELECT TRANS-FILE ASSIGN TO 'TRANS.DAT'.
|
||||
DATA DIVISION.
|
||||
FILE SECTION.
|
||||
FD MASTER-FILE.
|
||||
01 MASTER-REC PIC X(80).
|
||||
FD TRANS-FILE.
|
||||
01 TRANS-REC PIC X(80).
|
||||
WORKING-STORAGE SECTION.
|
||||
01 WS-MAST-KEY PIC X(10).
|
||||
01 WS-TRAN-KEY PIC X(10).
|
||||
01 WS-MAST-EOF PIC X VALUE 'N'.
|
||||
01 WS-TRAN-EOF PIC X VALUE 'N'.
|
||||
01 WS-MATCH-COUNT PIC 9(4) VALUE 0.
|
||||
PROCEDURE DIVISION.
|
||||
MAIN-PROCEDURE.
|
||||
OPEN INPUT MASTER-FILE TRANS-FILE.
|
||||
READ MASTER-FILE INTO MASTER-REC
|
||||
AT END MOVE 'Y' TO WS-MAST-EOF.
|
||||
READ TRANS-FILE INTO TRANS-REC
|
||||
AT END MOVE 'Y' TO WS-TRAN-EOF.
|
||||
PERFORM UNTIL WS-MAST-EOF = 'Y' OR WS-TRAN-EOF = 'Y'
|
||||
IF WS-MAST-KEY = WS-TRAN-KEY
|
||||
ADD 1 TO WS-MATCH-COUNT
|
||||
DISPLAY 'MATCH: ' TRANS-REC(1:50)
|
||||
READ TRANS-FILE AT END MOVE 'Y' TO WS-TRAN-EOF
|
||||
ELSE IF WS-MAST-KEY < WS-TRAN-KEY
|
||||
DISPLAY 'MASTER UNMATCHED: ' MASTER-REC(1:40)
|
||||
READ MASTER-FILE AT END MOVE 'Y' TO WS-MAST-EOF
|
||||
ELSE
|
||||
DISPLAY 'TRAN UNMATCHED: ' TRANS-REC(1:40)
|
||||
READ TRANS-FILE AT END MOVE 'Y' TO WS-TRAN-EOF
|
||||
END-IF
|
||||
END-PERFORM.
|
||||
CLOSE MASTER-FILE TRANS-FILE.
|
||||
STOP RUN.
|
||||
@@ -0,0 +1,44 @@
|
||||
* ==== TYPE: MT03 MATCHING(N:1) ====
|
||||
* FEATURE: N master files, 1 transaction file
|
||||
* BRANCHES: 6, DECISIONS: 3
|
||||
IDENTIFICATION DIVISION.
|
||||
PROGRAM-ID. MT03.
|
||||
ENVIRONMENT DIVISION.
|
||||
INPUT-OUTPUT SECTION.
|
||||
FILE-CONTROL.
|
||||
SELECT FILE-M ASSIGN TO 'FILEM.DAT'.
|
||||
SELECT FILE-T ASSIGN TO 'FILET.DAT'.
|
||||
DATA DIVISION.
|
||||
FILE SECTION.
|
||||
FD FILE-M.
|
||||
01 REC-M PIC X(80).
|
||||
FD FILE-T.
|
||||
01 REC-T PIC X(80).
|
||||
WORKING-STORAGE SECTION.
|
||||
01 WS-KEY-M PIC X(10).
|
||||
01 WS-KEY-T PIC X(10).
|
||||
01 WS-M-EOF PIC X VALUE 'N'.
|
||||
01 WS-T-EOF PIC X VALUE 'N'.
|
||||
01 WS-COUNT PIC 9(4) VALUE 0.
|
||||
PROCEDURE DIVISION.
|
||||
MAIN-PROCEDURE.
|
||||
OPEN INPUT FILE-M FILE-T.
|
||||
READ FILE-M INTO REC-M
|
||||
AT END MOVE 'Y' TO WS-M-EOF.
|
||||
READ FILE-T INTO REC-T
|
||||
AT END MOVE 'Y' TO WS-T-EOF.
|
||||
PERFORM UNTIL WS-M-EOF = 'Y' OR WS-T-EOF = 'Y'
|
||||
IF WS-KEY-M = WS-KEY-T
|
||||
ADD 1 TO WS-COUNT
|
||||
DISPLAY 'MATCHED: ' REC-M(1:50)
|
||||
READ FILE-M AT END MOVE 'Y' TO WS-M-EOF
|
||||
ELSE IF WS-KEY-M < WS-KEY-T
|
||||
READ FILE-M AT END MOVE 'Y' TO WS-M-EOF
|
||||
ELSE
|
||||
DISPLAY 'TRAN ONLY: ' REC-T(1:50)
|
||||
READ FILE-T AT END MOVE 'Y' TO WS-T-EOF
|
||||
END-IF
|
||||
END-PERFORM.
|
||||
DISPLAY 'TOTAL MATCHED: ' WS-COUNT.
|
||||
CLOSE FILE-M FILE-T.
|
||||
STOP RUN.
|
||||
@@ -0,0 +1,64 @@
|
||||
* ==== TYPE: MT16 TWO-STAGE MATCHING(1:1) ====
|
||||
* FEATURE: 1:1 -> intermediate file -> re-match
|
||||
* BRANCHES: 8, DECISIONS: 4
|
||||
IDENTIFICATION DIVISION.
|
||||
PROGRAM-ID. MT16.
|
||||
ENVIRONMENT DIVISION.
|
||||
INPUT-OUTPUT SECTION.
|
||||
FILE-CONTROL.
|
||||
SELECT FILE-A ASSIGN TO 'FILEA.DAT'.
|
||||
SELECT FILE-B ASSIGN TO 'FILEB.DAT'.
|
||||
SELECT FILE-C ASSIGN TO 'FILEC.DAT'.
|
||||
SELECT INT-FILE ASSIGN TO 'INTERM.DAT'.
|
||||
DATA DIVISION.
|
||||
FILE SECTION.
|
||||
FD FILE-A.
|
||||
01 REC-A PIC X(80).
|
||||
FD FILE-B.
|
||||
01 REC-B PIC X(80).
|
||||
FD FILE-C.
|
||||
01 REC-C PIC X(80).
|
||||
FD INT-FILE.
|
||||
01 INT-REC PIC X(80).
|
||||
WORKING-STORAGE SECTION.
|
||||
01 WS-KEY-A PIC X(10).
|
||||
01 WS-KEY-B PIC X(10).
|
||||
01 WS-KEY-C PIC X(10).
|
||||
01 WS-EOF-A PIC X VALUE 'N'.
|
||||
01 WS-EOF-B PIC X VALUE 'N'.
|
||||
01 WS-EOF-I PIC X VALUE 'N'.
|
||||
PROCEDURE DIVISION.
|
||||
STAGE-1.
|
||||
OPEN INPUT FILE-A FILE-B.
|
||||
OPEN OUTPUT INT-FILE.
|
||||
READ FILE-A AT END MOVE 'Y' TO WS-EOF-A.
|
||||
READ FILE-B AT END MOVE 'Y' TO WS-EOF-B.
|
||||
PERFORM UNTIL WS-EOF-A = 'Y' OR WS-EOF-B = 'Y'
|
||||
IF WS-KEY-A = WS-KEY-B
|
||||
WRITE INT-REC FROM REC-A
|
||||
READ FILE-A AT END MOVE 'Y' TO WS-EOF-A
|
||||
READ FILE-B AT END MOVE 'Y' TO WS-EOF-B
|
||||
ELSE IF WS-KEY-A < WS-KEY-B
|
||||
READ FILE-A AT END MOVE 'Y' TO WS-EOF-A
|
||||
ELSE
|
||||
READ FILE-B AT END MOVE 'Y' TO WS-EOF-B
|
||||
END-IF
|
||||
END-PERFORM.
|
||||
CLOSE FILE-A FILE-B INT-FILE.
|
||||
STAGE-2.
|
||||
OPEN INPUT INT-FILE FILE-C.
|
||||
READ INT-FILE AT END MOVE 'Y' TO WS-EOF-I.
|
||||
READ FILE-C AT END MOVE 'Y' TO WS-EOF-A.
|
||||
PERFORM UNTIL WS-EOF-I = 'Y' OR WS-EOF-A = 'Y'
|
||||
IF WS-KEY-C = WS-KEY-A
|
||||
DISPLAY 'FINAL MATCH'
|
||||
READ INT-FILE AT END MOVE 'Y' TO WS-EOF-I
|
||||
READ FILE-C AT END MOVE 'Y' TO WS-EOF-A
|
||||
ELSE IF WS-KEY-C < WS-KEY-A
|
||||
READ FILE-C AT END MOVE 'Y' TO WS-EOF-A
|
||||
ELSE
|
||||
READ INT-FILE AT END MOVE 'Y' TO WS-EOF-I
|
||||
END-IF
|
||||
END-PERFORM.
|
||||
CLOSE INT-FILE FILE-C.
|
||||
STOP RUN.
|
||||
@@ -0,0 +1,55 @@
|
||||
* ==== TYPE: MT17 TWO-STAGE MATCHING(N:1) ====
|
||||
* FEATURE: N:1 -> intermediate file -> re-match
|
||||
* BRANCHES: 8, DECISIONS: 4
|
||||
IDENTIFICATION DIVISION.
|
||||
PROGRAM-ID. MT17.
|
||||
ENVIRONMENT DIVISION.
|
||||
INPUT-OUTPUT SECTION.
|
||||
FILE-CONTROL.
|
||||
SELECT FILE-X ASSIGN TO 'FILEX.DAT'.
|
||||
SELECT FILE-Y ASSIGN TO 'FILEY.DAT'.
|
||||
SELECT INT-FILE ASSIGN TO 'INTERM.DAT'.
|
||||
DATA DIVISION.
|
||||
FILE SECTION.
|
||||
FD FILE-X.
|
||||
01 REC-X PIC X(80).
|
||||
FD FILE-Y.
|
||||
01 REC-Y PIC X(80).
|
||||
FD INT-FILE.
|
||||
01 INT-REC PIC X(80).
|
||||
WORKING-STORAGE SECTION.
|
||||
01 WS-KEY-X PIC X(10).
|
||||
01 WS-KEY-Y PIC X(10).
|
||||
01 WS-EOF-X PIC X VALUE 'N'.
|
||||
01 WS-EOF-Y PIC X VALUE 'N'.
|
||||
01 WS-EOF-I PIC X VALUE 'N'.
|
||||
01 WS-INT-COUNT PIC 9(4) VALUE 0.
|
||||
PROCEDURE DIVISION.
|
||||
STAGE-1.
|
||||
OPEN INPUT FILE-X FILE-Y.
|
||||
OPEN OUTPUT INT-FILE.
|
||||
READ FILE-X AT END MOVE 'Y' TO WS-EOF-X.
|
||||
READ FILE-Y AT END MOVE 'Y' TO WS-EOF-Y.
|
||||
PERFORM UNTIL WS-EOF-X = 'Y' OR WS-EOF-Y = 'Y'
|
||||
IF WS-KEY-X = WS-KEY-Y
|
||||
WRITE INT-REC FROM REC-Y
|
||||
READ FILE-Y AT END MOVE 'Y' TO WS-EOF-Y
|
||||
ELSE IF WS-KEY-X < WS-KEY-Y
|
||||
READ FILE-X AT END MOVE 'Y' TO WS-EOF-X
|
||||
ELSE
|
||||
READ FILE-Y AT END MOVE 'Y' TO WS-EOF-Y
|
||||
END-IF
|
||||
END-PERFORM.
|
||||
CLOSE FILE-X FILE-Y INT-FILE.
|
||||
STAGE-2.
|
||||
OPEN INPUT INT-FILE.
|
||||
OPEN OUTPUT FILE-X.
|
||||
READ INT-FILE AT END MOVE 'Y' TO WS-EOF-I.
|
||||
PERFORM UNTIL WS-EOF-I = 'Y'
|
||||
ADD 1 TO WS-INT-COUNT
|
||||
WRITE REC-X FROM INT-REC
|
||||
READ INT-FILE AT END MOVE 'Y' TO WS-EOF-I
|
||||
END-PERFORM.
|
||||
DISPLAY 'INT RECORDS: ' WS-INT-COUNT.
|
||||
CLOSE INT-FILE FILE-X.
|
||||
STOP RUN.
|
||||
@@ -0,0 +1,42 @@
|
||||
* ==== TYPE: MT18 MATCHING(M:N -> M) ====
|
||||
* FEATURE: M:N combination, output M records
|
||||
* BRANCHES: 6, DECISIONS: 3
|
||||
IDENTIFICATION DIVISION.
|
||||
PROGRAM-ID. MT18.
|
||||
ENVIRONMENT DIVISION.
|
||||
INPUT-OUTPUT SECTION.
|
||||
FILE-CONTROL.
|
||||
SELECT FILE-M ASSIGN TO 'FILEM.DAT'.
|
||||
SELECT FILE-N ASSIGN TO 'FILEN.DAT'.
|
||||
DATA DIVISION.
|
||||
FILE SECTION.
|
||||
FD FILE-M.
|
||||
01 REC-M PIC X(80).
|
||||
FD FILE-N.
|
||||
01 REC-N PIC X(80).
|
||||
WORKING-STORAGE SECTION.
|
||||
01 WS-KEY-M PIC X(10).
|
||||
01 WS-KEY-N PIC X(10).
|
||||
01 WS-M-EOF PIC X VALUE 'N'.
|
||||
01 WS-N-EOF PIC X VALUE 'N'.
|
||||
01 WS-M-COUNT PIC 9(4) VALUE 0.
|
||||
PROCEDURE DIVISION.
|
||||
MAIN-PROCEDURE.
|
||||
OPEN INPUT FILE-M FILE-N.
|
||||
READ FILE-M AT END MOVE 'Y' TO WS-M-EOF.
|
||||
READ FILE-N AT END MOVE 'Y' TO WS-N-EOF.
|
||||
PERFORM UNTIL WS-M-EOF = 'Y' OR WS-N-EOF = 'Y'
|
||||
IF WS-KEY-M = WS-KEY-N
|
||||
ADD 1 TO WS-M-COUNT
|
||||
DISPLAY 'M-OUT: ' REC-M(1:50)
|
||||
READ FILE-M AT END MOVE 'Y' TO WS-M-EOF
|
||||
ELSE IF WS-KEY-M < WS-KEY-N
|
||||
DISPLAY 'M-ONLY: ' REC-M(1:50)
|
||||
READ FILE-M AT END MOVE 'Y' TO WS-M-EOF
|
||||
ELSE
|
||||
READ FILE-N AT END MOVE 'Y' TO WS-N-EOF
|
||||
END-IF
|
||||
END-PERFORM.
|
||||
DISPLAY 'M RECORDS OUT: ' WS-M-COUNT.
|
||||
CLOSE FILE-M FILE-N.
|
||||
STOP RUN.
|
||||
@@ -0,0 +1,42 @@
|
||||
* ==== TYPE: MT19 MATCHING(M:N -> N) ====
|
||||
* FEATURE: M:N combination, output N records
|
||||
* BRANCHES: 6, DECISIONS: 3
|
||||
IDENTIFICATION DIVISION.
|
||||
PROGRAM-ID. MT19.
|
||||
ENVIRONMENT DIVISION.
|
||||
INPUT-OUTPUT SECTION.
|
||||
FILE-CONTROL.
|
||||
SELECT FILE-M ASSIGN TO 'FILEM.DAT'.
|
||||
SELECT FILE-N ASSIGN TO 'FILEN.DAT'.
|
||||
DATA DIVISION.
|
||||
FILE SECTION.
|
||||
FD FILE-M.
|
||||
01 REC-M PIC X(80).
|
||||
FD FILE-N.
|
||||
01 REC-N PIC X(80).
|
||||
WORKING-STORAGE SECTION.
|
||||
01 WS-KEY-M PIC X(10).
|
||||
01 WS-KEY-N PIC X(10).
|
||||
01 WS-M-EOF PIC X VALUE 'N'.
|
||||
01 WS-N-EOF PIC X VALUE 'N'.
|
||||
01 WS-N-COUNT PIC 9(4) VALUE 0.
|
||||
PROCEDURE DIVISION.
|
||||
MAIN-PROCEDURE.
|
||||
OPEN INPUT FILE-M FILE-N.
|
||||
READ FILE-M AT END MOVE 'Y' TO WS-M-EOF.
|
||||
READ FILE-N AT END MOVE 'Y' TO WS-N-EOF.
|
||||
PERFORM UNTIL WS-M-EOF = 'Y' OR WS-N-EOF = 'Y'
|
||||
IF WS-KEY-M = WS-KEY-N
|
||||
ADD 1 TO WS-N-COUNT
|
||||
DISPLAY 'N-OUT: ' REC-N(1:50)
|
||||
READ FILE-N AT END MOVE 'Y' TO WS-N-EOF
|
||||
ELSE IF WS-KEY-M < WS-KEY-N
|
||||
READ FILE-M AT END MOVE 'Y' TO WS-M-EOF
|
||||
ELSE
|
||||
DISPLAY 'N-ONLY: ' REC-N(1:50)
|
||||
READ FILE-N AT END MOVE 'Y' TO WS-N-EOF
|
||||
END-IF
|
||||
END-PERFORM.
|
||||
DISPLAY 'N RECORDS OUT: ' WS-N-COUNT.
|
||||
CLOSE FILE-M FILE-N.
|
||||
STOP RUN.
|
||||
@@ -0,0 +1,48 @@
|
||||
* ==== TYPE: MT20 MATCHING(M:N -> MxN) ====
|
||||
* FEATURE: M:N Cartesian product
|
||||
* BRANCHES: 8, DECISIONS: 4
|
||||
IDENTIFICATION DIVISION.
|
||||
PROGRAM-ID. MT20.
|
||||
ENVIRONMENT DIVISION.
|
||||
INPUT-OUTPUT SECTION.
|
||||
FILE-CONTROL.
|
||||
SELECT FILE-M ASSIGN TO 'FILEM.DAT'.
|
||||
SELECT FILE-N ASSIGN TO 'FILEN.DAT'.
|
||||
SELECT FILE-O ASSIGN TO 'FILEO.DAT'.
|
||||
DATA DIVISION.
|
||||
FILE SECTION.
|
||||
FD FILE-M.
|
||||
01 REC-M PIC X(80).
|
||||
FD FILE-N.
|
||||
01 REC-N PIC X(80).
|
||||
FD FILE-O.
|
||||
01 REC-O PIC X(80).
|
||||
WORKING-STORAGE SECTION.
|
||||
01 WS-KEY-M PIC X(10).
|
||||
01 WS-KEY-N PIC X(10).
|
||||
01 WS-M-EOF PIC X VALUE 'N'.
|
||||
01 WS-N-EOF PIC X VALUE 'N'.
|
||||
01 WS-PROD-COUNT PIC 9(6) VALUE 0.
|
||||
01 WS-SAVE-KEY PIC X(10).
|
||||
01 WS-SAVE-REC PIC X(80).
|
||||
PROCEDURE DIVISION.
|
||||
MAIN-PROCEDURE.
|
||||
OPEN INPUT FILE-M FILE-N.
|
||||
OPEN OUTPUT FILE-O.
|
||||
READ FILE-M AT END MOVE 'Y' TO WS-M-EOF.
|
||||
PERFORM UNTIL WS-M-EOF = 'Y'
|
||||
MOVE WS-KEY-M TO WS-SAVE-KEY
|
||||
MOVE REC-M TO WS-SAVE-REC
|
||||
READ FILE-N AT END MOVE 'Y' TO WS-N-EOF
|
||||
PERFORM UNTIL WS-N-EOF = 'Y'
|
||||
IF WS-KEY-N = WS-SAVE-KEY
|
||||
ADD 1 TO WS-PROD-COUNT
|
||||
WRITE REC-O FROM WS-SAVE-REC
|
||||
END-IF
|
||||
READ FILE-N AT END MOVE 'Y' TO WS-N-EOF
|
||||
END-PERFORM
|
||||
READ FILE-M AT END MOVE 'Y' TO WS-M-EOF
|
||||
END-PERFORM.
|
||||
DISPLAY 'CARTESIAN PRODUCT COUNT: ' WS-PROD-COUNT.
|
||||
CLOSE FILE-M FILE-N FILE-O.
|
||||
STOP RUN.
|
||||
@@ -0,0 +1,47 @@
|
||||
* ==== TYPE: MT32 MIXED MATCHING(SAME KEY) ====
|
||||
* FEATURE: 1:N + same key mixed
|
||||
* BRANCHES: 8, DECISIONS: 4
|
||||
IDENTIFICATION DIVISION.
|
||||
PROGRAM-ID. MT32.
|
||||
ENVIRONMENT DIVISION.
|
||||
INPUT-OUTPUT SECTION.
|
||||
FILE-CONTROL.
|
||||
SELECT FILE-P ASSIGN TO 'FILEP.DAT'.
|
||||
SELECT FILE-Q ASSIGN TO 'FILEQ.DAT'.
|
||||
DATA DIVISION.
|
||||
FILE SECTION.
|
||||
FD FILE-P.
|
||||
01 REC-P PIC X(80).
|
||||
FD FILE-Q.
|
||||
01 REC-Q PIC X(80).
|
||||
WORKING-STORAGE SECTION.
|
||||
01 WS-KEY-P PIC X(10).
|
||||
01 WS-KEY-Q PIC X(10).
|
||||
01 WS-P-EOF PIC X VALUE 'N'.
|
||||
01 WS-Q-EOF PIC X VALUE 'N'.
|
||||
01 WS-PREV-KEY PIC X(10) VALUE SPACES.
|
||||
01 WS-MIXED-FLAG PIC X VALUE 'N'.
|
||||
01 WS-GROUP-COUNT PIC 9(4) VALUE 0.
|
||||
PROCEDURE DIVISION.
|
||||
MAIN-PROCEDURE.
|
||||
OPEN INPUT FILE-P FILE-Q.
|
||||
READ FILE-P AT END MOVE 'Y' TO WS-P-EOF.
|
||||
READ FILE-Q AT END MOVE 'Y' TO WS-Q-EOF.
|
||||
PERFORM UNTIL WS-P-EOF = 'Y' OR WS-Q-EOF = 'Y'
|
||||
IF WS-KEY-P = WS-KEY-Q
|
||||
IF WS-PREV-KEY NOT = WS-KEY-P
|
||||
MOVE 'Y' TO WS-MIXED-FLAG
|
||||
MOVE WS-KEY-P TO WS-PREV-KEY
|
||||
END-IF
|
||||
ADD 1 TO WS-GROUP-COUNT
|
||||
READ FILE-P AT END MOVE 'Y' TO WS-P-EOF
|
||||
READ FILE-Q AT END MOVE 'Y' TO WS-Q-EOF
|
||||
ELSE IF WS-KEY-P < WS-KEY-Q
|
||||
READ FILE-P AT END MOVE 'Y' TO WS-P-EOF
|
||||
ELSE
|
||||
READ FILE-Q AT END MOVE 'Y' TO WS-Q-EOF
|
||||
END-IF
|
||||
END-PERFORM.
|
||||
DISPLAY 'MIXED GROUPS: ' WS-GROUP-COUNT.
|
||||
CLOSE FILE-P FILE-Q.
|
||||
STOP RUN.
|
||||
@@ -0,0 +1,45 @@
|
||||
* ==== TYPE: MT33 MIXED MATCHING(DIFF KEY) ====
|
||||
* FEATURE: 1:N + different key mixed
|
||||
* BRANCHES: 8, DECISIONS: 4
|
||||
IDENTIFICATION DIVISION.
|
||||
PROGRAM-ID. MT33.
|
||||
ENVIRONMENT DIVISION.
|
||||
INPUT-OUTPUT SECTION.
|
||||
FILE-CONTROL.
|
||||
SELECT FILE-R ASSIGN TO 'FILER.DAT'.
|
||||
SELECT FILE-S ASSIGN TO 'FILES.DAT'.
|
||||
DATA DIVISION.
|
||||
FILE SECTION.
|
||||
FD FILE-R.
|
||||
01 REC-R PIC X(80).
|
||||
FD FILE-S.
|
||||
01 REC-S PIC X(80).
|
||||
WORKING-STORAGE SECTION.
|
||||
01 WS-KEY-R PIC X(10).
|
||||
01 WS-KEY-S PIC X(10).
|
||||
01 WS-ALT-KEY PIC X(10).
|
||||
01 WS-R-EOF PIC X VALUE 'N'.
|
||||
01 WS-S-EOF PIC X VALUE 'N'.
|
||||
01 WS-DIFF-FLAG PIC X VALUE 'N'.
|
||||
01 WS-CROSS-COUNT PIC 9(4) VALUE 0.
|
||||
PROCEDURE DIVISION.
|
||||
MAIN-PROCEDURE.
|
||||
OPEN INPUT FILE-R FILE-S.
|
||||
READ FILE-R AT END MOVE 'Y' TO WS-R-EOF.
|
||||
READ FILE-S AT END MOVE 'Y' TO WS-S-EOF.
|
||||
PERFORM UNTIL WS-R-EOF = 'Y' OR WS-S-EOF = 'Y'
|
||||
MOVE WS-KEY-R TO WS-ALT-KEY
|
||||
IF WS-KEY-R = WS-KEY-S
|
||||
ADD 1 TO WS-CROSS-COUNT
|
||||
MOVE 'Y' TO WS-DIFF-FLAG
|
||||
READ FILE-R AT END MOVE 'Y' TO WS-R-EOF
|
||||
READ FILE-S AT END MOVE 'Y' TO WS-S-EOF
|
||||
ELSE IF WS-ALT-KEY < WS-KEY-S
|
||||
READ FILE-R AT END MOVE 'Y' TO WS-R-EOF
|
||||
ELSE
|
||||
READ FILE-S AT END MOVE 'Y' TO WS-S-EOF
|
||||
END-IF
|
||||
END-PERFORM.
|
||||
DISPLAY 'CROSS MATCHES: ' WS-CROSS-COUNT.
|
||||
CLOSE FILE-R FILE-S.
|
||||
STOP RUN.
|
||||
Reference in New Issue
Block a user