CREATE PROCEDURE db2admin.GET_FILTER (
IN SUPPLIERINPUT INTEGER)
RESULT SETS 1
LANGUAGE SQL
BEGIN
DECLARE c1 CURSOR WITH RETURN FOR
SELECT * FROM db2admin.ORG
WHERE 
     (case SUPPLIERINPUT
	      when 0 then 0 
		  else 1
     end = 0 ) 
	 OR  (deptnumb = SUPPLIERINPUT);
OPEN c1;	 
END;

C:\Program Files\IBM\SQLLIB\BIN>DB2 CALL DB2ADMIN.GET_FILTER(10)


  Набор результатов 1
  --------------

  DEPTNUMB DEPTNAME       MANAGER DIVISION   LOCATION
  -------- -------------- ------- ---------- -------------
        10 Head Office        160 Corporate  New York

  1 записей выбрано.

  Статус возврата = 0

C:\Program Files\IBM\SQLLIB\BIN>DB2 CALL DB2ADMIN.GET_FILTER(0)


  Набор результатов 1
  --------------

  DEPTNUMB DEPTNAME       MANAGER DIVISION   LOCATION
  -------- -------------- ------- ---------- -------------
        10 Head Office        160 Corporate  New York
        15 New England         50 Eastern    Boston
        20 Mid Atlantic        10 Eastern    Washington
        38 South Atlantic      30 Eastern    Atlanta
        42 Great Lakes        100 Midwest    Chicago
        51 Plains             140 Midwest    Dallas
        66 Pacific            270 Western    San Francisco
        84 Mountain           290 Western    Denver

  8 записей выбрано.

  Статус возврата = 0

C:\Program Files\IBM\SQLLIB\BIN>