PLSQL Tools for query primary key and foreign key of a table

SET VERIFY OFFSET SERVEROUTPUT ONDECLARE  V_TABLE_NAME VARCHAR2(100);  -- 表名  V_PK_NAME    VARCHAR2(100);  -- 主キー制約の名前  V_COLUMNS    VARCHAR2(3000); -- 列名の取得(列1,列2,・・)BEGIN  -- 表名の取得(キーボードから入力)  V_TABLE_NAME := UPPER('&TABLE_NAME');  -- 主キー制約の名前の取得  SELECT    CONSTRAINT_NAME  INTO    V_PK_NAME  FROM    USER_CONSTRAINTS  WHERE    TABLE_NAME        = V_TABLE_NAME  AND CONSTRAINT_TYPE = 'P';  -- 取得した主キーの列名(複合例）の取得  FOR REC IN  (    SELECT      COLUMN_NAME    FROM      USER_CONS_COLUMNS    WHERE      CONSTRAINT_NAME = V_PK_NAME    ORDER BY      POSITION  )  LOOP    -- "列名," を後ろに追記する    V_COLUMNS := V_COLUMNS || REC.COLUMN_NAME || ',';  END LOOP;  -- 最後の余分な','をとっている  V_COLUMNS := SUBSTR(V_COLUMNS,1,LENGTH(V_COLUMNS)-1);  --  "列名,列名"の前後をかっこ()で囲む  V_COLUMNS := '(' || V_COLUMNS || ')';  DBMS_OUTPUT.PUT_LINE('Table Name:' || V_TABLE_NAME || '  Primary Key :' || V_COLUMNS);  -- この表を参照する子表の外部キー制約名を取得し、  -- 子表の名前と外部キー列を表示する  FOR REC1 IN  (    SELECT      CONSTRAINT_NAME,      TABLE_NAME    FROM      USER_CONSTRAINTS    WHERE      R_CONSTRAINT_NAME = V_PK_NAME    AND CONSTRAINT_TYPE = 'R'  )  LOOP    -- さらに外部キー制約名から、列名（複合列）を変数に取得する    V_COLUMNS := NULL;    FOR REC2 IN    (      SELECT        COLUMN_NAME      FROM        USER_CONS_COLUMNS      WHERE        CONSTRAINT_NAME = REC1.CONSTRAINT_NAME      ORDER BY        POSITION    )    LOOP      V_COLUMNS := V_COLUMNS || REC2.COLUMN_NAME || ',';    END LOOP;    V_COLUMNS := SUBSTR(V_COLUMNS,1,LENGTH(V_COLUMNS)-1);    V_COLUMNS := '(' || V_COLUMNS || ')';    -- 子表の情報を画面表示    DBMS_OUTPUT.PUT_LINE('Child Table Name:' || REC1.TABLE_NAME || '  Foreign Key :' || V_COLUMNS);  END LOOP;END;