
 TYPE
{
{   The ANSI HDR2 label contains the following fields:
{
{   CP         Field Name               Content
{  1 ..  3  Label Identifier            'HDR'
{     4     Label Number                '2'
{     5     Record Format               'F' 'D' or 'S'
{  6 .. 10  Block Length                numeric
{ 11 .. 15  Record Length               numeric
{
{ 16 .. 50  Reserved to Implementors
{ 16 .. 17  NOS/VE Block Type           'US' or 'SS'
{    18     NOS/VE Record Type          'F' 'U' or 'V'
{ 19 .. 21  NOS/VE Block Length Ext.    numeric
{           (Most Significant Digits of Block Length)
{ 22 .. 24  NOS/VE Record Length Ext.   numeric
{           (Most Significant Digits of Record Length)
{    25     NOS/VE Padding Character    alpha-numeric
{    26     NOS/VE Character Set        'A' or 'E'
{           ('A' for ASCII, 'E' for EBCDIC)
{    27     NOS/VE Character Conversion 'T' or 'F'
{           ('T' for TRUE, 'F' for FALSE)
{ 28 .. 50  Reserved for NOS/VE         '       '
{
{ 51 .. 52  Buffer Offset Length        numeric
{ 53 .. 80  Reserved to ANSI            '       '
{
    fst$ansi_hdr2_label = record
      CASE boolean OF
      = TRUE =
      label_identifier: string (3),
      label_number: string (1),
      record_format: string (1),
      block_length: string (5),
      record_length: string (5),

{ Reserved to implementors:
      ve_block_type: string (2),
      ve_record_type: string (1),
      ve_block_length_ext: string (3),
      ve_record_length_ext: string (3),
      ve_padding_character: string (1),
      ve_character_set: string (1),
      ve_character_conversion: string (1),
      ve_reserved: string (23),

      buffer_offset_length: string (2),
      reserved_to_ansi: string (28),
      = FALSE =
      label_string: string (80),
      CASEND,
    recend;
