The subprocedure has already been defined.
30
Cause . . . . . : A subprocedure can only be defined once in a module. Statements are ignored until the end of this subprocedure is found.
Recovery . . . : Remove the extra subprocedure definition. Compile again.
(C) Copyright IBM Corporation 1992, 2006. All Rights Reserved.