1 /* BEGIN INCLUDE FILE mrds_se_error_info.incl.pl1 2 3 This include file contains the info structure for the "mrds_se_error_" 4 condition. This condition is signalled by MRDS when a syntax error 5 in a selection expression is uncovered. 6 7 This include file must be used with condition_info_header.incl.pl1 8 9 17-09-85 John Hergert (FMC) Written. 10 11 */ 12 13 /****^ HISTORY COMMENTS: 14 1) change(87-11-23,Hergert), approve(88-06-28,MCR7903), 15 audit(88-06-28,Dupuis), install(88-08-01,MR12.2-1073): 16 Created for for new parser. 17 END HISTORY COMMENTS */ 18 19 dcl mrds_se_error_info_ptr ptr; /* pointer to info struct */ 20 21 dcl 1 mrds_se_error_info aligned based (mrds_se_error_info_ptr), 22 2 header aligned like condition_info_header, 23 /* necessary for all info structs */ 24 2 error_type char (32), /* range, select... */ 25 2 error_msg char (256), /* informational msg */ 26 2 token char (mrds_data_$max_token_size), /* last known token */ 27 2 raw_select_expr, 28 3 se_ptr ptr, /* ptr to the actual se */ 29 3 se_len fixed bin, /* length of actual se */ 30 3 token_position fixed bin, /* where the token starts in raw_select_expr */ 31 2 formatted_select_expr, 32 3 se_ptr ptr, /* ptr to "pretty" se */ 33 3 se_len fixed bin, /* length of "pretty" se */ 34 3 token_position fixed bin; /* where the token starts in formatted_select_expr */ 35 36 dcl error_info_version fixed bin init(1) internal static options (constant); 37 dcl mrds_data_$max_token_size 38 ext fixed bin (35); 39 40 /* END INCLUDE FILE mrds_se_error_info.incl.pl1 */