1 /*  BEGIN INCLUDE FILE:  ibm_hdr1.incl.pl1                  */
 2 /*  Modified by J. A. Bush 04/26/83 for use by mtape_ */
 3 
 4 /* format: style4 */
 5 
 6 dcl  ibm_hdr1P ptr;                                         /* pointer on which ibm_hdr1 is based */
 7 
 8 dcl  1 ibm_hdr1 unaligned based (ibm_hdr1P),
 9        2 label_id char (4),                                 /* HDR1/EOF1/EOV1 */
10        2 dataset_id char (17),                              /* equivalent to ANSI file identifier */
11        2 dataset_serial char (6),                           /* equivalent to ANSI file set identifier */
12        2 volume_sequence char (4),                          /* volume sequence number - no ANSI equivalent */
13        2 dataset_sequence char (4),                         /* equivalent to ANSI file sequence number */
14        2 generation char (4),                               /* " " if not member of generation data set */
15        2 version char (2),                                  /* " " if not member of generation data set */
16        2 creation char (6),                                 /* " yyddd" - equivalent to ANSI creation date */
17        2 expiration char (6),                               /* " yyddd" - equivalent to ANSI expiration date */
18        2 security char (1),                                 /* "0" on output :: ignored on input */
19        2 blkcnt char (6),                                   /* equivalent to ANSI block count */
20        2 system char (13),                                  /* system code = "MULTICS IBM2 " for mtape_ */
21        2 reserved char (7);                                 /* " " */
22 
23 dcl  IBM_L1_ID (3) char (4) int static options (constant) init
24           ("HDR1", "EOV1", "EOF1");
25 dcl  (IBM_HDR1 init (1),
26      IBM_EOV1 init (2),
27      IBM_EOF1 init (3)) fixed bin int static options (constant);
28 dcl  IBM_SYS_CODE char (13) int static options (constant) init ("MULTICS IBM2 ");
29 
30 /*  END INCLUDE FILE:  ibm_hdr1.incl.pl1                    */