1 /* INCLUDE FILE -- listener_info.incl.pl1  */
 2 
 3 /* Written 12/07/84 Steve Herbst */
 4 
 5 
 6 dcl 1 listen_static_data_ aligned external static,          /* referenced by both listen_ and absentee_listen_ */
 7      2 control_ptr ptr init (null),                         /* points to current listener_control */
 8      2 first_level_sw bit (1) aligned init ("1"b);          /* ON if this is the top listener level */
 9 
10 
11 dcl 1 based_listener_control aligned                        /* structure containing all control info */
12           based (listen_static_data_.control_ptr),
13      2 prev_ptr ptr,                                        /* to previous listener_control, if any */
14      2 (release_all,                                        /* label transferred to by "release -all" */
15         release,                                            /* label transferred to by "release" */
16         new_release,                                        /* next invocation's release label */
17         start                                               /* label transferred to by the start command */
18           ) label,
19      2 flags aligned,
20       3 dont_restore_sw bit (1) unaligned,                  /* ON => don't restore I/O attachments on "start" */
21       3 pad bit (35) unaligned,
22      2 frame fixed bin,                                     /* stack frame number of current listener */
23      2 level fixed bin;                                     /* listener level number of current listener */
24 
25 /* E* END INCLUDE FILE -- listener_info.incl.pl1 */
26 
27