cursor

DECLARE P CURSOR FOR
SELECT PART.PART FROM PART, FAMILY
WHERE PART.PART <> 0
AND PART.FAMILY = FAMILY.FAMILY ;
DELETE FROM GENERALLOAD ;
OPEN P ;
:LINE = 0 ;
LABEL 10 ;
:PART = 0 + 0 ;
FETCH P INTO :PART ;
GOTO 299 WHERE :RETVAL <= 0 ;