52 lines
912 B
Plaintext
52 lines
912 B
Plaintext
TODO
|
|
|
|
|
|
== Noncompliant Code Example
|
|
|
|
[source,cobol]
|
|
----
|
|
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
|
|
|
|
[source,cobol]
|
|
----
|
|
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[]
|
|
'''
|
|
== Comments And Links
|
|
(visible only on this page)
|
|
|
|
include::comments-and-links.adoc[]
|
|
endif::env-github,rspecator-view[]
|