oracle菜鸟求翻译!急！！！！！急！！各位大大求告诉！

[xiaozhuoxt]

DECLARE @KMJB int
SET @KMJB=2
WHILE @KMJB<(select max(kmjb)+1 from atbl)
BEGIN
update atbl
set kmqc=(select distinct A.kmqc+'-'+atbl.kmmc from atbl A
WHERE A.dzbh=atbl.dzbh
AND A.kmbm=atbl.sjkmbm
)
WHERE kmjb=@kmjb
set @kmjb=@kmjb+1
end

这是sqlserver中的语句 根据kmjb循环得到kmqc,怎么在oracle中编写declare.

[游戏人间]

DECLARE V_KMJB NUMBER DEFAULT 2,V_NUM NUMBER; SELECT MAX(KMJB)+1 INTO V_NUM FROM ATBL; WHILE V_KMJB<V_NUM LOOP UPDATE ATBL SET KMQC=(SELECT DISTINCT A.KMQC || '-' || ATBL.KMMC FROM ATBL A WHERE A.DZBH=ATBL.DZBH AND A.KMBM=ATBL.SJKMBM) WHERE KMJB=V_KMJB V_KMJB:=VKMJB+1; END LOOP;

[游戏人间]

DECLARE V_KMJB NUMBER DEFAULT 2,V_NUM NUMBER;
BEGIN
SELECT MAX(KMJB)+1 INTO V_NUM FROM ATBL;

WHILE V_KMJB<V_NUM LOOP

UPDATE ATBL SET  KMQC=(SELECT DISTINCT A.KMQC || '-' || ATBL.KMMC FROM ATBL A 
			WHERE A.DZBH=ATBL.DZBH AND A.KMBM=ATBL.SJKMBM)
WHERE KMJB=V_KMJB;

V_KMJB:=VKMJB+1;

END LOOP;
END;