ERROR - A SUB statement contains  a  data  type  keyword  between  the
  subprogram name and the parameter list.  Remove the data type keyword.
  In a SUB statement, data type keywords  can  appear  only  within  the
  parameter list.