1 
 2 /* BEGIN INCLUDE FILE ... status.incl.pl1  */
 3 /* Overlay for ios status string. Created 11/4/74 by J. Phillipps */
 4 
 5 dcl 1 stat based (addr (status)) aligned,
 6     2 fbpart fixed bin (35),                                /* error_table_ entry overlay  */
 7     2 ios,
 8     (3 pad1 bit (4),
 9       3 bit41_trans_term bit (1),                           /* bit 41 -- transaction terminated */
10       3 pad2 bit (10),
11       3 bit52_ion_detached bit (1),                         /* bit 52 -- ioname detached */
12     2 pad3 bit (20)) unaligned;
13 
14 /* END INCLUDE FILE ... status.incl.pl1 */