rspec/rules/S1292/cobol/rule.adoc

46 lines
897 B
Plaintext
Raw Normal View History

== Why is this an issue?
2021-04-28 16:49:39 +02:00
OS/VS COBOL accepted the ``++EXHIBIT++`` statement, but IBM Enterprise COBOL does not. With IBM Enterprise COBOL, the ``++DISPLAY++`` statement must be used instead.
=== Noncompliant code example
2021-04-28 16:49:39 +02:00
2022-02-04 17:28:24 +01:00
[source,cobol]
2021-04-28 16:49:39 +02:00
----
IDENTIFICATION DIVISION.
PROGRAM-ID. foo.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-FOO PIC X(42).
01 WS-BAR PIC X(42).
PROCEDURE DIVISION.
* Non-Compliant
EXHIBIT NAMED WS-FOO WS-BAR.
END PROGRAM foo.
----
=== Compliant solution
2021-04-28 16:49:39 +02:00
2022-02-04 17:28:24 +01:00
[source,cobol]
2021-04-28 16:49:39 +02:00
----
IDENTIFICATION DIVISION.
PROGRAM-ID. foo.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-FOO PIC X(42).
01 WS-BAR PIC X(42).
PROCEDURE DIVISION.
* Compliant
DISPLAY "WS-FOO = " WS-FOO
"WS-BAR = " WS-BAR.
END PROGRAM foo.
----