String fastTransformObjectToLongString(Object objectToTransform) {
      // TODO:
 
}

Declare
 SUBTYPE T_MAXSTRING is LONG;
 SUBTYPE T_CHAR is Varchar2(1 Char);
 c_filler T_CHAR :='x';  -- символ-заполнитель буфера
 c_input Varchar2(31123) := '123'; -- переменная, определяет максимально допустимую вместимость буфера, заменяемая по месту фактического использования
 c_receiver T_MAXSTRING; -- сюда вернем результат в допустимый размер c_input

  -- функция: формируем строковый буфер указанным символом,
  -- в размер указанного приёмника, не разрушая полученный для теста приемник.
  Function buff_by_stacker( pc_char in T_CHAR       -- этим символом заполнить буфер
                           , pc_stacker IN OUT NOCOPY T_MAXSTRING -- это объект-приёмник, он не должен измениться по завершении процедуры, таков контракт
                          ) Return T_MAXSTRING
  is
    c_src T_MAXSTRING;
    c_temp T_MAXSTRING;    
  Begin 
    c_src := pc_stacker;  -- сохраняем содержимое

    -- ...  здесь код, формирующий c_temp в максимально допустимый размер pc_stacker

    pc_stacker := c_src; -- восстанавливаем тестовый приемник

    Return c_temp; 
  End;                
Begin
  -- использование в "нагруженном цикле"
  For i in 1..1000
  LOOP
    c_receiver := buff_by_stacker( pc_char => c_filler       -- этим символом заполнить буфер
                                , pc_stacker => c_input     -- это объект-приёмник, он не должен измениться по завершении процедуры, таков контракт
                                 );    
  END LOOP;  
  dbms_output.put_line(c_filler ||' '||c_input||' '||substr(c_receiver,1,5)||' '||Length(c_receiver));  
End;
/