CDISP9097E

Perl code segments that are delimited by <% and %> cannot be used in non-generic operators.

Perl code cannot be used in non-generic operators.
Remove the Perl code, or use a generic operator.