17 lines
329 B
Plaintext
17 lines
329 B
Plaintext
[source,rpg]
|
|
----
|
|
C 99W1SCNO IFEQ 1
|
|
C EXSR SR201
|
|
C ELSE
|
|
C* Noncompliant: is the block empty on purpose, or is code missing?
|
|
C END
|
|
----
|
|
|
|
[source,rpg]
|
|
----
|
|
/free
|
|
for i = 1 to n;
|
|
endfor;
|
|
/end-free
|
|
----
|