1 /* Begin include file io_status_entry.incl.pl1 */
 2 /* Written by C. Hornig sometime late in 1980. */
 3 /* Modified January 1983 by Chris Jones to show detailed status. */
 4 
 5 /* format: style4,delnl,insnl,indattr,ifthen,dclind10 */
 6 dcl       io_status_entry_ptr    ptr;
 7 dcl       1 io_status_entry      aligned based (io_status_entry_ptr),
 8             2 word1              like io_status_word,       /* major status word */
 9             2 word2,
10               3 next_lpw_offset  bit (18) unaligned,
11               3 rfu1             bit (5) unaligned,
12               3 workspace        bit (1) unaligned,         /* DCW is in the workspace */
13               3 rfu2             bit (12) unaligned,
14             2 word3              bit (36),
15             2 word4,
16               3 next_dcw_offset  bit (18) unaligned,        /* 1 + offset of last data word */
17               3 character_position
18                                  uns fixed bin (3) unaligned,
19               3 write            bit (1) unaligned,
20               3 action_code      bit (2) unaligned,
21               3 tally_residue    uns fixed bin (12) unaligned,
22                                                             /* residue of last DCW tally */
23             2 word5,
24               3 data_count       uns fixed bin (26) unaligned,
25                                                             /* total words transferred (on IIOC & IOX) */
26               3 rfu              bit (10) unaligned,
27             2 words              (6:8) bit (36),
28             2 detailed_status    (8) bit (36);              /* detailed status (IIOC and IOX) */
29 
30 %include io_status_word;
31 
32 /* End include file io_status_entry.incl.pl1 */