Data area data structure definitions are not allowed in subprocedures.
20
Cause . . . . . : Data area data structures can only be defined in the Definition specifications of the main source section. The data-structure-type entry (position 23) is ignored.
Recovery . . . : Remove the data-structure-type entry or move the definition to the main source section. Compile again.