1 /* BEGIN INCLUDE FILE: ibm_hdr2.incl.pl1 */ 2 /* Modified by J. A. Bush 04/26/83 for use by mtape_ */ 3 4 /* format: style4 */ 5 6 dcl ibm_hdr2P ptr; /* pointer on which ibm_hdr2 is based */ 7 8 dcl 1 ibm_hdr2 unaligned based (ibm_hdr2P), 9 2 label_id char (4), /* HDR2/EOF2/EOV2 */ 10 2 format char (1), /* U/F/V */ 11 2 blksize char (5), /* equivalent to ANSI block length - 32760 maximum */ 12 2 lrecl char (5), /* equivalent to ANSI record length - 32760 maximum */ 13 /* for VS and VBS, 0 means lrecl > 32756 */ 14 2 density char (1), /* no ANSI equivalent */ 15 /* 2 = 800 bpi; 3 = 1600 cpi; 4 = 6250 cpi */ 16 2 dataset_position char (1), /* no ANSI equivalent */ 17 /* 0 = no volume switch has occurred */ 18 /* 1 = volume switch has occurred */ 19 2 jobstep_id char (17), /* no ANSI equivalent */ 20 2 recording_technique char (2), /* no ANSI equivalent - " " = 9 track */ 21 2 control_characters char (1), /* no ANSI equivalent */ 22 2 reserved1 char (1), /* " " */ 23 2 block_attribute char (1), /* no ANSI equivalent */ 24 /* "B" - records are blocked */ 25 /* "S" - records are spanned */ 26 /* "R" - records are blocked and spanned */ 27 /* " " - records are neither blocked nor spanned */ 28 2 reserved2 char (41); /* " " */ 29 30 dcl 1 ibm_system_use unaligned based (addr (ibm_hdr2.reserved2)), /* mtape IBM overlay */ 31 2 mode char (1), /* 1 - ASCII, 9 mode; 2 - EBCDIC, 9 mode; 3 - binary */ 32 2 next_volname char (6); /* Next volume id in EOV2 label */ 33 34 dcl IBM_L2_ID (3) char (4) int static options (constant) init 35 ("HDR2", "EOV2", "EOF2"); 36 dcl (IBM_HDR2 init (1), 37 IBM_EOV2 init (2), 38 IBM_EOF2 init (3)) fixed bin int static options (constant); 39 40 /* END INCLUDE FILE: ibm_hdr2.incl.pl1 */