cobol-parser 3.4.0__tar.gz → 3.5.0__tar.gz

cobol_parser-3.5.0/MANIFEST.in

@@ -0,0 +1,3 @@
+include cobolparser/*.pyx
+include cobolparser/*.c
+recursive-include cobolparser/preprocess/system_copybooks *.cpy

{cobol_parser-3.4.0/cobol_parser.egg-info → cobol_parser-3.5.0}/PKG-INFO

@@ -1,6 +1,6 @@
 Metadata-Version: 2.4
 Name: cobol-parser
-Version: 3.4.0
+Version: 3.5.0
 Summary: A comprehensive COBOL parser for Python with IBM Enterprise COBOL focus
 Author-email: Samuel Dion <sam94dion@gmail.com>
 License: AGPL-3.0-or-later
@@ -211,8 +211,12 @@ cobol-parser tokenize src/ORDPOST.cbl
 cobol-parser lint src/ORDPOST.cbl --format text
 cobol-parser lint src/*.cbl --format text --min-severity warning --fail-on error
 cobol-parser lint --glob 'src/**/*.cbl' --rule dead-code --rule move-type-check
+cobol-parser lint src/ORDRPT.cbl src/ORDEDIT.cbl --rule truncation --rule file-status --format text
+cobol-parser lint src/ORDPOST.cbl --callee-path src --format text   # also checks each CALL against its callee
 cobol-parser lint --changed-since origin/main --format github --fail-on error
 cobol-parser lint src/*.cbl --format sarif -o lint.sarif
+cobol-parser lint --glob 'src/**/*.cbl' --write-baseline lint-baseline.json
+cobol-parser lint --glob 'src/**/*.cbl' --baseline lint-baseline.json --fail-on warning
 cobol-parser scan --glob 'src/*.cbl' --analyzer health --clones --cache-dir .cache
 cobol-parser scan src/*.cbl --format sarif -o scan.sarif
 cobol-parser config
@@ -222,15 +226,51 @@ cobol-parser config
 $ cobol-parser lint src/ORDPOST.cbl --format text
 src/ORDPOST.cbl:54:8: warning [dead-code] paragraph 9000-OLD-RECALC can never be reached
 src/ORDPOST.cbl:56:8: warning [dead-code] paragraph 9100-OLD-AUDIT can never be reached
-2 finding(s): 0 error, 2 warning, 0 info (10 rule(s) ran)
+2 finding(s): 0 error, 2 warning, 0 info (17 rule(s) ran)
+```
+
+```text
+$ cobol-parser lint src/ORDRPT.cbl src/ORDEDIT.cbl --rule truncation --rule file-status --format text
+src/ORDRPT.cbl:35:12: warning [truncation] MOVE WS-TOTAL (signed 11 integer + 2 decimal digits) TO RPT-TOTAL (signed 10 integer + 2 decimal digits) loses high-order digits
+src/ORDRPT.cbl:36:12: warning [truncation] MOVE WS-FEES (signed 7 integer + 2 decimal digits) TO RPT-FEES (signed 6 integer + 2 decimal digits) loses high-order digits
+src/ORDEDIT.cbl:7:12: warning [file-status] file ORDER-IN declares FILE STATUS WS-IN-STAT, but the program never tests it: a failed OPEN, READ or WRITE goes unnoticed
+...
+5 finding(s) in 2 file(s): 0 error, 5 warning, 0 info
 ```
 
 `lint` runs nine analyzers over one parse: dead code, unused variables, MOVE
 type checks, I/O sequencing, LINKAGE checks, recursion risk, complexity,
 DCLGEN and SQL/CICS checks, plus `line-length` (fixed-format text past
 column 80, or a word cut at column 72, in the program and its copybooks).
+Seven bug-pattern rules look for classic production bugs that compile
+cleanly:
+
+| Rule | Finds |
+|---|---|
+| `truncation` | A MOVE, ADD, SUBTRACT or COMPUTE that cuts digits or characters (`9(9)` into `9(3)`; a literal longer than its receiver) |
+| `subscript-range` | A literal subscript outside the OCCURS bounds (`WS-ENT(11)` on `OCCURS 10`) |
+| `next-sentence` | NEXT SENTENCE inside an IF closed by END-IF, which skips the statements after the END-IF |
+| `perform-range` | `PERFORM B THRU A` backwards, a GO TO out of a PERFORM range, a main line that falls into a PERFORMed paragraph |
+| `file-status` | A FILE STATUS the program never tests |
+| `uninitialized` | A numeric item read but never set, with no VALUE |
+| `obsolete-verb` | ALTER |
+
+With `--callee-path DIR` (or `callee_path` in `cobol.yml`), the `call-check`
+rule also compares every CALL with the program it calls (argument count,
+passing mode, byte length, usage), so a caller passing 8 bytes to a 10-byte
+LINKAGE item fails the lint gate.
 `--rule` narrows the run, `--min-severity` the output, and `--fail-on error`
+
+`--rule` and `--disable` narrow the run, `--severity RULE=LEVEL` re-grades a
+rule, `--min-severity` trims the output (by default `text` and `github` show
+warnings and errors, `json` and `sarif` everything), and `--fail-on error`
 exits 3 when a finding at that severity was reported, so it can gate a build.
+A comment silences one finding where it is (`*> cobol-lint:
+disable-next-line=dead-code`), and `--write-baseline` / `--baseline` record
+today's findings so a gate on a legacy codebase fails only on new ones.
+IBM's CICS copybooks `DFHAID` and `DFHBMSCA` are built in, and a copybook
+that cannot be found is named in the report's caveats instead of failing the
+file (`--strict-copybooks` restores the failure).
 It takes many files at once (`FILE...`, `--glob`, `--files-from`),
 `--changed-since REF` lints only the programs a git change touched (and those
 that `COPY` a changed copybook), and `--format github` annotates the pull

{cobol_parser-3.4.0 → cobol_parser-3.5.0}/README.md

@@ -161,8 +161,12 @@ cobol-parser tokenize src/ORDPOST.cbl
 cobol-parser lint src/ORDPOST.cbl --format text
 cobol-parser lint src/*.cbl --format text --min-severity warning --fail-on error
 cobol-parser lint --glob 'src/**/*.cbl' --rule dead-code --rule move-type-check
