GRS5175

For a calculation specification within a subroutine, the Control-Level entry (positions 7 to 8) must be SR, AN, OR, or blanks.

Specify SR, AN, OR, or blanks in the Control-Level entry. Compile again.