2023-05-03 11:06:20 +02:00
|
|
|
== Why is this an issue?
|
|
|
|
|
|
2020-06-30 10:16:44 +02:00
|
|
|
include::../description.adoc[]
|
|
|
|
|
|
2023-05-03 11:06:20 +02:00
|
|
|
=== Noncompliant code example
|
2020-06-30 10:16:44 +02:00
|
|
|
|
2022-02-04 17:28:24 +01:00
|
|
|
[source,cobol]
|
2020-06-30 10:16:44 +02:00
|
|
|
----
|
|
|
|
|
MOVE '1' TO OCTET-1 MOVE '2' TO OCTET-2
|
|
|
|
|
----
|
|
|
|
|
|
2023-05-03 11:06:20 +02:00
|
|
|
=== Compliant solution
|
2020-06-30 10:16:44 +02:00
|
|
|
|
2022-02-04 17:28:24 +01:00
|
|
|
[source,cobol]
|
2020-06-30 10:16:44 +02:00
|
|
|
----
|
|
|
|
|
MOVE '1' TO OCTET-1
|
|
|
|
|
MOVE '2' TO OCTET-2
|
|
|
|
|
----
|
|
|
|
|
|
2023-05-03 11:06:20 +02:00
|
|
|
=== Exceptions
|
2020-06-30 10:16:44 +02:00
|
|
|
|
|
|
|
|
Control flow statements with a single nested statement are ignored.
|
|
|
|
|
|
2021-02-02 15:02:10 +01:00
|
|
|
|
2023-05-25 14:18:12 +02:00
|
|
|
[source,cobol]
|
2020-06-30 10:16:44 +02:00
|
|
|
----
|
|
|
|
|
IF x > 0 THEN DISPLAY "positive". *> Compliant
|
|
|
|
|
----
|
2021-06-02 20:44:38 +02:00
|
|
|
|
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::../highlighting.adoc[]
|
|
|
|
|
|
2021-06-08 15:52:13 +02:00
|
|
|
'''
|
2021-06-02 20:44:38 +02:00
|
|
|
== Comments And Links
|
|
|
|
|
(visible only on this page)
|
|
|
|
|
|
|
|
|
|
include::../comments-and-links.adoc[]
|
2021-06-03 09:05:38 +02:00
|
|
|
endif::env-github,rspecator-view[]
|
