1 /* BEGIN INCLUDE FILE gfms_save_content_hdr.incl.pl1   (Planalp Multics)  08/24/78 1122.9 mst Thu */
 2 /* Modified: Mel Wilson December 1979, change sector numbers to fixed bin (18) unsigned */
 3 
 4 dcl 1 content_hdr aligned based (io_ptr),
 5     2 user_hdr,
 6       3 record_code bit (4) unal,
 7       3 pad bit (14) unal,
 8       3 resv bit (18) unal,
 9     2 user_name bit (72),
10     2 file_hdr,
11       3 file_descr_sector fixed bin (18) unsigned unal,
12       3 pad bit (18) unal,
13       3 creation_date bit (36),
14       3 fms_junk bit (36),
15       3 contin_record bit (1) unal,    /* ON means  this is a continuation of the content of the file */
16       3 n_llinks_this_record bit (4) unal,
17       3 pad1 bit (31) unal,
18       3 resv2 bit (12) unal,
19       3 file_size fixed bin (23) unal,
20       3 zero bit (72),                 /* doc says this should be file name, but tape says otherwise */
21       3 file_name bit (72),
22     2 resv3 (51) bit (36),
23     2 cksm bit (36);                   /* content follows immediately */
24 
25 /*   END INCLUDE FILE gfms_save_content_hdr.incl.pl1 */