2023-05-03 11:06:20 +02:00
|
|
|
== Why is this an issue?
|
|
|
|
|
|
2021-04-28 16:49:39 +02:00
|
|
|
Externally described files standardize file access, and result in simpler, easier to read code.
|
|
|
|
|
|
2021-04-28 18:08:03 +02:00
|
|
|
|
2023-05-03 11:06:20 +02:00
|
|
|
=== Noncompliant code example
|
2021-04-28 16:49:39 +02:00
|
|
|
|
2022-02-04 17:28:24 +01:00
|
|
|
[source,rpg]
|
2021-04-28 16:49:39 +02:00
|
|
|
----
|
|
|
|
|
FEPBLMSL2 IF F 100 DISK INFSR(*PSSR)
|
|
|
|
|
F*
|
|
|
|
|
F*
|
|
|
|
|
----
|
|
|
|
|
|
2021-04-28 18:08:03 +02:00
|
|
|
|
2023-05-03 11:06:20 +02:00
|
|
|
=== Compliant solution
|
2021-04-28 16:49:39 +02:00
|
|
|
|
2022-02-04 17:28:24 +01:00
|
|
|
[source,rpg]
|
2021-04-28 16:49:39 +02:00
|
|
|
----
|
|
|
|
|
F*
|
|
|
|
|
FIPBDCCP IF E K DISK INFSR(*PSSR)
|
|
|
|
|
F*
|
|
|
|
|
|
|
|
|
|
FEP210 CF E WORKSTN INFSR(*PSSR)
|
|
|
|
|
F SFILE(EP21003S:RELN03)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
FEP471R1 O E PRINTER INFSR(*PSSR)
|
|
|
|
|
F USROPN
|
|
|
|
|
F INFDS(W1SF01)
|
|
|
|
|
----
|
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)
|
|
|
|
|
|
2023-05-25 14:18:12 +02:00
|
|
|
=== Message
|
|
|
|
|
|
|
|
|
|
Use an "E" indicator for this file and remove any related "I" lines.
|
|
|
|
|
|
2021-09-20 15:38:42 +02:00
|
|
|
|
|
|
|
|
endif::env-github,rspecator-view[]
|
