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:
@@ -0,0 +1,34 @@
|
||||
* ==== TYPE: DB01 SELECT-UPDATE ====
|
||||
*> FEATURE: EXEC SQL + INSERT/UPDATE simulation
|
||||
*> NOTE: SQL keywords marked with *> not for compilation
|
||||
IDENTIFICATION DIVISION.
|
||||
PROGRAM-ID. DB01.
|
||||
DATA DIVISION.
|
||||
WORKING-STORAGE SECTION.
|
||||
01 WS-EMP-ID PIC X(10).
|
||||
01 WS-EMP-NAME PIC X(30).
|
||||
01 WS-EMP-SALARY PIC 9(7)V99.
|
||||
01 WS-SQLCODE PIC S9(4) COMP.
|
||||
01 WS-SQLMSG PIC X(50).
|
||||
PROCEDURE DIVISION.
|
||||
*> EXEC SQL
|
||||
*> SELECT EMP_NAME, EMP_SALARY
|
||||
*> INTO :WS-EMP-NAME, :WS-EMP-SALARY
|
||||
*> FROM EMPLOYEE
|
||||
*> WHERE EMP_ID = :WS-EMP-ID
|
||||
*> END-EXEC.
|
||||
DISPLAY 'SELECTED: ' WS-EMP-NAME.
|
||||
*> EXEC SQL
|
||||
*> UPDATE EMPLOYEE
|
||||
*> SET EMP_SALARY = :WS-EMP-SALARY
|
||||
*> WHERE EMP_ID = :WS-EMP-ID
|
||||
*> END-EXEC.
|
||||
DISPLAY 'UPDATED: ' WS-EMP-ID.
|
||||
*> EXEC SQL
|
||||
*> INSERT INTO EMPLOYEE
|
||||
*> (EMP_ID, EMP_NAME, EMP_SALARY)
|
||||
*> VALUES (:WS-EMP-ID, :WS-EMP-NAME,
|
||||
*> :WS-EMP-SALARY)
|
||||
*> END-EXEC.
|
||||
DISPLAY 'INSERTED: ' WS-EMP-ID.
|
||||
STOP RUN.
|
||||
Reference in New Issue
Block a user