externalroutineSPEC myproc alias "S#XXX" (integer rc)

begin
  printstring("Calling S#XXX"); newline
  myproc(42)
  printstring("Done!"); newline
endofprogram