CREATE PROCEDURE WILD_SELECT (TYPE INTEGER )
RETURNS (WILD_ID INTEGER, NAME VARCHAR( 255 ))
AS 
BEGIN
  WILD_ID= 0 ;
  FOR SELECT NAME FROM TABLE1 WHERE TYPE = :TYPE INTO :NAME DO BEGIN
    WILD_ID=WILD_ID+ 1 ;
    SUSPEND;   
  END
END

SELECT W1.NAME NAME1, W2.NAME NAME from  WILD_SELECT W1 FULL JOIN
WILD_SELECT W2 ON (W1.WILD_ID=W2.WILD_ID)

SELECT W1.NAME NAME1, W2.NAME NAME from  WILD_SELECT( 0 ) W1 FULL JOIN

WILD_SELECT( 1 ) W2 ON (W1.WILD_ID=W2.WILD_ID)

  CREATE PROCEDURE WILD_SELECT (TYPE INTEGER )

RETURNS (WILD_ID INTEGER, NAME VARCHAR( 255 ))

AS

BEGIN

  WILD_ID= 0 ;

  FOR SELECT NAME FROM TABLE1 WHERE TYPE = :TYPE INTO :NAME DO BEGIN

    WILD_ID=WILD_ID+ 1 ;

    SUSPEND;  

  END
  FOR SELECT NAME FROM TABLE1 WHERE TYPE <> :TYPE INTO :NAME DO BEGIN
    NAME = null;
    WILD_ID=WILD_ID+ 1 ;

    SUSPEND;  

  END

END

SELECT W1.NAME NAME1, W2.NAME NAME from  WILD_SELECT( 0 ) W1 FULL JOIN
WILD_SELECT( 1 ) W2 ON (W1.WILD_ID=W2.WILD_ID) WHERE W1.NAME IS NOT NULL AND W2.NAME IS NOT NULL

SELECT W1.NAME NAME1, W2.NAME NAME from  WILD_SELECT( 0 ) W1 INNER JOIN

WILD_SELECT( 1 ) W2 ON (W1.WILD_ID=W2.WILD_ID) WHERE W1.NAME IS NOT NULL OR W2.NAME IS NOT NULL