1 /* BEGIN INCLUDE FILE gcos_block_overlay.incl.pl1   (Akers SCUdmp)  11/23/81 2115.2 sca Mon */
 2 
 3 dcl    RECORD_PTR             pointer;
 4 
 5 
 6 dcl 1  BLOCK                                                aligned,
 7 
 8      2 BSN                    fixed bin (18)      unsigned  unaligned,
 9      2 SIZE                   fixed bin (18)      unsigned  unaligned,
10      2 DATA                   char (1276)                   unaligned;
11 
12 
13 
14 dcl 1  RCW                    based (RECORD_PTR)            aligned,
15 
16      2 LENG                   fixed bin (18)      unsigned  unaligned,
17      2 LAST_CHARS_USED        fixed bin (2)       unsigned  unaligned,
18      2 EOF_MARKER             bit (4)                       unaligned,
19      2 FILLER                 bit (2)                       unaligned,
20      2 MEDIA_CODE             fixed bin (4)       unsigned unaligned,
21      2 REPORT_CODE            fixed bin(6)        unsigned unaligned;
22 
23 
24 /*   END INCLUDE FILE gcos_block_overlay.incl.pl1 */