

{ Transfer record. }

  TYPE
    llt$transfer_symbol = record
      name: pmt$program_name,
    recend;

*copyc PMT$PROGRAM_NAME
