1 02/02/84  get_initial_ring_
 2 
 3 
 4 Entry points in get_initial_ring_:
 5    (List is generated by the help command)
 6 
 7 
 8 :Entry: get_initial_ring_: 02/02/84  get_initial_ring_
 9 
10 
11 Function: returns the current value of the ring number in which the
12 process was initialized.
13 
14 
15 Syntax:
16 declare get_initial_ring_ entry (fixed bin(3));
17 call get_initial_ring_ (i_ring);
18 
19 
20 Arguments:
21 i_ring
22    is the initial ring for the process.  (Output)