+cobol-parser lint src/ORDRPT.cbl src/ORDEDIT.cbl --rule truncation --rule file-status --format text
+cobol-parser lint src/ORDPOST.cbl --callee-path src --format text   # also checks each CALL against its callee
 cobol-parser lint --changed-since origin/main --format github --fail-on error
 cobol-parser lint src/*.cbl --format sarif -o lint.sarif
+cobol-parser lint --glob 'src/**/*.cbl' --write-baseline lint-baseline.json
+cobol-parser lint --glob 'src/**/*.cbl' --baseline lint-baseline.json --fail-on warning
 cobol-parser scan --glob 'src/*.cbl' --analyzer health --clones --cache-dir .cache
 cobol-parser scan src/*.cbl --format sarif -o scan.sarif
 cobol-parser config
@@ -172,15 +176,51 @@ cobol-parser config
 $ cobol-parser lint src/ORDPOST.cbl --format text
 src/ORDPOST.cbl:54:8: warning [dead-code] paragraph 9000-OLD-RECALC can never be reached
 src/ORDPOST.cbl:56:8: warning [dead-code] paragraph 9100-OLD-AUDIT can never be reached
-2 finding(s): 0 error, 2 warning, 0 info (10 rule(s) ran)
+2 finding(s): 0 error, 2 warning, 0 info (17 rule(s) ran)
+```
+
+```text
+$ cobol-parser lint src/ORDRPT.cbl src/ORDEDIT.cbl --rule truncation --rule file-status --format text
+src/ORDRPT.cbl:35:12: warning [truncation] MOVE WS-TOTAL (signed 11 integer + 2 decimal digits) TO RPT-TOTAL (signed 10 integer + 2 decimal digits) loses high-order digits
+src/ORDRPT.cbl:36:12: warning [truncation] MOVE WS-FEES (signed 7 integer + 2 decimal digits) TO RPT-FEES (signed 6 integer + 2 decimal digits) loses high-order digits
+src/ORDEDIT.cbl:7:12: warning [file-status] file ORDER-IN declares FILE STATUS WS-IN-STAT, but the program never tests it: a failed OPEN, READ or WRITE goes unnoticed
+...
+5 finding(s) in 2 file(s): 0 error, 5 warning, 0 info
 ```
 
 `lint` runs nine analyzers over one parse: dead code, unused variables, MOVE
 type checks, I/O sequencing, LINKAGE checks, recursion risk, complexity,
 DCLGEN and SQL/CICS checks, plus `line-length` (fixed-format text past
 column 80, or a word cut at column 72, in the program and its copybooks).
+Seven bug-pattern rules look for classic production bugs that compile
+cleanly:
+
+| Rule | Finds |
+|---|---|
+| `truncation` | A MOVE, ADD, SUBTRACT or COMPUTE that cuts digits or characters (`9(9)` into `9(3)`; a literal longer than its receiver) |
+| `subscript-range` | A literal subscript outside the OCCURS bounds (`WS-ENT(11)` on `OCCURS 10`) |
+| `next-sentence` | NEXT SENTENCE inside an IF closed by END-IF, which skips the statements after the END-IF |
+| `perform-range` | `PERFORM B THRU A` backwards, a GO TO out of a PERFORM range, a main line that falls into a PERFORMed paragraph |
+| `file-status` | A FILE STATUS the program never tests |
+| `uninitialized` | A numeric item read but never set, with no VALUE |
+| `obsolete-verb` | ALTER |
+
+With `--callee-path DIR` (or `callee_path` in `cobol.yml`), the `call-check`
+rule also compares every CALL with the program it calls (argument count,
+passing mode, byte length, usage), so a caller passing 8 bytes to a 10-byte
+LINKAGE item fails the lint gate.
 `--rule` narrows the run, `--min-severity` the output, and `--fail-on error`
+
+`--rule` and `--disable` narrow the run, `--severity RULE=LEVEL` re-grades a
+rule, `--min-severity` trims the output (by default `text` and `github` show
+warnings and errors, `json` and `sarif` everything), and `--fail-on error`
 exits 3 when a finding at that severity was reported, so it can gate a build.
+A comment silences one finding where it is (`*> cobol-lint:
+disable-next-line=dead-code`), and `--write-baseline` / `--baseline` record
+today's findings so a gate on a legacy codebase fails only on new ones.
+IBM's CICS copybooks `DFHAID` and `DFHBMSCA` are built in, and a copybook
+that cannot be found is named in the report's caveats instead of failing the
+file (`--strict-copybooks` restores the failure).
 It takes many files at once (`FILE...`, `--glob`, `--files-from`),
 `--changed-since REF` lints only the programs a git change touched (and those
 that `COPY` a changed copybook), and `--format github` annotates the pull

{cobol_parser-3.4.0 → cobol_parser-3.5.0/cobol_parser.egg-info}/PKG-INFO

@@ -1,6 +1,6 @@
 Metadata-Version: 2.4
 Name: cobol-parser
-Version: 3.4.0
+Version: 3.5.0
 Summary: A comprehensive COBOL parser for Python with IBM Enterprise COBOL focus
 Author-email: Samuel Dion <sam94dion@gmail.com>
 License: AGPL-3.0-or-later
@@ -211,8 +211,12 @@ cobol-parser tokenize src/ORDPOST.cbl
 cobol-parser lint src/ORDPOST.cbl --format text
 cobol-parser lint src/*.cbl --format text --min-severity warning --fail-on error
 cobol-parser lint --glob 'src/**/*.cbl' --rule dead-code --rule move-type-check
