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.
(C) Copyright IBM Corporation 1992, 2005. All Rights Reserved.