1 /* include io_status */
 2 dcl 1 status,                                               /* I/O system status string. */
 3     2 code fixed binary,                                    /* Overall error code. */
 4     2 bits,                                                 /* Fine structure. */
 5       3 successful bit (4),                                 /* Logical/physical initiation/termination. */
 6       3 transaction_terminated bit (1),                     /* No further status change. */
 7       3 unassigned bit (4),
 8       3 end_of_data bit (1),                                /* Obvious. */
 9       3 pad bit (5),
10       3 ioname_detached bit (1),                            /* .. */
11       3 pad2 bit (20),
12      status_bits based (sp) bit (72) aligned;               /* Overlay for IO calls. */
13                                                             /* end io_status */