1 /* BEGIN INCLUDE FILE ... pl1_info_struc.incl.pl1 */
 2 /* This is intended to be used by all procedures raising pl1 conditions and by the default handler */
 3 /* coded 6 November 1973 by M. Weaver */
 4 /* modified April 1981 B. Margulies for new header include */
 5 /* This include file must be used with condition_info_header.incl.pl1. Both must be %included */
 6 
 7             2 header aligned like condition_info_header,
 8             2 id char(8) aligned,                 /* init "pliocond"; indicates pl1 structure */
 9             2 content_flags aligned,
10              (3 v1_sw,                            /* on if raised by version 1 */
11               3 oncode_sw,                        /* "1"b->valid oncode */
12               3 onfile_sw,                        /* "1"b->file name is in structure */
13               3 file_ptr_sw,                      /* "1"b->file is associated with this condition */
14               3 onsource_sw,                      /* "1"b->valid onsource string for this condition */
15               3 onchar_sw,                        /* "1"b->valid onchar index in this structure */
16               3 onkey_sw,                         /* "1"b->valid onkey string in this structure */
17               3 onfield_sw) bit(1) unaligned,     /* "1"b->valid onfield string in this structure */
18             2 oncode fixed bin(35),               /* oncode for condition */
19             2 onfile char(32) aligned,            /* onfile string */
20             2 file_ptr ptr,                       /* pointer to file value */
21             2 onsource char(256) var,             /* onsource string */
22             2 oncharindex fixed bin,              /* char offset in onsource of offending char */
23             2 onkey_onfield char(256) var;        /* either onkey string or onfield string */
24 
25 /* END INCLUDE FILE ... pl1_info_struc.incl.pl1 */