rspec/rules/S1624/rpg/rule.adoc

== Why is this an issue?

Using a unique ``++KLIST++`` to access files ensures that the correct key is used at all times and creates a standard method of accessing the data throughout the code, simplifying maintenance and improving readability. 


This rule flags non-compliant instances of ``++CHAIN++``, ``++DELETE++``, ``++READE++``, ``++READPE++``, ``++SETGT++``, and ``++SETLL++`` operations.


=== Noncompliant code example

[source,rpg]
----
C     'D001 B'      CHAIN     KYCUSTN                            20
... 
C     DEPT          CHAIN     KYCUSTN                            20
----


=== Compliant solution

[source,rpg]
----
C     DEPTKY        KLIST
C                   KFLD                    DEPT
C                   KFLD                    SHIFT 

C     DEPTKY        CHAIN     KYCUSTN                            20
----

ifdef::env-github,rspecator-view[]

'''
== Implementation Specification
(visible only on this page)

=== Message

Rewrite this statement to use a "KLIST"


endif::env-github,rspecator-view[]