oracle sql xml path,sql – XML Oracle：多个子节点提取

我有一个xml代码：

gordon

100

213

214

user1

user2

Jl. jalan pelan-pelan ke Bekasi, Indonesia

mark

Jl. jalan cepet-cepet ke Jakarta, Indonesia

我的代码：

FOR r IN (SELECT VALUE(p) col_val,

EXTRACT(VALUE(P), '/entry/codelist') AS code,

EXTRACT(VALUE(P), '/entry/login') AS login

FROM TABLE(XMLSequence(Extract(x,'/begin/entry'))) p)

LOOP

IF r.col_val.existsnode('/entry/lastname/text()') > 0

THEN

vc_lastname := r.col_val.extract('/sdnEntry/lastname/text()').getstringval();

END IF;

IF r.col_val.existsnode('/entry/address/addresslist/text()') > 0

THEN

vc_address := r.col_val.extract('/sdnEntry/address/addresslist/text()').getstringval();

END IF;

IF r.col_val.existsnode('/entry/codelist/id/code/text()') > 0 AND r.col_val.existsnode('/entry/login/user/text()') > 0

THEN

FOR R1 IN (SELECT EXTRACTVALUE(VALUE(T1), '/codelist/code/text()') AS code

FROM TABLE(XMLSEQUENCE(EXTRACT(R.code, '/codelist'))) T1)

LOOP

DBMS_OUTPUT.PUT_LINE(vc_uid||' - '||vc_firstName||' - '||R1.code||' - '||R2.address);

END LOOP;

FOR R2 IN (SELECT

EXTRACTVALUE(VALUE(T1), '/login/user/text()') AS user

FROM TABLE(XMLSEQUENCE(EXTRACT(R.address, 'login/'))) T1)

LOOP

DBMS_OUTPUT.PUT_LINE(vc_uid||' - '||vc_firstName||' - '||R2.user||' - '||R2.address);

END LOOP;

ELSE

DBMS_OUTPUT.PUT_LINE(vc_uid||' - '||vc_firstName);

END IF;

我的问题：如何循环子节点,以便数据将如下所示：

LastName | Number | code | user | address

gordon | 100 | 213 | user1 |Jl. jalan pelan-pelan ke Bekasi, Indonesia

gordon | 100 | 213 | user2 |Jl. jalan pelan-pelan ke Bekasi, Indonesia

gordon | 100 | 214 | user1 |Jl. jalan pelan-pelan ke Bekasi, Indonesia

gordon | 100 | 214 | user2 |Jl. jalan pelan-pelan ke Bekasi, Indonesia

mark | Null | null | null |Jl. jalan cepet-cepet ke Jakarta, Indonesia

任何帮助将是欣赏.