+cobol-parser lint src/ORDRPT.cbl src/ORDEDIT.cbl --rule truncation --rule file-status --format text
+cobol-parser lint src/ORDPOST.cbl --callee-path src --format text   # also checks each CALL against its callee
 cobol-parser lint --changed-since origin/main --format github --fail-on error
 cobol-parser lint src/*.cbl --format sarif -o lint.sarif
+cobol-parser lint --glob 'src/**/*.cbl' --write-baseline lint-baseline.json
+cobol-parser lint --glob 'src/**/*.cbl' --baseline lint-baseline.json --fail-on warning
 cobol-parser scan --glob 'src/*.cbl' --analyzer health --clones --cache-dir .cache
 cobol-parser scan src/*.cbl --format sarif -o scan.sarif
 cobol-parser config
@@ -222,15 +226,51 @@ cobol-parser config
 $ cobol-parser lint src/ORDPOST.cbl --format text
 src/ORDPOST.cbl:54:8: warning [dead-code] paragraph 9000-OLD-RECALC can never be reached
 src/ORDPOST.cbl:56:8: warning [dead-code] paragraph 9100-OLD-AUDIT can never be reached
-2 finding(s): 0 error, 2 warning, 0 info (10 rule(s) ran)
+2 finding(s): 0 error, 2 warning, 0 info (17 rule(s) ran)
+```
+
+```text
+$ cobol-parser lint src/ORDRPT.cbl src/ORDEDIT.cbl --rule truncation --rule file-status --format text
+src/ORDRPT.cbl:35:12: warning [truncation] MOVE WS-TOTAL (signed 11 integer + 2 decimal digits) TO RPT-TOTAL (signed 10 integer + 2 decimal digits) loses high-order digits
+src/ORDRPT.cbl:36:12: warning [truncation] MOVE WS-FEES (signed 7 integer + 2 decimal digits) TO RPT-FEES (signed 6 integer + 2 decimal digits) loses high-order digits
+src/ORDEDIT.cbl:7:12: warning [file-status] file ORDER-IN declares FILE STATUS WS-IN-STAT, but the program never tests it: a failed OPEN, READ or WRITE goes unnoticed
+...
+5 finding(s) in 2 file(s): 0 error, 5 warning, 0 info
 ```
 
 `lint` runs nine analyzers over one parse: dead code, unused variables, MOVE
 type checks, I/O sequencing, LINKAGE checks, recursion risk, complexity,
 DCLGEN and SQL/CICS checks, plus `line-length` (fixed-format text past
 column 80, or a word cut at column 72, in the program and its copybooks).
+Seven bug-pattern rules look for classic production bugs that compile
+cleanly:
+
+| Rule | Finds |
+|---|---|
+| `truncation` | A MOVE, ADD, SUBTRACT or COMPUTE that cuts digits or characters (`9(9)` into `9(3)`; a literal longer than its receiver) |
+| `subscript-range` | A literal subscript outside the OCCURS bounds (`WS-ENT(11)` on `OCCURS 10`) |
+| `next-sentence` | NEXT SENTENCE inside an IF closed by END-IF, which skips the statements after the END-IF |
+| `perform-range` | `PERFORM B THRU A` backwards, a GO TO out of a PERFORM range, a main line that falls into a PERFORMed paragraph |
+| `file-status` | A FILE STATUS the program never tests |
+| `uninitialized` | A numeric item read but never set, with no VALUE |
+| `obsolete-verb` | ALTER |
+
+With `--callee-path DIR` (or `callee_path` in `cobol.yml`), the `call-check`
+rule also compares every CALL with the program it calls (argument count,
+passing mode, byte length, usage), so a caller passing 8 bytes to a 10-byte
+LINKAGE item fails the lint gate.
 `--rule` narrows the run, `--min-severity` the output, and `--fail-on error`
+
+`--rule` and `--disable` narrow the run, `--severity RULE=LEVEL` re-grades a
+rule, `--min-severity` trims the output (by default `text` and `github` show
+warnings and errors, `json` and `sarif` everything), and `--fail-on error`
 exits 3 when a finding at that severity was reported, so it can gate a build.
+A comment silences one finding where it is (`*> cobol-lint:
+disable-next-line=dead-code`), and `--write-baseline` / `--baseline` record
+today's findings so a gate on a legacy codebase fails only on new ones.
+IBM's CICS copybooks `DFHAID` and `DFHBMSCA` are built in, and a copybook
+that cannot be found is named in the report's caveats instead of failing the
+file (`--strict-copybooks` restores the failure).
 It takes many files at once (`FILE...`, `--glob`, `--files-from`),
 `--changed-since REF` lints only the programs a git change touched (and those
 that `COPY` a changed copybook), and `--format github` annotates the pull

{cobol_parser-3.4.0 → cobol_parser-3.5.0}/cobol_parser.egg-info/SOURCES.txt

@@ -40,6 +40,7 @@ cobolparser/analysis/_sql_flow.py
 cobolparser/analysis/_sql_whenever.py
 cobolparser/analysis/ast_diff.py
 cobolparser/analysis/boundary_inventory.py
+cobolparser/analysis/bug_patterns.py
 cobolparser/analysis/business_rules.py
 cobolparser/analysis/call_interface.py
 cobolparser/analysis/codebase.py
@@ -223,12 +224,15 @@ cobolparser/plugins/__init__.py
 cobolparser/plugins/core.py
 cobolparser/preprocess/__init__.py
 cobolparser/preprocess/_normalize.py
+cobolparser/preprocess/_system_copybooks.py
 cobolparser/preprocess/copy_statement_parser.py
 cobolparser/preprocess/copybook_expander.py
 cobolparser/preprocess/models.py
 cobolparser/preprocess/path_resolver.py
 cobolparser/preprocess/replace_statement.py
 cobolparser/preprocess/source_format.py
+cobolparser/preprocess/system_copybooks/DFHAID.cpy
+cobolparser/preprocess/system_copybooks/DFHBMSCA.cpy
 tests/test_all_samples.py
 tests/test_okf_claims.py
 tests/test_okf_staleness_map.py

{cobol_parser-3.4.0 → cobol_parser-3.5.0}/cobolparser/__init__.py

@@ -231,7 +231,7 @@ from .scan import (
 CobolParseError = ParseError
 
 # Version info
-__version__ = "3.4.0"  # x-release-please-version
+__version__ = "3.5.0"  # x-release-please-version
 __author__ = "Samuel Dion"
 __license__ = "AGPL-3.0-or-later"