2023-05-03 11:06:20 +02:00
|
|
|
== Why is this an issue?
|
|
|
|
|
|
2021-04-28 16:49:39 +02:00
|
|
|
When using a ``++PRINTER++`` defined file, an ``++INFDS++`` keyword should be used to read the file's line count from ``++*PSSR++`` positions 367-368.
|
|
|
|
|
|
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
|
|
|
----
|
|
|
|
|
FCSO602R1 O E PRINTER USROPN
|
|
|
|
|
or ...
|
|
|
|
|
FCSO602R1 O E PRINTER USROPN
|
|
|
|
|
F INFDS(WSFD01)
|
|
|
|
|
F INFSR(*PSSR)
|
|
|
|
|
|
|
|
|
|
D WSFD01 DS
|
|
|
|
|
D W1ST01 *STATUS
|
|
|
|
|
D W1SPNO 123 124B 0
|
|
|
|
|
----
|
|
|
|
|
|
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
|
|
|
----
|
|
|
|
|
FCSO602R1 O E PRINTER USROPN
|
|
|
|
|
F INFDS(WSFD01)
|
|
|
|
|
F INFSR(*PSSR)
|
|
|
|
|
|
|
|
|
|
D WSFD01 DS
|
|
|
|
|
D W1ST01 *STATUS
|
|
|
|
|
D W1SPNO 123 124B 0
|
|
|
|
|
D W1LNCT 367 368B 0
|
|
|
|
|
D W1PGNO 369 372B 0
|
|
|
|
|
----
|
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
|
|
|
|
|
|
|
|
|
|
Include an ``++INFDS++`` keyword with a reference to position 367-368.
|
|
|
|
|
|
2021-09-20 15:38:42 +02:00
|
|
|
|
|
|
|
|
endif::env-github,rspecator-view[]
|
