

{ Identification record. }

  TYPE
    llt$identification = record
      name: pmt$program_name,
      object_text_version: string (4),
      kind: llt$module_kind,
      time_created: ost$time,
      date_created: ost$date,
      attributes: llt$module_attributes,
      greatest_section_ordinal: llt$section_ordinal,
      generator_id: llt$module_generator,
      generator_name_vers: string (40),
      commentary: string (40),
    recend;

  CONST
    llc$object_text_version = 'V1.4';

*copyc PMT$PROGRAM_NAME
*copyc LLT$MODULE_KIND
*copyc OST$TIME
*copyc OST$DATE
*copyc LLT$MODULE_ATTRIBUTES
*copyc llt$section_address
*copyc LLT$MODULE_GENERATOR
