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