The AB20LF logical file created with ABCUS and ABCLC as keys.

Define the file in F spec as follows.

Define the key list as a data structure in D spec.

The free format code as follows

This blog is dedicated to all my friends who are still working on the AS/400 environment like myself.