Main Proc for Subproc not compiling

[fkany@xxxxxxxxxxxxxxxxxx]

I'm working on trying to compile my first subprocedure.  The subprocedure
compiles fine.  The main procedure is not compiling.  Can anyone see what
I'm doing wrong?  Thanks everyone.

Frank

==============
Main Procedure
==============
<snip>
 *
 * Procedure Prototype
***Error from Compile:  External procedure on prototype for main procedure is 
not same as actual external name.
D AAL03_VAL       PR             4A
D SRVCTR                         3A
D STS_IN                         1A
 *
 * Procedure Interface
D AAL03_VAL       PI             4A
D SRVCTR                         3A
D STS_IN                         1A

<snip>

  *
  * Service Center entered
 C                   IF        S01SVCCTR <> *BLANKS
  *
  * -----------------------
  * Validate Service Center
  * -----------------------
  * Record Found
 C                   IF        AAL03_VAL(STS_IN) = '1'
***Errors from Compile: The call passed fewer parameters than the prototype 
indicates are required.
                        The type and attributes of the parameter do not match 
those of the prototype.
 C                   EVAL      S01CTRNME = CT1NAM
 C                   ENDIF
  * Record NOT Found
 C                   IF        AAL03_VAL(STS_IN) = '0'
***Errors from Compile: The call passed fewer parameters than the prototype 
indicates are required.
                        The type and attributes of the parameter do not match 
those of the prototype.
 C                   CLEAR                   S01CTRNME
 C                   ENDIF

<snip>
==================
End Main Procedure
==================

=====================
Complete Subprocedure
=====================
H NOMAIN
 *
 * Files
FAAL03002  IF   E           K DISK
 *
 * Procedure Prototype
D AAL03_VAL       PR             4A
D SVCCTR                         3A
D STS_IN                         1A
 *
P AAL03_VAL       B                   EXPORT
 *
 * Procedure Interface
D AAL03_VAL       PI             4A
D SVCCTR                         3A
D STS_IN                         1A
 *
 * Validate against Terminal Control File(AAL03002)
C     SVCCTR        CHAIN     AAL03002
 *
C                   IF        %FOUND(AAL03002)
C                   EVAL      STS_IN = '1'
C                   ENDIF
 *
C                   IF        NOT %FOUND(AAL03002)
C                   EVAL      STS_IN = '0'
C                   ENDIF
 *
C                   RETURN    STS_IN
 *
P AAL03_VAL       E