저도 필요해서 그냥 함 만들어본 프로시져 입니다.
파이어버드,인터베이스 프로시져 는 테이블 형태로도 인식하더군요
즉  left outer join REF_STR( '6',0,9) 이런식으로요


CREATE PROCEDURE REF_STR (
  IG VARCHAR(8),
  SS CHAR(1),
  VL INTEGER
) RETURNS (
  RT VARCHAR(12)
) AS
declare variable tki integer;
declare variable tks varchar(8);
begin
tki =0;
tks ='';
while (tki < (:vl - strlen(:ig) )     ) do
begin
tki = tki + 1;
tks = tks || :ss;
end
rt = tks || :ig;

suspend;
end
위처럼 프로시저 생성후
select * from REF_STR( '6',0,9)

REF_STR( '6',0,9)
'6'이란 변수를  9자리까지 0으로 채우는 프로시져 입니다.