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
|
|
|
|
2021-04-28 16:49:39 +02:00
|
|
|
== Noncompliant Code Example
|
|
|
|
|
|
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
|
|
|
|
2021-04-28 16:49:39 +02:00
|
|
|
== Compliant Solution
|
|
|
|
|
|
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)
|
|
|
|
|
|
|
|
|
|
include::message.adoc[]
|
|
|
|
|
|
|
|
|
|
endif::env-github,rspecator-view[]
|
