"MCH3601-Pointer not set for location referenced" on return statement

I have a CRTPGM composed of a CLLE module and a RPGLE module.  CLLE's 
first.  CALLPRC the RPGLE module.  When the RPGLE module tries to return a 
variable I am getting MCH3601 message.

MCH3601-Pointer not set for location referenced.

From program . . . . . . . . . :   YADDA 

  From library . . . . . . . . :     TROYM 
  From module  . . . . . . . . :     DCADPTRP
  From procedure . . . . . . . :     DCADPTRP
  From statement . . . . . . . :     110 
 
To program . . . . . . . . . . :   YADDA 
  To library . . . . . . . . . :     TROYM 
  To module  . . . . . . . . . :     DCADPTRP
  To procedure . . . . . . . . :     DCADPTRP
  To statement . . . . . . . . :     110 



CL **** module ****
             PGM

             DCL        VAR(&RUN) TYPE(*CHAR) LEN(1)

/* Prompt:                                         */

             CALLPRC    PRC(DCADPTRP) RTNVAL(&RUN)

rpgle **** module ****
     D DCADPTRP        PR             1a

     P DCADPTRP        B                             export
     D DCADPTRP        PI                  like(runp)      *entry plist

     D runP            s              1a
...
       RUNp        = *IN08;
       RETURN runp;  // in compile listing, this is stmt 110.

CRTPGM PGM(TROYM/YADDA) MODULE(TROYM/DCADPTC TROYM/DCADPTRP)