RE: *Entry to /Free problem

Here is an example of a PI and PR I use today.  Names are the same and
the EXTPGM() used.  

PR:POS51ERGPR
     D POS51ERG        PR                  EXTPGM('POS51ERG')
     D  IOFunction                    1A   OPTIONS(*NOPASS)
     D  ProgramMode                   7A   OPTIONS(*NOPASS) CONST
     D  POSID                              OPTIONS(*NOPASS) LIKE(@POSID)
     D  POSVersion                         OPTIONS(*NOPASS)
LIKE(@POSVER)
      //
     D IOF51E          S              1A
      /INCLUDE QCPYSRC,RETTYPESDS

PI:POS51ERG
      /INCLUDE QCPYSRC,RETTYPESDS
      // *Entry parms
      /COPY QCPYSRC,POS51ERGPR
     D POS51ERG        PI
     D  P#IOF                         1A   OPTIONS(*NOPASS)
     D  P#MODE                        7A   OPTIONS(*NOPASS) CONST
     D  P#ID                               OPTIONS(*NOPASS) LIKE(@POSID)
     D  P#VER                              OPTIONS(*NOPASS)
LIKE(@POSVER)


Vincent when I copy the code you posted, I get no problems running
programs.  What it looks like to me is that you are showing code form a
CL program was not compiled to use the last two RPG parameters in
BANK101.  

Thanks, Matt