1 /*  BEGIN INCLUDE FILE:  ansi_hdr1.incl.pl1                 */
 2 /*  Modified by J. A. Bush 11/07/82 for use by mtape_ */
 3 
 4 /* format: style4 */
 5 
 6 dcl  ansi_hdr1P ptr;                                        /* pointer on which ansi_hdr1 structure is based */
 7 
 8 dcl  1 ansi_hdr1 unaligned based (ansi_hdr1P),
 9        2 label_id char (4),                                 /* HDR1/EOF1/EOV1 */
10        2 file_id char (17),                                 /* file identifier */
11        2 set_id char (6),                                   /* file-set identifier */
12        2 section char (4),                                  /* file section number */
13        2 sequence char (4),                                 /* file sequence number (within file set) */
14        2 generation char (4),                               /* file generation number */
15        2 version char (2),                                  /* generation version number */
16        2 creation char (6),                                 /* file creation date - Julian form (" yyddd") */
17        2 expiration char (6),                               /* file expiration date - Julian form */
18        2 access char (1),                                   /* file accessibility code */
19        2 blkcnt char (6),                                   /* used by EOF1/EOV1, must be "000000" for HDR1 */
20        2 system char (13),                                  /* system code = "MULTICS ANSI2" for mtape_ */
21        2 reserved char (7);                                 /* must be spaces */
22 
23 
24 dcl  ANSI_L1_ID (3) char (4) int static options (constant) init
25           ("HDR1", "EOV1", "EOF1");
26 dcl  (ANSI_HDR1 init (1),
27      ANSI_EOV1 init (2),
28      ANSI_EOF1 init (3)) fixed bin int static options (constant);
29 dcl  ANSI_SYS_CODE char (13) int static options (constant) init ("MULTICS ANSI2");
30 
31 /*  END INCLUDE FILE:  ansi_hdr1.incl.pl1                   */