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