externalroutinespec  MOVE(integer  length,from,to)
externalstring (72)fnspec  SYSMESS (integer  i)
routine  TOJOURNAL(integer  len,from)
end 
end  of  file