"localhost:/firebird/data/ILICHEVSK2.FDB". Процедуры

POS

Входные параметры

Выходные параметры

Описание

(Нет описания для процедуры POS)

Определение

CREATE PROCEDURE POS(
    SUBSTR VARCHAR(100),
    STR VARCHAR(100))
RETURNS (
    POSL INTEGER)
AS
declare variable substr2 varchar(201); /* 1 + SubStr-lenght + Str-length */
declare variable tmp varchar(100);
BEGIN
  IF (SubStr IS NULL OR Str IS NULL)
  THEN BEGIN PosL = NULL; suspend; EXIT; END

  SubStr2 = SubStr || '%';
  Tmp = '';
  PosL = 1;
  WHILE (Str NOT LIKE SubStr2 AND Str NOT LIKE Tmp) DO BEGIN
    SubStr2 = '_' || SubStr2;
    Tmp = Tmp || '_';
    PosL = PosL + 1;
  END
  IF (Str LIKE Tmp) THEN PosL = 0;
  suspend;
END