
 TYPE
    fst$ansi_label_information = record

      { HDR1 label information

      file_identifier: string (17) {Left-justified, blank-filled} ,
      file_set_identifier: string (6) {Left-justified, blank-filled} ,
      file_section_number: 0 .. 9999,
      file_sequence_number: 0 .. 9999,
      generation_number: 0 .. 9999,
      generation_version_number: 0 .. 99,
      creation_date: ost$ordinal_date,
      expiration_date: ost$ordinal_date,
      accessibility: string (1),
      block_count: 0 .. 999999,
      implementation_identifier: string(13) {Left-justified, blank-filled},

      { HDR2 label information

      record_format: string(1),
      block_length: 0 .. 99999,
      record_length: 0 .. 99999,
      buffer_offset_length: 0 .. 99,

    recend;

?? PUSH (LISTEXT := ON) ??
*copyc ost$date
?? POP ??

