TYPE
   fdt$cobol_operation = (
      fdc$cobol_insert,               {insert <op_num> copies of <op_char>}
      fdc$cobol_move,             {move <op_num> chars from source to dest}
      fdc$cobol_move_float,       {move <op_num> chars, floating <op_char>}
      fdc$cobol_overpunch_sign,     {move 1 digit and apply overpunch sign}
      fdc$cobol_separate_sign,        {insert "+" or "-" depending on sign}
      fdc$cobol_set_char_if_negative,   {insert <op_char> if neg, else " "}
      fdc$cobol_set_leading_zeros,                {"leading_zeros" := true}
      fdc$cobol_stop_float);     {stop floating at [implied] decimal point}
