1 " ***********************************************************
 2 " *                                                         *
 3 " * Copyright, (C) Honeywell Bull Inc., 1988                *
 4 " *                                                         *
 5 " * Copyright, (C) Honeywell Information Systems Inc., 1982 *
 6 " *                                                         *
 7 " * Copyright (c) 1972 by Massachusetts Institute of        *
 8 " * Technology and Honeywell Information Systems, Inc.      *
 9 " *                                                         *
10 " ***********************************************************
11 
12 "Transfer vector for getid_
13           name      getid_
14           entry     getid_,setid,getnam
15 getid_:   tra       <inputs_>|[getid]
16 setid:    tra       <setid_>|[setid_]
17 getnam:   tra       <inputs_>|[getname]
18           end