2021-04-28 16:49:39 +02:00
|
|
|
There's no need to repeat the program name in the free-format definition of an external program.
|
|
|
|
|
|
2021-04-28 18:08:03 +02:00
|
|
|
|
2021-04-28 16:49:39 +02:00
|
|
|
== Noncompliant Code Example
|
|
|
|
|
|
|
|
|
|
----
|
|
|
|
|
DCL-PR PGM001 EXTPGM('PGM001');
|
|
|
|
|
END-PR;
|
|
|
|
|
----
|
|
|
|
|
|
2021-04-28 18:08:03 +02:00
|
|
|
|
2021-04-28 16:49:39 +02:00
|
|
|
== Compliant Solution
|
|
|
|
|
|
|
|
|
|
----
|
|
|
|
|
DCL-PR PGM001 EXTPGM ;
|
|
|
|
|
END-PR;
|
|
|
|
|
----
|
|
|
|
|
or if the program is renamed
|
|
|
|
|
|
|
|
|
|
----
|
|
|
|
|
DCL-PR TheProgram EXTPGM('PGM001');
|
|
|
|
|
END-PR;
|
|
|
|
|
----
|
2021-04-28 18:08:03 +02:00
|
|
|
|
2021-09-20 15:38:42 +02:00
|
|
|
ifdef::env-github,rspecator-view[]
|
|
|
|
|
|
|
|
|
|
'''
|
|
|
|
|
== Implementation Specification
|
|
|
|
|
(visible only on this page)
|
|
|
|
|
|
|
|
|
|
include::message.adoc[]
|
|
|
|
|
|
|
|
|
|
endif::env-github,rspecator-view[]
|
