/* declare argument types for PL/I symbolic debugger: */ dcl cantopen entry(char(*) varying/*file name*/, fixed bin(15)/*oncode*/) returns(char(50) varying/*error message*/);