SELECT master.tabname,
       get_idx_colname(masterconstr.idxname),
       "->",
       slave.tabname,
       get_idx_colname(slaveconstr.idxname)
  FROM sysreferences,
       systables master,
       sysconstraints masterconstr,
       systables slave,
       sysconstraints slaveconstr
 WHERE slaveconstr.constrid = sysreferences.constrid
and master.tabname = ?
   AND master.tabid = sysreferences.ptabid
   AND slave.tabid = slaveconstr.tabid
   AND masterconstr.tabid = master.tabid
   AND masterconstr.constrtype = "P"
   AND slaveconstr.constrtype = "R"
ORDER BY  1 , 2 
;
{
DROP PROCEDURE get_idx_colname;
CREATE PROCEDURE get_idx_colname(p_idxname CHAR( 18 ) )
RETURNING CHAR( 300 );
DEFINE p_collist CHAR( 300 );
DEFINE p_colname CHAR( 18 );
DEFINE i_tabid INTEGER;
DEFINE i_part1 INTEGER;
DEFINE i_part2 INTEGER;
DEFINE i_part3 INTEGER;
DEFINE i_part4 INTEGER;
DEFINE i_part5 INTEGER;
DEFINE i_part6 INTEGER;
DEFINE i_part7 INTEGER;
DEFINE i_part8 INTEGER;
DEFINE i_part9 INTEGER;
DEFINE i_part10 INTEGER;
DEFINE i_part11 INTEGER;
DEFINE i_part12 INTEGER;
DEFINE i_part13 INTEGER;
DEFINE i_part14 INTEGER;
DEFINE i_part15 INTEGER;
DEFINE i_part16 INTEGER;

LET p_collist = '';
LET p_colname = '';
LET i_tabid =  0 ;
LET i_part1 =  0 ;
LET i_part2 =  0 ;
LET i_part3 =  0 ;
LET i_part4 =  0 ;
LET i_part5 =  0 ;
LET i_part6 =  0 ;
LET i_part7 =  0 ;
LET i_part8 =  0 ;
LET i_part9 =  0 ;
LET i_part10 =  0 ;
LET i_part11 =  0 ;
LET i_part12 =  0 ;
LET i_part13 =  0 ;
LET i_part14 =  0 ;
LET i_part15 =  0 ;
LET i_part16 =  0 ;

 SELECT i.tabid,
        i.part1,
        i.part2,
        i.part3,
        i.part4,
        i.part5,
        i.part6,
        i.part7,
        i.part8,
        i.part9,
        i.part10,
        i.part11,
        i.part12,
        i.part13,
        i.part14,
        i.part15,
        i.part16
 INTO i_tabid,
      i_part1,
      i_part2,
      i_part3,
      i_part4,
      i_part5,
      i_part6,
      i_part7,
      i_part8,
      i_part9,
      i_part10,
      i_part11,
      i_part12,
      i_part13,
      i_part14,
      i_part15,
      i_part16
 FROM SYSINDEXES i
 WHERE I.IDXNAME = p_idxname;
IF i_tabid IS NOT NULL AND i_tabid >  0  THEN
   IF i_part1 IS NOT NULL AND i_part1 >  0  THEN
       LET p_colname = '';
       SELECT colname
           INTO p_colname
           FROM syscolumns
       WHERE tabid = i_tabid
         AND colno = i_part1;
       IF p_colname IS NOT NULL AND LENGTH(p_colname)> 0  THEN
           IF p_collist IS NOT NULL AND LENGTH(p_collist)> 0  THEN
               LET p_collist = TRIM(p_collist) || ",";
           END IF;
           LET p_collist = TRIM(p_collist) || p_colname;
       END IF;
   END IF;
   IF i_part2 IS NOT NULL AND i_part2 >  0  THEN
       LET p_colname = '';
       SELECT colname
           INTO p_colname
           FROM syscolumns
       WHERE tabid = i_tabid
         AND colno = i_part2;
       IF p_colname IS NOT NULL AND LENGTH(p_colname)> 0  THEN
           IF p_collist IS NOT NULL AND LENGTH(p_collist)> 0  THEN
               LET p_collist = TRIM(p_collist) || ",";
           END IF;
           LET p_collist = TRIM(p_collist) || p_colname;
       END IF;
   END IF;
   IF i_part3 IS NOT NULL AND i_part3 >  0  THEN
       LET p_colname = '';
       SELECT colname
           INTO p_colname
           FROM syscolumns
       WHERE tabid = i_tabid
         AND colno = i_part3;
       IF p_colname IS NOT NULL AND LENGTH(p_colname)> 0  THEN
           IF p_collist IS NOT NULL AND LENGTH(p_collist)> 0  THEN
               LET p_collist = TRIM(p_collist) || ",";
           END IF;
           LET p_collist = TRIM(p_collist) || p_colname;
       END IF;
   END IF;
   IF i_part4 IS NOT NULL AND i_part4 >  0  THEN
       LET p_colname = '';
       SELECT colname
           INTO p_colname
           FROM syscolumns
       WHERE tabid = i_tabid
         AND colno = i_part4;
       IF p_colname IS NOT NULL AND LENGTH(p_colname)> 0  THEN
           IF p_collist IS NOT NULL AND LENGTH(p_collist)> 0  THEN
               LET p_collist = TRIM(p_collist) || ",";
           END IF;
           LET p_collist = TRIM(p_collist) || p_colname;
       END IF;
   END IF;
   IF i_part5 IS NOT NULL AND i_part5 >  0  THEN
       LET p_colname = '';
       SELECT colname
           INTO p_colname
           FROM syscolumns
       WHERE tabid = i_tabid
         AND colno = i_part5;
       IF p_colname IS NOT NULL AND LENGTH(p_colname)> 0  THEN
           IF p_collist IS NOT NULL AND LENGTH(p_collist)> 0  THEN
               LET p_collist = TRIM(p_collist) || ",";
           END IF;
           LET p_collist = TRIM(p_collist) || p_colname;
       END IF;
   END IF;
   IF i_part6 IS NOT NULL AND i_part6 >  0  THEN
       LET p_colname = '';
       SELECT colname
           INTO p_colname
           FROM syscolumns
       WHERE tabid = i_tabid
         AND colno = i_part6;
       IF p_colname IS NOT NULL AND LENGTH(p_colname)> 0  THEN
           IF p_collist IS NOT NULL AND LENGTH(p_collist)> 0  THEN
               LET p_collist = TRIM(p_collist) || ",";
           END IF;
           LET p_collist = TRIM(p_collist) || p_colname;
       END IF;
   END IF;
   IF i_part7 IS NOT NULL AND i_part7 >  0  THEN
       LET p_colname = '';
       SELECT colname
           INTO p_colname
           FROM syscolumns
       WHERE tabid = i_tabid
         AND colno = i_part7;
       IF p_colname IS NOT NULL AND LENGTH(p_colname)> 0  THEN
           IF p_collist IS NOT NULL AND LENGTH(p_collist)> 0  THEN
               LET p_collist = TRIM(p_collist) || ",";
           END IF;
           LET p_collist = TRIM(p_collist) || p_colname;
       END IF;
   END IF;
   IF i_part8 IS NOT NULL AND i_part8 >  0  THEN
       LET p_colname = '';
       SELECT colname
           INTO p_colname
           FROM syscolumns
       WHERE tabid = i_tabid
         AND colno = i_part8;
       IF p_colname IS NOT NULL AND LENGTH(p_colname)> 0  THEN
           IF p_collist IS NOT NULL AND LENGTH(p_collist)> 0  THEN
               LET p_collist = TRIM(p_collist) || ",";
           END IF;
           LET p_collist = TRIM(p_collist) || p_colname;
       END IF;
   END IF;
   IF i_part9 IS NOT NULL AND i_part9 >  0  THEN
       LET p_colname = '';
       SELECT colname
           INTO p_colname
           FROM syscolumns
       WHERE tabid = i_tabid
         AND colno = i_part9;
       IF p_colname IS NOT NULL AND LENGTH(p_colname)> 0  THEN
           IF p_collist IS NOT NULL AND LENGTH(p_collist)> 0  THEN
               LET p_collist = TRIM(p_collist) || ",";
           END IF;
           LET p_collist = TRIM(p_collist) || p_colname;
       END IF;
   END IF;
   IF i_part10 IS NOT NULL AND i_part10 >  0  THEN
       LET p_colname = '';
       SELECT colname
           INTO p_colname
           FROM syscolumns
       WHERE tabid = i_tabid
         AND colno = i_part10;
       IF p_colname IS NOT NULL AND LENGTH(p_colname)> 0  THEN
           IF p_collist IS NOT NULL AND LENGTH(p_collist)> 0  THEN
               LET p_collist = TRIM(p_collist) || ",";
           END IF;
           LET p_collist = TRIM(p_collist) || p_colname;
       END IF;
   END IF;
   IF i_part11 IS NOT NULL AND i_part11 >  0  THEN
       LET p_colname = '';
       SELECT colname
           INTO p_colname
           FROM syscolumns
       WHERE tabid = i_tabid
         AND colno = i_part11;
       IF p_colname IS NOT NULL AND LENGTH(p_colname)> 0  THEN
           IF p_collist IS NOT NULL AND LENGTH(p_collist)> 0  THEN
               LET p_collist = TRIM(p_collist) || ",";
           END IF;
           LET p_collist = TRIM(p_collist) || p_colname;
       END IF;
   END IF;
   IF i_part12 IS NOT NULL AND i_part12 >  0  THEN
       LET p_colname = '';
       SELECT colname
           INTO p_colname
           FROM syscolumns
       WHERE tabid = i_tabid
         AND colno = i_part12;
       IF p_colname IS NOT NULL AND LENGTH(p_colname)> 0  THEN
           IF p_collist IS NOT NULL AND LENGTH(p_collist)> 0  THEN
               LET p_collist = TRIM(p_collist) || ",";
           END IF;
           LET p_collist = TRIM(p_collist) || p_colname;
       END IF;
   END IF;
   IF i_part13 IS NOT NULL AND i_part13 >  0  THEN
       LET p_colname = '';
       SELECT colname
           INTO p_colname
           FROM syscolumns
       WHERE tabid = i_tabid
         AND colno = i_part13;
       IF p_colname IS NOT NULL AND LENGTH(p_colname)> 0  THEN
           IF p_collist IS NOT NULL AND LENGTH(p_collist)> 0  THEN
               LET p_collist = TRIM(p_collist) || ",";
           END IF;
           LET p_collist = TRIM(p_collist) || p_colname;
       END IF;
   END IF;
   IF i_part14 IS NOT NULL AND i_part14 >  0  THEN
       LET p_colname = '';
       SELECT colname
           INTO p_colname
           FROM syscolumns
       WHERE tabid = i_tabid
         AND colno = i_part14;
       IF p_colname IS NOT NULL AND LENGTH(p_colname)> 0  THEN
           IF p_collist IS NOT NULL AND LENGTH(p_collist)> 0  THEN
               LET p_collist = TRIM(p_collist) || ",";
           END IF;
           LET p_collist = TRIM(p_collist) || p_colname;
       END IF;
   END IF;
   IF i_part15 IS NOT NULL AND i_part15 >  0  THEN
       LET p_colname = '';
       SELECT colname
           INTO p_colname
           FROM syscolumns
       WHERE tabid = i_tabid
         AND colno = i_part15;
       IF p_colname IS NOT NULL AND LENGTH(p_colname)> 0  THEN
           IF p_collist IS NOT NULL AND LENGTH(p_collist)> 0  THEN
               LET p_collist = TRIM(p_collist) || ",";
           END IF;
           LET p_collist = TRIM(p_collist) || p_colname;
       END IF;
   END IF;
   IF i_part16 IS NOT NULL AND i_part16 >  0  THEN
       LET p_colname = '';
       SELECT colname
           INTO p_colname
           FROM syscolumns
       WHERE tabid = i_tabid
         AND colno = i_part16;
       IF p_colname IS NOT NULL AND LENGTH(p_colname)> 0  THEN
           IF p_collist IS NOT NULL AND LENGTH(p_collist)> 0  THEN
               LET p_collist = TRIM(p_collist) || ",";
           END IF;
           LET p_collist = TRIM(p_collist) || p_colname;
       END IF;
   END IF;
END IF;
RETURN p_collist;
END PROCEDURE;
}