-- (C) Copyright International Business Machines Corporation 23 January 
-- 1990.  All Rights Reserved. 
--  
-- See the file USERAGREEMENT distributed with this software for full 
-- terms and conditions of use. 
usub:  USING (common, umain)
-- These are the access rights given to programs started by user shells
DEFINITIONS
  usub: callmessage(
    argv: charstringList, -- arguments from shell
    io: userAccess -- access rights to outside world
    )
    constant(argv, io)
    exit {full};
  usubIn: inport of usub {full}; -- users get io to keep until they die
  usubOut: outport of usubIn;
  
  
end DEFINITIONS

