2023-05-03 11:06:20 +02:00
|
|
|
== Why is this an issue?
|
|
|
|
|
|
2020-06-30 12:47:33 +02:00
|
|
|
include::../description.adoc[]
|
|
|
|
|
|
2023-10-11 11:41:24 +02:00
|
|
|
=== Exceptions
|
|
|
|
|
|
|
|
|
|
Literals with fewer than 7 characters are ignored.
|
|
|
|
|
|
|
|
|
|
Only duplications located in a `PROCEDURE DIVISION`, not those contained in copybooks are reported.
|
|
|
|
|
|
|
|
|
|
== How to fix it
|
|
|
|
|
|
|
|
|
|
include::../howtofix.adoc[]
|
|
|
|
|
|
|
|
|
|
=== Code examples
|
|
|
|
|
|
|
|
|
|
==== Noncompliant code example
|
2020-06-30 12:47:33 +02:00
|
|
|
|
|
|
|
|
With the default threshold of 3:
|
2020-06-30 14:49:38 +02:00
|
|
|
|
2023-10-11 11:41:24 +02:00
|
|
|
[source,cobol,diff-id=1,diff-type=noncompliant]
|
2020-06-30 12:47:33 +02:00
|
|
|
----
|
|
|
|
|
PROCEDURE DIVISION.
|
|
|
|
|
|
|
|
|
|
DISPLAY "Firstname: ".
|
|
|
|
|
*...
|
|
|
|
|
DISPLAY "Firstname: ".
|
|
|
|
|
*...
|
|
|
|
|
DISPLAY "Firstname: ".
|
|
|
|
|
----
|
|
|
|
|
|
2023-10-11 11:41:24 +02:00
|
|
|
==== Compliant solution
|
2020-06-30 12:47:33 +02:00
|
|
|
|
2023-10-11 11:41:24 +02:00
|
|
|
[source,cobol,diff-id=1,diff-type=compliant]
|
2020-06-30 12:47:33 +02:00
|
|
|
----
|
|
|
|
|
WORKING-STORAGE SECTION.
|
|
|
|
|
01 FIRST-NAME-HEADER PIC X(42) VALUE "Firstname: ".
|
|
|
|
|
PROCEDURE DIVISION.
|
|
|
|
|
|
|
|
|
|
DISPLAY FIRST-NAME-HEADER
|
|
|
|
|
*...
|
|
|
|
|
DISPLAY FIRST-NAME-HEADER
|
|
|
|
|
*...
|
|
|
|
|
DISPLAY FIRST-NAME-HEADER
|
|
|
|
|
----
|
|
|
|
|
|
2021-06-03 09:05:38 +02:00
|
|
|
ifdef::env-github,rspecator-view[]
|
2021-09-20 15:38:42 +02:00
|
|
|
|
|
|
|
|
'''
|
|
|
|
|
== Implementation Specification
|
|
|
|
|
(visible only on this page)
|
|
|
|
|
|
|
|
|
|
include::../message.adoc[]
|
|
|
|
|
|
|
|
|
|
include::../parameters.adoc[]
|
|
|
|
|
|
|
|
|
|
include::../highlighting.adoc[]
|
|
|
|
|
|
2021-06-08 15:52:13 +02:00
|
|
|
'''
|
2023-06-22 10:38:01 +02:00
|
|
|
|
2021-06-03 09:05:38 +02:00
|
|
|
endif::env-github,rspecator-view[]
|
