1 /* BEGIN INCLUDE FILE condition_info_header.incl.pl1 BIM 1981 */
 2 /* format: style2 */
 3 
 4      declare condition_info_header_ptr
 5                                     pointer;
 6      declare 1 condition_info_header
 7                                     aligned based (condition_info_header_ptr),
 8                2 length             fixed bin,              /* length in words of this structure */
 9                2 version            fixed bin,              /* version number of this structure */
10                2 action_flags       aligned,                /* tell handler how to proceed */
11                  3 cant_restart     bit (1) unaligned,      /* caller doesn't ever want to be returned to */
12                  3 default_restart  bit (1) unaligned,      /* caller can be returned to with no further action */
13                  3 quiet_restart    bit (1) unaligned,      /* return, and print no message */
14                  3 support_signal   bit (1) unaligned,      /* treat this signal as if the signalling procedure had the support bit set */
15                                                             /* if the signalling procedure had the support bit set, do the same for its caller */
16                  3 pad              bit (32) unaligned,
17                2 info_string        char (256) varying,     /* may contain printable message */
18                2 status_code        fixed bin (35);         /* if^=0, code interpretable by com_err_ */
19 
20 /* END INCLUDE FILE condition_info_header.incl.pl1 */