1 /* BEGIN INCLUDE FILE: ansi_hdr2.incl.pl1 */ 2 /* Modified by J. A. Bush 11/07/82 for use by mtape_ */ 3 4 /* format: style4 */ 5 6 dcl ansi_hdr2P ptr; /* pointer on which ansi_hdr2 structure is based */ 7 8 dcl 1 ansi_hdr2 unaligned based (ansi_hdr2P), 9 2 label_id char (4), /* HDR2/EOF2/EOV2 */ 10 2 format char (1), /* U, F, D, or S */ 11 2 blklen char (5), /* maximum number of characters per block */ 12 2 reclen char (5), /* maximum or actual record length - meaning varies with format */ 13 2 system_use, /* 35 characters reserved for system-specific use */ 14 3 next_volname char (32), /* next volume name - for trailer label */ 15 3 blocked char (1), /* blocking attribute: 0 - no / 1 - yes */ 16 3 mode char (1), /* data encoding mode */ 17 /* 1 - ASCII, 9 mode */ 18 /* 2 - EBCDIC, 9 mode */ 19 /* 3 - binary */ 20 3 system_reserved char (1), /* reserved for future use */ 21 2 buffer_offset char (2), /* meaningful only if HDR1 system code ^= "" */ 22 2 reserved char (28); /* spaces */ 23 24 /* Old HDR2 system use field, pre-secure-authentication */ 25 26 dcl 1 old_ansi_hdr2_system_use based (addr (ansi_hdr2.system_use)), 27 2 canonical_next_volname char (6), /* next volume name - for trailer label */ 28 2 blocked char (1), /* blocking attribute: 0 - no / 1 - yes */ 29 2 mode char (1), /* data encoding mode (same as above) */ 30 2 system_reserved char (27); /* blanks */ 31 32 dcl ANSI_L2_ID (3) char (4) int static options (constant) init 33 ("HDR2", "EOV2", "EOF2"); 34 dcl (ANSI_HDR2 init (1), 35 ANSI_EOV2 init (2), 36 ANSI_EOF2 init (3)) fixed bin int static options (constant); 37 38 /* END INCLUDE FILE: ansi_hdr2.incl.pl1 */