--
DROP TABLE tTEST
CREATE TEMPORARY TABLE tTEST +
(Part TEXT(3), Dept INT)
--
SET VAR vDeptOld INT = 0
--
DECLARE Cur1 CURSOR FOR +
SELECT Part,Dept FROM Routing ORDER BY Seq
OPEN Cur1
FETCH Cur1 INTO vPart ivPart, vDept ivDept
WHILE SQLCODE = 0 THEN
IF vDept <> .vDeptOld THEN
INSERT INTO tTEST (Part, Dept) +
VALUES (.vPart, .vDept)
ENDIF
SET VAR vDeptOld = .vDept
FETCH Cur1 INTO vPart ivPart, vDept ivDept
ENDWHILE
DROP CURSOR Cur1
--
CLEAR VAR vPart,ivPart,vDept,ivDept,vDeptOld
-- Konstantin 05/09/2002 [EMAIL PROTECTED]
RETURN
_________________________________________________________________
Send and receive Hotmail on your mobile device: http://mobile.msn.com
================================================
TO SEE MESSAGE POSTING GUIDELINES:
Send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: INTRO rbase-l
================================================
TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: UNSUBSCRIBE rbase-l
================================================
TO SEARCH ARCHIVES:
http://www.mail-archive.com/rbase-l%40sonetmail.com/
