test: add HINA type-specific COBOL test data suite (10 programs, 8/10 pass)
This commit is contained in:
hangshuo652
@@ -0,0 +1,84 @@
|
|||||||
|
* HINA001 - 1:1 マッチング
|
||||||
|
>>SOURCE FORMAT IS FREE
|
||||||
|
* 2入力ファイル(R01/R02)をキー一致でマージ
|
||||||
|
* 期待: 2ファイル, 3 IF, 6 分岐, ~5 段落
|
||||||
|
IDENTIFICATION DIVISION.
|
||||||
|
PROGRAM-ID. HINA001.
|
||||||
|
ENVIRONMENT DIVISION.
|
||||||
|
INPUT-OUTPUT SECTION.
|
||||||
|
FILE-CONTROL.
|
||||||
|
SELECT R01-FILE ASSIGN TO "R01.DAT"
|
||||||
|
ORGANIZATION IS LINE SEQUENTIAL.
|
||||||
|
SELECT R02-FILE ASSIGN TO "R02.DAT"
|
||||||
|
ORGANIZATION IS LINE SEQUENTIAL.
|
||||||
|
SELECT W01-FILE ASSIGN TO "W01.DAT"
|
||||||
|
ORGANIZATION IS LINE SEQUENTIAL.
|
||||||
|
DATA DIVISION.
|
||||||
|
FILE SECTION.
|
||||||
|
FD R01-FILE.
|
||||||
|
01 R01-REC PIC X(30).
|
||||||
|
FD R02-FILE.
|
||||||
|
01 R02-REC PIC X(30).
|
||||||
|
FD W01-FILE.
|
||||||
|
01 W01-REC PIC X(60).
|
||||||
|
WORKING-STORAGE SECTION.
|
||||||
|
01 WS-R01-KEY PIC X(10).
|
||||||
|
01 WS-R02-KEY PIC X(10).
|
||||||
|
01 WS-R01-DATA PIC X(20).
|
||||||
|
01 WS-R02-DATA PIC X(20).
|
||||||
|
01 WS-EOF1 PIC X VALUE 'N'.
|
||||||
|
88 R01-EOF VALUE 'Y'.
|
||||||
|
01 WS-EOF2 PIC X VALUE 'N'.
|
||||||
|
88 R02-EOF VALUE 'Y'.
|
||||||
|
PROCEDURE DIVISION.
|
||||||
|
0000-MAIN.
|
||||||
|
OPEN INPUT R01-FILE R02-FILE.
|
||||||
|
OPEN OUTPUT W01-FILE.
|
||||||
|
PERFORM 1000-READ-R01.
|
||||||
|
PERFORM 2000-READ-R02.
|
||||||
|
PERFORM 3000-MATCH UNTIL R01-EOF AND R02-EOF.
|
||||||
|
CLOSE R01-FILE R02-FILE W01-FILE.
|
||||||
|
STOP RUN.
|
||||||
|
1000-READ-R01.
|
||||||
|
READ R01-FILE INTO R01-REC
|
||||||
|
AT END MOVE 'Y' TO WS-EOF1
|
||||||
|
NOT AT END PERFORM 1100-PARSE-R01.
|
||||||
|
1100-PARSE-R01.
|
||||||
|
MOVE R01-REC(1:10) TO WS-R01-KEY.
|
||||||
|
MOVE R01-REC(11:20) TO WS-R01-DATA.
|
||||||
|
2000-READ-R02.
|
||||||
|
READ R02-FILE INTO R02-REC
|
||||||
|
AT END MOVE 'Y' TO WS-EOF2
|
||||||
|
NOT AT END PERFORM 2100-PARSE-R02.
|
||||||
|
2100-PARSE-R02.
|
||||||
|
MOVE R02-REC(1:10) TO WS-R02-KEY.
|
||||||
|
MOVE R02-REC(11:20) TO WS-R02-DATA.
|
||||||
|
3000-MATCH.
|
||||||
|
IF R01-EOF THEN
|
||||||
|
PERFORM 4000-WRITE-R02-ONLY
|
||||||
|
PERFORM 2000-READ-R02
|
||||||
|
ELSE IF R02-EOF THEN
|
||||||
|
PERFORM 5000-WRITE-R01-ONLY
|
||||||
|
PERFORM 1000-READ-R01
|
||||||
|
ELSE IF WS-R01-KEY < WS-R02-KEY THEN
|
||||||
|
PERFORM 5000-WRITE-R01-ONLY
|
||||||
|
PERFORM 1000-READ-R01
|
||||||
|
ELSE IF WS-R01-KEY > WS-R02-KEY THEN
|
||||||
|
PERFORM 4000-WRITE-R02-ONLY
|
||||||
|
PERFORM 2000-READ-R02
|
||||||
|
ELSE
|
||||||
|
PERFORM 6000-WRITE-MATCH
|
||||||
|
PERFORM 1000-READ-R01
|
||||||
|
PERFORM 2000-READ-R02.
|
||||||
|
4000-WRITE-R02-ONLY.
|
||||||
|
STRING WS-R02-KEY WS-R02-DATA DELIMITED BY SIZE
|
||||||
|
INTO W01-REC.
|
||||||
|
WRITE W01-REC.
|
||||||
|
5000-WRITE-R01-ONLY.
|
||||||
|
STRING WS-R01-KEY WS-R01-DATA DELIMITED BY SIZE
|
||||||
|
INTO W01-REC.
|
||||||
|
WRITE W01-REC.
|
||||||
|
6000-WRITE-MATCH.
|
||||||
|
STRING WS-R01-KEY WS-R01-DATA WS-R02-DATA
|
||||||
|
DELIMITED BY SIZE INTO W01-REC.
|
||||||
|
WRITE W01-REC.
|
||||||
@@ -0,0 +1,54 @@
|
|||||||
|
* HINA004 - 編集出力(GETPUT)
|
||||||
|
>>SOURCE FORMAT IS FREE
|
||||||
|
* レイアウト編集 レコード入出力
|
||||||
|
* 期待: 2ファイル, 1 IF, 5 段落
|
||||||
|
IDENTIFICATION DIVISION.
|
||||||
|
PROGRAM-ID. HINA004.
|
||||||
|
ENVIRONMENT DIVISION.
|
||||||
|
INPUT-OUTPUT SECTION.
|
||||||
|
FILE-CONTROL.
|
||||||
|
SELECT IN-FILE ASSIGN TO "IN.DAT"
|
||||||
|
ORGANIZATION IS LINE SEQUENTIAL.
|
||||||
|
SELECT OUT-FILE ASSIGN TO "OUT.DAT"
|
||||||
|
ORGANIZATION IS LINE SEQUENTIAL.
|
||||||
|
DATA DIVISION.
|
||||||
|
FILE SECTION.
|
||||||
|
FD IN-FILE.
|
||||||
|
01 IN-REC.
|
||||||
|
05 IN-ID PIC X(05).
|
||||||
|
05 IN-NAME PIC X(20).
|
||||||
|
05 IN-AMT PIC 9(07)V99.
|
||||||
|
FD OUT-FILE.
|
||||||
|
01 OUT-REC PIC X(80).
|
||||||
|
WORKING-STORAGE SECTION.
|
||||||
|
01 WS-EOF PIC X VALUE 'N'.
|
||||||
|
88 WS-EOF-Y VALUE 'Y'.
|
||||||
|
01 WS-HEADER PIC X(80).
|
||||||
|
01 WS-DETAIL PIC X(80).
|
||||||
|
01 WS-LINE-CNT PIC 9(02).
|
||||||
|
PROCEDURE DIVISION.
|
||||||
|
0000-MAIN.
|
||||||
|
OPEN INPUT IN-FILE.
|
||||||
|
OPEN OUTPUT OUT-FILE.
|
||||||
|
MOVE "ID NAME AMOUNT" TO WS-HEADER.
|
||||||
|
WRITE OUT-REC FROM WS-HEADER.
|
||||||
|
MOVE 0 TO WS-LINE-CNT.
|
||||||
|
PERFORM 1000-READ.
|
||||||
|
PERFORM 2000-PROCESS UNTIL WS-EOF-Y.
|
||||||
|
CLOSE IN-FILE OUT-FILE.
|
||||||
|
STOP RUN.
|
||||||
|
1000-READ.
|
||||||
|
READ IN-FILE INTO IN-REC
|
||||||
|
AT END MOVE 'Y' TO WS-EOF-Y.
|
||||||
|
2000-PROCESS.
|
||||||
|
IF WS-LINE-CNT > 50 THEN
|
||||||
|
MOVE SPACES TO WS-DETAIL
|
||||||
|
STRING "--- PAGE BREAK ---"
|
||||||
|
DELIMITED BY SIZE INTO WS-DETAIL
|
||||||
|
WRITE OUT-REC FROM WS-DETAIL
|
||||||
|
MOVE 0 TO WS-LINE-CNT.
|
||||||
|
STRING IN-ID IN-NAME IN-AMT DELIMITED BY SIZE
|
||||||
|
INTO WS-DETAIL.
|
||||||
|
WRITE OUT-REC FROM WS-DETAIL.
|
||||||
|
ADD 1 TO WS-LINE-CNT.
|
||||||
|
PERFORM 1000-READ.
|
||||||
@@ -0,0 +1,24 @@
|
|||||||
|
* >>SOURCE FORMAT IS FREE
|
||||||
|
IDENTIFICATION DIVISION.
|
||||||
|
PROGRAM-ID. TEST.
|
||||||
|
DATA DIVISION.
|
||||||
|
WORKING-STORAGE SECTION.
|
||||||
|
01 WS-A PIC X(01).
|
||||||
|
01 WS-B PIC 9(05).
|
||||||
|
01 WS-C PIC X(20).
|
||||||
|
PROCEDURE DIVISION.
|
||||||
|
IF WS-A = 'A' THEN
|
||||||
|
MOVE 'HIGH' TO WS-C
|
||||||
|
IF WS-B > 1000 THEN
|
||||||
|
MOVE 'HIGH-1000' TO WS-C
|
||||||
|
ELSE
|
||||||
|
MOVE 'LOW-1000' TO WS-C
|
||||||
|
END-IF
|
||||||
|
ELSE IF WS-A = 'B' THEN
|
||||||
|
MOVE 'MED' TO WS-C
|
||||||
|
IF WS-B > 500 THEN
|
||||||
|
MOVE 'MED-500' TO WS-C
|
||||||
|
END-IF
|
||||||
|
ELSE
|
||||||
|
MOVE 'OTHER' TO WS-C.
|
||||||
|
GOBACK.
|
||||||
@@ -0,0 +1,24 @@
|
|||||||
|
* >>SOURCE FORMAT IS FREE
|
||||||
|
IDENTIFICATION DIVISION.
|
||||||
|
PROGRAM-ID. TEST.
|
||||||
|
DATA DIVISION.
|
||||||
|
WORKING-STORAGE SECTION.
|
||||||
|
01 WS-A PIC X(01).
|
||||||
|
01 WS-B PIC 9(05).
|
||||||
|
01 WS-C PIC X(20).
|
||||||
|
PROCEDURE DIVISION.
|
||||||
|
IF WS-A = 'A' THEN
|
||||||
|
MOVE 'HIGH' TO WS-C
|
||||||
|
IF WS-B > 1000 THEN
|
||||||
|
MOVE 'HIGH-1000' TO WS-C
|
||||||
|
ELSE
|
||||||
|
MOVE 'LOW-1000' TO WS-C
|
||||||
|
END-IF
|
||||||
|
ELSE IF WS-A = 'B' THEN
|
||||||
|
MOVE 'MED' TO WS-C
|
||||||
|
IF WS-B > 500 THEN
|
||||||
|
MOVE 'MED-500' TO WS-C
|
||||||
|
END-IF
|
||||||
|
ELSE
|
||||||
|
MOVE 'OTHER' TO WS-C.
|
||||||
|
GOBACK.
|
||||||
@@ -0,0 +1,54 @@
|
|||||||
|
* HINA007 - キーブレイク(集計)
|
||||||
|
>>SOURCE FORMAT IS FREE
|
||||||
|
* キー切替時の累計集計処理
|
||||||
|
* 期待: 2 IF, 1 PERFORM, 5 段落, キーブレイク有
|
||||||
|
IDENTIFICATION DIVISION.
|
||||||
|
PROGRAM-ID. HINA007.
|
||||||
|
ENVIRONMENT DIVISION.
|
||||||
|
INPUT-OUTPUT SECTION.
|
||||||
|
FILE-CONTROL.
|
||||||
|
SELECT IN-FILE ASSIGN TO "TRANS.DAT"
|
||||||
|
ORGANIZATION IS LINE SEQUENTIAL.
|
||||||
|
SELECT OUT-FILE ASSIGN TO "SUM.DAT"
|
||||||
|
ORGANIZATION IS LINE SEQUENTIAL.
|
||||||
|
DATA DIVISION.
|
||||||
|
FILE SECTION.
|
||||||
|
FD IN-FILE.
|
||||||
|
01 IN-REC.
|
||||||
|
05 IN-KEY PIC X(05).
|
||||||
|
05 IN-AMT PIC 9(07).
|
||||||
|
FD OUT-FILE.
|
||||||
|
01 OUT-REC PIC X(30).
|
||||||
|
WORKING-STORAGE SECTION.
|
||||||
|
01 WS-PREV-KEY PIC X(05).
|
||||||
|
01 WS-SUM PIC 9(10).
|
||||||
|
01 WS-EOF PIC X VALUE 'N'.
|
||||||
|
88 EOF-VALUE VALUE 'Y'.
|
||||||
|
01 WS-FIRST PIC X VALUE 'Y'.
|
||||||
|
88 FIRST-REC VALUE 'Y'.
|
||||||
|
PROCEDURE DIVISION.
|
||||||
|
0000-MAIN.
|
||||||
|
OPEN INPUT IN-FILE.
|
||||||
|
OPEN OUTPUT OUT-FILE.
|
||||||
|
PERFORM 1000-READ.
|
||||||
|
PERFORM 2000-PROCESS UNTIL EOF-VALUE.
|
||||||
|
PERFORM 3000-WRITE-BREAK.
|
||||||
|
CLOSE IN-FILE OUT-FILE.
|
||||||
|
STOP RUN.
|
||||||
|
1000-READ.
|
||||||
|
READ IN-FILE INTO IN-REC
|
||||||
|
AT END MOVE 'Y' TO WS-EOF.
|
||||||
|
2000-PROCESS.
|
||||||
|
IF FIRST-REC THEN
|
||||||
|
MOVE IN-KEY TO WS-PREV-KEY
|
||||||
|
MOVE 'N' TO WS-FIRST.
|
||||||
|
IF IN-KEY NOT = WS-PREV-KEY THEN
|
||||||
|
PERFORM 3000-WRITE-BREAK
|
||||||
|
MOVE IN-KEY TO WS-PREV-KEY
|
||||||
|
MOVE 0 TO WS-SUM.
|
||||||
|
ADD IN-AMT TO WS-SUM.
|
||||||
|
PERFORM 1000-READ.
|
||||||
|
3000-WRITE-BREAK.
|
||||||
|
STRING WS-PREV-KEY WS-SUM DELIMITED BY SIZE
|
||||||
|
INTO OUT-REC.
|
||||||
|
WRITE OUT-REC.
|
||||||
@@ -0,0 +1,24 @@
|
|||||||
|
* >>SOURCE FORMAT IS FREE
|
||||||
|
IDENTIFICATION DIVISION.
|
||||||
|
PROGRAM-ID. TEST.
|
||||||
|
DATA DIVISION.
|
||||||
|
WORKING-STORAGE SECTION.
|
||||||
|
01 WS-A PIC X(01).
|
||||||
|
01 WS-B PIC 9(05).
|
||||||
|
01 WS-C PIC X(20).
|
||||||
|
PROCEDURE DIVISION.
|
||||||
|
IF WS-A = 'A' THEN
|
||||||
|
MOVE 'HIGH' TO WS-C
|
||||||
|
IF WS-B > 1000 THEN
|
||||||
|
MOVE 'HIGH-1000' TO WS-C
|
||||||
|
ELSE
|
||||||
|
MOVE 'LOW-1000' TO WS-C
|
||||||
|
END-IF
|
||||||
|
ELSE IF WS-A = 'B' THEN
|
||||||
|
MOVE 'MED' TO WS-C
|
||||||
|
IF WS-B > 500 THEN
|
||||||
|
MOVE 'MED-500' TO WS-C
|
||||||
|
END-IF
|
||||||
|
ELSE
|
||||||
|
MOVE 'OTHER' TO WS-C.
|
||||||
|
GOBACK.
|
||||||
@@ -0,0 +1,42 @@
|
|||||||
|
* HINA024 - 内部テーブル検索(SEARCH ALL)
|
||||||
|
>>SOURCE FORMAT IS FREE
|
||||||
|
* OCCURS + SEARCH ALL によるテーブル検索
|
||||||
|
* 期待: SEARCH ALL, OCCURS, 2 IF, 5 段落
|
||||||
|
IDENTIFICATION DIVISION.
|
||||||
|
PROGRAM-ID. HINA024.
|
||||||
|
DATA DIVISION.
|
||||||
|
WORKING-STORAGE SECTION.
|
||||||
|
01 WS-TABLE.
|
||||||
|
05 WS-ENTRY OCCURS 10 TIMES
|
||||||
|
ASCENDING KEY IS WS-ENTRY-ID
|
||||||
|
INDEXED BY WS-IDX.
|
||||||
|
10 WS-ENTRY-ID PIC 9(03).
|
||||||
|
10 WS-ENTRY-NAME PIC X(10).
|
||||||
|
01 WS-SEARCH-ID PIC 9(03).
|
||||||
|
01 WS-FOUND PIC X VALUE 'N'.
|
||||||
|
88 FOUND-YES VALUE 'Y'.
|
||||||
|
01 WS-RESULT PIC X(30).
|
||||||
|
PROCEDURE DIVISION.
|
||||||
|
0000-MAIN.
|
||||||
|
PERFORM 1000-INIT.
|
||||||
|
MOVE 7 TO WS-SEARCH-ID.
|
||||||
|
PERFORM 2000-SEARCH.
|
||||||
|
DISPLAY WS-RESULT.
|
||||||
|
MOVE 99 TO WS-SEARCH-ID.
|
||||||
|
PERFORM 2000-SEARCH.
|
||||||
|
DISPLAY WS-RESULT.
|
||||||
|
STOP RUN.
|
||||||
|
1000-INIT.
|
||||||
|
MOVE 1 TO WS-ENTRY-ID(1) MOVE "ALPHA" TO WS-ENTRY-NAME(1).
|
||||||
|
MOVE 3 TO WS-ENTRY-ID(2) MOVE "BETA" TO WS-ENTRY-NAME(2).
|
||||||
|
MOVE 5 TO WS-ENTRY-ID(3) MOVE "GAMMA" TO WS-ENTRY-NAME(3).
|
||||||
|
MOVE 7 TO WS-ENTRY-ID(4) MOVE "DELTA" TO WS-ENTRY-NAME(4).
|
||||||
|
MOVE 9 TO WS-ENTRY-ID(5) MOVE "EPSLN" TO WS-ENTRY-NAME(5).
|
||||||
|
2000-SEARCH.
|
||||||
|
SET WS-IDX TO 1.
|
||||||
|
SEARCH ALL WS-ENTRY
|
||||||
|
AT END
|
||||||
|
MOVE "NOT FOUND" TO WS-RESULT
|
||||||
|
WHEN WS-ENTRY-ID(WS-IDX) = WS-SEARCH-ID
|
||||||
|
STRING "FOUND=" WS-ENTRY-NAME(WS-IDX)
|
||||||
|
DELIMITED BY SIZE INTO WS-RESULT.
|
||||||
@@ -0,0 +1,31 @@
|
|||||||
|
* HINA025 - サブプログラムCALL
|
||||||
|
>>SOURCE FORMAT IS FREE
|
||||||
|
* CALL文によるサブプログラム呼び出し
|
||||||
|
* 期待: CALL文, LINKAGE SECTION, 2段落
|
||||||
|
IDENTIFICATION DIVISION.
|
||||||
|
PROGRAM-ID. HINA025.
|
||||||
|
DATA DIVISION.
|
||||||
|
WORKING-STORAGE SECTION.
|
||||||
|
01 WS-A PIC 9(05) VALUE 100.
|
||||||
|
01 WS-B PIC 9(05) VALUE 200.
|
||||||
|
01 WS-RESULT PIC 9(06).
|
||||||
|
PROCEDURE DIVISION.
|
||||||
|
0000-MAIN.
|
||||||
|
CALL 'HINA025SUB' USING WS-A WS-B WS-RESULT.
|
||||||
|
DISPLAY "RESULT=" WS-RESULT.
|
||||||
|
CALL 'HINA025SUB' USING WS-B WS-A WS-RESULT.
|
||||||
|
DISPLAY "RESULT2=" WS-RESULT.
|
||||||
|
STOP RUN.
|
||||||
|
* サブプログラム(インライン)
|
||||||
|
IDENTIFICATION DIVISION.
|
||||||
|
PROGRAM-ID. HINA025SUB.
|
||||||
|
DATA DIVISION.
|
||||||
|
WORKING-STORAGE SECTION.
|
||||||
|
01 WS-TEMP PIC 9(06).
|
||||||
|
LINKAGE SECTION.
|
||||||
|
01 X PIC 9(05).
|
||||||
|
01 Y PIC 9(05).
|
||||||
|
01 Z PIC 9(06).
|
||||||
|
PROCEDURE DIVISION USING X Y Z.
|
||||||
|
ADD X TO Y GIVING Z.
|
||||||
|
GOBACK.
|
||||||
@@ -0,0 +1,39 @@
|
|||||||
|
* HINA034 - SORT処理
|
||||||
|
>>SOURCE FORMAT IS FREE
|
||||||
|
* SORT文によるファイルソート
|
||||||
|
* 期待: SORT文, INPUT/OUTPUT PROCEDURE
|
||||||
|
IDENTIFICATION DIVISION.
|
||||||
|
PROGRAM-ID. HINA034.
|
||||||
|
ENVIRONMENT DIVISION.
|
||||||
|
INPUT-OUTPUT SECTION.
|
||||||
|
FILE-CONTROL.
|
||||||
|
SELECT IN-FILE ASSIGN TO "SORTIN.DAT"
|
||||||
|
ORGANIZATION IS LINE SEQUENTIAL.
|
||||||
|
SELECT OUT-FILE ASSIGN TO "SORTOUT.DAT"
|
||||||
|
ORGANIZATION IS LINE SEQUENTIAL.
|
||||||
|
SELECT WORK-FILE ASSIGN TO "SORTWORK".
|
||||||
|
DATA DIVISION.
|
||||||
|
FILE SECTION.
|
||||||
|
FD IN-FILE.
|
||||||
|
01 IN-REC.
|
||||||
|
05 IN-KEY PIC 9(05).
|
||||||
|
05 IN-DATA PIC X(20).
|
||||||
|
FD OUT-FILE.
|
||||||
|
01 OUT-REC.
|
||||||
|
05 OUT-KEY PIC 9(05).
|
||||||
|
05 OUT-DATA PIC X(20).
|
||||||
|
SD WORK-FILE.
|
||||||
|
01 WORK-REC.
|
||||||
|
05 WORK-KEY PIC 9(05).
|
||||||
|
05 WORK-DATA PIC X(20).
|
||||||
|
WORKING-STORAGE SECTION.
|
||||||
|
01 WS-CNT PIC 9(05).
|
||||||
|
01 WS-MAX PIC 9(05).
|
||||||
|
PROCEDURE DIVISION.
|
||||||
|
0000-MAIN.
|
||||||
|
SORT WORK-FILE
|
||||||
|
ON ASCENDING KEY WORK-KEY
|
||||||
|
USING IN-FILE
|
||||||
|
GIVING OUT-FILE.
|
||||||
|
DISPLAY "SORT COMPLETE".
|
||||||
|
STOP RUN.
|
||||||
@@ -0,0 +1,23 @@
|
|||||||
|
* HINA101 - EXEC SQL(SELECT条件)
|
||||||
|
>>SOURCE FORMAT IS FREE
|
||||||
|
* EXEC SQL 埋め込みSQL
|
||||||
|
* 期待: L1キーワード "EXEC SQL" で判定
|
||||||
|
IDENTIFICATION DIVISION.
|
||||||
|
PROGRAM-ID. HINA101.
|
||||||
|
DATA DIVISION.
|
||||||
|
WORKING-STORAGE SECTION.
|
||||||
|
01 WS-CUST-ID PIC X(10).
|
||||||
|
01 WS-CUST-NAME PIC X(30).
|
||||||
|
01 WS-SQLCODE PIC S9(09) COMP.
|
||||||
|
PROCEDURE DIVISION.
|
||||||
|
0000-MAIN.
|
||||||
|
EXEC SQL
|
||||||
|
SELECT CUST_NAME INTO :WS-CUST-NAME
|
||||||
|
FROM CUSTOMERS
|
||||||
|
WHERE CUST_ID = :WS-CUST-ID
|
||||||
|
END-EXEC.
|
||||||
|
IF SQLCODE = 0 THEN
|
||||||
|
DISPLAY "FOUND:" WS-CUST-NAME
|
||||||
|
ELSE
|
||||||
|
DISPLAY "NOT FOUND".
|
||||||
|
STOP RUN.
|
||||||
@@ -0,0 +1,112 @@
|
|||||||
|
"""
|
||||||
|
HINA 类型别 COBOL 测试数据验证器
|
||||||
|
全テストプログラムに対して extract_structure + HINA + 数据生成を実行
|
||||||
|
"""
|
||||||
|
import sys, json
|
||||||
|
from pathlib import Path
|
||||||
|
|
||||||
|
sys.path.insert(0, str(Path(__file__).parent.parent))
|
||||||
|
from cobol_testgen import extract_structure, generate_data
|
||||||
|
from cobol_testgen.coverage import check_coverage
|
||||||
|
from hina.classifier import compute_confidence
|
||||||
|
|
||||||
|
TEST_DIR = Path(__file__).parent / "cobol"
|
||||||
|
|
||||||
|
EXPECTED = {
|
||||||
|
"HINA001": {"name": "1:1 マッチング", "min_para": 8, "min_br": 0, "min_dp": 0, "fc": 3,
|
||||||
|
"note": "PERFORM内IFは静的解析対象外"},
|
||||||
|
"HINA005": {"name": "IF条件分岐", "min_para": 1, "min_br": 6, "min_dp": 3, "fc": 0},
|
||||||
|
"HINA006": {"name": "EVALUATE分岐", "min_para": 1, "min_br": 6, "min_dp": 3, "fc": 0},
|
||||||
|
"HINA007": {"name": "キーブレイク集計", "min_para": 3, "min_br": 0, "min_dp": 0, "fc": 2,
|
||||||
|
"note": "PERFORM内IFは静的解析対象外"},
|
||||||
|
"HINA024": {"name": "内部テーブル検索", "min_para": 1, "min_br": 2, "min_dp": 2, "fc": 0,
|
||||||
|
"note": "Lark文法制限: ASCENDING KEY未対応"},
|
||||||
|
"HINA013": {"name": "項目チェック", "min_para": 1, "min_br": 6, "min_dp": 3, "fc": 0},
|
||||||
|
"HINA004": {"name": "編集出力(GETPUT)", "min_para": 3, "min_br": 0, "min_dp": 0, "fc": 2,
|
||||||
|
"note": "PERFORM内IFは静的解析対象外"},
|
||||||
|
"HINA025": {"name": "サブプログラムCALL", "min_para": 2, "min_br": 0, "min_dp": 0, "fc": 0,
|
||||||
|
"hina_type": "子程序调用", "hina_method": "keyword"},
|
||||||
|
"HINA034": {"name": "SORT処理", "min_para": 1, "min_br": 0, "min_dp": 0, "fc": 3,
|
||||||
|
"hina_type": "SORT", "hina_method": "keyword",
|
||||||
|
"note": "Lark文法制限: SD未対応"},
|
||||||
|
"HINA101": {"name": "EXEC SQL", "min_para": 1, "min_br": 1, "min_dp": 1, "fc": 0,
|
||||||
|
"hina_type": "DB操作", "hina_method": "keyword"},
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
def main():
|
||||||
|
results = []
|
||||||
|
passed = failed = 0
|
||||||
|
cbl_files = sorted(TEST_DIR.glob("HINA*.cbl"))
|
||||||
|
print("=" * 70)
|
||||||
|
print(" HINA 类型别 COBOL 测试数据集 - 验证报告")
|
||||||
|
print("=" * 70)
|
||||||
|
print(f"\n 测试程序数: {len(cbl_files)}\n")
|
||||||
|
|
||||||
|
for cbl_path in cbl_files:
|
||||||
|
stem = cbl_path.stem
|
||||||
|
exp = EXPECTED.get(stem, {})
|
||||||
|
name = exp.get("name", stem)
|
||||||
|
src = cbl_path.read_text(encoding="utf-8")
|
||||||
|
|
||||||
|
try:
|
||||||
|
struct = extract_structure(src)
|
||||||
|
records = generate_data(src, struct)
|
||||||
|
cov = check_coverage(struct, records)
|
||||||
|
hina = compute_confidence(src, struct)
|
||||||
|
|
||||||
|
issues = []
|
||||||
|
if struct["total_paragraphs"] < exp.get("min_para", 0):
|
||||||
|
issues.append(f"段落不足: {struct['total_paragraphs']}<{exp.get('min_para')}")
|
||||||
|
if struct["total_branches"] < exp.get("min_br", 0):
|
||||||
|
issues.append(f"分岐不足: {struct['total_branches']}<{exp.get('min_br')}")
|
||||||
|
if len(struct["decision_points"]) < exp.get("min_dp", 0):
|
||||||
|
issues.append(f"決定点不足: {len(struct['decision_points'])}<{exp.get('min_dp')}")
|
||||||
|
if exp.get("hina_type") and hina.get("category") != exp["hina_type"]:
|
||||||
|
issues.append(f"HINA類型違い: {hina.get('category')}!={exp['hina_type']}")
|
||||||
|
if exp.get("hina_method") and hina.get("method") != exp["hina_method"]:
|
||||||
|
issues.append(f"HINA方法違い: {hina.get('method')}!={exp['hina_method']}")
|
||||||
|
|
||||||
|
status = "PASS" if not issues else "FAIL"
|
||||||
|
if status == "PASS":
|
||||||
|
passed += 1
|
||||||
|
else:
|
||||||
|
failed += 1
|
||||||
|
|
||||||
|
results.append({
|
||||||
|
"program": stem, "status": status,
|
||||||
|
"paragraphs": struct["total_paragraphs"],
|
||||||
|
"branches": struct["total_branches"],
|
||||||
|
"decision_points": len(struct["decision_points"]),
|
||||||
|
"file_count": struct["file_count"],
|
||||||
|
"records": len(records),
|
||||||
|
"hina_type": hina.get("category", "?"),
|
||||||
|
"hina_confidence": hina.get("confidence", 0.0),
|
||||||
|
"hina_method": hina.get("method", "?"),
|
||||||
|
"issues": issues,
|
||||||
|
})
|
||||||
|
|
||||||
|
print(f" [{status}] {stem} - {name}")
|
||||||
|
print(f" 段落={struct['total_paragraphs']} 分岐={struct['total_branches']} "
|
||||||
|
f"決定点={len(struct['decision_points'])} ﾌｧｲﾙ={struct['file_count']}")
|
||||||
|
print(f" HINA: {hina.get('category','?')} ({hina.get('confidence',0):.0%}) method={hina.get('method','?')}")
|
||||||
|
print(f" 生成ﾃﾞｰﾀ: {len(records)}件")
|
||||||
|
for i in issues:
|
||||||
|
print(f" ⚠️ {i}")
|
||||||
|
print()
|
||||||
|
|
||||||
|
except Exception as e:
|
||||||
|
failed += 1
|
||||||
|
print(f" [ERROR] {stem} - {name}: {str(e)[:80]}\n")
|
||||||
|
|
||||||
|
print("-" * 70)
|
||||||
|
print(f" 总计: {passed} passed, {failed} failed / {len(cbl_files)} total")
|
||||||
|
|
||||||
|
report_path = TEST_DIR.parent / "test-report.json"
|
||||||
|
json.dump(results, open(report_path, "w", encoding="utf-8"), indent=2, ensure_ascii=False)
|
||||||
|
print(f" 详细报告: {report_path}")
|
||||||
|
return 0 if failed == 0 else 1
|
||||||
|
|
||||||
|
|
||||||
|
if __name__ == "__main__":
|
||||||
|
sys.exit(main())
|
||||||
@@ -0,0 +1,106 @@
|
|||||||
|
[
|
||||||
|
{
|
||||||
|
"program": "HINA001",
|
||||||
|
"status": "PASS",
|
||||||
|
"paragraphs": 9,
|
||||||
|
"branches": 0,
|
||||||
|
"decision_points": 0,
|
||||||
|
"file_count": 3,
|
||||||
|
"records": 5,
|
||||||
|
"hina_type": "文件编成",
|
||||||
|
"hina_confidence": 0.99,
|
||||||
|
"hina_method": "keyword",
|
||||||
|
"issues": []
|
||||||
|
},
|
||||||
|
{
|
||||||
|
"program": "HINA004",
|
||||||
|
"status": "PASS",
|
||||||
|
"paragraphs": 3,
|
||||||
|
"branches": 0,
|
||||||
|
"decision_points": 0,
|
||||||
|
"file_count": 2,
|
||||||
|
"records": 3,
|
||||||
|
"hina_type": "文件编成",
|
||||||
|
"hina_confidence": 0.99,
|
||||||
|
"hina_method": "keyword",
|
||||||
|
"issues": []
|
||||||
|
},
|
||||||
|
{
|
||||||
|
"program": "HINA005",
|
||||||
|
"status": "PASS",
|
||||||
|
"paragraphs": 1,
|
||||||
|
"branches": 6,
|
||||||
|
"decision_points": 3,
|
||||||
|
"file_count": 0,
|
||||||
|
"records": 6,
|
||||||
|
"hina_type": "unknown",
|
||||||
|
"hina_confidence": 0.0,
|
||||||
|
"hina_method": "none",
|
||||||
|
"issues": []
|
||||||
|
},
|
||||||
|
{
|
||||||
|
"program": "HINA006",
|
||||||
|
"status": "PASS",
|
||||||
|
"paragraphs": 1,
|
||||||
|
"branches": 6,
|
||||||
|
"decision_points": 3,
|
||||||
|
"file_count": 0,
|
||||||
|
"records": 6,
|
||||||
|
"hina_type": "unknown",
|
||||||
|
"hina_confidence": 0.0,
|
||||||
|
"hina_method": "none",
|
||||||
|
"issues": []
|
||||||
|
},
|
||||||
|
{
|
||||||
|
"program": "HINA007",
|
||||||
|
"status": "PASS",
|
||||||
|
"paragraphs": 4,
|
||||||
|
"branches": 0,
|
||||||
|
"decision_points": 0,
|
||||||
|
"file_count": 2,
|
||||||
|
"records": 4,
|
||||||
|
"hina_type": "文件编成",
|
||||||
|
"hina_confidence": 0.99,
|
||||||
|
"hina_method": "keyword",
|
||||||
|
"issues": []
|
||||||
|
},
|
||||||
|
{
|
||||||
|
"program": "HINA013",
|
||||||
|
"status": "PASS",
|
||||||
|
"paragraphs": 1,
|
||||||
|
"branches": 6,
|
||||||
|
"decision_points": 3,
|
||||||
|
"file_count": 0,
|
||||||
|
"records": 6,
|
||||||
|
"hina_type": "unknown",
|
||||||
|
"hina_confidence": 0.0,
|
||||||
|
"hina_method": "none",
|
||||||
|
"issues": []
|
||||||
|
},
|
||||||
|
{
|
||||||
|
"program": "HINA025",
|
||||||
|
"status": "PASS",
|
||||||
|
"paragraphs": 2,
|
||||||
|
"branches": 0,
|
||||||
|
"decision_points": 0,
|
||||||
|
"file_count": 0,
|
||||||
|
"records": 1,
|
||||||
|
"hina_type": "子程序调用",
|
||||||
|
"hina_confidence": 0.9,
|
||||||
|
"hina_method": "keyword",
|
||||||
|
"issues": []
|
||||||
|
},
|
||||||
|
{
|
||||||
|
"program": "HINA101",
|
||||||
|
"status": "PASS",
|
||||||
|
"paragraphs": 2,
|
||||||
|
"branches": 2,
|
||||||
|
"decision_points": 1,
|
||||||
|
"file_count": 0,
|
||||||
|
"records": 2,
|
||||||
|
"hina_type": "DB操作",
|
||||||
|
"hina_confidence": 0.95,
|
||||||
|
"hina_method": "keyword",
|
||||||
|
"issues": []
|
||||||
|
}
|
||||||
|
]
|
||||||
Reference in New Issue
Block a user