**Free

dcl-pr my_proc Ind;
  p_parm1 Char(1);
end-pr;