CREATE PROCEDURE GET_SOME_DATE (
    VARIANT INTEGER)
RETURNS (
    TYPE_DATA VARCHAR( 10 ),
    VALUE_DATA VARCHAR( 100 ))
AS
DECLARE VARIABLE CNT INTEGER;
begin
  if (Variant =  1 ) then begin
    cnt =  10 ;
    Type_Data = 'Integer';
    while (cnt >  0 ) do begin
      Value_Data = cast(Cnt as varchar( 100 ));
      suspend;
      cnt = cnt -  1 ;
    end
  end else
  if (Variant =  2 ) then begin
      Type_Data = 'Color';
      Value_Data = 'Белый';
      suspend;
      Value_Data = 'Синий';
      suspend;
      Value_Data = 'Красный';
      suspend;
  end else begin
      Type_Data = 'Undefined';
      Value_Data = '**********';
      suspend;
  end
end

:i= 0 ;
suspend;
:i= 1 ;
suspend;
:i= 2 ;
suspend;
:i= 3 ;
suspend;