/* rexx by e. duemig */
address ispexec "control errors return"
parse arg dsn
address ispexec "browse dataset("dsn")"
select
   when rc = 12 then say "Data length zero"
   when rc = 14 then say "Member not found"
   when rc = 16 then say "No member id dataset"
   when rc = 18 then say "No VSAM processing"
   when rc = 14 then say "Severe error"
  otherwise nop
end