SQL> set serveroutput on size 30000;
SQL> DECLARE
2 val VARCHAR2(100);
3 c INTEGER;
4 nr INTEGER;
5 BEGIN
6 c := DBMS_HS_PASSTHROUGH.OPEN_CURSOR@DBLINK37.YAMZ.LOCAL;
7 DBMS_HS_PASSTHROUGH.PARSE@DBLINK37.YAMZ.LOCAL(c,
8 'select @@version');
9 LOOP
10 nr := DBMS_HS_PASSTHROUGH.FETCH_ROW@DBLINK37.YAMZ.LOCAL(c);
11 EXIT WHEN nr = 0;
12 DBMS_HS_PASSTHROUGH.GET_VALUE@DBLINK37.YAMZ.LOCAL(c, 1, val);
13 DBMS_OUTPUT.PUT_LINE(val);
14 END LOOP;
15 DBMS_HS_PASSTHROUGH.CLOSE_CURSOR@DBLINK37.YAMZ.LOCAL(c);
16 END;
17 /
Microsoft SQL Server 2000 - 8.00.760 (Intel X86)
Dec 17 2002 14:22:05