1 /* BEGIN INCLUDE FILE ... comm_meters_error_info.incl.pl1 */ 2 3 /* Additional info structure used by comm_meters_ when calling sub_err_ */ 4 5 /* Created July 1981 by Robert Coren */ 6 7 8 dcl 1 comm_meters_error_info aligned based (comm_meters_errp), 9 2 version fixed bin, 10 2 chan_name char (32), 11 2 flags, 12 3 starname_matched bit (1) unal, /* didn't die on first starname */ 13 3 more_than_one_starname bit (1) unal, /* caller supplied more than one starname */ 14 3 more_than_one_match bit (1) unal, /* we're processing more than one channel name */ 15 3 pad bit (33) unal; 16 17 dcl comm_meters_errp ptr; 18 19 dcl COMM_METERS_ERR_V1 fixed bin internal static options (constant) init (1); 20 21 /* END INCLUDE FILE ... comm_meters_error_info.incl.pl1 */