2021-06-08 14:23:48 +02:00
|
|
|
TODO
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
== Noncompliant Code Example
|
|
|
|
|
|
2022-02-04 17:28:24 +01:00
|
|
|
[source,cobol]
|
2021-06-08 14:23:48 +02:00
|
|
|
----
|
|
|
|
|
PERFORM UNTIL FIN-RGL0
|
|
|
|
|
PERFORM DEBUT-RGL0
|
|
|
|
|
PERFORM UNTIL FIN-RGL1
|
|
|
|
|
PERFORM DEBUT-RGL1
|
|
|
|
|
PERFORM UNTIL FIN-RGL2
|
|
|
|
|
PERFORM DEBUT-RGL2
|
|
|
|
|
PERFORM ALIM-RGL2
|
|
|
|
|
PERFORM FIN-RGL2
|
|
|
|
|
END-PERFORM
|
|
|
|
|
PERFORM FIN-RGL1
|
|
|
|
|
END-PERFORM
|
|
|
|
|
PERFORM FIN-RGL0
|
|
|
|
|
END-PERFORM
|
|
|
|
|
----
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
== Compliant Solution
|
|
|
|
|
|
2022-02-04 17:28:24 +01:00
|
|
|
[source,cobol]
|
2021-06-08 14:23:48 +02:00
|
|
|
----
|
|
|
|
|
PERFORM TRAITEMENT-RGL0 UNTIL FIN-RGL0.
|
|
|
|
|
TRAITEMENT-RGL0.
|
|
|
|
|
PERFORM DEBUT-RGL0
|
|
|
|
|
PERFORM TRAITEMEN-RGL1 UNTIL FIN-RGL1
|
|
|
|
|
PERFORM FIN-RGL0
|
|
|
|
|
.
|
|
|
|
|
TRAITEMENT-RGL1.
|
|
|
|
|
PERFORM DEBUT-RGL1
|
|
|
|
|
PERFORM UNTIL FIN-RGL2
|
|
|
|
|
PERFORM DEBUT-RGL2
|
|
|
|
|
PERFORM ALIM-RGL2
|
|
|
|
|
PERFORM FIN-RGL2
|
|
|
|
|
END-PERFORM
|
|
|
|
|
PERFORM FIN-RGL1
|
|
|
|
|
----
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ifdef::env-github,rspecator-view[]
|
2021-06-08 15:52:13 +02:00
|
|
|
'''
|
2021-06-08 14:23:48 +02:00
|
|
|
== Comments And Links
|
|
|
|
|
(visible only on this page)
|
|
|
|
|
|
|
|
|
|
include::comments-and-links.adoc[]
|
|
|
|
|
endif::env-github,rspecator-view[]
|
