Procedura-CreateSequenceTable

Popis:

Vytvoří tabulku sekvencí

Parametry:

Název	Popis	Datový typ
in_from		Numeric(10, 0)
in_to		Numeric(10, 0)
in_step		Numeric(10, 0)

Návratové hodnoty:

Název	Popis	Datový typ
SEQ_NUMBER		Integer

Tělo:

BEGIN
  if (IN_FROM < IN_TO) then begin
    mFrom = IN_FROM;
    mTo = IN_TO;
    mStep = IN_STEP;
    mCounter = mFrom; 
    while (mCounter <= mTo) do begin
      SEQ_NUMBER = mCounter;
      suspend;
      mCounter = mCounter + mStep;
    end  
  end else begin
    mFrom = IN_TO;
    mTo = IN_FROM;
    mStep = (IN_STEP) * (-1);
    mCounter = mTo; 
    while (mCounter >= mFrom) do begin
      SEQ_NUMBER = mCounter;
      suspend;
      mCounter = mCounter + mStep;
    end  
  end
END;

Generated by ABRA Software a.s. 27.10.2021 16:34:13