🚀 go-pugleaf

Witam,
w bazie firebird jest tabela PRG zawierająca pole NR (VARCHAR), w którym przechowuję łańcuchy zawierające m. in. liczby, np. P-124, P-125a, PL-985, G-214, J-235, G-41cd, PL-7, G-1234 itp. Chciałem posortować tabelę wg LICZB występujących w polu NR. Napisałem procedurę DAJLICZBE:

CREATE PROCEDURE DAJLICZBE(
  WEJSCIE VARCHAR(30) CHARACTER SET WIN1250 DEFAULT NULL)
RETURNS(
  LICZBA INTEGER)
AS
DECLARE VARIABLE I SMALLINT;
DECLARE VARIABLE DLUGOSC SMALLINT;
DECLARE VARIABLE ZNAK VARCHAR(1);
DECLARE VARIABLE LICZBASTR VARCHAR(30);
BEGIN

  DLUGOSC = CHAR_LENGTH(WEJSCIE);

  I = 1;
  LICZBASTR = '';
  WHILE (I <= DLUGOSC) DO
  BEGIN
    ZNAK = SUBSTRING(WEJSCIE FROM I FOR 1);
    IF (ZNAK BETWEEN '0' AND '9') THEN LICZBASTR = LICZBASTR || ZNAK;
    I = I + 1;
  END

  IF (LICZBASTR = '') THEN LICZBASTR = '0';
  LICZBA = LICZBASTR;

  SUSPEND;

END;

i tą procedurę wywołuję następująco:

  select * from PRG
  order by (select * from DAJLICZBE(NR))

Działa dokładnie tak, jak chciałem...
Moje pytanie: CZY DA SIĘ TO ZROBIĆ BARDZIEJ POPRAWNIE, a MOŻE PROŚCIEJ LUB PO PROSTU BARDZIEJ ELEGANCKO... (bez UDF)
Dzięki.