QRG7010

The field in Factor 2 of a DEFN operation is not defined as an alphameric or numeric field. TAG, KLIST, PLIST, BEGSR names cannot be redefined. The length of the result field defaults to 4 alphameric. This default length may cause incorrect results in the execution of the program.

Change the base entry. Recompile.